基于EXCEL加热炉热平衡计算软件设计(9)
图 3.1 软件工作流程图
3.2 人机界面
人机界面由乐凯鹏同学和我共同讨论完成。在界面上放弃了一些花哨的控件，以简洁明了，能直观体现用户需求为主。窗体基本采用5：3的尺寸。如图 3.2所示，为软件的欢迎界面。用户点击“进入”按钮后，会连接至主菜单界面，如图 3.3所示。用户可以根据自身的需要选择功能。
图 3.2 欢迎界面
图 3.3 主菜单界面
3.3 数据查询窗体
数据查询窗体使用了下拉框控件、标签控件、多页控件、按钮控件以及框体控件。标签控件用来显示文本信息及查询后显示的数据结果；多页控件与框体控件是界面更加简洁直观用户通过下拉框选择需要查询的单位名称，窗体上会自动显示出对应的计算结果。如图 3.4所示，显示的是热平衡表，包括了热收入及热支出项。如图 3.5所示，显示了所查窑炉的经济指标。
图 3.4 数据查询窗体1
图 3.5 数据查询窗体2
以上数据查询窗体中标签上的数据显示是通过调用工作簿中的“数据库一”工作表来实现的。如图 3.6所示。
图 3.6 “数据库一”工作表
数据查询窗体代码如下：
Private Sub UserForm_Activate()
Dim i As Integer
Sheets("数据库一").Activate
For i = 2 To Sheets("数据库一").[B1].CurrentRegion.Rows.Count
ComboBox1.AddItem Cells(i, 1)
Next i
End Sub
Private Sub ComboBox1_Change()
Sheets("数据库一").Select
Label3.Caption = Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 2, False)
Label76.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 4, False), "0.0000")
Label86.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 5, False), "0.0000")
Label77.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 6, False), "0.0000")
Label78.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 7, False), "0.0000")
Label79.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 8, False), "0.0000")
Label81.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 10, False), "0.0000")
Label82.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 11, False), "0.0000")
Label83.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 12, False), "0.0000")
Label84.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 13, False), "0.0000")
Label27.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 14, False), "0.0000")
Label28.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 15, False), "0.0000")
Label29.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 16, False), "0.0000")
Label30.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 17, False), "0.0000")
Label31.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 18, False), "0.0000")
Label32.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 19, False), "0.0000")