【文章內(nèi)容簡介】 = (商品信息管理 ) = (員工信息管理 ) = (倉庫信息管理 ) = (185。供應商信息管理 ) (21).Enabled = (185。供應商信息管理 ) = (客戶信息管理 ) (19).Enabled = (客戶信息管理 ) = (本單位定義 ) = (操作員及密碼 ) = (權限設置 ) = (系統(tǒng)初始化 ) Dim MESSAGE As String = TIM = select * from qxsz where 操作員名稱 =39。 + + 39。 If And = Trim((密碼 )) Then Load frm_main (3).Text = Trim() Unload Me Else If TIM = 3 Then MESSAGE = MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, 0, ) If MESSAGE = vbOK Then End End If If = Then MsgBox (請輸入操作員 !) Else If Trim() Trim((操作員名稱 )) Then MsgBox (查無此操作員 ,請重新輸入操作員 !) Else If (密碼 ) Then MsgBox (密碼錯誤 ,請重 新輸入密碼 !) TIM = TIM + 1 End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub 3. 主程序模塊 Private Sub ckcx_Click() Load main_cxtj_ckcx = False End Sub Private Sub Form_Load() = amp。 版本： V amp。 amp。 . amp。 amp。 . amp。 Dim i As Integer For i = 0 To 1 Label1(i).Caption = Next i = 版本： V amp。 amp。 . amp。 amp。 . amp。 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = rk rkd_Click Case Is = kc kccx_Click Case Is = xscx xscx_Click Case Is = rkcx rkcx_Click Case Is = fkd fkd_Click Case Is = kh khinf_Click Case Is = gys gysinf_Click Case Is = bz bz1_Click Case Is = xs spxs_Click Case Is = xsth xsth_Click Case Is = skd skd_Click Case Is = tc End End Select End Sub Private Sub Timer1_Timer() (2).Text = Format(Date, long date) amp。 amp。 Time End Sub Private Sub rkd_Click() Load main_rcyw_rk = False End Sub Private Sub rktd_Click() Load main_rcyw_rktd = False End Sub Private Sub kccx_Click() Load main_kcgl_kccx = False End Sub Private Sub kcpd_Click() Load main_kcgl_kcpd = False End Sub Private Sub xscx_Click() Load main_cxtj_xscx = False End Sub Private Sub rkcx_Click() Load main_cxtj_rkcx = False End Sub Private Sub fkd_Click() Load main_ysyf_fkd = False End Sub Private Sub skcx_Click() Load main_ysyf_skcx = False End Sub Private Sub fkcx_Click() Load main_ysyf_fkcx = False End Sub Private Sub xsrbb_Click() Load main_tjbb_xsrbb = False End Sub Private Sub xsthcx_Click() Load main_cxtj_xsthcx End Sub Private Sub xsybb_Click() Load main_tjbb_xsybb = False End Sub Private Sub khxsbb_Click() Load main_tjbb_khxsbb = False End Sub Private Sub zyxsbb_Click() Load main_tjbb_zyxsbb = False End Sub Private Sub spinf_Click() Load main_jbxx_spinf = False End Sub Private Sub yginf_Click() Load main_jbxx_yginf = False End Sub Private Sub ckinf_Click() Load main_jbxx_ckinf = False End Sub Private Sub gysinf_Click() Load main_jbxx_gys = False End Sub Private Sub khinf_Click() Load main_jbxx_kh = False End Sub Private Sub bdwdy_Click() Load main_bdwdy = False End Sub Private Sub czysz_Click() Load main_xtsz_czysz = False End Sub Private Sub qxsz_Click() Load main_xtsz_qxsz = False End Sub Private Sub xtcsh_Click() Load main_xtsz_xtcsh = False End Sub Private Sub bz1_Click() Load frmTip = False End Sub Private Sub gy_Click() Load frmAbout = False End Sub Private Sub spxs_Click() Load main_rcyw_xs = False End Sub Private Sub xsth_Click() Load main_rcyw_xsth = False End Sub Private Sub skd_Click() Load main_ysyf_skd End Sub Private Sub exit_Click() End End Sub 4. 商品入庫模塊 39。定義數(shù)據(jù)集對象 Dim rs1 As New Dim rs2 As New Dim rs3 As New Dim rs4 As New Dim rs5 As New Dim s, y, i, j Public Sub yfje_exp() = Format((Val() * (Val() / 10)) + (Val() * (Val() / 100)), ) End Sub Private Sub Form_Activate() = Date (現(xiàn)金 ): (轉(zhuǎn)帳支票 ) (匯票 ): = 0 = amp。 操作員： amp。 (3).Text End Sub Private Sub Form_Load() = 102: = 9 s = Array(300, 2100, 1200, 1800, 1500, 765, 1200, 1200, 1200) y = Array(xh, 商品名稱 , 商品編號 , 規(guī)格 , 產(chǎn)地 , 單位 , 進價 , 數(shù)量 , 金額 ) For i = 0 To 8 (i) = s(i): (0, i) = y(i) Next i = 1: = 1 For i = 1 To 101 (i, 0) = i Next i = Date End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub ck_Change() = Trim() End Sub Private Sub ck_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = 1: = 1 = True End If End Sub Private Sub gys_Change() = select * from gys where 供應商全稱 like 39。 + Trim() + 39。+ 39。%39。or 簡稱 like 39。 + Trim() + 39。+ 39。%39。 If And 0 Then = True End Sub Private Sub gys_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = False End If If KeyCode = vbKeyPageDown Then = True End If End Sub Private Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then With If .RecordCount 0 Then If .Fields(商品名稱 ) Then If .Fields(商品名稱 ) Then (, 1) = Trim(.Fields(商品名稱 )) If .Fields(商品編號 ) Then