【正文】 明，此表記錄了每一本書的單價及數量。 表 2 入庫單的數據字典 字段名 數據類型 字段大小 小數點 是否允許空值 ISBN 文本 12 0 No 書名 文本 12 0 No 作者 文本 12 0 No 出版社 數字 12 0 No 出版日期 備注 12 0 No 數量 數字 12 2 No 定價 貨幣 12 0 No 9 下面是該系統(tǒng)的部分界面 以及主要 代碼的介紹： 登陸界面 登陸界面有兩個 frame 容器 ，當用戶忘掉密碼時可以修改密碼，密碼是用代碼和表連接起來的，當修改密碼時第一個表會隱藏 。客戶和管理人員 輸入 自己的賬號和 密碼對應于相應的 權限。 選擇自己的身份，然后輸入信息，如果密碼忘記了，可以點擊修改密碼，出現另一個 frame 修改密碼，如果兩 次修改密碼時輸入不一致時會彈出消息。 圖 41 登陸界面圖示 登陸界面 主要 實現 代碼 如下 ： Private Sub CheckPwd() Dim strSql As String Dim strPwd As String Select Case M_UserType Case 1 strSql = select * from M_Administrator where M_Usr_Name = 39。 amp。 Replace((Trim()), 39。, 39。39。) amp。 39。 Case 2 strSql = select * from M_user where M_custom_name = 39。 amp。 Replace((Trim()), 39。, 39。39。) amp。 39。 End Select Set rec = (strSql) If Or 0 Then 10 MsgBox 該用戶名不存在！ , 0 + 16, 圖書銷售管理系統(tǒng) Exit Sub End If strPwd = rec(M_Usr_Pwd).Value If strPwd Then MsgBox 密碼不正確！ , 0 + 16, 圖書銷售管理系統(tǒng) = Exit Sub End If M_UserName = Unload Me End Sub 圖 42 修改密碼界面圖示 密碼錯誤時修改密碼 主要 實現 代碼 如下 ： Private Sub ModfiyPwd() Dim strSql1 As String Dim strSql2 As String Dim strMark As String strSql1 = select * from M_Administrator where M_Usr_Name = 39。 amp。 Replace((Trim()), 39。, 39。39。) amp。 39。 Set rec = (strSql1) If Or 0 Then MsgBox 該用戶名不存在！ , 0 + 16, 圖書銷售管理系統(tǒng) Exit Sub End If strMark = rec(M_Usr_Remark).Value If strMark Then 11 MsgBox 密鑰錯誤！請輸入自己的管理密鑰！ , 0 + 16, 圖書銷售管理系統(tǒng) Exit Sub End If strSql2 = UpDate M_Administrator set M_Usr_Pwd =39。 amp。 Replace(Trim(), 39。, 39。39。) amp。 39。 amp。 where M_Usr_Name = 39。 amp。 Replace((Trim()), 39。, 39。39。) amp。 39。 (strSql2) If = 0 Then MsgBox 密碼修改成功！請返回重新登錄！ , 0 + 64, 圖書銷售管理系統(tǒng) Else MsgBox 數據庫操作錯誤 ,請重試！ , 0 + 16, 圖書銷售管理系統(tǒng) Exit Sub End If End Sub 主界面 主界面用了一個 toobar 部件，里面添加了 17個按鈕，并用 imagelist 部件給里面加入了幾張小圖片，看起來比較美觀 。點擊相應的按鈕會進入對應的模塊里。 而且在主界面的底端用了一個 statusbar 的控件，可以顯示歡迎語和當前操作人員的一些簡單信息，登錄時間。 12 圖 43 主界面圖示 其主要實現代碼如下： Private Sub Form_Load() If M_UserType = 2 Then Dim i As Integer For i = 1 To 12 Step 2 (i).Visible = False Next End If End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Case 3 Case 5 13 Case 7 Case 9 Case 11 Case 13 Case 15 Case 17 Dim c c = MsgBox(您確認退出系統(tǒng)？ , 33, 提示信息 ) If c = vbOK Then Unload Me End If End Select End Sub 入庫單界面 在里面可以加入新書， 如果新書信息輸入不完整系統(tǒng)會提示你輸入完整的信息。 輸入完整的信息后，點擊確認添加，系統(tǒng)會提示成功記入入庫流水賬。添加完一本以后想要再添加， 點擊重新填寫 ，以前的會清空。 新書入庫完以后點擊刷新，庫存里的數據會自動刷新，如果沒有自動刷新點擊刷新，表里面的數據會自動刷新。而且 庫 存 里的 數據可以進行刪除。 輸入查詢條件選擇查詢類別點擊查詢就可以快速找出所要查詢的書 ， 如果查詢信息輸入不完整系統(tǒng)會彈出信息提示框，提示你輸入完整的信息。 表的連接 是用代碼實現的。 14 圖 44 入庫處理界面圖示 其主要實現代碼如下： Private Sub insertdata() Dim strIn, strAll As String strIn=insert into M_Book_Store(M_Book_ID,M_Book_CheckMan,M_Book_ISBN,M_Book_Name,M_Book_Author,M_Book_Press,M_Book_Prise,M_Book_Num,M_Book_Date,M_Book_PrsDate) values(39。 + + 39。,39。 amp。 _ + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。, 39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + CStr() + 39。,39。 + CStr() + 39。) strAll = insert into M_Book_All(M_Book_ISBN,M_Book_Date,M_Book_Total_In) values(39。 + + 39。,39。 + CStr() + 39。,39。 + + 39。) On Err GoTo ERR_CONN (strIn) (strAll) MsgBox 入庫信息更新完畢！ , 33, 入庫處理系統(tǒng) Exit Sub ERR_CONN: MsgBox , vbInformation, 入庫處理系統(tǒng) Exit Sub End Sub Private Sub AddCurrentAccount() 15 Dim strSql As String strSql = insert into M_Book_CurAcc(M_Book_I