【正文】 = 0End SubPrivate Sub del_Click()End SubPrivate Sub dhcb_Click()End SubPrivate Sub dhcp_Click()End SubPrivate Sub duohu_Click() = 2End SubPrivate Sub edit_Click()End SubPrivate Sub exit_Click()EndEnd SubPrivate Sub insert_Click() 1End SubPrivate Sub jiaonadianfei_Click()End SubPrivate Sub M_USERYTPE_Click() 1End SubPrivate Sub MDIForm_Load() loadAdd End SubPublic Sub loadAdd()If = 1 Then End If select * from panelinfo where delflagtrue , gCnn, adOpenKeyset, adLockBatchOptimistic If 0 Then Set = rst = holderID = holder Set = rst Set = rst = holderid If Not Then = !holderid = (2) txtUserName(0) = (1) txtUserName(1) = !nowecount txtUserName(2) = !cendcode = (4) txtUserName(3) = Format(!lMoney, ) txtUserName(4) = Format(!bmoney, .) txtUserName(6) = !lsFee txtUserName(5) = Val(txtUserName(1)) * Val(txtUserName(3)) * (Val(!lightScale) / 100) + Val(txtUserName(1)) * Val(txtUserName(4)) * (1 !lightScale / 100) txtUserName(8) = (9) txtUserName(7) = Val(txtUserName(5)) + Val(txtUserName(6)) !cFeeMoney = txtUserName(7) adAffectCurrent End If End IfEnd SubPublic Sub loadData(Hid As String) Dim rst As New Dim n As New Dim Atimes As Integer Dim sqlAdd As String = Provider=。 DbPassword amp。Data Source= amp。 \data\。 amp。 39。txtUserName(5) = Format(txtUserName(1) * txtUserName(3) * (!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 !lightScale / 100), ) If !Atimes = 0 Then Atimes = 1 Else Atimes = !Atimes End If txtUserName(5) = Format(Val(txtUserName(1)) * txtUserName(3) * Atimes, ) txtUserName(8) = (9) txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), ) !cFeeMoney = txtUserName(7) adAffectCurrent End If End SubPrivate Sub MDIForm_Unload(Cancel As Integer)Set gcon = NothingEnd SubPrivate Sub mgcf_Click()End SubPrivate Sub mhf_Click()End SubPrivate Sub msf_Click()End SubPrivate Sub qianfeilm_Click() = TrueEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Trim()Case a 1Case b Case c 1Case d 1Case e 1Case f 1Case g 1Case dhcb1 Case dbcb2Case jX = MsgBox(真的要退出嗎？, vbYesNo + vbQuestion, 警告)If X = vbYes ThenEndElseEnd IfEnd SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case dhcb1 Case dhcb2 End SelectEnd SubPrivate Sub weihu_Click()End SubPrivate Sub yihu_Click() = 1End Sub4. 備份界面設(shè)計(jì)::備份代碼設(shè)計(jì):Private Sub Command1_Click()Dim a As Stringa = a = a amp。On Error GoTo errhandle:Dim filename As Stringfilename = amp。 If a = ThenMsgBox 備份目錄與原文件目錄相同,請(qǐng)重新選擇!Exit SubEnd IfIf Dir( amp。 ) ThenDim llp As Stringllp = MsgBox(此目錄下已有該文件，要覆蓋嗎？, vbYesNo, 備份文件)If llp = vbYes ThenKill ( amp。 )FileCopy amp。 \data\, amp。 Dim ll = MsgBox( 備份成功! , vbOKOnly, 提示)ElseExit SubEnd IfElseFileCopy amp。 \data\, amp。 Dim llll = MsgBox( 備份成功! , vbOKOnly, 提示)End IfExit Sub39。MsgBox 出現(xiàn)錯(cuò)誤，不能復(fù)制, vbOKOnly + vbCritical, 復(fù)制文件39。dy39。 = Dir1If Right(, 1) \ Then = + \Else = End If = TrueEnd SubPrivate Sub Dir1_Click()If Right(, 1) \ Then = + \Else = End If = TrueEnd SubPrivate Sub Drive1_Change() = End SubPrivate Sub Form_Activate() = FalseChDrive ChDir 39。 = c:\ = CurDir() = FalseEnd SubPrivate Sub Form_Load()ChDrive ChDir End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)dyEnd SubPrivate Sub Form_Unload(Cancel As Integer)If = 0 Then = Provider=。 DbPassword amp。Data Source= amp。 \data\。Jet OLEDB:database password= amp。 。 _ amp。Persist Security Info=False = adUseClient = n select nowecount from panelinfo where holderID= 39。 Trim(txtUserName(0)) amp。, n, adOpenStatic, adLockBatchOptimistic nowEv = Val((0).Value) + (Val(txtUserName(9)) Val(txtUserName(2))) sqlAdd = update panelinfo set LEndPCode= amp。 ,cEndCode= amp。 ,nowEcount= amp。 ,writedate= amp。 where holderID= 39。 Trim(txtUserName(0)) amp。 = sqlAdd sqlAdd 39。 where holderid=39。 Trim((0)) amp。and delflagtrue sqlEdit, gCnn, adOpenStatic, adLockBatchOptimistic If Not Then txtUserName(0) = (1) txtUserName(1) = (2) txtUserName(2) = !cendcode dtpwdate(0).Value = (4) End Ifbuttontime = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) (txtUserName(0))Cancel = 0End SubPrivate Sub nextuser_Click() Dim rst As New Dim sqlEdit As StringsqlEdit = select * from panelinfo sqlEdit = sqlEdit amp。 amp。 39。 \b = Dim filename As StringIf Dir( amp。 ) ThenDim ll As Stringll = MsgBox(此目錄下有此文件要覆蓋嗎, vbYesNo, 復(fù)制文件)If ll = vbYes ThenKill ( amp。 )FileCopy amp。 , amp。 Dim ll = MsgBox(數(shù)據(jù)導(dǎo)入成功, vbOKOnly, 提示)ElseExit SubEnd IfElseFileCopy amp。 , amp。 Dim llpllp = MsgBox(數(shù)據(jù)導(dǎo)入成功, vbOKOnly, 提示)End IfExit Suberrhandle:MsgBox 出現(xiàn)錯(cuò)誤，不能復(fù)制, vbOKOnly + vbCritical, 復(fù)制文件End SubPrivate Sub Command2_Click()dyUnload MeEnd SubPrivate Sub Dir1_Change()If Right(, 1) \ Then = + \Else = End If = End SubPrivate Sub Drive1_Change()If = a: ThenMsgBox 不能從A盤(pán)導(dǎo)入Exit SubEnd If = End SubPrivate Sub File1_Click() = + = TrueEnd SubPrivate Sub Form_Activ