【正文】 本 ) () s2 = s2 + CInt(rs2(M_Book_Num).Value) Next j Else MsgBox 對不起 ,此書暫無售出記錄！ , vbInformation, 信息提示 End If = CStr(s2) Set rs2 = Nothing str3 = select * from M_Book_All where M_Book_ISBN = 39。 () amp。 Set rs1 = (str1) If 0 Then For i = 1 To 25 (ISBN 為 amp。 24 圖 49 記賬處理界面圖示 其主要實現(xiàn)代碼如下 ： Private Sub Command1_Click() Dim i As Integer Dim str As String i = Val() Val() str = update M_Book_All set M_Book_Num = + CStr(i) + where M_Book_ISBN = 39。 \。 Tab(40)。 Tab(60)。 單價 。 Tab(75)。 Month(Date) amp。Persist Security Info=False = adCmdText = str1 If 0 Then For i = 1 To (M_Book_CuName) Next i 21 End If = False End Sub Private Sub List1_Click() Call Command1_Click End Sub 購書處理 在這個過程中，用代碼連接發(fā)票單和窗體，然后選擇 要打印的發(fā)票，點擊查看發(fā)票信息，然后顯示發(fā)票，就會出現(xiàn)打印預覽。) Set rs1 = (str1) MsgBox 成功將記錄載入采集數(shù)據(jù)庫 , vbInformation, 提示信息 End If End Sub Private Sub Form_Load() Dim i As Integer = Provider=。,39。 20 Set rs2 = (str2) If Not Then MsgBox 該書采購單已存在 ,不需要重新生成！ , vbInformation, 提示信息 Exit Sub Else str1 = insert into M_Book_Purchase values(39。,39。,39。 Set rs1 = (str1) = rs(M_Book_ID).Value = rs(M_Book_Date).Value = M_UserName = rs(M_Book_ISBN).Value = rs(M_Book_Name).Value = rs1(M_Book_Prise).Value = rs(M_Book_Num).Value = CStr(CDbl() * CDbl()) = CStr(CDbl() * CDbl() * (1 i)) = CStr(CDbl() * CDbl() CDbl()) str2 = insert into M_Book_Bill values(39。 Set rs = (str) = rs(M_Book_ID).Value = rs(M_Book_Date).Value = rs(M_Book_ISBN).Value = rs(M_Book_Name).Value = rs(M_Book_Author).Value = rs(M_Book_Press).Value = rs(M_Book_PrsDate).Value = rs(M_Book_Num).Value End If Exit Sub End Sub Private Sub Command2_Click() Dim str, s As String Dim name As String Dim str1 As String Dim i As Double 19 Dim str2 As String s = InputBox(請輸入折扣利率 ,必須為 double 型 ,如： , 利率設定 , Format(0, )) If Not IsNumeric(s) Or IsNull(s) Then MsgBox 折扣利率必須為數(shù)字或者不能為空值 , vbInformation, 信息提示 Else i = CDbl(s) End If name = () str = select * from M_Book_BKBill where M_Book_CuName = 39。 Set rec = (str) If Then Exit Sub Else isbn = rec(M_Book_ISBN).Value End If str1 = select M_Book_ISBN,M_Book_Num from M_Book_All where M_Book_ISBN = 39。Persist Security Info=False Dim strselect As String strselect = select * from M_Book_Store order by M_Book_ID asc = adCmdText = strselect Set = Adodc1 If = 0 Then MsgBox 數(shù)據(jù)庫中暫無記錄！ End If End Sub 客戶訂書單處理 這個窗體里面也是用代碼將窗體 與訂書單連接起來，在這里可以看見訂書單的客戶，根據(jù)客戶的訂書單來開發(fā)票或者是生成采購單，這里發(fā)票和采購單用了兩個 frame 窗體，當一個出現(xiàn)的時候另一個會隱藏。, 39。,39。,39。,39。,39。 + + 39。 12 圖 43 主界面圖示 其主要實現(xiàn)代碼如下： 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)會提示你輸入完整的信息。 Replace((Trim()), 39。 Replace(Trim(), 39。 amp。 Case 2 strSql = select * from M_user where M_custom_name = 39。 選擇自己的身份，然后輸入信息，如果密碼忘記了，可以點擊修改密碼，出現(xiàn)另一個 frame 修改密碼，如果兩 次修改密碼時輸入不一致時會彈出消息。 社會可行性分析 目前已有很多成功開發(fā)書店信息系統(tǒng)的先例，社會需要書店管理的現(xiàn)代化和信息化。銷售部門主要負責銷售計劃管理和銷售統(tǒng)計管理。 作為亞洲最大的貿(mào)易大國之一，我國內(nèi)地的電子商務模式是從 1994 年開始出現(xiàn)的，并