frmformprocess.frm
来自「本人用VB 6.0和ACCESS编写的水费管理系统」· FRM 代码 · 共 1,143 行 · 第 1/3 页
FRM
1,143 行
Left = 5880
TabIndex = 42
Top = 4920
Width = 1350
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "用户分区:"
Height = 180
Left = 120
TabIndex = 2
Top = 300
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "编号:"
Height = 180
Left = 120
TabIndex = 4
Top = 810
Width = 450
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "户名:"
Height = 180
Left = 120
TabIndex = 8
Top = 1326
Width = 450
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "地址:"
Height = 180
Left = 120
TabIndex = 10
Top = 1839
Width = 450
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "表单类型:"
Height = 180
Left = 120
TabIndex = 12
Top = 2355
Width = 810
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "新表止码:"
Height = 180
Left = 120
TabIndex = 22
Top = 3378
Width = 810
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "实用水量:"
Height = 180
Left = 120
TabIndex = 28
Top = 3891
Width = 810
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "水费金额:"
Height = 180
Left = 120
TabIndex = 34
Top = 4405
Width = 810
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "金额大写:"
Height = 180
Left = 120
TabIndex = 40
Top = 4920
Width = 810
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "上月读数:"
Height = 180
Left = 2880
TabIndex = 18
Top = 2865
Width = 810
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "发票号:"
Height = 180
Left = 5880
TabIndex = 20
Top = 2865
Width = 630
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "本月读数:"
Height = 180
Left = 120
TabIndex = 16
Top = 2865
Width = 810
End
End
Begin VB.Frame FrameEdit
Height = 6495
Left = -74520
TabIndex = 47
Top = 360
Width = 9255
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Default = -1 'True
Height = 375
Index = 1
Left = 6120
TabIndex = 76
Top = 6000
Width = 1095
End
Begin MSDBGrid.DBGrid DBGrid
Bindings = "frmFormProcess.frx":047A
Height = 5415
Left = 240
OleObjectBlob = "frmFormProcess.frx":048E
TabIndex = 75
Top = 840
Width = 5535
End
Begin VB.ComboBox comRegion
Height = 300
Index = 1
Left = 1530
Style = 2 'Dropdown List
TabIndex = 49
Top = 360
Width = 1335
End
Begin VB.OptionButton optInput
Caption = "已录单用户"
Height = 255
Index = 0
Left = 3225
TabIndex = 50
Top = 383
Value = -1 'True
Width = 1215
End
Begin VB.OptionButton optInput
Caption = "未录单用户"
Height = 255
Index = 1
Left = 4800
TabIndex = 51
Top = 383
Width = 1215
End
Begin VB.ComboBox comStyle
DataSource = "Data1"
Height = 300
Index = 1
Left = 7320
TabIndex = 53
Top = 780
Width = 1455
End
Begin VB.TextBox txtFields2
BackColor = &H80000004&
DataSource = "Data1"
Enabled = 0 'False
Height = 300
Index = 0
Left = 7320
TabIndex = 55
Top = 1289
Width = 1455
End
Begin VB.TextBox txtFields2
DataSource = "Data1"
Height = 300
Index = 1
Left = 7320
TabIndex = 57
Top = 1768
Width = 1455
End
Begin VB.TextBox txtFields2
BackColor = &H80000004&
DataSource = "Data1"
Enabled = 0 'False
Height = 300
Index = 2
Left = 7320
TabIndex = 59
Top = 2247
Width = 1455
End
Begin VB.TextBox txtFields2
BackColor = &H80000004&
DataSource = "Data1"
Enabled = 0 'False
Height = 300
Index = 3
Left = 7320
TabIndex = 61
Top = 2726
Width = 1455
End
Begin VB.TextBox txtFields2
DataSource = "Data1"
Height = 300
Index = 4
Left = 7320
TabIndex = 63
Top = 3205
Width = 1455
End
Begin VB.TextBox txtFields2
BackColor = &H80000004&
DataSource = "Data1"
Enabled = 0 'False
Height = 300
Index = 5
Left = 7320
TabIndex = 65
Top = 3684
Width = 1455
End
Begin VB.TextBox txtFields2
BackColor = &H80000004&
DataSource = "Data1"
Enabled = 0 'False
Height = 300
Index = 6
Left = 7320
TabIndex = 67
Top = 4163
Width = 1455
End
Begin VB.TextBox txtFields2
BackColor = &H80000004&
DataSource = "Data1"
Enabled = 0 'False
Height = 300
Index = 7
Left = 7320
TabIndex = 69
Top = 4642
Width = 1455
End
Begin VB.TextBox txtFields2
BackColor = &H80000004&
DataSource = "Data1"
Enabled = 0 'False
Height = 300
Index = 8
Left = 7320
TabIndex = 71
Top = 5121
Width = 1455
End
Begin VB.CheckBox chkInput
Caption = "录单"
DataSource = "Data1"
Enabled = 0 'False
Height = 255
Index = 1
Left = 7320
TabIndex = 73
Top = 5603
Value = 2 'Grayed
Width = 735
End
Begin VB.CommandButton cmdExit
Cancel = -1 'True
Caption = "退出(&X)"
Height = 375
Index = 1
Left = 7920
TabIndex = 74
Top = 6000
Width = 1095
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "选择分区:"
Height = 180
Left = 360
TabIndex = 48
Top = 420
Width = 810
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "录单类型:"
Height = 180
Left = 6120
TabIndex = 52
Top = 840
Width = 810
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "上月读数:"
Height = 180
Left = 6120
TabIndex = 54
Top = 1320
Width = 810
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "本月读数:"
Height = 180
Left = 6120
TabIndex = 56
Top = 1800
Width = 810
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "新表起码:"
Height = 180
Left = 6120
TabIndex = 58
Top = 2280
Width = 810
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "新表止码:"
Height = 180
Left = 6120
TabIndex = 60
Top = 2760
Width = 810
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "发票号:"
Height = 180
Left = 6120
TabIndex = 62
Top = 3240
Width = 630
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "实用水量:"
Height = 180
Left = 6120
TabIndex = 64
Top = 3720
Width = 810
End
Begin VB.Label Label28
AutoSize = -1 'True
Caption = "排污费金额:"
Height = 180
Left = 6120
TabIndex = 66
Top = 4200
Width = 990
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "水费金额:"
Height = 180
Left = 6120
TabIndex = 68
Top = 4680
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?