暖气管理系统.docx

VERSION5.00
Object="{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0";"COMDLG32.OCX"
BeginVB.FormForm1
Caption="暖气费管理系统"
ClientHeight=5805
ClientLeft=60
ClientTop=450
ClientWidth=10110
LinkTopic="Form1"
ScaleHeight=5805
ScaleWidth=10110
StartUpPosition=3'窗口缺省
BeginVB.OptionButtonOption4
Caption="面积降序"
Height=495
Left=7920
TabIndex=11
Top=840
Width=1215
End
BeginVB.OptionButtonOption3
Caption="面积升序"
Height=495
Left=7920
TabIndex=10
Top=240
Width=1215
End
BeginMSComDlg.CommonDialogCommonDialog1
Left=5520
Top=960
_ExtentX=847
_ExtentY=847
_Version=393216
End
BeginVB.TextBoxText1
Height=3855
Left=480
MultiLine=-1'True
ScrollBars=2'Vertical
TabIndex=9
Top=1800
Width=9135
End
BeginVB.OptionButtonOption2
Caption="房号"
Enabled=0'False
Height=495
Left=6120
TabIndex=8
Top=840
Width=1215
End
BeginVB.OptionButtonOption1
Caption="单元号"
Enabled=0'False
Height=495
Left=6120
TabIndex=7
Top=240
Width=1215
End
BeginVB.FrameFrame1
Caption="查询"
Height=1335
Left=5520
TabIndex=6
Top=120
Width=2055
End
BeginVB.CommandButtonCommand6
Caption="退出"
Enabled=0'False
Height=495
Left=4080
TabIndex=5
Top=960
Width=1215
End
BeginVB.CommandButtonCommand5
Caption="统计交费情况"
Enabled=0'False
Height=495
Left=2280
TabIndex=4
Top=960
Width=1215
End
BeginVB.CommandButtonCommand4
Caption="单元交费汇总"
Enabled=0'False
Height=495
Left=480
TabIndex=3
Top=960
Width=1215
End
BeginVB.CommandButtonCommand3
Caption="已收暖气费"
Enabled=0'False
Height=495
Left=4080
TabIndex=2
Top=240
Width=1215
End
BeginVB.CommandButtonCommand2
Caption="应交暖气费"
Enabled=0'False
Height=495
Left=2280
TabIndex=1
Top=240
Width=1215
End
BeginVB.CommandButtonCommand1
Caption="读取数据"
Height=495
Left=480
TabIndex=0
Top=240
Width=1215
End
End
AttributeVB_Name="Form1"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
Dimdanyuan(1To30)AsString,fanghao(1To30)AsString,gongnuan(1To30)AsString,mianji(1To30)AsSingle
Dimyishou(1To30)AsSingle,yingjiao(1To30)AsSingle'定义nqf.txt中数据组
Dimsyingjiao(1To30)AsSt