frminfo.frm

以前写的一个销售的管理系统,是牙刷销存管理系统,有销售,进货等功能,刚学ＶＢ时写的

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frminfo 
   Caption         =   "提示"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "提示："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2655
      Left            =   360
      TabIndex        =   0
      Top             =   0
      Width           =   3855
      Begin VB.CommandButton Command1 
         Caption         =   "是"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   480
         TabIndex        =   2
         Top             =   1560
         Width           =   1095
      End
      Begin VB.CommandButton Command2 
         Caption         =   "否"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   2160
         TabIndex        =   1
         Top             =   1560
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "    已到月底，是否打印本月库存报表？"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   975
         Left            =   120
         TabIndex        =   3
         Top             =   360
         Width           =   3615
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   120
      Top             =   2760
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "frminfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
DefaultType = dbUseODBC
Dim db As Database
Dim rs As Recordset
Dim wk As Workspace
Dim str As String
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim nian As String
Dim yue As String
Dim sql As String
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim mc As String
Dim riqi As String
ri = "25"
Dim firstyue As String
nian = CStr(Year(Now))
yue = CStr(Month(Now))
firstyue = CStr(Month(Now) - 1)
str = "rdk" & Year(Now)
sql = "select 产品编号,sum(数量) as 进货数量 from [" + str + "]"
sql1 = " where cdate('" + nian & " - " & firstyue & " - " & ri + "')<=[入库日期] "
sql2 = " And [入库日期] <= cdate('" + nian & " - " & yue & " - " & ri + " ') group by [产品编号]"
sql3 = sql + sql1 + sql2
Set wk = DBEngine.Workspaces(0)
Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
'wk.BeginTrans
Set rs = db.OpenRecordset(sql3, dbOpenDynaset, dbwrite, dbOptimistic)
rs.MoveFirst
Set rs1 = db.OpenRecordset("xhk", dbOpenDynaset, dbwrite, dbOptimistic)
rs1.MoveFirst
Do While rs.EOF <> True
    mc = rs.Fields("产品编号")
   Do While rs1.EOF <> True
      If rs1.Fields("产品编号") = mc Then
         rs1.Edit
         rs1.Fields("本月收进") = rs.Fields("进货数量")
         
         rs1.Update
         Exit Do
      Else
         rs1.MoveNext
      End If
      If rs1.EOF = True Then
         Exit Do
      End If
   Loop
   rs.MoveNext
    rs1.MoveFirst
   If rs.EOF = True Then
      Exit Do
   End If
Loop
rs1.Close
rs.Close
str = "fdk" & Year(Now)
sql = "select 产品编号,sum(数量) as 领料数量 from [" + str + "]"
sql1 = " where cdate('" + nian & " - " & firstyue & " - " & ri + "')<=[发货单日期] "
sql2 = " And [发货单日期] <= cdate('" + nian & " - " & yue & " - " & ri + " ') group by [产品编号]"
sql3 = sql + sql1 + sql2
Set rs = db.OpenRecordset(sql3, dbOpenDynaset, dbwrite, dbOptimistic)
rs.MoveFirst
Set rs2 = db.OpenRecordset("xhk", dbOpenDynaset, dbwrite, dbOptimistic)
rs2.MoveFirst
Do While rs.EOF <> True
    mc = rs.Fields("产品编号")
   Do While rs2.EOF <> True
      If rs2.Fields("产品编号") = mc Then
         rs2.Edit
         rs2.Fields("本月发出") = rs.Fields("领料数量")
         rs2.Update
         Exit Do
      Else
         rs2.MoveNext
      End If
      If rs2.EOF = True Then
         Exit Do
      End If
   Loop
   rs.MoveNext
    rs2.MoveFirst
   If rs.EOF = True Then
      Exit Do
   End If
Loop
rs2.Close
rs.Close
Set rs = db.OpenRecordset("xhkback", dbOpenDynaset, dbwrite, dbOptimistic)
rs.MoveFirst
Do While rs.EOF <> True
   rs.Delete
   rs.MoveNext
   If rs.EOF = True Then
      Exit Do
   End If
