菜单
　　

     
    图 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")
  1. 上一篇：php网上购物平台设计+ER图+流程图
  2. 下一篇：Flash CS4益智游戏推箱子设计

  1. 基于MATLAB的图像增强算法设计

  2. 基于Kinect的手势跟踪与识别算法设计

  3. JAVA基于安卓平台的医疗护工管理系统设计

  4. 基于核独立元分析的非线...

  5. 基于Hadoop的制造过程大数据存储平台构建

  6. 基于安卓系统的测量软件...

  7. 基于VC++的GIS矢量图形系统开发

  8. 河岸冲刷和泥沙淤积的监测国内外研究现状

  9. 酸性水汽提装置总汽提塔设计+CAD图纸

  10. 中考体育项目与体育教学合理结合的研究

  11. 十二层带中心支撑钢结构...

  12. 杂拟谷盗体内共生菌沃尔...

  13. java+mysql车辆管理系统的设计+源代码

  14. 乳业同业并购式全产业链...

  15. 大众媒体对公共政策制定的影响

  16. 电站锅炉暖风器设计任务书

  17. 当代大学生慈善意识研究+文献综述

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回