⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 dt_wgcgl.frm

📁 该系统为酒店日常管理提供了很大的方便
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form dt_wgcgl 
   ClientHeight    =   8880
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11880
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8880
   ScaleWidth      =   11880
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      Height          =   7665
      Left            =   150
      TabIndex        =   10
      Top             =   480
      Width           =   11580
      Begin VB.CommandButton cmd_func 
         Caption         =   "删  除(F4)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   555
         Index           =   2
         Left            =   4110
         TabIndex        =   70
         Top             =   7020
         Width           =   1575
      End
      Begin VB.CommandButton cmd_func 
         Caption         =   "增  加(F2)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   555
         Index           =   0
         Left            =   390
         TabIndex        =   69
         Top             =   6990
         Width           =   1575
      End
      Begin VB.CommandButton cmd_func 
         Caption         =   "修  改(F3)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   555
         Index           =   1
         Left            =   2250
         TabIndex        =   68
         Top             =   6990
         Width           =   1575
      End
      Begin VB.CommandButton cmd_func 
         Caption         =   "刷  新(F9)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   555
         Index           =   5
         Left            =   9690
         TabIndex        =   67
         Top             =   7020
         Width           =   1575
      End
      Begin VB.CommandButton cmd_func 
         Caption         =   "打  印(F5)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   555
         Index           =   3
         Left            =   6000
         TabIndex        =   66
         Top             =   7020
         Width           =   1575
      End
      Begin VB.CommandButton cmd_func 
         Caption         =   "文件生成(F8)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   555
         Index           =   4
         Left            =   7860
         TabIndex        =   65
         Top             =   7020
         Width           =   1575
      End
      Begin VB.Frame Frame2 
         Height          =   6405
         Left            =   7500
         TabIndex        =   11
         Top             =   480
         Width           =   3915
         Begin VB.Frame Frame3 
            Height          =   405
            Left            =   2670
            TabIndex        =   32
            Top             =   120
            Width           =   1185
            Begin VB.OptionButton op_ycs 
               Caption         =   "是"
               Height          =   180
               Index           =   1
               Left            =   630
               TabIndex        =   34
               Top             =   180
               Width           =   435
            End
            Begin VB.OptionButton op_ycs 
               Caption         =   "否"
               Height          =   180
               Index           =   0
               Left            =   90
               TabIndex        =   33
               Top             =   180
               Value           =   -1  'True
               Width           =   435
            End
         End
         Begin VB.OptionButton op_xb 
            Caption         =   "女"
            Height          =   180
            Index           =   2
            Left            =   2160
            TabIndex        =   31
            Top             =   1320
            Width           =   555
         End
         Begin VB.OptionButton op_xb 
            Caption         =   "未知"
            Height          =   180
            Index           =   0
            Left            =   2940
            TabIndex        =   30
            Top             =   1320
            Width           =   675
         End
         Begin VB.OptionButton op_xb 
            Caption         =   "男"
            Height          =   180
            Index           =   1
            Left            =   1320
            TabIndex        =   29
            Top             =   1320
            Value           =   -1  'True
            Width           =   555
         End
         Begin VB.TextBox m_lrrq 
            Height          =   300
            Left            =   1140
            MaxLength       =   6
            TabIndex        =   28
            Text            =   "123456"
            Top             =   180
            Width           =   675
         End
         Begin VB.TextBox m_yxq_wgc 
            Height          =   300
            Left            =   1140
            MaxLength       =   6
            TabIndex        =   27
            Text            =   "123456"
            Top             =   3450
            Width           =   675
         End
         Begin VB.TextBox m_csrq 
            Height          =   300
            Left            =   1140
            MaxLength       =   6
            TabIndex        =   26
            Text            =   "123456"
            Top             =   1620
            Width           =   675
         End
         Begin VB.TextBox m_ddrq 
            Height          =   300
            Left            =   1140
            MaxLength       =   6
            TabIndex        =   25
            Text            =   "123456"
            Top             =   4500
            Width           =   675
         End
         Begin VB.TextBox m_lkrq 
            Height          =   300
            Left            =   3030
            MaxLength       =   6
            TabIndex        =   24
            Text            =   "123456"
            Top             =   4500
            Width           =   675
         End
         Begin VB.TextBox m_fjnr 
            Height          =   300
            Left            =   1140
            MaxLength       =   60
            TabIndex        =   23
            Top             =   5250
            Width           =   2595
         End
         Begin VB.TextBox m_sydm 
            Height          =   300
            Left            =   1140
            MaxLength       =   2
            TabIndex        =   22
            Text            =   "12"
            Top             =   4140
            Width           =   315
         End
         Begin VB.CommandButton cmd_ok 
            Caption         =   "确  定"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   435
            Index           =   0
            Left            =   720
            TabIndex        =   21
            Top             =   5760
            Width           =   1215
         End
         Begin VB.CommandButton cmd_ok 
            Caption         =   "退  出"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   435
            Index           =   1
            Left            =   2265
            TabIndex        =   20
            Top             =   5760
            Width           =   1215
         End
         Begin VB.TextBox m_qzdm 
            Height          =   300
            Left            =   1140
            MaxLength       =   1
            TabIndex        =   19
            Text            =   "12"
            Top             =   3090
            Width           =   315
         End
         Begin VB.TextBox m_zjdm 
            Height          =   300
            Left            =   1140
            MaxLength       =   2
            TabIndex        =   18
            Text            =   "12"
            Top             =   2340
            Width           =   315
         End
         Begin VB.TextBox m_fjh 
            Height          =   300
            Left            =   1140
            MaxLength       =   5
            TabIndex        =   17
            Text            =   "12345"
            Top             =   3780
            Width           =   645
         End
         Begin VB.TextBox m_gjdm 
            Height          =   300
            Left            =   1140
            MaxLength       =   2
            TabIndex        =   16
            Text            =   "12"
            Top             =   1980
            Width           =   315
         End
         Begin VB.TextBox m_zjhm 
            Height          =   300
            Left            =   1140
            MaxLength       =   12
            TabIndex        =   15
            Text            =   "123456789012345"
            Top             =   2700
            Width           =   1455
         End
         Begin VB.TextBox m_zwxm 
            Height          =   300
            Left            =   1140
            MaxLength       =   18
            TabIndex        =   14
            Text            =   "123456789012345678"
            Top             =   930
            Width           =   1755
         End
         Begin VB.TextBox m_wwxm 
            Height          =   300
            Left            =   1140
            MaxLength       =   30
            TabIndex        =   13
            Text            =   "123456789012345678901234567890"
            Top             =   570
            Width           =   2595
         End
         Begin VB.TextBox m_bdjddw_mc 
            Height          =   300
            Left            =   1140
            MaxLength       =   20
            TabIndex        =   12
            Text            =   "12345678901234567890"

⌨️ 快捷键说明

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