Loop
sql = "insert into [xhkback] select * from [xhk]"
 db.Execute sql
 CommonDialog1.ShowPrinter
 Printer.Orientation = vbPRORPortrait
        Printer.PaperSize = vbPRPSA4
        Printer.ScaleMode = vbMillimeters
        Printer.FontName = "宋体"
        Printer.FontSize = 18
        sql = "select * from xhk"
        
 Set rs1 = db.OpenRecordset(sql, dbOpenDynaset, dbwrite, dbOptimistic)
        rs1.MoveFirst
        Printer.CurrentX = 60
    Printer.CurrentY = 15
    Printer.Print "扬州市兴盛牙刷厂库存报表"
    Printer.Line (50, 22)-(140, 22)
        Printer.Line (50, 23)-(140, 23)
        rs1.MoveFirst
        Printer.FontSize = 10
        Printer.CurrentX = 29.5
  Printer.CurrentY = 41.5
  Printer.Line (29.5, 41.5)-(180, 41.5)
  Printer.CurrentX = 29
  Printer.CurrentY = 42
  Printer.Line (30, 42)-(30, 47)
  Printer.CurrentX = 31
  Printer.CurrentY = 42
  Printer.Print "     品    名"
  Printer.CurrentX = 65
  Printer.CurrentY = 42
     Printer.Line (66, 42)-(66, 47)
     Printer.CurrentX = 67
     Printer.CurrentY = 42
     Printer.Print "单位"
     Printer.CurrentX = 75
     Printer.CurrentY = 42
     Printer.Line (77, 42)-(77, 47)
     Printer.CurrentX = 78
     Printer.CurrentY = 42
     Printer.Print " 上月结存"
     Printer.CurrentX = 96
     Printer.CurrentY = 42
     Printer.Line (95, 42)-(95, 47)
     Printer.CurrentX = 96
     Printer.CurrentY = 42
     Printer.Print " 本月收进"
     Printer.CurrentX = 115
     Printer.CurrentY = 42
     Printer.Line (116, 42)-(116, 47)
     Printer.CurrentX = 117
     Printer.CurrentY = 42
     Printer.Print "  本月发出"
     Printer.CurrentX = 136
     Printer.CurrentY = 42
     Printer.Line (137, 42)-(137, 47)
     Printer.CurrentX = 138
     Printer.CurrentY = 42
     Printer.Print " 本月结存"
     Printer.CurrentX = 158
     Printer.CurrentY = 42
     Printer.Line (158, 42)-(158, 47)
     Printer.CurrentX = 159
     Printer.CurrentY = 42
     Printer.Print " 备  注"
     Printer.Line (180, 42)-(180, 47)
     Printer.Line (30, 47)-(180, 47)
     CurrentY = 47
 Do While rs1.EOF <> True
1          Printer.FontSize = 10
          CurrentX = 29.75
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("产品编号")
          CurrentX = CurrentX + 35
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("单位")
          CurrentX = CurrentX + 10
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("上月库存")
          CurrentX = CurrentX + 17
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("本月收进")
          CurrentX = CurrentX + 20
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("本月发出")
          CurrentX = CurrentX + 20
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("数量")
          CurrentX = CurrentX + 20
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          CurrentX = CurrentX + 21
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          Printer.Line (30, CurrentY + 5)-(180, CurrentY + 5)
          CurrentY = CurrentY + 5
          rs1.MoveNext
          If CurrentY >= 250 Then
             Printer.NewPage
             CurrentY = 15
             Printer.Line (30, CurrentY)-(180, CurrentY)
             GoTo 1
          End If
          If rs1.EOF = True Then
             Exit Do
          End If
     Loop
     Printer.CurrentX = 125
    Printer.CurrentY = CurrentY + 10
    Printer.Print "制单日期:"
    Printer.CurrentX = 145
    Printer.CurrentY = CurrentY + 10
    riqi = CStr(Year(Now) & "-" & Month(Now))
    Printer.Print riqi
     Printer.EndDoc
     rs1.Close
 Set rs = db.OpenRecordset("xhk", dbOpenDynaset, dbwrite, dbOptimistic)
 rs.MoveFirst
 Do While rs.EOF <> True
    rs.Edit
    rs.Fields("print") = True
    rs.Fields("上月库存") = rs.Fields("数量")
    rs.Fields("次数") = 1
    rs.Update
    rs.MoveNext
    If rs.EOF = True Then
       Exit Do
    End If
 Loop

 'wk.CommitTrans
  rs.Close
  db.Close
 Unload Me
End Sub

Private Sub Command2_Click()
  Unload Me
End Sub