📄 mdiform1.frm

📁 VB礼品店销售管理系统包括ACCESS数据库访问职工管理账单管理
💻 FRM
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "销售管理系统"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   1155
   ClientWidth     =   4680
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      TabIndex        =   1
      Top             =   2595
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   873
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "用户名："
            TextSave        =   "用户名："
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            TextSave        =   "NUM"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            Object.Width           =   3528
            MinWidth        =   3528
            TextSave        =   "2006-8-1"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            Object.Width           =   3528
            MinWidth        =   3528
            TextSave        =   "23:36"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   7056
            MinWidth        =   7056
            Text            =   "销售管理系统"
            TextSave        =   "销售管理系统"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6174
            MinWidth        =   6174
            Text            =   "版本：1"
            TextSave        =   "版本：1"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2160
      Top             =   5880
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   8
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":0E42
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1294
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":16E6
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1B38
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1F8A
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":23DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":282E
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":2C80
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   3855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   6800
      ButtonWidth     =   2090
      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   16
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "入库"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "客户信息"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "产品销售"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "入库查询"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "库存查询"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "销售系统查询"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "产品查询"
            ImageIndex      =   7
            Style           =   3
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "产品查询"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   8
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "员工工资"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuInstock 
      Caption         =   "入库及定价系统"
   End
   Begin VB.Menu menuSale 
      Caption         =   "销售系统"
      Begin VB.Menu menuUser 
         Caption         =   "用户信息"
      End
      Begin VB.Menu menuProductOut 
         Caption         =   "产品销售"
      End
   End
   Begin VB.Menu menuInquiry 
      Caption         =   "查询结算系统"
      Begin VB.Menu menuinStock_inquiry 
         Caption         =   "入库查询"
      End
      Begin VB.Menu menuStock_inquire 
         Caption         =   "库存查询"
      End
      Begin VB.Menu menuSale_inquire 
         Caption         =   "销售系统查询"
      End
      Begin VB.Menu menuProduct_inquire 
         Caption         =   "产品查询"
      End
      Begin VB.Menu menuStaffSalary 
         Caption         =   "员工工资核算系统"
      End
   End
   Begin VB.Menu menuStaffinfo 
      Caption         =   "员工信息"
   End
   Begin VB.Menu menuUserManage 
      Caption         =   "用户管理"
      Visible         =   0   'False
   End
   Begin VB.Menu menu 
      Caption         =   "窗口"
      WindowList      =   -1  'True
   End
   Begin VB.Menu menuExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
On Error GoTo print1
    If UserRole = 1 Then
        menuInstock.Visible = False
        menuInquiry.Visible = False
        menuStaffinfo.Visible = False
        menuUserManage.Visible = False
        Toolbar1.Buttons(1).Visible = False
        Toolbar1.Buttons(2).Visible = False
        For i = 7 To 16
            Toolbar1.Buttons(i).Visible = False
        Next i
    End If
    StatusBar1.Panels(1).Text = "用户名：" & userid
    prtFrm = False
    Exit Sub
print1:
    Exit Sub
End Sub

Private Sub menuExit_Click()
    End
    Unload Me
End Sub

Private Sub menuInstock_Click()
    If InstockFlag = True Then
        frmInstock.SetFocus
    Else
        frmInstock.Show
    End If
End Sub

Private Sub menuinStock_inquiry_Click()
    mode = 1
        If InquireInstockFlag = True Then
            frmInquireInstock.SetFocus
        Else
            'frmInquireInstock.Show
        End If
    
    frmInquireInCondition.Show 1
End Sub

Private Sub menuProduct_inquire_Click()
    If ProductQueryFlag = True Then
        frmProductQuery.SetFocus
    Else
    '
    End If
    frmInqProdConf.Show 1
End Sub

Private Sub menuProductOut_Click()
    If SaleProductFlag = True Then
        frmSaleproduct.SetFocus
    Else
        frmSaleproduct.Show
    End If
End Sub

Private Sub menuSale_inquire_Click()
    mode = 2
    If SalesInfoFlag = True Then
        frmSalesinfo.SetFocus
    Else
        '
    End If
    frmInquireInCondition.Caption = "销售系统查询"
    frmInquireInCondition.Show 1
End Sub

Private Sub menuStaffinfo_Click()
    If staffFlag = True Then
        frmstaff.SetFocus
    Else
        frmstaff.Show
    End If
End Sub

Private Sub menuStaffSalary_Click()
    mode = 3
    If StaffSalaryFlag = True Then
        frmstaff_salary.SetFocus
    Else
    End If
    frmInquireInCondition.Caption = "员工工资核算"
    frmInquireInCondition.lbPerson.Visible = True
    frmInquireInCondition.cmbPersonId.Visible = True
    frmInquireInCondition.Show 1
End Sub

Private Sub menuStock_inquire_Click()
    If StockInfoFlag = True Then
        frmStockInfo.SetFocus
    Else
        frmStockInfo.Show
    End If
End Sub

Private Sub menuUser_Click()
    If UserInfoFlag = True Then
        frmUserInfo.SetFocus
    Else
        frmUserInfo.Show
    End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
   Case 1
        menuInstock_Click
   Case 3
        menuUser_Click
   Case 5
        menuProductOut_Click
   Case 7
        menuinStock_inquiry_Click
   Case 9
        menuStock_inquire_Click
   Case 11
        menuSale_inquire_Click
   Case 13
        menuProduct_inquire_Click
   Case 15
        menuStaffSalary_Click
End Select

End Sub
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -