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

📄 frmappointment.frm

📁 星级酒店管理系统VB源代码
💻 FRM
📖 第 1 页 / 共 3 页
字号:
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH:mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   4
            EndProperty
            DataSource      =   "datPrimaryRS"
            Height          =   330
            Index           =   3
            Left            =   1500
            TabIndex        =   7
            Text            =   "Text1"
            Top             =   3600
            Width           =   1905
         End
         Begin VB.TextBox txtFields 
            DataField       =   "结束时间"
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH:mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   4
            EndProperty
            DataSource      =   "datPrimaryRS"
            Height          =   315
            Index           =   7
            Left            =   1500
            TabIndex        =   6
            Text            =   "Text2"
            Top             =   4020
            Width           =   1905
         End
         Begin MSDataListLib.DataCombo DataCombo1 
            Bindings        =   "frmAppointment.frx":031A
            DataSource      =   "datPrimaryRS"
            Height          =   330
            Left            =   3600
            TabIndex        =   9
            Top             =   480
            Width           =   2685
            _ExtentX        =   4736
            _ExtentY        =   582
            _Version        =   393216
            ListField       =   "姓名"
            BoundColumn     =   "姓名"
            Text            =   ""
            Object.DataMember      =   "联系人"
         End
         Begin MSComCtl2.DTPicker DTPicker3 
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH:mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   4
            EndProperty
            Height          =   315
            Left            =   3480
            TabIndex        =   13
            Top             =   4020
            Width           =   2745
            _ExtentX        =   4842
            _ExtentY        =   556
            _Version        =   393216
            Format          =   55181314
            CurrentDate     =   36953
         End
         Begin MSComCtl2.DTPicker DTPicker2 
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH:mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   4
            EndProperty
            Height          =   315
            Left            =   3480
            TabIndex        =   14
            Top             =   3600
            Width           =   2745
            _ExtentX        =   4842
            _ExtentY        =   556
            _Version        =   393216
            Format          =   55181314
            CurrentDate     =   36953
         End
         Begin MSComCtl2.DTPicker DTPicker1 
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "dddddd"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   3
            EndProperty
            Height          =   375
            Left            =   3600
            TabIndex        =   15
            Top             =   1200
            Width           =   2685
            _ExtentX        =   4736
            _ExtentY        =   661
            _Version        =   393216
            Format          =   55181312
            CurrentDate     =   36953
         End
         Begin VB.Label Label2 
            BackColor       =   &H00E0E0E0&
            Caption         =   "未定"
            DataField       =   "状态"
            DataSource      =   "datPrimaryRS"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000000FF&
            Height          =   315
            Left            =   2340
            TabIndex        =   36
            Top             =   6180
            Width           =   615
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "您的名字:"
            Height          =   255
            Index           =   10
            Left            =   240
            TabIndex        =   30
            Top             =   5655
            Width           =   1000
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "参加人员:"
            Height          =   255
            Index           =   8
            Left            =   240
            TabIndex        =   29
            Top             =   4485
            Width           =   1000
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "结束时间:"
            Height          =   255
            Index           =   7
            Left            =   240
            TabIndex        =   28
            Top             =   4035
            Width           =   1000
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "开始时间:"
            Height          =   255
            Index           =   6
            Left            =   240
            TabIndex        =   27
            Top             =   3720
            Width           =   1000
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "约会主题:"
            Height          =   255
            Index           =   4
            Left            =   240
            TabIndex        =   26
            Top             =   1800
            Width           =   1005
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "约会日期:"
            Height          =   255
            Index           =   3
            Left            =   240
            TabIndex        =   25
            Top             =   1260
            Width           =   1005
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "项目名称:"
            Height          =   255
            Index           =   2
            Left            =   240
            TabIndex        =   24
            Top             =   885
            Width           =   1005
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "联系人:"
            Height          =   255
            Index           =   1
            Left            =   240
            TabIndex        =   23
            Top             =   495
            Width           =   1000
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "约会ID:"
            Height          =   255
            Index           =   0
            Left            =   240
            TabIndex        =   22
            Top             =   180
            Visible         =   0   'False
            Width           =   1000
         End
         Begin VB.Label lblLabels 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "重要性:"
            Height          =   255
            Index           =   11
            Left            =   240
            TabIndex        =   21
            Top             =   6120
            Width           =   1000
         End
      End
      Begin MSDataGridLib.DataGrid DataGrid1 
         Bindings        =   "frmAppointment.frx":0334
         Height          =   6435
         Left            =   -74880
         TabIndex        =   3
         Top             =   480
         Width           =   9255
         _ExtentX        =   16325
         _ExtentY        =   11351
         _Version        =   393216
         AllowUpdate     =   0   'False
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         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
         ColumnCount     =   12
         BeginProperty Column00 
            DataField       =   "约会ID"
            Caption         =   "约会ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "联系人ID"
            Caption         =   "联系人ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "项目名称"
            Caption         =   "项目名称"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "约会日期"
            Caption         =   "约会日期"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "约会主题"
            Caption         =   "约会主题"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0

⌨️ 快捷键说明

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