中国军事主战装备管理信息系统设计

中国军事主战装备管理信息系统设计 《Visual Basic程序设计》 期末大作业 课程名称___ Visual Basic程序设计 ____ 题目名称 中国军事主战装备管理信息系统设计 学生学院_ 土木与交通工程学院 _ _ __ 专业班级_ 土木工程11(2) 学 号 学生姓名 指导教师____ _ ________ __ 2013 年 1 月 11 日 目录 1 需求分析与设计目标„„„„„„„„„„„„„„„„„„ 3 2 界面设计„„„„„„„„„„„„„„„„„„„„„„„ 4 2.1 定义界面对象和动作„„„„„„„„„„„„„„„„4 2.1.1 屏幕布局„„„„„„„„„„„„„„„„„„4-6 2.1.2 行为顺序与运行„„„„„„„„„„„„„„„6-11 2.2 设计的关键问题„„„„„„„„„„„„„„„„ 11-12 3 源程序代码 „„„„„„„„„„„„„„„„„„„„ 12-29 4 总结 „„„„„„„„„„„„„„„„„„„„„„„ 29-31 5 综述 „„„„„„„„„„„„„„„„„„„„„„„„„31 2 1 需求分析与设计目标 设计的目标的图如下: 坦克管理 海军管理页面 海军管理 装甲车管理 火炮管理 军种管理 陆军管理 陆军装备分类 火箭炮管理 管火炮管理 理 员 直升机管理 空军管理页面 空军管理 等等。。。 登陆界面 系统维护，暂时空军浏览 坦克浏览 不能浏览 一 般装甲车浏览 用 户 军种浏览 陆军浏览 陆军装备分类 火炮浏览 火箭炮浏览 直升机浏系统维护，暂时海军浏览 览 不能浏览 反坦克浏览 等等。。。 设计目的:面向广大军事爱好者，设计一个中国陆军军事装备库的三军装备信息管理系统。通过VB程序可以管理更新数据库。系统还应可以识别不同类型、不同权限的用户。不同类型的权限不同，所以不同类型的用户操作的窗口界面应该不同。针对一般用户，该系统具有浏览、查看装备信息、给信息系统提建议的功能;而管理员则能修改装备信息、管理用户信息及查看浏览的权限(“浏览记录”这一项目标设计未达到) 。 3 2 界面设计 2.1 定义界面对象和动作 2.1.1 屏幕布局 窗体包括:登陆界面、军种浏览、陆军主战装备库、坦克浏览、装甲车浏览、火炮浏览、火箭炮浏览、直升机浏览、防空武器浏览、反坦克武器浏览、军种管理、分类管理陆军主战装备、坦克管理、装甲车管理、火炮管理、火箭炮管理、直升机管理共17个窗体。由于窗体较多，分两类描述，因为一些传递完全类似。 登陆界面:包含3个Label，2个TextBox，1个CommmandButton控件，2个OptionButton。Label控件，利用Backstyle属性，消掉了边框。同时利用Font属性修改字体大小，窗体利用了Picture属性添加了背景图片，所选背景是最新的武直10陆航武装直升机，符合主题设计。OptionButton的设置是为了方便选择登陆的用户是管理员还是一般用户，利用blackstyle填充了背景色，使选择更加醒目。 登陆界面属性设置 控件名称 名称 Caption Text 用户名 Label1 密码 Label2 Text1 Text1 Text2 Text2 管理员 Option1 用户 Option2 登陆 Command3 Command3 军种浏览和军种管理界面基本上一致，包含CommmandButton控件，1个Label，3个PictureBox，3个OptionButton。同样，Label控件修改Blackstyle属性，使其背景透明，添加了海陆空三种武器的Picture，对外国用户和小朋友进行引导。OptionButton则进行补充引导，选择性进入下一个界面。两个界面的区别是Label里显示的欢迎语不同，其中浏览界面有中英两种语言。 陆军主战装备库和陆军主战装备管理两个界面也大体相同，都包含1个Label， 2个CommmandButton控件，8个OptionButton和8个PictureBox。两界面Label，显示的欢迎语不同，其余相同。PictureBox和OptionButton图形结合方便用户选择想进入的界面，图片更具有新颖性。一个CommmandButton的功能编程为了返回另一个是进入。 坦克浏览、装甲车浏览、火炮浏览、火箭炮浏览、直升机浏览、防空武器浏览、反坦克武器浏览统一划归为各种装备浏览界面(因为他们界面都一样):包含1个Data，8个Label，6个TextBox，1个PictureBox和 6个CommmandButton控件(分别为:到尾，到首，上一条， 4 下一条，查找，返回)。利用了TextBox控件的DataSource属性和DataField属性关联了数据库的对应。Text3文本框添加了滚动条，一位这一栏信息较多为了使界面友好和以后改进程序特意增加一个用户提意见的Label，包含管理员邮箱，也可用于信息发布。 以坦克浏览界面为例，控件属性如下面的表: 默认控其它属性设置 控件名Caption Text H和W 件名 称 Data1 DatabaseName=”军事 装备编号 Label1 675 325 装备库.mdb” 名称 Label2 675 325 RecordsetType=0 RecordSource=”表1” 性能参数 Label3 675 325 服役时间 Label4 数量 Label5 世界排名 Label6 靓照 Label7 管理员留下的一Label8 些信息 清空 Text1 Text1 清空 Text2 Text2 清空 Text3 Text3 清空 Text4 Text4 清空 Text5 Text5 清空 Text6 Text6 清空 Text7 Text7 到首 Command1 上一个 Command2 下一个 Command3 到未 Command4 查找 Command5 返回 Comman6 Picture1 Picture1 Data1 Data1 坦克管理、装甲车管理、火炮管理、火箭炮管理、直升机管理窗体统一划归为各种装备管理窗体:包含1个Data，8个Label，6个TextBox，1个PictureBox和 6个CommmandButton控件(分别为添加，修改，确定，放弃，查找，返回)。利用了TextBox控件的DataSource属性和DataField属性关联了数据库的对应表。Text3文本框添加了滚动条，一位这一栏信息较多为了使界面友好和以后改进程序特意增加一个用户提意见的Label，包含管理员邮箱，也 5 可用于和其它管理员信息交流。 2.1.2 行为顺序 登陆界面:输入用户名和密码?选择对应的用户类型登录?判断用户名是否存在?判断密码是否正确?提示:是否进入信息系统?确定(Y):显示军种浏览和军种管理或并窗体，隐藏本窗体。取消(N)关闭本窗体。期间如输错用户名和密码，均有相关提示。 军种浏览(管理)窗体:选择将要浏览(管理)的军种，其中若用户(只有浏览功能)选择空军和海军，出现实“数据在维护，暂时不能访问”，并回归本页面;选择陆军会有提示是否进入陆军主战装备分类浏览，选择是进入下一界面，否，留在本界面。管理员若选择空军和海军，提示是否进入后，直接进入所属装备管理界面，或否，留在本界面;若选择陆 6 军提示是否进入后，直接进入陆军主战装备分类管理界面，或否，留在本界面。 7 进入陆军主战装备浏览或管理界面后，进行有选择的浏览和管理，选择一项后点击进入会有是否进入提示，点击返回会有是否返回上一界面提示，根据需求进行选择。选择枪械和反坦克武器管理和浏览时会出现:该数据库涉嫌泄密，暂时不能访问。进入或退出时隐藏该界面。 8 进入各种装备信息浏览或管理页面后，可根据不同需求进行操作，用户浏览时可用查找、上下转换等功能;管理员进入的管理界面后可行使数据添加、修改、删除等功能。在解决有可能管理员添加重复数据的问题上，添加了查找空间，可先查找再进行添加。添加和删除产品信息，通过按钮和Data控件的AddNew方法和Delete方法实现添加和删除产品信息，当触发删除按钮时，会出现是否删除的提示。用户和管理员触发返回按钮时均会出现是否确定退出的提示。 9 10 2.2 设计的关键问题 (分析设计最关键的问题、可能出现的问题，并提出解决) 1、判断不同类型的用户，登陆信息出错提示 通过if语句进行选择和定义，添加option选择按钮并进行编程。具体见程序。 2、窗体间的切换 使用Show和Hide语句实现窗体的出现和隐藏，同时在窗体添加返回按钮，方便用户操作。 11 3、防止误操作 在删除功能按钮和一些尚未成熟的功能按钮都添加了弹出消息框，以再次确认，防止用户的误操作导致损失。 4、光标的重置和错误信息的删除 在用户名输入错误后，用txtuser=””语句和txtuser.SetFocus来清除错误用户名并重置光标。 5，预防管理员添加信息重复，添加一‘个’按钮，在更行新数据前先进行查找。 6，界面友好和界面美化 可以利用Picture属性添加背景图片，同时为了整体的协调，还可以修改BlackStyle属性使背景透明。同时背景图片的分辨率要根据窗口的不同来修改分辨率。添加中英文或这图片引导，给用户预留意回复信息等。 3 源程序代码 由于窗体很多，很多装备浏览和管理界面的源程序代码相似，故省略一部分(会把不同的注明)以下粗体显示的窗体的源代码会给出，其余省略 坦克浏览(4) 装甲车以下略掉 。 军种浏览(2) 陆军主战装备库(3) 。 登陆界面(1) 海军管理(6) 管理火箭炮(8) 其余略掉 军种管理(5) 陆军主战装备库管理(7) 。 。 空军管理(略) (1)登陆界面: Private Sub Command3_Click() Dim x As Integer, i As Integer If Option1.Value = True And Option2.Value = False Then If Text1 = "张帅" Then If Text2 = "3111003233" Then x = MsgBox("合法用户～欢迎使用本系统～" + vbCrLf + "是否进入军事装备库浏览数据库,", vbYesNo, "军事装备数据库系统") 12 If x = 6 Then 军种浏览.Show Me.Hide Else End End If Else i = MsgBox("密码不对～请重新输入正确的密码～", 0 + vbExclamation, "密码错 误") Text1.SetFocus End If Else MsgBox "非法用户名～请重新输入正确的用户名～" Text1.SetFocus End If Else If Option1.Value = False And Option2.Value = False Then MsgBox "请选择身份～" Text1.SetFocus End If End If If Option2.Value = True And Option1.Value = False Then If Text1 = "zj" Then 13 If Text2 = "zj" Then x = MsgBox("管理员您好～欢迎使用本系统～" + vbCrLf + "是否进入装备数据 库维护,", vbYesNo, "装备数据库维护系统") If x = 6 Then 管理军种.Show Me.Hide Else End End If Else i = MsgBox("密码不对～请重新输入正确的密码～", 0 + vbExclamation, "密码错 误") Text1.SetFocus End If Else MsgBox "非法用户名～请重新输入正确的用户名～" Text1.SetFocus End If End If Text1.Text = "" Text2.Text = "" End Sub (2)军种浏览: 14 Private Sub Command2_Click() If Option1 = True Then x = MsgBox("欢迎～" + vbCrLf + "是否进入陆军装备分类浏览,", vbYesNo, "军事装备 数据库系统") If x = 6 Then Me.Hide 陆军主战装备库.Show End If End If If Option2 = True Then x = MsgBox("十分抱歉～系统数据正在更新和维护，请过段时间再访问～") Me.Hide 军种浏览.Show End If If Option3 = True Then x = MsgBox("十分抱歉～系统数据正在更新和维护，请过段时间再访问～") Me.Hide 军种浏览.Show End If End Sub (3)陆军主战装备库 Private Sub Command1_Click() If Option1 = True Then 15 Me.Hide 坦克浏览.Show End If If Option2 = True Then Me.Hide 装甲车浏览.Show End If If Option3 = True Then Me.Hide 火炮浏览.Show End If If Option4 = True Then Me.Hide 火箭炮浏览.Show End If If Option5 = True Then Me.Hide 直升机浏览.Show End If If Option6 = True Then Me.Hide 防空武器浏览.Show End If If Option7 = True Then 16 x = MsgBox("十分抱歉～本系统涉嫌该类装备泄密，暂时不能访问～") Me.Hide 陆军主战装备库.Show End If If Option8 = True Then x = MsgBox("十分抱歉～本系统涉嫌该类装备泄密，暂时不能访问～") Me.Hide 陆军主战装备库.Show End If End Sub Private Sub Command2_Click() x = MsgBox("您确定要返回上一界面吗,是否返回,", vbYesNo, "提示") If x = 6 Then 军种浏览.Show 陆军主战装备库.Hide End If End Sub (4)坦克浏览 Private Sub Command1_Click() Dim mzy As String mzy = InputBox$("请输入名称", "查找窗") 17 Data1.RecordSource = "Select * From 表1 Where 名称 = '" & mzy & "'" Data1.Refresh If Data1.Recordset.EOF Then MsgBox "无此装备!", , "提示" Data1.RecordSource = "表1" Data1.Refresh End If End Sub Private Sub Command11_Click() x = MsgBox("您确定要返回上一界面吗,是否返回,", vbYesNo, "提示") If x = 6 Then 陆军主战装备库.Show 坦克浏览.Hide End If End Sub Private Sub Command2_Click(Index As Integer) Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox "已经是第一条记录～" Data1.Recordset.MoveFirst End If End Sub Private Sub Command4_Click(Index As Integer) 18 Data1.Recordset.MoveLast End Sub Private Sub Command6_Click(Index As Integer) Data1.Recordset.MoveNext If Data1.Recordset.EOF Then MsgBox "已经是第一条记录～" Data1.Recordset.MoveLast End If End Sub Private Sub Command7_Click() Data1.Recordset.MoveFirst End Sub (5)管理军种 Private Sub Command2_Click() If Option1 = True Then x = MsgBox("欢迎管理员～" + vbCrLf + "是否进入陆军装备分类管理,", vbYesNo, "军 事装备数据库系统") If x = 6 Then Me.Hide 分类管理陆军主战装备库.Show End If End If If Option2 = True Then 19 x = MsgBox("欢迎管理员～" + vbCrLf + "是否进入海军装备装备管理,", vbYesNo, " 军事装备数据库系统") If x = 6 Then Me.Hide 管理海军.Show End If End If If Option3 = True Then x = MsgBox("欢迎管理员～" + vbCrLf + "是否进入空军装备装备管理,", vbYesNo, " 军事装备数据库系统") If x = 6 Then Me.Hide 管理空军.Show End If End If End Sub (6)管理海军 Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True Data1.Recordset.AddNew End Sub 20 Private Sub Command2_Click() x = MsgBox("数据删除后不可恢复～是否删除,", vbYesNo, "提示") If x = 6 Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End Sub Private Sub Command3_Click() Data1.Recordset.Update Data1.Recordset.MoveLast Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click() Dim mzy As String mzy = InputBox$("请输入名称", "查找窗") Data1.RecordSource = "Select * From 表7 Where 名称 = '" & mzy & "'" Data1.Refresh If Data1.Recordset.EOF Then 21 MsgBox "无此装备!", , "提示" Data1.RecordSource = "表7" Data1.Refresh End If End Sub Private Sub Command6_Click() x = MsgBox("您确定要返回上一界面吗,是否返回,", vbYesNo, "提示") If x = 6 Then 管理军种.Show 管理海军.Hide End If End Sub (7)陆军主战装备库管理 Private Sub Command1_Click() If Option1 = True Then x = MsgBox("欢迎～" + vbCrLf + "是否进坦克装备管理,", vbYesNo, "军事装备数据 库系统") If x = 6 Then Me.Hide 管理坦克.Show End If End If 22 If Option2 = True Then x = MsgBox("欢迎～" + vbCrLf + "是否进装甲车装备管理,", vbYesNo, "军事装备 数据库系统") If x = 6 Then Me.Hide 管理装甲车.Show End If End If If Option3 = True Then x = MsgBox("欢迎～" + vbCrLf + "是否进装火炮装备管理,", vbYesNo, "军事装备 数据库系统") If x = 6 Then Me.Hide 管理火炮.Show End If End If If Option4 = True Then x = MsgBox("欢迎～" + vbCrLf + "是否进装火箭炮装备管理,", vbYesNo, "军事装备 数据库系统") If x = 6 Then Me.Hide 管理火箭炮.Show End If End If 23 If Option5 = True Then x = MsgBox("欢迎～" + vbCrLf + "是否进装直升机装备管理,", vbYesNo, "军事装备数据库系统") If x = 6 Then Me.Hide 管理直升机.Show End If End If If Option6 = True Then x = MsgBox("十分抱歉～本系统涉此类型数据库嫌该类装备泄密，暂时不能应用～") Me.Hide 分类管理陆军主战装备库.Show End If If Option7 = True Then x = MsgBox("十分抱歉～本系统涉此类型数据库嫌该类装备泄密，暂时不能应用～") Me.Hide 分类管理陆军主战装备库.Show End If If Option8 = True Then x = MsgBox("十分抱歉～本系统涉嫌此类型数据库涉嫌该类装备泄密，暂时不能应用～ ") Me.Hide 分类管理陆军主战装备库.Show 24 End If End Sub Private Sub Command2_Click() x = MsgBox("您确定要返回上一界面吗,是否返回,", vbYesNo, "提示") If x = 6 Then 分类管理陆军主战装备库.Hide 管理军种.Show End If End Sub (8)管理火箭炮 Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True Data1.Recordset.AddNew End Sub Private Sub Command2_Click() x = MsgBox("数据删除后不可恢复～是否删除,", vbYesNo, "提示") If x = 6 Then Data1.Recordset.Delete 25 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End Sub Private Sub Command3_Click() Data1.Recordset.Update Data1.Recordset.MoveLast Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command4_Click() Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click() Dim mzy As String mzy = InputBox$("请输入名称", "查找窗") Data1.RecordSource = "Select * From 表4 Where 名称 = '" & mzy & "'" Data1.Refresh 26 If Data1.Recordset.EOF Then MsgBox "无此装备!", , "提示" Data1.RecordSource = "表4" Data1.Refresh End If End Sub Private Sub Command6_Click() x = MsgBox("您确定要返回上一界面吗,是否返回,", vbYesNo, "提示") If x = 6 Then 分类管理陆军主战装备库.Show 管理火箭炮.Hide End If End Sub 管理火炮 Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True Data1.Recordset.AddNew End Sub Private Sub Command2_Click() x = MsgBox("数据删除后不可恢复～是否删除,", vbYesNo, "提示") If x = 6 Then 27 Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End Sub Private Sub Command3_Click() Data1.Recordset.Update Data1.Recordset.MoveLast Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command4_Click() Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click() Dim mzy As String mzy = InputBox$("请输入名称", "查找窗") 28 Data1.RecordSource = "Select * From 表3 Where 名称 = '" & mzy & "'" Data1.Refresh If Data1.Recordset.EOF Then MsgBox "无此装备!", , "提示" Data1.RecordSource = "表3" Data1.Refresh End If End Sub Private Sub Command6_Click() x = MsgBox("您确定要返回上一界面吗,是否返回,", vbYesNo, "提示") If x = 6 Then 分类管理陆军主战装备库.Show 管理火炮.Hide End If End Sub 4 总结 (包括系统设计过程中的学习体会与收获，出现的问题和解决的方法，没有完成的部分及原因。) 这次设计VB程序管理数据库，从开始设计完成后，我先后四次发给了班级里的同学试用，本来自我以为很好或者完美的程序被同学用后，发现了很多问题，甚至一些致命的弊端，由此我体会到开发一个程序的艰难，不但要多方面综合考虑自己的因素更要考虑不同的用户的需求以及界面友好。只有符合大众审美观的程序才能被广为接受，一些自以为是的“创意”有时不一定得到用户的认可。 在本次设计中，首先遇到的是数据库中插入图片的问题，经过查找资料，也没有很好的解决，最终选择了在图片栏插入外来数据地址的方法，启用外来链接，点击后可浏览，效果不好。并且在和编的程序界面连接时不能让图片显示，不同的装备不能对应更换相应的图片， 29 此问题是本次设计的最大问题，且一直没解决，最后只有勉强在每个窗体添加了通用的图片。 同样在管理员用程序管理数据库时，关于照片的输入，我的想法是通过剪贴板将照片图片复制到Picture1控件。在输入照片时，事先需要用扫描仪将照片扫描到内存或形成图形文件，通过一个图片编辑程序将照片装入剪贴板，然后再从剪贴板复制到Picture1控件。可通过Picture1_DblClick事件来完成剪贴板到Picture1控件的复制，当移动记录指针时，Picture1控件内的照片存入数据库: Private Sub Picture1_DblClick() Picture1.Picture = Clipboard.GetData End Sub 可是输入图片时，还是表现为失败，不知怎么解决。 第二，在登录界面的管理员和游客权限的划分上遇到困难，写不出区分两者权限的程序，最终的解决办法是添加了两类用户的选择，通过选择进入不同权限的页面，通过登陆页面，把权限下放到了后面的窗体里，管理员可以行使游客不能行使的权限，但同时增加了窗体的个数，使程序变大了。 第三，在如何引导认字不多的小朋友和外国人的用户问题上，我没有选择菜单式的流程，而是全部是窗体连接窗体，在界面上用图片和汉英两种语言引导。当然，由于个人水平的局限性在后面的很多窗体和数据库中并没有完全使用汉英双语言，但有前面的铺垫已经起到很好的效果。 第四，针对开始时谋篇布局过大导致后面编程和窗体增多的问题，首先在符合作业要求和个人时间合理安排的前提下，对一些程序中应该出现的界面做了权限限定，有些界面没有做，用户点击时会出现，“系统数据在维护中，请浏览其他选项”的提示，至于一些没做的数据库中的数据，管理员则可以随时添加。 第五，在管理员管理数据库的时候，我想到不同的管理员对数据库的了解会不一样，当他们添加数据时可能乎添加上重复的数据，针对这个问题，我开始是想在编程中进行解决，结果没有解决，有些程序不会编，于是添加了一个查找按钮，在添加数据前进行查找，没有的数据在进行添加，这样虽然能解决问题，但是如果要添加的数据过多，一个个查找会很费时间。 第六，在用户浏览的界面上我原本想设计一个按钮，通过这个按钮能把数据库的表格调出来，这样浏览更方便，可是一番努力并没有结果，并且还把原本的程序搞坏了，结果又重新做了一份。 第七，在管理员添加数据时如何解决他有可能在某些项忘了添加的问题。前些天一直在想，结果知道做完也没有想出来，直到现在才想出来，这可通过Data1_Validate事件过滤无效记录。例如，下面的代码对学号字段进行测试，如果学号为空则输入无效。在本例中被名称字段所约束的绑定控件是Text2，可用Text2.DataChanged属性检测Text2控件所对应的当前记录中的字段值的内容是否发生了变化。此外，使用数据控件对象的任一箭头按钮来改变当前记录，也可确定所做添加的新记录或对已有记录的修改，Action取值1~4分别对应单击其中一个箭头按钮的操作，当单击数据控件的箭头按钮时也触发Validate事件。 Private Sub Data1_Validate(Action As Integer, Save As Integer) If Text1.Text = "" And (Action = 6 Or Text2.DataChanged) Then 30 MsgBox "数据不完整，必须要有名称!" Data1.UpdateControls End If If Action >= 1 And Action <= 4 Then Command1.Caption = "新增" Command3.Caption = "修改" Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False End If End Sub 这样就很好的解决了管理员漏项的现象，更加人性化。可是当这样编辑的程序中时，并不能应用，不知道哪里出现问题。 第八，一直想在程序中增加一个可以记录浏览记录的功能，以方便管理员时时监察浏览动态，并根据热点的浏览项对程序进行改进，此项没有完成很遗憾。 第九，在登陆界面有两个optionbox可以用来选择是管理员还是一般用户,在编程时也进行了如下编写: Else If Option1.Value = False And Option2.Value = False Then MsgBox "请选择身份～" Text1.SetFocus End If End If 可是 ，程序运行时，总会默认选择一个optionbox，两外也可以重新选择身份，但不会出现两个都空白，所以，造成所编写的程序无效，不知哪里出现问题。 综述: 通过一学期的VB程序课程的学习、老师课堂所讲和一些作业的练习，我收获最大的不在于掌握了一些简单的程序编辑，令我感触最深的是:做一个程序、一件事，达到目的的处理方法会有很多，有的繁琐有的简单，关键在于自己思考有多少，积累的只是有多少。在面对问题时，多动脑、多思考，从不同的角度去考虑解决，才是真正的王道。这是我最大的收获。 31 内部 资料， 请勿 外传～ 序名称 规格型号 单位 数量 备注 号 一 制冷系统 1 压缩机组 4AV10 台 4 2 冷凝器 LN-70 台 1 3 贮氨器 ZA-1.5 台 1 4 桶泵组合 ZWB-1.5 台 1 5 氨液分离器 AF-65 台 1 6 集油器 JY-219 台 1 7 空气分离器 KF-32 台 1 8 紧急泄氨器 JX-108 台 1 9 冷风机 KLL-250 台 8 10 冷风机 KLD-150 台 4 11 冷风机 KLD-100 台 2 12 阀门 套 86 13 电磁阀 套 6 14 管道及支架 吨 18.6 管道及设备保3 15 m22 温 16 管道保温包扎 镀锌板 吨 1.6 17 附件 套 1 二 气调系统 中空纤维制氮1 CA-30B 台 1 机 二氧化碳洗涤2 GA-15 台 1 器 3 气动电磁阀 D100 台 14 CNJK-404 电脑控制系统 台 1 6 5 信号转换器 8线 台 1 6 果心温度探头 台 7 37 库气平衡袋 5 m 个 7 8 库气安全阀 液封式 个 7 9 小活塞空压机 0.05/7 台 1 32 10 PVC管 套 1 11 附件 套 1 三 水冷系统 DBNL-131 冷却塔 台 2 00 SBL80-162 水泵 台 2 0I SBL50-163 水泵 台 2 0I 4 阀门 套 30 5 管道及支架 吨 2.8 6 附件 套 1 四 电仪控系统 1 电器控制柜 套 1 2 照明系统 套 1 3 电线电缆 套 1 4 桥架管线 套 1 5 附件 套 1 33