print-soft.zip_Soft!_印刷

With Data6.Recordset .Edit If Val(Text2.Text) < 10 Then If Val(Text3.Text) < 10 Then .Fields(7) = Text1.Text + "0" + Text2.Text + "0" + Text3.Text Else .Fields(7) = Text1.Text + "0" + Text2.Text + Text3.Text End If Else If Val(Text3.Text) < 10 Then .Fields(7) = Text1.Text + Text2.Text + "0" + Text3.Text Else .Fields(7) = Text1.Text + Text2.Text + Text3.Text End If End If .Fields(0) = Combo2.Text .Fields(1) = Combo1.Text .Fields(2) = Combo3.Text .Fields(3) = Text5.Text .Fields(4) = Text6.Text .Fields(5) = Text7.Text .Fields(6) = Val(Text6.Text) * Val(Text7.Text) .Fields(8) = Text9.Text .Update End With With Data6.Recordset If bz1 = 1 Then .AddNew .Update End If .Bookmark = .LastModified .Edit If Val(Text2.Text) < 10 Then If Val(Text3.Text) < 10 Then .Fields(7) = Text1.Text + "0" + Text2.Text + "0" + Text3.Text Else .Fields(7) = Text1.Text + "0" + Text2.Text + Text3.Text End If Else If Val(Text3.Text) < 10 Then .Fields(7) = Text1.Text + Text2.Text + "0" + Text3.Text Else .Fields(7) = Text1.Text + Text2.Text + Text3.Text End If End If .Fields(0) = Combo2.Text .Fields(1) = Combo1.Text .Fields(2) = Combo3.Text .Fields(3) = Text5.Text .Fields(4) = Text6.Text .Fields(5) = Text7.Text .Fields(6) = Val(Text6.Text) * Val(Text7.Text) .Fields(8) = Text9.Text .Update End With Data1.Refresh 'While Data1.Recordset.EOF = False st = "" y = 0 dy = 0 st = Data1.Recordset.Fields(0) + Data1.Recordset.Fields(2) + Data1.Recordset.Fields(1) Data2.Recordset.FindFirst "品名+供应商+规格=" + "'" + st + "'" If Data2.Recordset.EOF = False Then y = Val(Mid(Data2.Recordset.Fields(7), 5, 2)) '库存中的购入日期的月 dy = Month(Now) If dy = y + 1 Then sl = sl + Data2.Recordset.Fields(4) End If End If 'Wend Dim fd As String Private Sub Command1_Click() Data1.Refresh Data4.Refresh 'While Data1.Recordset.EOF = False st = "" sy = 0 dy = 0 byxs1 = 0 st = Data1.Recordset.Fields(0) + Data1.Recordset.Fields(2) + Data1.Recordset.Fields(1) byxs1 = Data1.Recordset.Fields(3) Data2.Recordset.FindFirst "品名+供应商+规格=" + "'" + st + "'" If Data2.Recordset.EOF = False Then sy = Data2.Recordset.Fields(8 + Month(Now) - 1) Data4.Recordset.AddNew Data4.Recordset.Fields(0) = Data1.Recordset.Fields(2) Data4.Recordset.Fields(1) = Data1.Recordset.Fields(0) Data4.Recordset.Fields(2) = Data1.Recordset.Fields(1) Data4.Recordset.Fields(4) = sy Data4.Recordset.Fields(6) = Data2.Recordset.Fields(21) Data4.Recordset.Fields(8) = byxs1 Data4.Recordset.Fields(10) = Data2.Recordset.Fields(8 + Month(Now)) Data4.Recordset.Update End If 'Wend End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Activate() Data1.DatabaseName = App.Path + "\telepho.mdb" Data1.RecordSource = "guige" Data1.Refresh Data2.DatabaseName = App.Path + "\telepho.mdb" Data2.RecordSource = "kcb" Data2.Refresh Data3.DatabaseName = App.Path + "\telepho.mdb" Data3.RecordSource = "xiaoshou" Data3.Refresh Data4.DatabaseName = App.Path + "\telepho.mdb" Data4.RecordSource = "jxczhbb" Data4.Refresh Text1.Text = Year(Now) Text2.Text = Month(Now) Text3.Text = Day(Now) If Val(Text2.Text) < 10 Then If Val(Text3.Text) < 10 Then fd = Text1.Text + "0" + Text2.Text + "0" + Text3.Text Else fd = Text1.Text + "0" + Text2.Text + Text3.Text End If Else If Val(Text3.Text) < 10 Then fd = Text1.Text + Text2.Text + "0" + Text3.Text Else fd = Text1.Text + Text2.Text + Text3.Text End If End If fd = Mid(fd, 5, 4) End Sub