【正文】 .mMenuIndex = intMainType Select Case intMainType Case gMAINCOLLECT Str = mStrCollection Case gMAINLEAVE Str = mStrLeave Case gMAINABSENT Str = mstrAbsent End Select .Caption = Str .Show 0, Me End With 39。Unload MyfrmMainEnd SubPrivate Sub mnuAppDefine_Click() vbModalEnd SubPrivate Sub mnuAppLeave_Click() IntofrmMain gMAINLEAVEEnd SubPrivate Sub mnuAppPlan_Click() vbModalEnd SubPrivate Sub mnuATR_Click() Dim strATR As String * 8 Dim nRet As Integer nRet = OpenComm(0) nRet = CardExist If nRet = 0 Then MsgBox No Card Exit Sub End If nRet = IC_ATR(strATR) If nRet 0 Then MsgBox Error Read ATR Exit Sub End If = Mid(strATR, 1, 1) amp。 Mid(strATR, 2, 1) amp。 amp。 _ Mid(strATR, 3, 1) amp。 Mid(strATR, 4, 1) amp。 amp。 _ Mid(strATR, 5, 1) amp。 Mid(strATR, 6, 1) amp。 amp。 _ Mid(strATR, 7, 1) amp。 Mid(strATR, 8, 1) 1End SubPrivate Sub mnuCardNew_Click() 1End SubPrivate Sub mnuReadWrite_Click() 1End SubPrivate Sub mnuFileExit_Click() If MsgBox(MDIMsg1, _ vbQuestion + vbYesNo + vbDefaultButton2, _ gTitle) = vbNo Then Exit Sub EndSystemEnd SubPrivate Sub mnuFileReg_Click() 1 SetMenu gLoginGrade = 1End SubPrivate Sub mnuGuardBase_Click() 1End SubPrivate Sub mnuGuardEmployee_Click() vbModalEnd SubPrivate Sub mnuGuardLib_Click() 1End SubPrivate Sub mnuPosSetDate_Click() 1End SubPrivate Sub mnuPowerOff_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOffEnd SubPrivate Sub mnuPowerOn_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOnEnd SubPrivate Sub mnuReadMain_Click() Dim strMain As String * 512 Dim i As Integer, j As Integer, nRet As Integer nRet = OpenComm(0) nRet = IC_ReadMain(0, 256, strMain) If nRet 0 Then MsgBox Error Read Main Memory Exit Sub End If = For i = 0 To 15 For j = 0 To 15 = amp。 Mid(strMain, 32 * i + 2 * j + 1, 1) amp。 Mid(strMain, 32 * i + 2 * j + 2, 1) amp。 Next j = amp。 Chr(13) amp。 Chr(10) Next i 1End SubPrivate Sub mnuRepDyn_Click() 1End SubPrivate Sub mnuRepFlow_Click() 1End SubPrivate Sub mnuRepKQ_Click() 1End SubPrivate Sub mnuRepMonth_Click() With frmMonth .Show 39。不能顯示有模式,因當中有顯示非模式的窗體 End WithEnd SubPrivate Sub SetMenu(isEnable As Boolean) 39。 = isEnable = isEnable = isEnable = isEnable = isEnable = isEnable SetstbMain mstbOperator, gLoginName Dim strTmp As String If isEnable Then strTmp = 管理員 Else strTmp = 客戶級 End If SetstbMain mstbLevel, strTmp SetstbMain mstbDate, Format(Date, yyyymmdd) SetstbMain mstbMsg, gOwnNameEnd SubPrivate Sub SetstbMain(Index As Integer, strText As String) (Index).Text = strTextEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) On Error Resume Next If mClose Then If gLoginGrade = 0 Then MsgBox mMsg2, vbInformation, gTitle Exit Sub End If End If Select Case Case tbCollection mnuAppCollection_Click Case tbLeave mnuAppLeave_Click End SelectEnd SubPrivate Sub mnuYes_Click()If MsgBox(真的要退出系統(tǒng)嗎?, 32 + 4 + vbDefaultButton2, 退出系統(tǒng)) = vbNo ThenExit SubElseUnload MeEnd IfEnd SubPrivate Sub mnuNo_Click()Exit SubEnd Sub35