📄 frmappointment.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "msadodc.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "msdatlst.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDatGrd.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmAppointment
Caption = "约会会议"
ClientHeight = 7365
ClientLeft = 1110
ClientTop = 345
ClientWidth = 9585
ControlBox = 0 'False
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
Moveable = 0 'False
ScaleHeight = 7365
ScaleWidth = 9585
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab1
Height = 7320
Left = 60
TabIndex = 0
Top = 0
Width = 9600
_ExtentX = 16933
_ExtentY = 12912
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "约会会议信息"
TabPicture(0) = "frmAppointment.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame1(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "约会会议纪要"
TabPicture(1) = "frmAppointment.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "RTFText"
Tab(1).Control(1)= "lblLabels(5)"
Tab(1).ControlCount= 2
TabCaption(2) = "约会会议清单"
TabPicture(2) = "frmAppointment.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "DataGrid1"
Tab(2).ControlCount= 1
Begin RichTextLib.RichTextBox RTFText
DataField = "会谈纪要"
DataSource = "datPrimaryRS"
Height = 6315
Left = -74820
TabIndex = 42
Top = 780
Width = 9135
_ExtentX = 16113
_ExtentY = 11139
_Version = 393217
TextRTF = $"frmAppointment.frx":0054
End
Begin VB.Frame Frame3
BorderStyle = 0 'None
Height = 3315
Left = 7080
TabIndex = 37
Top = 3900
Width = 2295
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 420
Left = 600
TabIndex = 41
Top = 240
Width = 1455
End
Begin VB.CommandButton cmdUpdate
Caption = "保存(&U)"
Height = 420
Left = 600
TabIndex = 40
Top = 1060
Width = 1455
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 420
Left = 600
TabIndex = 39
Top = 1880
Width = 1455
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 420
Left = 600
TabIndex = 38
Top = 2700
Width = 1455
End
End
Begin VB.Frame Frame1
BackColor = &H00C0E0FF&
Caption = "[约会会议记录]"
Height = 6735
Index = 0
Left = 240
TabIndex = 5
Top = 480
Width = 6555
Begin MSDataListLib.DataCombo DataCombo2
Bindings = "frmAppointment.frx":02EA
Height = 330
Left = 3600
TabIndex = 43
Top = 840
Width = 2685
_ExtentX = 4736
_ExtentY = 582
_Version = 393216
ListField = "项目名称"
Text = ""
Object.DataMember = "项目"
End
Begin VB.TextBox txtFields
DataField = "联系人"
DataSource = "datPrimaryRS"
Height = 330
Index = 9
Left = 1440
TabIndex = 1
Text = " "
Top = 480
Width = 2115
End
Begin VB.Frame Frame2
BackColor = &H00E0E0E0&
Height = 555
Left = 3000
TabIndex = 31
Top = 6000
Width = 3225
Begin VB.OptionButton OptionStatus
BackColor = &H00E0E0E0&
Caption = "未定"
Height = 255
Index = 0
Left = 720
TabIndex = 34
Top = 240
Value = -1 'True
Width = 795
End
Begin VB.OptionButton OptionStatus
BackColor = &H00E0E0E0&
Caption = "开始"
Height = 255
Index = 1
Left = 1500
TabIndex = 33
Top = 240
Width = 675
End
Begin VB.OptionButton OptionStatus
BackColor = &H00E0E0E0&
Caption = "结束"
Height = 255
Index = 2
Left = 2340
TabIndex = 32
Top = 240
Width = 855
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "状态:"
Height = 255
Index = 9
Left = 120
TabIndex = 35
Top = 240
Width = 975
End
End
Begin VB.TextBox txtFields
DataField = "雇员"
DataSource = "datPrimaryRS"
Height = 285
Index = 10
Left = 1440
TabIndex = 20
Top = 5655
Width = 4785
End
Begin VB.TextBox txtFields
DataField = "参加人员"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1065
Index = 8
Left = 1440
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 19
Text = "frmAppointment.frx":0304
Top = 4485
Width = 4785
End
Begin VB.TextBox txtFields
DataField = "约会主题"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1665
Index = 4
Left = 1440
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 18
Text = "frmAppointment.frx":030F
Top = 1860
Width = 4785
End
Begin VB.TextBox txtFields
DataField = "项目名称"
DataSource = "datPrimaryRS"
Height = 345
Index = 2
Left = 1440
TabIndex = 17
Top = 825
Width = 2115
End
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H8000000B&
DataField = "约会ID"
DataSource = "datPrimaryRS"
Height = 285
Index = 0
Left = 1440
Locked = -1 'True
TabIndex = 16
Top = 180
Width = 765
End
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 555
Index = 1
Left = 1380
TabIndex = 10
Top = 6000
Width = 885
Begin VB.TextBox txtFields
DataField = "重要性"
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
DataSource = "datPrimaryRS"
Height = 270
Index = 6
Left = 60
TabIndex = 12
Top = 180
Width = 435
End
Begin MSComCtl2.UpDown UpDown1
Height = 270
Left = 496
TabIndex = 11
Top = 180
Width = 240
_ExtentX = 423
_ExtentY = 476
_Version = 393216
Value = 1
AutoBuddy = -1 'True
BuddyControl = "txtFields(6)"
BuddyDispid = 196615
BuddyIndex = 6
OrigLeft = 720
OrigTop = 180
OrigRight = 960
OrigBottom = 495
Max = 5
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
End
Begin VB.TextBox txtFields
DataField = "约会日期"
BeginProperty DataFormat
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
DataSource = "datPrimaryRS"
Height = 390
Index = 1
Left = 1440
TabIndex = 8
Text = "Text1"
Top = 1200
Width = 2085
End
Begin VB.TextBox txtFields
DataField = "开始时间"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -