【文章內(nèi)容簡介】 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。定義數(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 供應(yīng)商全稱 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 規(guī)格 Then , 3 Trim .Fields 規(guī)格 If .Fields 產(chǎn)地 Then , 4 Trim .Fields 產(chǎn)地 If .Fields 單位 Then , 5 Trim .Fields 單位 If .Fields 進價 Then , 6 .Fields 進價 6 False Else MsgBox 無數(shù)據(jù)選擇 !!! 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 規(guī)格 T