【正文】 If KeyAscii 8 And KeyAscii 46 And KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub 6. 數(shù)據(jù)導(dǎo)入界面設(shè)計(jì) : 數(shù)據(jù)導(dǎo)入代碼設(shè)計(jì) : Private Sub Command1_Click() On Error GoTo errhandle: Dim a As String a = a = a amp。 Trim(txtUserName(0)) amp。 where holderid39。 39。 amp。 sqlAdd txtUserName(2).Text = txtUserName(9) txtUserName(9) = MsgBox 數(shù)據(jù)保存完成！ , vbInformation Unload Me End Sub Private Sub Form_Load() Dim rst As New Dim sqlEdit As String dtpwdate(1).Value = Format(Now, yyyymmdd) sqlEdit = select * from panelinfo sqlEdit = sqlEdit amp。 39。 amp。 dtpwdate(1) amp。 nowEv amp。 Val(txtUserName(9).Text) amp。 Val(txtUserName(2).Text) amp。 39。 amp。 \data\。Data Source= amp。 DbPassword amp。Persist Security Info=False = adUseClient End If End Sub 5. 單戶抄表界面設(shè)計(jì) : 單戶抄表代碼設(shè)計(jì) : Private Sub Command2_Click() Dim n As New Dim rstE As New Dim cmdExe As New Dim nowEv As Double Dim sqlAdd As String If Trim(txtUserName(0).Text) = Then MsgBox 沒(méi)有要抄表用戶，請(qǐng)先添加用戶！ , vbInformation Exit Sub End If If Trim(txtUserName(9).Text) = Then MsgBox 請(qǐng)先輸入數(shù)據(jù)！ , vbInformation Exit Sub End If If Trim(txtUserName(9).Text) Trim(txtUserName(2).Text) Then MsgBox 輸入數(shù)據(jù)錯(cuò)誤，當(dāng)前止碼太?。? , vbInformation Exit Sub End If = Provider=。 _ amp。 。Jet OLEDB:database password= amp。 39。 Unload Me End Sub Private Sub Dir1_Change() 39。Resume Next End Sub Private Sub Command2_Click() 39。errhandle: 39。 b amp。 a amp。 b amp。 a amp。 b amp。 b amp。 amp。 \ b = 39。 and delflagtrue , n, adOpenStatic, adLockBatchOptimistic Else select * from panelinfo where delflagtrue , n, adOpenStatic, adLockBatchOptimistic End If 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) = Format(!lsFee, ) 39。 Hid amp。Persist Security Info=False = adUseClient If Trim(Hid) Then select * from panelinfo where holderid=39。 _ amp。 。Jet OLEDB:database password= amp。 and delflagtrue , gCnn, adOpenStatic, adLockBatchOptimistic If Not Then = (2) txtUserName(0) = (1) txtUserName(1) = !nowecount txtUserName(2) = !cendcode = (4) txtUserName(3) = Format(!lMoney, ) txtUserName(4) = Format(!bmoney, ) txtUserName(6) = Format(!lsFee, ) 39。 amp。and delflagtrue , gCnn, adOpenKeyset, adLockBatchOptimistic If Not Then = (2) txtUserName(0) = (1) txtUserName(1) = !nowecount txtUserName(2) = !cendcode = (4) txtUserName(3) = Format(!lMoney, ) txtUserName(4) = Format(!bmoney, ) txtUserName(6) = Format((8), ) txtUserName(5) = Format(txtUserName(1) * txtUserName(3) * (!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 !lightScale / 100), ) txtUserName(8) = (9) txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), ) End If End Sub Private Sub dcvalue_Click(Area As Integer) Dim rst As New select * from panelinfo where holderid=39。 amp。txtUserName(5) = txtUserName(1) * !lMoney * (!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 !lightScale / 100) txtUserName(5) = Format(txtUserName(1) * !lMoney * (!lightScale / 100) + !nowecount * !bmoney * (1 !lightScale / 100), ) txtUserName(8) = (9) txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), ) = (1) Else MsgBox 沒(méi)有查詢到數(shù)據(jù) ! , vbInformation End If Set rst = Nothing End Sub Private Sub dcNum_Click(Area As Integer) Dim rst As New select * from panelinfo where holderid=39。 39。 amp。 \data\。Data Source= amp。 DbPassword amp。 = True End If rec1(姓名 ) = Guser = Else MsgBox 權(quán)限或密碼不正確，請(qǐng)重試 !, vbInformation End If End Sub Private Sub Command11_Click() End Sub Private Sub Command2_Click() = = = End Sub Private Sub Command3_Click() End End Sub Private Sub Command4_Click() 1 End Sub Private Sub Form_Activate() = = = Set rec = New select * from 記住密碼 , gCnn, 3, 3 If rec(標(biāo)記 ) = 0 Or rec(標(biāo)記 ) = 1 Then = rec(標(biāo)記 ) End If Set rec = New select * from 記住密碼 , gCnn, 3, 3 If rec(標(biāo)記 ) = 1 Then = rec(姓名 ) = rec(權(quán)限 ) = rec(密碼 ) End If End Sub Private Sub Form_Load() = Provider=。 = True = True = True CreateNewKey HKEY_CURRENT_USER, ZhiYuanTechnologe SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, UserName, dlj, REG_SZ SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, PassWord, dlj, REG_SZ 39。 = False 39。, gCnn, 3, 3 If = False Then If rec(操作權(quán)限 ) 管理員 Then 39。 amp。and 密碼 =39。 amp。and 操作權(quán)限 =39。 amp。 畢業(yè)設(shè)計(jì) 電表管理系統(tǒng) 摘 要 ………………………………………………………………………… 1 Abstract………………………………………………………………………2 第一章 引言 ………………………………………………………………… 4 1． 1 課題背景…………………………………………………………………… 4 1． 2 系統(tǒng)簡(jiǎn)介…………………………………………………………………… 5 第二章 系統(tǒng)的分析…………………………………………………… ……… 6 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想…………………………………………………… 6 2． 2 系統(tǒng)的可行性分析…………………………………………