frm_main.frm

美容院管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm frm_main 
   BackColor       =   &H00808080&
   Caption         =   "【美容院管理系统】— 沈阳市第七人民医院高级医学美容院"
   ClientHeight    =   5340
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   11880
   Icon            =   "frm_main.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   1085
      ButtonWidth     =   609
      ButtonHeight    =   926
      Appearance      =   1
      _Version        =   393216
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   735
      Top             =   2835
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   16
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":075E
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":0BB2
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":1006
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":132E
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":1782
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":1BD6
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":2172
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":248E
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":28E2
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":2BFE
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":2F1A
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":336E
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":37C2
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":3C16
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":46E2
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1845
      Top             =   1080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   5040
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2117
            MinWidth        =   2117
            Picture         =   "frm_main.frx":4B3E
            Text            =   "操作员："
            TextSave        =   "操作员："
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2117
            MinWidth        =   2117
            Text            =   "（无）"
            TextSave        =   "（无）"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Text            =   "当前日期："
            TextSave        =   "当前日期："
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2117
            MinWidth        =   2117
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   14111
            MinWidth        =   14111
            Picture         =   "frm_main.frx":50DA
            Text            =   "F1：主题帮助   F2：包月卡   F3：疗程卡   F5：单次处置   F7：计算器"
            TextSave        =   "F1：主题帮助   F2：包月卡   F3：疗程卡   F5：单次处置   F7：计算器"
         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 VB.Menu csh 
      Caption         =   "初始化(&B)"
      Begin VB.Menu czy 
         Caption         =   "操作员(&C)"
      End
      Begin VB.Menu mrs 
         Caption         =   "美容师(&M)"
      End
      Begin VB.Menu hzp 
         Caption         =   "化妆品(&H)"
      End
      Begin VB.Menu jl 
         Caption         =   "经  理"
      End
      Begin VB.Menu hzprk 
         Caption         =   "化妆品入库"
      End
      Begin VB.Menu s2 
         Caption         =   "-"
      End
      Begin VB.Menu xmsf 
         Caption         =   "项目收费(&X)"
      End
      Begin VB.Menu byxm 
         Caption         =   "优惠项目...(&Y)"
      End
      Begin VB.Menu mmsg 
         Caption         =   "密码修改"
      End
      Begin VB.Menu s5 
         Caption         =   "-"
      End
      Begin VB.Menu bfhf 
         Caption         =   "备份/恢复...(&B)"
      End
      Begin VB.Menu dwzc 
         Caption         =   "单位注册...(&R)"
      End
      Begin VB.Menu dysz 
         Caption         =   "打印设置..."
      End
      Begin VB.Menu zx 
         Caption         =   "注销...(&L)"
      End
      Begin VB.Menu s3 
         Caption         =   "-"
      End
      Begin VB.Menu tc 
         Caption         =   "退出系统(&Q)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu rcgl 
      Caption         =   "日常管理(&M)"
      Begin VB.Menu sk 
         Caption         =   "刷  卡(&S)"
         Shortcut        =   {F6}
      End
      Begin VB.Menu as34 
         Caption         =   "-"
      End
      Begin VB.Menu byk 
         Caption         =   "包月卡(&B)"
         Shortcut        =   {F2}
      End
      Begin VB.Menu lck 
         Caption         =   "疗程卡(&L)"
         Shortcut        =   {F3}
      End
      Begin VB.Menu mfbyk 
         Caption         =   "美发包月卡(&M)"
         Shortcut        =   {F4}
      End
      Begin VB.Menu s12 
         Caption         =   "-"
      End
      Begin VB.Menu dccz 
         Caption         =   "单次处置(&D)"
         Shortcut        =   {F5}
      End
   End
   Begin VB.Menu tjcx 
      Caption         =   "查询统计(&T)"
      Begin VB.Menu srtj 
         Caption         =   "收入查询(&S)"
      End
      Begin VB.Menu ylzpcx 
         Caption         =   "原料支配查询(&Y)"
      End
      Begin VB.Menu hzpkc 
         Caption         =   "化妆品库存"
      End
      Begin VB.Menu hzprkcx 
         Caption         =   "化妆品入库查询"
      End
      Begin VB.Menu w4 
         Caption         =   "-"
      End
      Begin VB.Menu jsryzj 
         Caption         =   "介绍人总计(&J)"
      End
      Begin VB.Menu mrsyzj 
         Caption         =   "美容师总计(&M)"
      End
      Begin VB.Menu s45 
         Caption         =   "-"
      End
      Begin VB.Menu rgzl 
         Caption         =   "日工作量统计(&R)"
      End
   End
   Begin VB.Menu xm 
      Caption         =   "单次删除(&D)"
      Visible         =   0   'False
      Begin VB.Menu xmxm 
         Caption         =   "单次收据"
         Index           =   0
      End
      Begin VB.Menu xmxm 
         Caption         =   "单次现金"
         Index           =   1
      End
      Begin VB.Menu xmxm 
         Caption         =   "化妆品收据"
         Index           =   2
      End
      Begin VB.Menu xmxm 
         Caption         =   "化妆品现金"
         Index           =   3
      End
      Begin VB.Menu xmxm 
         Caption         =   "绿药膏现金"
         Index           =   4
      End
      Begin VB.Menu xmxm 
         Caption         =   "美发收据"
         Index           =   5
      End
      Begin VB.Menu xmxm 
         Caption         =   "美发现金"
         Index           =   6
      End
      Begin VB.Menu xmxm 
         Caption         =   "(全部单次)"
         Index           =   7
      End
   End
   Begin VB.Menu qt 
      Caption         =   "其它(&O)"
      WindowList      =   -1  'True
      Begin VB.Menu xk 
         Caption         =   "写  卡(&W)"
      End
      Begin VB.Menu jsq 
         Caption         =   "计算器(&J)"
         Shortcut        =   {F7}
      End
      Begin VB.Menu rl 
         Caption         =   "修改日期...(&R)"
         Shortcut        =   {F8}
      End
      Begin VB.Menu s4 
         Caption         =   "-"
      End
      Begin VB.Menu rjyl 
         Caption         =   "日积月累...(&Y)"
      End
      Begin VB.Menu shtx 
         Caption         =   "送花提醒...(&F)"
      End
      Begin VB.Menu s1 
         Caption         =   "-"
      End
      Begin VB.Menu ckpl 
         Caption         =   "窗口重叠(&C)"
         Index           =   0
      End