frmphmain.frm

这是用Visual Basic6开发的大型喷绘业务管理系统,数据库采用Access数据库

VERSION 5.00
Begin VB.Form frmPHmain 
   Caption         =   "喷绘业务管理"
   ClientHeight    =   5715
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8850
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5715
   ScaleWidth      =   8850
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnusys 
      Caption         =   "系统维护"
      Begin VB.Menu editpass 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mnuAccess 
         Caption         =   "权限设置"
      End
      Begin VB.Menu mnubackup 
         Caption         =   "数据备份"
      End
      Begin VB.Menu mnurestore 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu mnuinit 
         Caption         =   "数据初始化"
      End
   End
   Begin VB.Menu mnuCX 
      Caption         =   "查询统计"
      Begin VB.Menu mnuClothCX 
         Caption         =   "布料的库存查询"
      End
      Begin VB.Menu mnuCustomCount 
         Caption         =   "客户详细统计"
      End
      Begin VB.Menu mnuRunMX 
         Caption         =   "经营情况明细"
      End
      Begin VB.Menu mnuClerkMX 
         Caption         =   "员工明细查询"
      End
      Begin VB.Menu mnuHTmx 
         Caption         =   "合同明细查询"
      End
      Begin VB.Menu mnuCangKuMX 
         Caption         =   "布料使用明细"
      End
   End
   Begin VB.Menu mnuin 
      Caption         =   "资料输入"
      Begin VB.Menu mnuyw 
         Caption         =   "业务情况录入"
      End
      Begin VB.Menu mnujt 
         Caption         =   "机台工作录入"
      End
      Begin VB.Menu MNUCK 
         Caption         =   "仓库数据录入"
      End
      Begin VB.Menu mnuyg 
         Caption         =   "员工情况输入"
      End
      Begin VB.Menu mnuCustom 
         Caption         =   "客户情况录入"
      End
   End
   Begin VB.Menu mnuQuit 
      Caption         =   "退出系统"
      Begin VB.Menu mnuQuitl 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuHT 
      Caption         =   "合同"
      Begin VB.Menu mnuAddHT 
         Caption         =   "添加合同"
      End
      Begin VB.Menu mnuDele 
         Caption         =   "删除合同"
      End
   End
   Begin VB.Menu mnuPH 
      Caption         =   "喷绘"
      Begin VB.Menu mnuaddserial 
         Caption         =   "添加序列"
      End
      Begin VB.Menu mnuDeleserial 
         Caption         =   "删除序列"
      End
   End
   Begin VB.Menu mnuCloth 
      Caption         =   "布料"
      Begin VB.Menu mnuAddCloth 
         Caption         =   "添加布料"
      End
      Begin VB.Menu mnuDeleCloth 
         Caption         =   "删除布料"
      End
   End
End
Attribute VB_Name = "frmPHmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub editpass_Click()
   frmPHpassGL.Show
End Sub

Private Sub Form_Load()
   Move Screen.width / 2 - frmPHmain.width / 2, Screen.height / 2 - frmPHmain.height / 2
   frmPHmain.Top = 0
   frmPHmain.Left = 0
   frmPHmain.width = Screen.width
   frmPHmain.height = Screen.height
End Sub

Private Sub mnuAddCloth_Click()
   frmPHClothSerial.Show
End Sub

Private Sub mnuAddHT_Click()
   frmPHHtGl.Show
End Sub

Private Sub mnuaddserial_Click()
   frmPHserialGL.Show
End Sub

Private Sub mnuCangKuMX_Click()
    frmPHClothMXCX.Show
End Sub

Private Sub MNUCK_Click()
   frmPHCangKu.Show
End Sub

Private Sub mnuClerkMX_Click()
    frmPHClerkMX.Show
End Sub

Private Sub mnuClothCX_Click()
    frmPHClothMX.Show
End Sub

Private Sub mnucustom_Click()
   frmPHcustom.Show
End Sub

Private Sub mnuCustomCount_Click()
   frmPHCustomMX.Show
End Sub

Private Sub mnuHTmx_Click()
    frmPHHTongMX.Show
End Sub

Private Sub mnujt_Click()
   frmPHJiTai.Show
End Sub

Private Sub mnuRunMX_Click()
   frmPHDateMX.Show
End Sub

Private Sub mnuyg_Click()
   frmPHclerk.Show
End Sub

Private Sub mnuyw_Click()
    frmPHYeWu.Show
End Sub