【正文】 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。若為修理，可填為0！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Not IsNumeric() Then MsgBox 數(shù)量字段值為數(shù)字,請(qǐng)正確填寫(xiě)！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If If = Then MsgBox 單價(jià)字段不能為空，請(qǐng)?zhí)顚?xiě)。 order by 進(jìn)庫(kù)日期) Do While Not = + 1 = 1 = 0 = (進(jìn)庫(kù)單號(hào)碼) = 1 = (進(jìn)庫(kù)日期) Loop End IfEnd SubPrivate Sub Command2_Click() = 0 InPaperId = Unload MeEnd SubPrivate Sub Command3_Click() Unload Me (2).Text = 編輯進(jìn)庫(kù)單End SubPrivate Sub Form_Load() = 0 = 0 = 進(jìn)庫(kù)單號(hào)碼 = 1 = 進(jìn)庫(kù)日期 = 1 Set Mydb = OpenDatabase( + \) Set myrecordset = (select * from inlib) = True Do While Not (進(jìn)庫(kù)單號(hào)碼) = + 1 = 1 = 0 = (進(jìn)庫(kù)單號(hào)碼) = 1 = (進(jìn)庫(kù)日期) Loop If 0 Then = 0 Else Exit Sub End If End SubPrivate Sub MSFlexGrid1_DblClick() Call Command2_ClickEnd Sub3:進(jìn)庫(kù)材料信息代碼分析:Option ExplicitDim MSFlexGrid1 As MSFlexGridDim Mydb As DatabaseDim myrecordset As RecordsetPrivate Sub Combo1_Change() = TrueEnd SubPrivate Sub Combo1_GotFocus() = TrueEnd SubPrivate Sub Command1_Click() Dim i As Integer Set MSFlexGrid1 = If = Then MsgBox 材料編碼字段不能為空，請(qǐng)?zhí)顚?xiě)！, vbOKOnly + vbExclamation, 警告 Exit Sub End If For i = 1 To 1 If (i, 0) = Then MsgBox 表中已經(jīng)存在此材料編碼的記錄！, vbOKOnly + vbExclamation, 警告 = = = = = = = = 39。 and 進(jìn)庫(kù)日期= amp。) Do While Not = + 1 = 1 = 0 = (進(jìn)庫(kù)單號(hào)碼) = 1 = (進(jìn)庫(kù)日期) Loop End If If = True Then If = Then MsgBox 請(qǐng)?zhí)顚?xiě)此次查詢的進(jìn)庫(kù)日期開(kāi)始時(shí)間！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 請(qǐng)?zhí)顚?xiě)此次查詢的進(jìn)庫(kù)日期結(jié)束時(shí)間！, vbOKOnly + vbExclamation, 警告 Exit Sub End If = 1 (0, 0) = 進(jìn)庫(kù)單號(hào)碼 (0, 1) = 進(jìn)庫(kù)日期 Set myrecordset = (select * from inlib where 進(jìn)庫(kù)日期= amp。 Trim(Combo1) amp。, vbOKOnly + vbExclamation, 警告 Exit Sub End IfEnd SubPrivate Sub cmdAddRecord_Click() (2).Text = 添加進(jìn)庫(kù)信息 1 End SubPrivate Sub cmdCancel_Click() = = = = = End SubPrivate Sub cmdClose_Click() Unload Me (2).Text = 就緒End SubPrivate Sub cmdDelRecord_Click() Dim i As Integer, j As Integer = False If 1 Then If MsgBox(確認(rèn)要?jiǎng)h除這條記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then i = = (i, 0) = (i, 0) = = (i, 1) = (i, 1) = = (i, 2) = (i, 2) = = (i, 3) = (i, 3) = = (i, 4) = (i, 4) = = (i, 5) = (i, 5) = = (i, 6) = (i, 6) = = (i, 7) = (i, 7) = For j = i To ( 2) (j, 0) = (j + 1, 0) (j, 1) = (j + 1, 1) (j, 2) = (j + 1, 2) (j, 3) = (j + 1, 3) (j, 4) = (j + 1, 4) (j, 5) = (j + 1, 5) (j, 6) = (j + 1, 6) (j, 7) = (j + 1, 7) Next j = 1 If = 1 Then = False End If End If End IfEnd SubPrivate Sub cmdEditRecord_Click() Dim c As Integer Dim r As Integer c = 1 r = 1 = + (c) = + (r) If = 1 Then = + 2 * = + 2 * End If = (c) = (r) = True = End SubPrivate Sub Form_Activate() (2).Text = 添加進(jìn)庫(kù)單End SubPrivate Sub Form_Load() = 8 = 1 = 0 = 0 = 材料編碼 = 1 = 材料名稱 = 2 = 規(guī)格型號(hào) = 3 = 計(jì)量單位 = 4 = 數(shù)量 = 5 = 單價(jià) = 6 = 金額 = 7 = 備注 = False = False = False = Date Set Myws = (0) Set Mydb = ( + \) Set Myrs1 = (select * from inlib) Set Myrs2 = (select * from inlibdetail)End SubPrivate Sub MSFlexGrid1_Click() Dim c As Integer Dim r As Integer With MSFlexGrid1 c = .Col r = .Row = + (c) = + (r) If .Appearance = 1 Then = + 2 * = + 2 * End If = .ColWidth(c) = .RowHeight(r) = .Text End With = True End SubPrivate Sub MSFlexGrid1_Scroll() = FalseEnd SubPrivate Sub Text1_Change() = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text4