notes学习中自己总结.docx

实例:NOTES弹出各种输入框,选择框Sub Click(Source As Navigator)Dim session As New NotesSessionDim uiws As New NotesUiWorkSpaceDim uidoc As NotesUiDocumentDim SourceDoc As NotesDocumentDim SourceView As NotesViewDim Setupview As NotesViewDim SetupDoc As NotesDocumentDim SourceDB As NotesDatabaseSet SourceDB=Session.CurrentDatabase Dim PersonDB As New NotesDatabase(SourceDB.Server, AP\SYS\SYS0001.NSF)Dim PersonView As NotesViewDim CardView As NotesViewDim CardDoc As NotesDocumentDim PersonDoc As NotesDocumentDim PersonView1 As NotesViewDim PersonDoc1 As NotesDocumentSet CardView = PersonDB.GetView(CardidView)Set SetupView = SourceDB.GetView(View-SystemSetup)Set SetupDoc = SetupView.GetDocumentByKey(Form-SystemSetup)If SetupDoc Is Nothing ThenMessagebox (Error : Cant find system doc , please try again or call MIS Dept!)Exit SubEnd IfDim DataDB As New NotesDatabase(SourceDB.Server, AP\OFFICE\AP077A.NSF)Dim DataView As NotesViewDim DataDocCol As NotesDocumentCollectionDim DataDoc As NotesDocumentDim EmpNo As StringDim IDNo As StringDim LotNo As StringDim V1 As NotesItemDim V2 As NotesItemDim V3 As VariantDim V4 As NotesItemDim V5 As NotesItemDim V6 As NotesItemDim V7 As NotesItemDim V8 As NotesItemDim Remain As StringDim sss As StringDim should As String--------------------------------------------------------------------------------------- 2011/11/07 NICK增加,要求進行選擇領料或者退料..並修改流程Dim Select1 As VariantDim Chose(2) As VariantChose(0) = 1.領料單Chose(1) = 2.退料單Select1 = uiws.Prompt (PROMPT_OkCancelList, Selection , Select a Form type., Chose(2), Chose)If Select1 = 1.領料單 ThenEmpNo = Inputbox$(Please input your EmpNo!!,請輸入員工編號)If EmpNo = ThenExit SubEnd IfIf SetupDoc.InputType(0) = B ThenIf Len(EmpNo) 12 ThenMessagebox (錯誤:請用讀卡機刷識別證!!)Exit SubElsesss = Left(EmpNo,7)If Left(sss,3) 019 ThenMessagebox (錯誤:本系統僅供南茂員工使用!!)Exit SubElseshould = S + Right(sss,4)End IfEnd IfElseif (SetupDoc.InputType(0) = C )ThenrAns = uiws.Prompt(PROMPT_PASSWORD, Please Input your EmpNo!!,Please Use Sense Machin