【正文】 rce= amp。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 amp。 amp。點(diǎn)擊開發(fā)票會出現(xiàn)讓你輸入折扣率。39。 + + 39。 + + 39。 + CStr() + 39。 + + 39。,39。 輸入完整的信息后，點(diǎn)擊確認(rèn)添加，系統(tǒng)會提示成功記入入庫流水賬。, 39。, 39。 Replace((Trim()), 39。 amp。 圖 41 登陸界面圖示 登陸界面 主要 實(shí)現(xiàn) 代碼 如下 ： 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。書店信息系統(tǒng)開發(fā)和運(yùn)行與國家的政策法規(guī)不存在任何沖突和抵觸之處。財(cái)務(wù)部門主要負(fù)責(zé) 成本核算，利潤核算，賬目管理。據(jù)中國互聯(lián)網(wǎng)信息中心 (CNNIC)公布的數(shù)據(jù)表明，網(wǎng)上商店已經(jīng)發(fā)展到近 10萬余家。如今， Inter 已經(jīng)成為電子商務(wù)應(yīng)用的一個(gè)核心平臺，它的進(jìn)步將會推進(jìn)電子商務(wù)的全面發(fā)展。 國內(nèi)外研究現(xiàn)狀 電子商務(wù)這個(gè)概念起源于 20 世紀(jì) 70 年代。 3 課題背景 該書店為中等規(guī)模的書店。 與社會可行性分析 技術(shù)可行性分析 （ 1） 信息系統(tǒng)開發(fā)方法： 在開發(fā)小組中有熟練掌握面向?qū)ο蠓椒ㄩ_發(fā)軟件系統(tǒng)的資深的系統(tǒng)分析員和程序員。 4 組織結(jié)構(gòu) 該書店的組織結(jié)構(gòu)如下圖所示： 圖 31 組織結(jié)構(gòu)圖 5 管理功能分析 管理功能圖如下 ： 6 圖 32 管理功能 圖 7 業(yè)務(wù)流程分析 圖 33 業(yè)務(wù)流程圖 數(shù)據(jù)流流程分析 根據(jù)對整個(gè)業(yè)務(wù)流程的調(diào)查分析以及計(jì)算機(jī)管理的需要（即購書開發(fā)票 工作），設(shè)計(jì)出有關(guān)圖書數(shù)量方面的數(shù)據(jù)在書店和倉 庫之間的流動過程。, 39。39。) amp。 39。 39。而且 庫 存 里的 數(shù)據(jù)可以進(jìn)行刪除。,39。,39。) strAll = insert into M_Book_All(M_Book_ISBN,M_Book_Date,M_Book_Total_In) values(39。,39。 Case 2 strselect1 = select * from M_Book_Store where M_Book_Press = 39。 = adCmdText = strselect1 Set = Adodc1 If = 0 Then MsgBox 數(shù)據(jù)庫中暫無記錄！ End If End If 16 End Sub Private Sub Form_Load() = Provider=。 圖 45 訂書單處理數(shù)量足夠開發(fā)票界面圖示 17 圖 46 訂書單處理數(shù)量不足 生成采購單 界面圖示 其主要實(shí)現(xiàn)代碼如下： Private Sub Command1_Click() Dim i As Integer If = 1 Then MsgBox 請選擇訂單客戶 , vbInformation, 信息提示 End If Dim str, str1 As String Dim name As String Dim isbn As String name = () str = select M_Book_ISBN,M_Book_Num from M_Book_BKBill where M_Book_CuName= 39。 Set rec1 = (str1) If Then = 無 18 = True = True = False = False ElseIf rec(M_Book_Num).Value = rec1(M_Book_Num).Value Then = 有 = 數(shù)量足夠 = True = True = True = False = False Else = 有 = 數(shù)量不足 = True = True = False = True End If If = 無 Or = 數(shù)量不足 Then str = select * from M_Book_BKBill where M_Book_CuName = 39。 Set rs = (str) str1 = select M_Book_Prise from M_Book_Store where M_Book_ISBN = 39。,39。,39。) Set rs2 = (str2) MsgBox 發(fā)票生成成功！ , vbInformation, 信息提示 End Sub Private Sub Command3_Click() Dim str, str1 As String Dim str2 As String str2 = select M_Book_ID from M_Book_Purchase where M_Book_ISBN = 39。,39。,39。Persist Security Info=False Dim strselect As String Dim str1 As String strselect = select * from M_Book_BKBill = adCmdText = strselect Set = Adodc1 If = 0 Then MsgBox 數(shù)據(jù)庫中暫無記錄！ End If = False = False = False = False str1 = select M_Book_CuName from M_Book_BKBill = Provider=。 \。 (M_Book_ID)。 ISBN。 String(75, ) Print Tab(15)。 String(75, _) Print Tab(14)。 實(shí) 收 金 額 :。 39。 (str) If = 0 Then MsgBox 庫存更新完畢！ , vbInformation, 信息提示 = CStr(i) Else MsgBox , vbInformation, 信息提示 End If End Sub Private Sub List1_Click() Dim i, j, s1, s2 As Integer s1 = 0 s2 = 0 Dim str1, str2, str3 As String str1 = select * from M_Book_CurAcc where M_Book_ISBN = 39。 進(jìn)貨 amp。 的書于 amp。 Set rs3 = (str3) = rs3(M_Book_Num).Value If Val() = Val() Val() Then = 庫存量正確，無需更新 = False Else = 庫存量不正確，可更新 = True End If Set rs3 = Nothing 26 End Sub 客戶信息 這是管理員可以操作的客戶信息，可以對客戶數(shù)據(jù)進(jìn)行刪除，修改，查詢，添加等功能 。 amp。, 39。 這次課設(shè)使我對 VB語言和 Access產(chǎn)生了極大的興趣，相信通過我以后的學(xué)習(xí)，我的 VB語言和 Access水平一定會有很大的提高。 amp。,39。 + str + 39。