📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00FFFFFF&
Caption = "邮政汇款打印程序"
ClientHeight = 8295
ClientLeft = 420
ClientTop = 255
ClientWidth = 11085
LinkTopic = "Form2"
ScaleHeight = 8295
ScaleWidth = 11085
Begin VB.CommandButton ComEnd
Caption = "退出"
Height = 450
Left = 9135
TabIndex = 39
Top = 7635
Width = 1740
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Frame1"
Height = 1485
Left = 1770
TabIndex = 24
Top = 4875
Visible = 0 'False
Width = 1320
Begin VB.TextBox Text3
DataField = "邮编"
DataSource = "Data1"
Height = 270
Left = 120
MaxLength = 8
TabIndex = 38
Top = 480
Width = 750
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\明日vb编程500例\邮政汇款打印程序\postprint.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = -105
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "author"
Top = 930
Width = 1455
End
Begin VB.TextBox Text4
DataField = "金额"
DataSource = "Data1"
Height = 270
Left = 120
MaxLength = 8
TabIndex = 27
Top = 195
Width = 750
End
End
Begin VB.CommandButton ComPrint
Caption = "打印"
Height = 450
Left = 9150
TabIndex = 37
Top = 7065
Width = 1740
End
Begin VB.TextBox Text6
BorderStyle = 0 'None
DataField = "期号"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 9915
TabIndex = 36
Top = 2490
Width = 420
End
Begin VB.TextBox Text7
BorderStyle = 0 'None
DataField = "页码"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 9930
TabIndex = 35
Top = 3045
Width = 420
End
Begin VB.TextBox Text5
BorderStyle = 0 'None
DataField = "年"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 9540
TabIndex = 34
Top = 1920
Width = 795
End
Begin VB.TextBox Text12
BorderStyle = 0 'None
DataField = "汇款人"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4230
TabIndex = 33
Top = 7665
Width = 3120
End
Begin VB.TextBox Text11
BorderStyle = 0 'None
DataField = "汇款人地址"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 4185
TabIndex = 32
Top = 7095
Width = 4560
End
Begin VB.TextBox Text10
Alignment = 2 'Center
BorderStyle = 0 'None
DataField = "汇款人"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2445
TabIndex = 31
Top = 4680
Width = 2310
End
Begin VB.TextBox Text9
BorderStyle = 0 'None
DataField = "汇款人地址"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2475
MultiLine = -1 'True
TabIndex = 30
Top = 3960
Width = 4245
End
Begin VB.TextBox Text8
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3075
TabIndex = 28
Top = 1875
Width = 3720
End
Begin VB.TextBox Text2
BorderStyle = 0 'None
DataField = "地址"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 810
Left = 2460
MultiLine = -1 'True
TabIndex = 26
Top = 2385
Width = 4305
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BorderStyle = 0 'None
DataField = "姓名"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2460
TabIndex = 25
Top = 3360
Width = 2280
End
Begin VB.Line Line27
BorderColor = &H00008000&
X1 = 3120
X2 = 5715
Y1 = 1380
Y2 = 1380
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "人民币 (大写)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 495
Left = 2460
TabIndex = 29
Top = 1860
Width = 870
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 600
Left = 735
TabIndex = 23
Top = 330
Width = 3660
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = " 年 第 期 第 页 稿费"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 2625
Left = 9630
TabIndex = 22
Top = 1635
Width = 1125
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "汇款人简短附言"
ForeColor = &H00008000&
Height = 330
Left = 9510
TabIndex = 21
Top = 975
Width = 1350
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -