vb小型企业进销存管理系统

vb小型企业进销存管理系统内容摘要：

= (商品信息管理 ) = (员工信息管理 ) = (仓库信息管理 ) = (185。 供应商信息管理 ) (21).Enabled = (185。 供应商信息管理 ) = (客户信息管理 ) (19).Enabled = (客户信息管理 ) = (本单位定义 ) = (操作员及密码 ) = (权限设置 ) = (系统初始化 ) 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(密码输入错误 ,请向系统管理员查询 !, 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。 定义数据集对象 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 (现金 ): (转帐支票 ) (汇票 ): = 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, 商品名称 , 商品编号 , 规格 , 产地 , 单位 , 进价 , 数量 , 金额 ) 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。