【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-FrmChargingEdit.frm，希望本篇文章对您学习有所帮助。
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form FrmChargingEdit
BorderStyle = 1 'Fixed Single
Caption = "编辑收费信息"
ClientHeight = 2895
ClientLeft = 45
ClientTop = 345
ClientWidth = 9390
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2895
ScaleWidth = 9390
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 2055
Left = 240
TabIndex = 14
Top = 0
Width = 3135
Begin VB.TextBox txtName
Enabled = 0 'False
Height = 300
Left = 1200
MaxLength = 20
TabIndex = 16
Top = 1635
Width = 1575
End
Begin MSDataListLib.DataCombo dco_Unit
Height = 315
Left = 1200
TabIndex = 15
Top = 720
Width = 1575
_ExtentX = 2778
_ExtentY = 582
_Version = 393216
Style = 2
Text = ""
End
Begin MSDataListLib.DataCombo dco_Bld
Height = 330
Left = 1200
TabIndex = 17
Top = 300
Width = 1575
_ExtentX = 2778
_ExtentY = 582
_Version = 393216
Style = 2
Text = ""
End
Begin MSDataListLib.DataCombo dco_Room
Height = 330
Left = 1200
TabIndex = 18
Top = 1140
Width = 1575
_ExtentX = 2778
_ExtentY = 582
_Version = 393216
Style = 2
Text = ""
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "房间号码"
Height = 180
Left = 240
TabIndex = 22
Top = 1240
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "楼房编号"
Height = 180
Left = 240
TabIndex = 21
Top = 360
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "楼房单元"
Height = 180
Left = 240
TabIndex = 20
Top = 800
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "业主"
Height = 195
Left = 240
TabIndex = 19
Top = 1680
Width = 720
End
End
Begin VB.CommandButton Cmd_OK
Caption = "确 定"
Height = 400
Left = 2760
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 6
Top = 2280
Width = 1300
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "取 消"
Height = 400
Left = 5280
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 7
Top = 2280
Width = 1300
End
Begin
VB.Frame Frame2
Height = 2055
Left = 3480
TabIndex = 0
Top = 0
Width = 5655
Begin VB.TextBox txtPayDate
Height = 300
Left = 3960
MaxLength = 10
TabIndex = 5
Top = 1230
Width = 1500
End
Begin VB.TextBox txtReceiver
Height = 300
Left = 1200
MaxLength = 20
TabIndex = 4
Top = 1230
Width = 1500
End
Begin VB.TextBox txtAmount
Enabled = 0 'False
Height = 300
Left = 3960
MaxLength = 20
TabIndex = 3
Top = 750
Width = 1500
End
Begin VB.TextBox txtUnitPrice
Enabled = 0 'False
Height = 300
Left = 3960
MaxLength = 20
TabIndex = 1
Top = 285
Width = 1500
End
Begin VB.TextBox txtUnitNum
Enabled = 0 'False
Height = 300
Left = 1200
MaxLength = 20
TabIndex = 2
Top = 750
Width = 1500
End
Begin MSDataListLib.DataCombo dco_Item
Height = 330
Left = 1200
TabIndex = 23
Top = 240
Width = 1500
_ExtentX = 2646
_ExtentY = 582
_Version = 393216
Style = 2
Text = ""
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收费日期"
Height = 180
Left = 3000
TabIndex = 13
Top = 1290
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收款人"
Height = 180
Left = 240
TabIndex = 12
Top = 1290
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收费金额"
Height = 180
Left = 3000
TabIndex = 11
Top = 810
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收费单价"
Height = 180
Left = 3000
TabIndex = 10
Top = 330
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收费数量"
Height = 180
Left = 240
TabIndex = 9
Top = 810
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收费项目"
Height = 180
Left = 240
TabIndex = 8
Top = 330
Width = 720
End
End
Begin MSAdodcLib.Adodc Ado_Bld
Height = 330
Left = 6840
Top = 2040
Visible = 0 '
相关文章
2013-9-1
