资源描述：
《notes学习中自己总结》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、实例:NOTES弹出各种输入框,选择框SubClick(SourceAsNavigator)DimsessionAsNewNotesSessionDimuiwsAsNewNotesUiWorkSpaceDimuidocAsNotesUiDocumentDimSourceDocAsNotesDocumentDimSourceViewAsNotesViewDimSetupviewAsNotesViewDimSetupDocAsNotesDocumentDimSourceDBAsNotesDatabaseSetSourceDB=Session.CurrentDat
2、abaseDimPersonDBAsNewNotesDatabase(SourceDB.Server,"APSYSSYS0001.NSF")DimPersonViewAsNotesViewDimCardViewAsNotesViewDimCardDocAsNotesDocumentDimPersonDocAsNotesDocumentDimPersonView1AsNotesViewDimPersonDoc1AsNotesDocumentSetCardView=PersonDB.GetView("CardidView")SetSetupView=Sour
3、ceDB.GetView("View-SystemSetup")SetSetupDoc=SetupView.GetDocumentByKey("Form-SystemSetup")IfSetupDocIsNothingThenMessagebox("Error:Cantfindsystemdoc,pleasetryagainorcallMISDept!")ExitSubEndIfDimDataDBAsNewNotesDatabase(SourceDB.Server,"APOFFICEAP077A.NSF")DimDataViewAsNotesViewDi
4、mDataDocColAsNotesDocumentCollectionDimDataDocAsNotesDocumentDimEmpNoAsStringDimIDNoAsStringDimLotNoAsStringDimV1AsNotesItemDimV2AsNotesItemDimV3AsVariantDimV4AsNotesItemDimV5AsNotesItemDimV6AsNotesItemDimV7AsNotesItemDimV8AsNotesItemDimRemainAsStringDimsssAsStringDimshouldAsString
5、'---------------------------------------------------------------------------------------'2011/11/07NICK增加,要求進行選擇領料或者退料..並修改流程DimSelect1AsVariantDimChose(2)AsVariantChose(0)="1.領料單"Chose(1)="2.退料單"Select1=uiws.Prompt(PROMPT_OkCancelList,"Selection","SelectaFormtype.",Chose(2),Chose)
6、IfSelect1="1.領料單"ThenEmpNo=Inputbox$("PleaseinputyourEmpNo!!","請輸入員工編號")IfEmpNo=""ThenExitSubEndIfIfSetupDoc.InputType(0)="B"ThenIfLen(EmpNo)<12ThenMessagebox("錯誤:請用讀卡機刷識別證!!")ExitSubElsesss=Left(EmpNo,7)IfLeft(sss,3)<>"019"ThenMessagebox("錯誤:本系統僅供南茂員工使用!!")ExitSubElseshould="S"+Ri
7、ght(sss,4)EndIfEndIfElseif(SetupDoc.InputType(0)="C")Then'rAns=uiws.Prompt(PROMPT_PASSWORD,"PleaseInputyourEmpNo!!","PleaseUseSenseMachine")'IfIsempty(rAns)Then'ExitSub'EndIf'EmpNo=Cstr(rAns)IfLen(EmpNo)<10ThenMessagebox("錯誤:請用感應器刷感應卡!!")ExitSubEndIf%REMEmpNo1=Format(Val("&H"+Right
8、(EmpNo,6)),"00000000")SetC
