【文章內(nèi)容簡介】 se = False = False = False = False = False = False End Sub Private Sub MDIForm_Unload(Cancel As Integer) If = adStateOpen Then End If End Sub Private Sub mnadduser_Click() End Sub Private Sub mnbuylog_Click() End Sub 河南理工大學(xué)數(shù)據(jù)庫課程設(shè)計(jì) 10 Private Sub mnchpwd_Click() End Sub Private Sub mnem_Click() End Sub Private Sub mnemlogin_Click() End Sub Private Sub mnexit_Click() Unload Me End Sub Private Sub mnfc_Click() End Sub Private Sub mngoodstable_Click() End Sub Private Sub mngrade_Click() End Sub Private Sub mnretable_Click() End Sub Private Sub mnretreat_Click() End Sub Private Sub mnselllog_Click() End Sub Private Sub mnselltable_Click() End Sub Private Sub mntbuy_Click() 39。設(shè)置 frmbuyst 窗體中 SSTabbuy 控件的 Current Tab=0,即進(jìn)入 Tab=0 的選項(xiàng)卡 = 0 End Sub Private Sub mnthmbuy_Click() = 1 End Sub 河南理工大學(xué)數(shù)據(jù)庫課程設(shè)計(jì) 11 Private Sub mnthsbuy_Click() = 2 End Sub Private Sub mnthybuy_Click() = 3 End Sub Private Sub mntsell_Click() = 0 End Sub Private Sub mnthmsell_Click() = 1 End Sub Private Sub mnthssell_Click() = 2 End Sub Private Sub mnthysell_Click() = 3 End Sub 、主窗體菜單 使用菜單編輯器為本窗體添加多級菜單，完成后如 圖 1 程序運(yùn)行主界面 和 圖 圖 2 系統(tǒng)菜單界面 所示。 、連接數(shù)據(jù)庫窗體 連接數(shù)據(jù)庫窗體主要是負(fù)責(zé)動(dòng)態(tài)地打開對數(shù)據(jù)庫的鏈接。其截面圖如圖 5 所示： 圖 5 連接數(shù)據(jù)庫窗體圖 連接數(shù)據(jù)庫窗體實(shí)現(xiàn)的代碼： Private Sub cmdCancel_Click() Unload Me 河南理工大學(xué)數(shù)據(jù)庫課程設(shè)計(jì) 12 End Sub Private Sub cmdConnect_Click() If = True Then 39。windows 身份驗(yàn)證方式 connStr = Provider=。Integrated Security=SSPI。 _ + Persist Security Info=False。Initial Catalog= + Trim() _ + 。Data Source= + Trim() Else 39。SQL Server 身份驗(yàn) 證方式 connStr = Provider=。Persist Security Info=False。User ID= _ + Trim() + 。Password= + Trim() _ + 。Initial Catalog= + Trim() + 。Data Source= _ + Trim() End If On Error GoTo errConnect If = adStateOpen Then End If connStr MsgBox 連接數(shù)據(jù)庫成功！ , vbOKOnly + vbExclamation, 提示 39。顯示登錄窗體 Unload Me Exit Sub errConnect: MsgBox , vbOKOnly + vbExclamation, 提示 End Sub Private Sub Form_Load() 39。讓窗體居中 Call MakeCenter(Me) End Sub Private Sub OptionSqlServer_Click() If = True Then = True = True = True = True End If End Sub Private Sub OptionWindows_Click() If = True Then = False = False = False = False 河南理工大學(xué)數(shù)據(jù)庫課程設(shè)計(jì) 13 End If End Sub 、系統(tǒng)運(yùn)行后 的各個(gè)功能模塊 此部分主要包含系統(tǒng)運(yùn)行后，部分主要功能模塊的界面 （功能模塊相似的不列在內(nèi)）， 以及部分實(shí)現(xiàn)代碼。 進(jìn)貨登記窗體 圖 6 進(jìn)貨登記窗體 進(jìn)貨登記窗體實(shí)現(xiàn)的代碼： Dim rs_addfc As New Dim rs_add As New Private Sub cmdaddfc_Click() = False If = Then MsgBox 請?zhí)顚憦S商名稱！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憦S商法人代表！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戨娫挘?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憦S商地址！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlfc As String sqlfc = select * from manufacturer sqlfc, conn, adOpenKeyset, adLockPessimistic 河南理工大學(xué)數(shù)據(jù)庫課程設(shè)計(jì) 14 (1) = (2) = (3) = (4) = MsgBox 添加廠商成功 , vbOKOnly + vbExclamation, 提示 End Sub Private Sub cmdadd_Click() = False If = Then MsgBox 請?zhí)顚憦S商名稱！ , vbOKOnly + vbInformation, 注意 39。使 txtFc 獲得光標(biāo)焦點(diǎn) Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r(jià)格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售年份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售月份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售日！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then 河南理工大學(xué)數(shù)據(jù)庫課程設(shè)計(jì) 15 MsgBox 請?zhí)顚憳I(yè)務(wù)員姓名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懣偨痤~！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sql As String sql = select * from goods sql, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Val() 39。使用 Val函數(shù)把 中的文本型數(shù)據(jù)轉(zhuǎn)換成數(shù)字型數(shù)據(jù) (6) = Val() (7) = (8) = (9) = (10) = MsgBox 添加商品入庫成功 , vbOKOnly + vbExclamation, 提示 End Sub Private Sub cmdReset_Click() = = = = = = = = = = End Sub Private Sub cmdResetfc_Click() = = = = 河南理工大學(xué)數(shù)據(jù)庫課程設(shè)計(jì) 16 End Sub 進(jìn)貨統(tǒng)計(jì)窗體 圖 7 進(jìn)貨統(tǒng)計(jì)選項(xiàng)卡圖 進(jìn)貨統(tǒng)計(jì)窗體實(shí)現(xiàn)代碼： Private Sub Form_activate() 39。讓窗體居中 Call MakeCenter(Me) Dim inty As Integer 39。當(dāng)前年份