📄 thcx.frm
字号:
Locked = -1 'True
TabIndex = 6
Text = "Text4"
Top = 1965
Width = 1455
End
Begin VB.TextBox Text3
BackColor = &H8000000F&
DataField = "团体人数"
DataSource = "Data1"
ForeColor = &H8000000D&
Height = 300
Left = 1440
Locked = -1 'True
TabIndex = 5
Text = "Text3"
Top = 1965
Width = 1455
End
Begin VB.TextBox Text2
BackColor = &H8000000F&
DataField = "团会名称"
DataSource = "Data1"
ForeColor = &H8000000D&
Height = 300
Left = 1440
Locked = -1 'True
TabIndex = 4
Text = "Text2"
Top = 1365
Width = 3855
End
Begin VB.Data Data1
Connect = "Access"
DatabaseName = "C:\JDGL\DATA\jdgl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 135
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "住房团会登记"
Top = 5625
Width = 9705
End
Begin VB.TextBox Text6
BackColor = &H8000000F&
BorderStyle = 0 'None
DataField = "团会ID"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 270
Left = 7695
Locked = -1 'True
TabIndex = 3
TabStop = 0 'False
Text = "Text6"
Top = 675
Width = 1455
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Label4"
DataField = "团会ID"
DataSource = "Data3"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = -68160
TabIndex = 31
Top = 1650
Width = 1575
End
Begin VB.Line Line12
BorderColor = &H8000000E&
X1 = -74880
X2 = -65160
Y1 = 6000
Y2 = 6000
End
Begin VB.Line Line11
BorderColor = &H8000000E&
X1 = -65160
X2 = -65160
Y1 = 480
Y2 = 6010
End
Begin VB.Line Line10
BorderColor = &H8000000E&
X1 = -73560
X2 = -66480
Y1 = 4800
Y2 = 4800
End
Begin VB.Line Line9
BorderColor = &H8000000E&
X1 = -66480
X2 = -66480
Y1 = 1920
Y2 = 4810
End
Begin VB.Line Line2
BorderColor = &H8000000E&
X1 = -73680
X2 = -66360
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
BorderColor = &H8000000E&
X1 = -73680
X2 = -73680
Y1 = 1080
Y2 = 5280
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "非住房团会登记表"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 375
Index = 3
Left = -71520
TabIndex = 30
Top = 1200
Width = 3015
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "№"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 2
Left = -68520
TabIndex = 29
Top = 1560
Width = 495
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "团会名称:"
Height = 255
Index = 14
Left = -73080
TabIndex = 28
Top = 2400
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "保 证 金:"
Height = 255
Index = 13
Left = -73080
TabIndex = 27
Top = 3360
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "陪同人数:"
Height = 255
Index = 12
Left = -69840
TabIndex = 26
Top = 2880
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "日期:"
Height = 255
Index = 11
Left = -71040
TabIndex = 25
Top = 1680
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "团体人数:"
Height = 255
Index = 10
Left = -73080
TabIndex = 24
Top = 2880
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "附 注:"
Height = 255
Index = 9
Left = -73080
TabIndex = 23
Top = 3840
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "<大写>人民币"
ForeColor = &H8000000D&
Height = 375
Index = 8
Left = -70800
TabIndex = 22
Top = 3360
Width = 4215
End
Begin VB.Line Line3
BorderColor = &H8000000E&
X1 = 120
X2 = 120
Y1 = 480
Y2 = 6000
End
Begin VB.Line Line6
BorderColor = &H8000000E&
Index = 0
X1 = 360
X2 = 360
Y1 = 1080
Y2 = 5400
End
Begin VB.Line Line6
BorderColor = &H8000000E&
Index = 1
X1 = 5640
X2 = 5640
Y1 = 1080
Y2 = 5400
End
Begin VB.Shape Shape2
BorderColor = &H80000010&
Height = 4335
Index = 2
Left = 5640
Top = 1080
Width = 3975
End
Begin VB.Line Line8
BorderColor = &H8000000E&
X1 = 240
X2 = 9720
Y1 = 5520
Y2 = 5520
End
Begin VB.Line Line7
BorderColor = &H8000000E&
X1 = 9720
X2 = 9720
Y1 = 960
Y2 = 5530
End
Begin VB.Line Line5
BorderColor = &H8000000E&
X1 = 360
X2 = 5520
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line4
BorderColor = &H8000000E&
X1 = 120
X2 = 9840
Y1 = 480
Y2 = 480
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "<大写>人民币"
ForeColor = &H8000000D&
Height = 495
Index = 7
Left = 1440
TabIndex = 21
Top = 3600
Width = 3975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "附 注:"
Height = 255
Index = 6
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -