【正文】 “ + + ”39?！?+ + ”39?！?If = ”“ ThenMsgBox ”請輸入用戶名！“, 48, ”提示信息“ElseIf = ”“ ThenMsgBox ”請輸入舊密碼！“, 48, ”提示信息“ElseIf = ”“ ThenMsgBox ”請輸入新密碼！“, 48, ”提示信息“ElseIf = ”“ ThenMsgBox ”請確認新密碼！“, 48, ”提示信息“ElseIf 0 ThenMPassword = (”tb_pas“)If = MPassword And = Then39。 amp。Private Sub Command1_Click() = ”select * from 系統(tǒng)用戶的信息 where tb_name =39。 程序代碼實現(xiàn)（1）載入窗口時連接操作員信息數(shù)據(jù)表 Private Sub Form_Load()39。（2）在窗體上加入一個ADO控件Adodc1。在添加數(shù)據(jù)時，首先清空控件中的內(nèi)容Do While = False39。 order by id“AddTitle39。 amp。 and tb_date =39。 amp。 “ AddTitle Dim n, m As Integer n = 0 m = 0 Do While Not n = n + (2).Value m = m + (3).Value Loop = n = m End SubPrivate Sub Form_Load() = MyStrs = ”select * from 商品的銷售信息 where tb_title =39。 amp。 and tb_date =39。 amp。 “ AddTitle Dim n, m As Integer n = 0 m = 0 Do While Not n = n + (2).Value m = m + (3).Value Loop = n = m End SubPrivate Sub DTPicker1_Change() = ”select * from 商品的銷售信息 where tb_title =39。 amp。 and tb_date =39。 amp。Private Sub Combo1_Click() = ”select * from 商品的銷售信息 where tb_title =39。（2）在日期時間控件DTPicker1的Change事件下添加如下的程序代碼，實現(xiàn)根據(jù)選擇條件統(tǒng)計商品銷售信息的功能。銷售統(tǒng)計窗體的設(shè)計界面如下圖所示。（3）在窗體上添加一個數(shù)據(jù)表格控件DataGrid1。 窗體界面設(shè)計（1）添加一個窗體，命名為Frm_Stat，將窗體的Caption屬性設(shè)置為“銷售統(tǒng)計”。“)MsgBox ”銷售成功！“, 64, ”提示信息“ = ”select * from 商品的銷售信息 “AddTitleEnd IfEnd If End Sub窗體的運行結(jié)果如下圖所示： 銷售統(tǒng)計模塊的設(shè)計與實現(xiàn)該模塊主要實現(xiàn)統(tǒng)計商品銷售信息的功能。 Text1 amp。 where id= 39。 Text3 amp。)“)Set DB_AdoRs = (”UPDATE 貨物的出入庫信息 SET tb_nums = 39。 Date amp。 ”,39。,“ amp。 Text6 amp。,39。 amp。,39。 + 1 amp?！癉im a As IntegerDim b As Integera = Val()b = Val( * )If = ”“ Or = ”“ ThenMsgBox ”請補全信息！“, 64, ”提示信息“ElseIf a b ThenMsgBox ”信息輸入有誤，請重新輸入！“, 64, ”提示信息“Else = * = Set DB_AdoRs = (”insert into 商品的銷售信息 values(39。 amp。（3）和（4）的代碼：Private Sub Command1_Click() = MyStrs = ”select * from 貨物的出入庫信息 where tb_title =39。清空文本框中的內(nèi)容 = ”“ = ”“ = ”“ = ”“End Sub（3）單擊“確認銷售”按鈕，將完成銷售商品的操作。 ”39。“ amp。39。在添加數(shù)據(jù)時，首先清空控件中的內(nèi)容Do While = False39。Private Sub Form_Load() = MyStrs = ”select * from 商品的銷售信息 order by id“AddTitle39。（4）在窗體上添加2個ADO控件Adodc1和Adodc2，同時將DataGrid1的數(shù)據(jù)源屬性DataSource設(shè)置為Adodc2。（2）在窗體上添加相應(yīng)的控件，如下圖所示。On Error Resume NextIf 0 Then = (0) = (1) = (2) = (3) = (4) = (6)End If End Sub窗體的運行界面如下圖所示： 商品銷售模塊的設(shè)計與實現(xiàn)在“商品銷售管理”窗口中的“銷售商品”下拉列表中選擇要銷售的商品之后，該商品的基本信息將顯示在窗體中相應(yīng)的文本框中，在輸入銷售數(shù)量和實收金額后，單擊“確認銷售”按鈕完成銷售商品的操作。Private Sub Command6_Click()Unload Me End Sub（7）單擊DataGrid1中的相應(yīng)記錄，會在窗體左側(cè)的各個編輯框中顯示相應(yīng)的內(nèi)容。)“)MsgBox ”信息保存成功“, 64, ”提示信息“ElseEnd If39。 Text6 amp。,39。 Date amp。 ”,39。 ”,“ _amp。,“ amp。 Text3 amp。,39。 Text2 amp。 ”,39。如果選擇的是“確定”按鈕則保存信息Set DB_AdoRs = (”insert into 貨物的出入庫信息 values(“ amp?！? Cnn, adOpenKeysetIf 0 Then39。Private Sub Command4_Click()If = ”“ Or = ”“ Or = ”“ Or = ”“ Or = ”“ Or = ”“ ThenMsgBox ”保存的數(shù)據(jù)信息不能為空“, 48, ”提示信息“Else ”select * from 貨物的出入庫信息 where tb_title=39?！?+ + ”39?！?+ Text6 + ”39?！?_+ Text5 + ”39?！?+ Text4 + ”39?！?+ Text3 + ”39。“ + Text2 + ”39。修改庫存信息c = MsgBox(”確認修改信息嗎“, 33, ”提示信息“)If c = vbOK Then39。刪除后刷新數(shù)據(jù)信息 = ”select * from 貨物的出入庫信息 order by id“AddTitleEnd If = ”“ = ”“ = ”“ = ”“ = ”“ = ”“End Sub（4）點擊“修改”按鈕，修改當(dāng)前的記錄信息?！?+ + ”39。刪除庫存信息c = MsgBox(”確認要刪除該信息嗎“, 17, ”提示信息“)If c = vbOK Then39。清空文本框中的內(nèi)容 = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ End Sub（3）點擊“刪除”按鈕，刪除選中當(dāng)前記錄。Private Sub Form_Load() = MyStrs = ”select * from 貨物的出入庫信息 order by id“AddTitle End Sub其中，AddTitle函數(shù)用于向DataGrid1添加表頭，實現(xiàn)如下： 39。（4）在窗體上添加一個ADO控件Adodc1，同時將DataGrid1的數(shù)據(jù)源屬性DataSource設(shè)置為Adodc1。（2）在窗體上添加相應(yīng)的控件，如下圖所示。系統(tǒng)主窗體的運行界面如下圖所示： 出入庫管理模塊的設(shè)計與實現(xiàn)該模塊主要是記錄和維護庫存中的貨物信息，其中包括對貨物信息的刪除、修改和保存等方面的功能。銷售統(tǒng)計Case 5End39。庫存管理Case 339。 代碼實現(xiàn)（1）窗體啟動時，在窗體的狀態(tài)欄中將顯示當(dāng)前系統(tǒng)的日期信息： Private Sub Form_Load()(3).Text = Format(Now, ”yyyy年mm月dd日“)End Sub（2）單擊窗口工具欄按鈕時，將會調(diào)用系統(tǒng)的各個子功能模塊： Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 139。（4）在主窗體上添加一個時鐘控件，用于顯示系統(tǒng)當(dāng)前日期和時間信息。（2）添加一個Toolbar控件，工具欄由“修改密碼”、“庫存管理”、“商品銷售”、“銷售統(tǒng)計”和“退出系統(tǒng)”5個按鈕組成。判斷數(shù)據(jù)的密碼是否正確Name1 = (2).Text = “當(dāng)前操作員： ” + (“tb_name”)39。 “39。” amp。將操作員信息添加到下拉列表框控件當(dāng)中((“tb_name”))LoopEnd If End Sub（2）當(dāng)用戶在“操作員名稱”下拉列表中選擇操作員的名稱，并且在“操作員密碼”文本框輸入正確的密碼之后，單擊“確定”按鈕將登錄到系統(tǒng)中，否則將無法登錄系統(tǒng)。使用代碼連接數(shù)據(jù)庫與數(shù)據(jù)表 = MyStrs = “select * from 系統(tǒng)的用戶信息”If 0 Then39。（1）登錄窗體啟動之后，需要將系統(tǒng)用戶的信息數(shù)據(jù)表中的所有用戶名稱信息添加到窗體的ComboBox控件的Op_Name屬性中，即實現(xiàn)在“操作員名稱”下拉列表中可以出現(xiàn)系統(tǒng)當(dāng)前的操作員信息，供登錄用戶選擇。 系統(tǒng)登陸模塊設(shè)計在本庫存銷售管理系統(tǒng)中，只有授權(quán)用戶（管理員）可以登錄并進行庫存和銷售信息管理與維護，因此需要一個系統(tǒng)登錄界面，防止非法用戶登錄到系統(tǒng)中，從而保證了應(yīng)用程序的安全性和可靠性。顯示系統(tǒng)登錄窗體 End Sub（3）這里需要將程序的入口設(shè)置為模塊中的Main()函數(shù)。Initial Catalog=DB_KCGL。Integrated Security=SSPI。Initial Catalog=DB_KCGL。Integrated Security=SSPI。后添加一個記錄集對象 Public Function Cnn()As 39。后添加一個記錄集對象 Public DB_AdoRs1 As New 39。（2）Module1模塊的實現(xiàn)如下： 39。 設(shè)計連接數(shù)據(jù)庫的模塊需要首先建立一個連接數(shù)據(jù)庫的模塊，這樣應(yīng)用程序才能與數(shù)據(jù)庫中的數(shù)據(jù)表取得連接，將數(shù)據(jù)信息從數(shù)據(jù)表中讀出到應(yīng)用程序中或通過應(yīng)用程序保存到數(shù)據(jù)表中。l tb_name：用戶名稱，建議長度為50的varchar類型。tb_date：商品銷售的日期，時間日期類型datetime。tb_nums：建議為整型int。（2）商品的銷售信息：保存商品的銷售信息l id：商品銷售信息的編號，主碼，建議長度為18的numeric類型。l tb_date：庫存貨物的入庫日期，時間日期類型datetime。l tb_nums：庫存貨物的數(shù)量，建議為整型int。l tb_title：庫存貨物的名稱，建議長度為50的varchar類型。l 根據(jù)銷售日期統(tǒng)計商品的銷售數(shù)據(jù)。l 對庫存貨物的出入庫信息進行管理。該系統(tǒng)包括系統(tǒng)登錄、貨物出入庫管理、商品銷售管理和商品統(tǒng)計管理等功能，通過這些功能實現(xiàn)對庫存中貨物信息和銷售信息進行管理。最后一點是關(guān)于主鍵的問題，主鍵最好別用學(xué)號什么的，最好應(yīng)該用連續(xù)的、無意義的數(shù)字，create sequence之后，每加一個元組就用一次nextval，這樣可以讓電腦自動排號。7．系統(tǒng)調(diào)試通過sql語句對其進行調(diào)試，以測試其正確性，如圖1，2，3，4，5圖 1 6圖 2圖 3 7圖 4 用自然連接查詢：圖 58．心得體會本次課程設(shè)計主要設(shè)計一個計算機管理系統(tǒng)，我的大體思路就是將基本信息錄入到基本表當(dāng)中，并保證沒有重復(fù)屬性，然后設(shè)計一個管理表，讓其它基本表參照這個管理表，這個管理表當(dāng)中只有各表主鍵，需要查看信息時，就將兩表連接。insert into t_manage values(009,004,018,028,023)。5insert into t_manage values(007,002,016,026,021)。create table t_manage(information number, grade number, leve number, use number, regist number, foreign key(grade)references t_grade(grade), foreign key(information)references t_information(information), foreign key(leve)references t_level(leve), foreign key(regist)references t_regist(regist), foreign key(use)references t_user(use))。hjlmyu39。yuan39。)。,39。insert into t_user values(028,39。sdrhy39。john39。)。,39。insert into t_user values(026,39。asasn39。ling39。create table t_user(use number, username varchar2(14)not null, code varchar2(20)not nu