小型企业进销存管理系统设计

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

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 商品入库模块 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 , 2 Trim .Fields 商品编号 If .Fields 规格 Then , 3 Trim .Fields 规格 If .Fields 产地 Then , 4 Trim .Fields 产地 If .Fields 单位 Then , 5 Trim .Fields 单位 If .Fields 进价 Then , 6 .Fields 进价 6 False Else MsgBox 无数据选择 !!! False End If End If End With End If If KeyCode vbKeyEscape Then False End If End Sub Private Sub DataList1_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then Trim False End If End Sub Private Sub jsr_Change Trim End Sub Private Sub jsr_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub MS1_Click If 1 And 1, 7 Then True End If End Sub Private Sub MS1_entercell Dim X As String, y As String, p As String If 0 Or 0 Then Exit Sub X , : y , 0 If y Then If 3 Then + 1 If 0 And 0 Then : + : + End If X , : y , 0 p , 0 Len End If End Sub Private Sub MS1_RowColChange For i 1 To 101 If i, 1 Then , 6 Format , 6 , , 8 Val , 7 * Val , 6 , 8 Format , 8 , End If Next i End Sub Private Sub sf_Change Format Val Val , End Sub Private Sub sl_Change Call yfje_exp End Sub Private Sub sl_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub zk_Change Call yfje_exp End Sub Private Sub zk_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub hjje_Change Call yfje_exp Format Val Val , End Sub Private Sub Combo1_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub sf_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub Text1_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then If 1 Then With If 0 Then If .Fields 商品名称 Then , 1 Trim .Fields 商品名称 If .Fields 商品编号 Then , 2 Trim .Fields 商品编号 If .Fields 1 规格 T。