menu.frm

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

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmmenu 
   Caption         =   "兴盛牙刷销存管理系统"
   ClientHeight    =   7020
   ClientLeft      =   1650
   ClientTop       =   1305
   ClientWidth     =   9510
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   7020
   ScaleWidth      =   9510
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   840
      Top             =   5760
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu kcgl 
      Caption         =   "库存管理"
      Begin VB.Menu cprk 
         Caption         =   "产品入库(&I)"
      End
      Begin VB.Menu rkcx 
         Caption         =   "入库单查询"
      End
      Begin VB.Menu cxkc 
         Caption         =   "库存查询"
      End
      Begin VB.Menu bb 
         Caption         =   "报    表"
      End
   End
   Begin VB.Menu khgl 
      Caption         =   "客户管理"
      Begin VB.Menu zjkh 
         Caption         =   "增加客户(&A)"
      End
      Begin VB.Menu khwh 
         Caption         =   "客户维护(&W)"
      End
      Begin VB.Menu cxkh 
         Caption         =   "查询打印"
      End
   End
   Begin VB.Menu fhgl 
      Caption         =   "发货管理"
      Begin VB.Menu fh 
         Caption         =   "发    货(&O)"
      End
      Begin VB.Menu fhwh 
         Caption         =   "发货维护(&F)"
      End
      Begin VB.Menu cxfh 
         Caption         =   "发货单查询"
      End
      Begin VB.Menu bd 
         Caption         =   "补打发货单"
      End
   End
   Begin VB.Menu cpgl 
      Caption         =   "产品型号管理"
      Begin VB.Menu zjcp 
         Caption         =   "增加产品型号(&E)"
      End
      Begin VB.Menu sccp 
         Caption         =   "修改产品(&D)"
      End
      Begin VB.Menu cxcp 
         Caption         =   "产品型号查询"
      End
   End
   Begin VB.Menu xtwh 
      Caption         =   "系统维护"
      Begin VB.Menu tj 
         Caption         =   "分类统计"
         Begin VB.Menu fhtj 
            Caption         =   "发货统计"
         End
         Begin VB.Menu rktj 
            Caption         =   "入库统计"
         End
      End
      Begin VB.Menu yhgl 
         Caption         =   "用户管理"
         Begin VB.Menu xgmm 
            Caption         =   "修改密码(&M)"
         End
         Begin VB.Menu fpxyh 
            Caption         =   "添加操作员(&F)"
         End
         Begin VB.Menu scczy 
            Caption         =   "删除操作员(&S)"
         End
         Begin VB.Menu cxczy 
            Caption         =   "查询(&L)"
         End
      End
      Begin VB.Menu tcxt 
         Caption         =   "退出系统(&X)"
      End
   End
End
Attribute VB_Name = "frmmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cpbs_Click()
  Unload Me
  frmcpbs.Show
End Sub

Private Sub bb_Click()
  DefaultType = dbUseODBC
 Dim db As Database
 Dim rs As Recordset
 Dim wk As Workspace
 Set wk = DBEngine.Workspaces(0)
 Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
 sql = "select * from xhkback"
 CommonDialog1.ShowPrinter
 Printer.Orientation = vbPRORPortrait
        Printer.PaperSize = vbPRPSA4
        Printer.ScaleMode = vbMillimeters
        Printer.FontName = "宋体"
        Printer.FontSize = 18
 wk.BeginTrans
 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
     wk.CommitTrans
     rs1.Close
     db.Close
End Sub

Private Sub bd_Click()
  seekyearbd.Show (1)
End Sub

Private Sub cprk_Click()
  frmin.Show (1)
End Sub

Private Sub cxcp_Click()
  frmcpcx.Show (1)
End Sub

Private Sub cxczy_Click()
  frmcxczy.Show (1)
End Sub

Private Sub cxfh_Click()
  seekyearout.Show (1)
End Sub

Private Sub cxkc_Click()
  frmkccx.Show (1)
End Sub

Private Sub cxkh_Click()
  frmkhcx.Show (1)
End Sub

Private Sub fh_Click()
  frmout.Show (1)
  
End Sub

Private Sub fhcx_Click()
  seekyearout.Show (1)
End Sub

Private Sub fhtj_Click()
  seekyearouthz.Show (1)
End Sub

Private Sub fhwh_Click()
  frmfhwh.Show (1)
End Sub

Private Sub Form_Load()
  DefaultType = dbUseODBC
  Dim db As Database
  Dim rs As Recordset
  Dim wk As Workspace
  Set wk = DBEngine.Workspaces(0)
  Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
 
  Set rs = db.OpenRecordset("xhk", dbOpenDynaset, dbwrite, dbOptimistic)
  rs.MoveFirst
  tian = CStr(Day(Now))
  If tian = "24" Then
     Do While rs.EOF <> True
        rs.Edit
        rs.Fields("print") = False
        rs.Update
        rs.MoveNext
     Loop
  Else
     If tian = "25" And rs.Fields("print") = False Then
        Do While rs.EOF <> True
           rs.Edit
           rs.Fields("次数") = 0
           rs.Update
           rs.MoveNext
        Loop
     End If
  End If
  
  rs.MoveFirst
  If rs.Fields("print") = False And rs.Fields("次数") = 0 Then
     frminfo.Show (1)
  End If
  rs.Close
  db.Close
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Unload Me
  Unload frmlogin
End Sub

Private Sub fpxyh_Click()
  frmnew.Show (1)
End Sub

Private Sub khwh_Click()
  frmkhwh.Show (1)
End Sub

Private Sub rkcx_Click()
  seekyearin.Show (1)
End Sub

Private Sub rktj_Click()
  seekyearinhz.Show (1)
End Sub

Private Sub sccp_Click()
  frmxgcp.Show (1)
End Sub

Private Sub scczy_Click()
  frmscczy.Show (1)
End Sub

Private Sub tcxt_Click()
  End
End Sub

Private Sub th_Click()
'  frmth.Show (1)
End Sub

Private Sub thwh_Click()
'  frmthwh.Show (1)
End Sub

Private Sub xgmm_Click()
  frmxgmm.Show (1)
End Sub

Private Sub zjcp_Click()
  frmzjcp.Show (1)
End Sub

Private Sub zjkh_Click()
  frmzjkh.Show (1)
End Sub