《毕业设计论文VB临沧师专教室管理系统设计报告.doc》由会员分享，可在线阅读，更多相关《毕业设计论文VB临沧师专教室管理系统设计报告.doc（32页珍藏版）》请在三一办公上搜索。
1、目录第 1 章 临沧师专教室管理系统介绍1第 2 章 开发背景3第 3 章 教室管理系统需求分析43.1 功能需求分析43.2 数据存储需求分析43.3 数据字典53.4可行性分析6第4章 教室管理系统逻辑方案74.1教室管理过程的业务流程74.2教室管理系统的数据流图84.3总体ER图94.4逻辑结构关系模型94.5实用DD(采用优化方案1，即5关系模型)104.6 教师管理系统功能结构图12第5章 系统总体结构设计135.1系统模块组成135.2数据库设计13第6章 教室管理系统详细设计156.1 教室管理系统的管理功能模块的设计如下156.2设计过程中遇到的问题及解决办法23第7章 系统
2、测试23第8章 结论与体会25第9章 结束语26参考文献26致 谢27I临沧师专教室管理系统设计报告08级计算机应用技术 085301027 摘要：随着计算机的发展及网络技术的普及和应用，日常管理工作从以前繁琐的事务中解放出来，因而提高了工作效率。我校（临沧师专）的教室管理工作还是通过手工管理方式进行，工作效率很低。因此，开发了临沧师专教室管理系统。根据临沧师专的规模和经济情况，本系统具有教室管理系统的基本功能。如教学楼设置管理教室信息管理上课教师信息管理学生信息管理、教室使用管理教师和学生申请使用管理以及各种信息查询等，并且界面简单操作简便。关键词：临沧师专教室管理系统；设计报告；Visua
3、l Basic6.0第 1 章 临沧师专教师管理系统介绍教室管理信息化是学校教务系统应用信息技术及其产品的过程，是信息技术应用于教室管理的过程。教育信息化的实施，必须与学校的制度创新、组织创新和管理创新相结合；必须以作为学校主体的工作人员使用信息技术水平为基础。学校使用的教室管理系统，是由学校本身的目标、任务和性质决定的；它牵涉的信息种类十分庞杂。它融合了学校的管理思想和各职能部门的工作经验，是学校当前运作方式和业务流程的具体体现。而教室管理信息系统正是这样庞大的系统中的一个系统。教室对教师、学生、教学，都有极其重要的作用。因此，学校信息化建设工作具有长期性、复杂性和内容的多变性特征，然而，教
4、室管理信息系统也不是一个简单的、封闭的、静止的系统，而在应用的深度和广度上是一个复杂的、开放的系统，它会随着时间的推移逐步变化和发展。为了更好地适应当前我校教室信息管理的需求，缓解手工管理存在的弊端，我开发了临沧师专管理系统。该系统向管理员提供全方位的信息服务，且具有以下特点：1.可以存储学校所有教室及教室使用的信息，具有安全，高效的特性。2.只需一到二名信息录入员即可操作系统，节省大量人力。3.可以迅速查到所需信息。第 2 章 开发背景在大学里，教室仍然是教学的主要场所，也是学生学习的重要场所，所以教室环境和设备直接影响到教学活动的进行和学生的学习。为了保证教室环境良好的运转，教室的管理也就
5、尤为重要。但是教室的管理并不是很容易的。教室设备（尤其是多媒体设备）有所损坏必须及时登记，修复，否则就会影响以后的教学，造成教学事故。教室的使用具有一定的计划性和流动性，即一个班在相应的时间里，所上的课程和使用的教室是固定的，但是不同的课程在不同的时间里会使用不同的教室，这与教务处的课程安排是密切相关的。尤其是使用多媒体教室的时候，这就显得比较麻烦。为了能够更系统，更有序，更合理，更有效的进行教室管理，有必要利用计算机来处理各种信息，这就需要一个更有效的教室管理系统。为此，经过较详细的调查和慎重的思考，我决定做一个教室管理系统，来解决这些问题，使管理简化，方便而且更有效。第 3 章教室管理系统
6、需求分析3.1功能需求分析本系统要提供的主要功能如下：1、能对教学楼进行管理（添加、修改、删除）2、能对教室信息进行管理（添加、修改、删除）3、能对教师信息进行管理（添加、修改、删除）4、能对学生信息进行管理（添加、修改、删除）5、能对教室使用进行管理（添加、修改、删除）6、能对教室申请进行管理（添加、批准、删除）7、能对教室信息、教师信息、学生信息、教室使用和教室申请进行查询。3.2 数据存储需求分析由上可得本系统的数据需求：用户信息包括：用户名，密码，用户类型，权限教学楼信息包括：教学楼代号，教学楼名称，教室间数教室信息包括：教学楼代号，教学楼名称，教室编号，座位数，教室类型，使用状态教师
7、信息包括：教师代号，教师姓名，教师性别，所在系部，职称，联系电话学生信息包括：学号，姓名，性别，班级，班主任，联系电话，备注教室使用信息包括：教学楼代号，教学楼名称，教室编号，座位数，星期，节次，使用时间，使用教师，更换教师，备注教室申请使用包括：教学楼代号，教学楼名称，教室编号，座位数，星期，节次，使用时间，申请人，备注3.3数据字典相关数据字典有7个，如下所示：1 用户信息数据字典属性名类型长度备注用户名整型20学校中院系的编号密码整型20学校中院系名称用户类型整型8用户的级别用户权限整型2使用权限2 教学信息楼数据字典属性名类型长度备注教学楼代号整型20学校教学楼号教学楼名称字符型20学
8、校教学楼名称教室间数整型教学楼教室间数3 教室信息数据字典：属性名类型长度备注教学楼代号整型10教室所在教学楼代号教学楼名称字符型10学校教学楼名称教室编号整型6教学楼中教室编号座位数整型10教室所在楼层教室类型6教室分几种类型使用状态4使用的各种形式 4 教师信息数据字典：属性名类型长度备注教师编号String20教师编号教师姓名String10教师姓名教师性别String2教师性别（男、女）所属系别String20教师所属系别职称String 10教师的职称（教授、副教授、讲师等）联系方式String18通讯方式5 学生数据字典：属性名类型长度备注学号String 10学生编号姓名Stri
9、ng 10学生姓名性别String 2学生性别（男、女）班级String 20学生所在班级班主任String10班集体的负责老师联系电话String18通讯方式6 教师使用信息数据字典：属性名类型长度备注教师号String20教师编号教室号String10教室编号课程号String20该教室所开的课程工作日String 8工作日上课时间段String20上课时间段7 教室申请信息数据字典：属性名类型长度备注教学楼名称String10学校教学楼名称教室编号String10教室编号座位数String 4教室座位数星期String8该周的星期几节次String8每天上课的第几节使用时间String1
10、0使用教室的时间申请人String 10申请使用教室的人3.4可行性分析技术上可行：教室管理系统对硬、软件设备要求不高，从设备角度看也很经济。甚至在Windows 98、Windows 2003上都能使用，因此在技术上是可行的。第4章 教室管理系统逻辑方案4.1教室管理过程的业务流程通过我们调查分析，得到如下临沧师专教室管理过程的业务流程2，如下图1所示：教室使用信息教师信息列表教务处使用老师使 用申请使用教室列表教师列表使用状况态教师申请审批申请列表查询学生教务处学生列表图1 教室管理系统业务流程图4.2教室管理系统的数据流图由上分析可以得到临沧师专教室管理信息系统的顶层数据流图，如下2所示
11、：教室列表教师列表教室基本信息教师信息申请审批查询结果开 启2查询教室申请使用教师信息教室使用信息教师信息表教室申请使用教室使用信息学生信息学生信息表教务处1管理学生列表学生信息申请使用申请使用 图2 临沧师专教室管理系统顶层数据流图4.3总体ER图通过对上述数据需求和功能需求分析，可得教室管理系统的总体ER图，如下图3所示： 班主任联系电话教 师学 生学号姓名性别班级教师编号教师姓名教师性别所在系部职称联系电话申请借用星期节次1nm1n教务处教|教教|学使用时间教教教 室教学楼名称教室编号n使用座位数教室类型使用状况教学楼代号教学楼教学楼代号教学楼名称教室间数星期节次使用时间图3 临沧师专教
12、室管理信息系统的总体ER图 4.4逻辑结构关系模型由上述概念模型（ER图），按照转换原则，可得本系统的原始逻辑模型（关系模型）如下：1、教学楼关系（教学楼代号，教学楼名称，教室间数）2、教室关系（教学楼代号，教学楼名称，教室编号，座位数，教室类型，使用状态）3、教师关系（教师代号，教师姓名，教师性别，所在系部，职称，联系电话）4、学生关系（学号，姓名，性别，班级，班主任，联系电话，备注）5、使用关系（星期，节次，使用时间）6、申请借用关系（星期，节次，使用时间）4.5实用DD(采用优化方案1，即5关系模型)实用数据字典（DD）是为了设计实现数据库物理模型或为了以后维护数据库方便而在数据库实现前
13、或后，采用表格方式等将数据库元数据记录下来1。本系统的实用DD如表1、表2、表3、表4、表5、表6：表1 教学楼设置表字段名数据类型宽度关键字否外键否含义默认值约束楼号整型4是教学楼代号楼号0楼名字符型40教学楼名称间数整型4教室间数表2 教室信息表字段名数据类型宽度关键字否外键否含义默认值约束楼号字符型9是教学楼代号数字楼名字符型10教学楼名称室号字符型2是教室编号座位数整型4座位数座位数0类型整型4教室类型状态整型4使用状态表3 教师信息表字段名数据类型宽度关键字否外键否含义默认值约束教号字符型9是教师代号数字姓名字符型10教师姓名性别字符型2性别女性别=“男”or性别=“女” 系部整型4
14、所在系部职称整型4职称电话整型4联系电话表4 学生信息表字段名数据类型宽度关键字否外键否含义默认值约束学号字符型9是学号数字姓名字符型10姓名性别字符型2性别女性别=“男”or性别=“女” 班级整型4所在班级班主任整型4班主任电话整型4联系电话表5 教室使用信息表字段名数据类型宽度关键字否外键否含义默认值约束楼号字符型9是教学楼代号数字楼名字符型10教学楼名称室号字符型2是教室编号座位数整型4座位数座位数0星期整型4星期几节次整型4第几节时间整型4使用时间教师整型4使用教师更换教师整型4更换教师表6 教室使用申请表字段名数据类型宽度关键字否外键否含义默认值约束楼号字符型9是教学楼代号数字楼名字
15、符型10教学楼名称室号字符型2是教室编号座位数整型4座位数座位数0星期整型4星期几节次整型4第几节时间整型4使用时间申请人整型4申请人4.6 教师管理系统功能结构图由前述系统功能需求分析和数据存储需求分析可得本系统功能结构图如图4所示 。 用户信息管理临沧师专教务处教室管理系统用户信息管理教师信息管理教师信息维护教师信息查询教室信息管理教学楼设置教室信息管理学生信息管理学生信息查询学生信息维护教室管理系统教室申请使用管理教室使用信息查询教室申请信息查询退出系统教室使用信息管理图6 临沧师专教务处教室管理系统功能结构第5章 系统总体结构设计5.1系统模块组成本教室管理分为五模块，分别是系统登录模
16、块、用户管理模块、基本信息管理模块、教室申请使用模块、信息查询模块五个模块组成。4.1.1 系统登录模块 用户通过输入自己的用户名、密码和选择相关权限登录系统。4.1.2用户管理模块 本模块中主要是系统管理员给每个用户分配用户名和密码，根据不同的用户选择不同权限。4.1.3 基本信息模块1教学楼设置，可对教学楼基本信息进行添加、删除和修改。2教室基本信息管理：可对教室信息进行添加、删除和修改。3教师基本信息维护：可以对教师信息进行添加、删除和修改。4. 学生基本信息维护：可以对学生信息进行添加、删除和修改。5. 教室使用信息管理：可以对教室使用信息进行添加、删除和修改。5. 教室使用申请管理：
17、可以对教室使用申请信息进行添加、删除和修改。4.1.4信息查询模块对教室基本信息、教师信息、学生信息、教室使用信息、教室申请使用信息进行查询。5.2数据库设计在开发本系统之前，我通过对我校教务处大量教室管理资料的调查，根据教务处管理的实际需要，我选择用access作为数据库存储相关信息，数据库命名为jsgl.mdb，数据中包含了七张表用于存储信息，如下7所示：图7 数据库 第6章 教室管理系统详细设计详细设计是指选择一个具体的集成开发环境（IDE），编程实现系统功能。本教室管理系统的教室信息管理功能模块的设计（VB6.0环境）如下所示：6.1 教室管理系统的管理功能模块的设计如下。1.主界面设
18、计在用户登录系统时，当用户以正确的用户名、密码和相应的权限登录系统后，由用户登录界面调用主界面， 用MDI窗体作为系统操作的环境，从MDI窗体中调用菜单中所包含的窗体，如图6所示：图8主界面2.登录鉴于教室管理系统数据的安全性，管理员为不同的用户设置了不同的权限，选只有用户名、密码和权限都正确时，用户才能进入系统，并且不同的用户只能访问系统权限给定的内容，如果输入错误将不能登录系统，如果正确将进入系统主界面。如图7所示：图7 选择管理员用户3.添加与维护由于教室管理系统是提供给管理员、老师和学生共同访问，因此，系统管理员要为每位用户设置用户名和密码，并且要限制相应用户的权限，如果用户的相关信息
19、泄露，管理员要对其信息进行修改和维护，保证用户信息安全和数据库的数据安全，其操作如图8所示：图8 用户名添加、修改、删除其用户信息修改的chick事件代码如下：Private Sub Command3_Click() If Text3.Text = Then Call ErrorMsg(请填写用户名！, 错误信息) Text3.SetFocus Exit Sub End If If Text4.Text = Then Call ErrorMsg(请填写密码！, 错误信息) Text4.SetFocus Exit Sub End If If Text5.Text = Then Call Erro
20、rMsg(请填写新密码！, 错误信息) Text5.SetFocus Exit Sub End If If Combo1.Text = Then Call ErrorMsg(请选择用户类型！, 错误信息) Combo2.SetFocus Exit Sub End If 验证管理员信息 Dim Rst As New ADODB.Recordset Set Rst = Nothing Dim conn As New ADODB.Connection Set conn = Nothing conn.Open Module1.strConn Rst.Open Select * From Admin W
21、here 用户名= & Replace(Trim(Text3.Text), , ) & And 密码= & Text4.Text & , conn, 1, 1 If Rst.EOF And Rst.BOF Then Call ErrorMsg(用户名或密码错误！请检查正确性！, 错误信息) Text3.Text = Text4.Text = Text5.Text = Combo2.Text = Text3.SetFocus Exit Sub Else conn.Execute (Update Admin Set 密码= & Text5.Text & Where 用户名= & Replace(T
22、rim(Text3.Text), , ) & ) conn.Execute (Update Admin Set 用户类型= & Combo2.Text & Where 用户名= & Replace(Trim(Text3.Text), , ) & ) conn.Execute (Update Admin Set 用户权限= & Text7.Text & Where 用户名= & Replace(Trim(Text3.Text), , ) & ) End If If Err.Number 0 Then Call ErrorMsg(Err.Description, 错误信息) Exit Sub El
23、se Call ErrorMsg(用户密码+类型+权限已成功修改！用户名为： & Text3.Text, 修改密码) Text3.Text = Text4.Text = Text5.Text = Combo1.Text = Text7.Text = Text3.SetFocus AdminList End IfEnd Sub4.学楼设置随着招生的增加，学校不断的扩建，新的教学楼也就随之出现，因此我们很有必要对学校教学楼信息进行设置管理。基本信息包括：教学楼代号，教学楼名称，教室间数，如图9所示：图9 教学楼设置5.教室基本信息管理为了能准确和及时的查询和了解教室的使用状况，我们特别设置教室使用
24、信息管理功能，如图10所示：图10教室基本信息管理其教室基本信息添加的chick事件代码如下：Private Sub Command1_Click() If Me.Combo2.Text = Then MsgBox 教学楼代号不能为空！ Exit Sub End If If Me.Text2.Text = Then MsgBox 教学楼名称不能为空！ Exit Sub End If If Me.Text6.Text = Then MsgBox 教室编号不能为空！ Exit Sub End If If Me.Tzws.Text = Then MsgBox 座位数不能为空！ Exit Sub En
25、d If If Me.Combo1.Text = Then MsgBox 教室类型不能为空！ Exit Sub End If If Me.Combo3.Text = Then MsgBox 使用状态不能为空！ Exit Sub End If Set Rst = Nothing Rst.Open Select * From 教室信息表 Where 教室编号= + CStr(Me.Text6.Text) + , conn, 1, 3 If Rst.EOF And Rst.BOF Then Rst.AddNew Rst(教学楼代号) = Me.Combo2.Text Rst(教学楼名称) = Tex
26、t2.Text Rst(教室编号) = Me.Text6.Text Rst(座位数) = Me.Tzws.Text Rst(教室类型) = Me.Combo1.Text Rst(使用状态) = Me.Combo3.Text Rst(备注) = Text1.Text Rst.Update MsgBox 恭喜你，保存/修改成功！ Call ListEnd SubPrivate Sub Command2_Click() If Me.MSHFlexGrid1.Rows = 1 Then Exit Sub If MsgBox(确定删除 + Me.MSHFlexGrid1.TextMatrix(Me.MS
27、HFlexGrid1.Row, 1) + 吗, vbInformation + vbYesNo, 系统信息) = vbYes Then conn.Execute (DELETE FROM 教室信息表 where 编号= + CStr(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1) 执行删除命令 MsgBox 删除成功, vbInformation, 系统提示 Call List End IfEnd Sub6.教师信息维护为了能准确和及时知道教室使用教师的信息，我需要设置教师信息管理功能，同时也方便学生对教师的了解，如图11所示：图11教师信
28、息维护其教师基本信息删除的chick事件代码如下：Private Sub Command2_Click() If Me.MSHFlexGrid1.Rows = 1 Then Exit Sub If MsgBox(确定删除 + Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1) + 吗, vbInformation + vbYesNo, 系统信息) = vbYes Then conn.Execute (DELETE FROM 教师信息表 where 编号= + CStr(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexG
29、rid1.Row, 1) 执行删除命令 MsgBox 该老师记录也被删除！, vbInformation, 系统提示 Call List End IfEnd Sub7.信息维护为了能准确和及时了解申请使用教室的学生的信息，我需要设置学生信息管理功能，同时也方便老师对缺席学生的排查，如图11所示：图12学生信息维护8.使用信息管理为了能准确和及时的查询和了解教室和使用教室的相关信息，我需要设置教室使用信息管理功能，如图12所示：图12教室使用信息管理9.使用信息管理为了能方便、快捷地帮助教师和学生申请空闲教室补课和搞其它活动，特别为师生设置教室申请使用信息管理功能，如图13所示：图13教室申请使
30、用信息其教师基本信息删除的chick事件代码如下：Private Sub Command6_Click() If Me.MSHFlexGrid1.Rows = 1 Then Exit Sub If MsgBox(确定要批准吗？, vbInformation + vbYesNo, 系统提示) = vbYes Then conn.Execute (update 教室使用申请 set 申请人= + Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 6) + where 教室编号= + CStr(Me.MSHFlexGrid1.TextMatrix(Me.
31、MSHFlexGrid1.Row, 2) + and 星期= + CStr(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 4) + and 节次= + CStr(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 5) + ) MsgBox 恭喜你，申请教室也成功批准！ End IfEnd Sub6.2 设计过程中遇到的问题及解决办法由于初次做较完整的数据库，在各方面都表现出了不足之处，这个系统做的比较粗略，也存在很多的漏洞，其问题如下：1在建立存储过程中的缺陷和不太合理的地方，鉴于时间紧，未能修改；
32、2有效性检验有所遗漏；3安全性和完整性考虑不够周全。解决办法：向老师询问和请教，和同学一起探讨，在书上和网上查阅资料。第7章 系统测试系统测试是检测整个系统的相关功能的正常应用情况，其效果如下：输入预测实际结果与原用户名和密码不符合弹出对话框：请填写密码！与预测相符合选择学生用户进入系统只能够查询教室、教师、学生和教室使用信息以及教师申请使用信息与预测相符合学生用户只能够查询教室、教师、学生和教室使用信息以及教师申请使用信息，不能对其它的窗口进行数据修改。选择教师用户进入系统只能够查询教室、教师、学生、教室使用信息和教师申请使用信息以及添加学生基本信息与预测相符合老师用户只能够查询教室、教师、
33、学生、教室使用信息和教师申请使用信息以及添加学生基本信息，不能对其它的窗口进行数据修改。选择教管理员户进入系统可以对系统内所有窗口进行数据修改和查询与预测相符合管理员用户进入系统，可以对系统内所有窗口进行数据修改和查询。管理员户进入系统进行数据维护能填添加、修改和删除用户，能维护教室信息，教师信息，学生信息，教室使用信息，教师申请使用信息，并对教师和学生提出的申请进行审批。与预测相符合管理员户进入系统进行数据维护，能填添加、修改和删除用户，能维护教室信息，教师信息，学生信息，教室使用信息，教师申请使用信息，并对教师和学生提出的申请进行审批。第8章 结论与体会通过这次数据库设计，我深刻的认识到自
34、身的不足，也体会到要做出一个好的系统，必须要经过详细的调查，了解所有涉及的流程和数据，考虑到各种可能出现的情况及处理的方法。要建立与之相适应的数据库，要全面、完整，这也是很困难的。除此之外，还有很多，例如，安全性和完整性问题，对存储过程的优化及效率等问题，这些都不是简单就可以处理的。我认识到，在做数据库之前，做好充分的准备是很重要的，要想在这个方面比较精通，必须下苦功夫。第9章 结束语在整个毕业设计过程中，我进行了整体的系统分析和规划。在系统研发初期，首先做需求分析、可行性研究等前期准备，同时搜集了大量的公司资料，这对后来的系统开发与出现都有很大的作用。在进行选择开发技术的时候，我对目前比较流
35、行的系统开发技术都作了深入的调查和分析，在比较之后选择了VB这个优势较为明显的开发技术。在设计的开发过程中，运用了许多在这三年中学到的知识，深入了解了ADO数据访问技术；熟练掌握了Access数据库；运用了软件工程知识。开发过程充分利用软件工程及数据库系统原理知识，借此极大的提高了系统开发和设计速度。并对开发知识有了更多的认识，多了一些开发经验。大学三年虽然快结束了，但是求知永远不会结束，活到老学到老！我会在毕业之后继续完善系统的功能与界面，力争使其具有更大价值。本系统于2011年4月完成。因本人水平和经验有限，系统在设计的过程中难免有不足之处，比如系统功能太少或系统开发设计还不够完善，敬请各
36、位老师批评指正。本系统是在我的导师尹红泽老师的悉心指导下完成的。他严谨的治学精神，精益求精的工作作风，深深地感染和激励着我。参考文献1罗朝盛，余文芳编著.Visual basic课程设计教程.北京：人民邮电出版社；2 刘炳文，许蔓舒编著Visual basic 程序设计教程.北京：清华大学出版社；3陈立航，Access 2000 命令与实例M.北京：清华大学出版社；致 谢本人所做的毕业设计（临沧师专教室管理系统）是在尹红泽老师的细心指导下进行的。尹老师学识渊博，治学态度严谨，教学有方、和蔼可亲。并且在整个毕业设计过程中，尹红泽老师不仅只是教会了我书本上的一些知识，更重要的是教会了我一些思考问题
37、的方法。尹老师在系统开发等方面具有丰富的实践经验和技巧。在学习、工作和生活中他都会将最有用的东西交给我们。在此我对尹红泽老师表示诚挚的感谢和由衷的敬意。此外，在此我也向所有帮助过我的挚友们表示深深地感谢。附录临沧师范高等专科学校教室管理系统编写程序的主要代码如下：1. 主界面的程序Private Sub cd_Click() frmbjxsxx1.Show 1End SubPrivate Sub abc_Click() frmls.Show 1End SubPrivate Sub ckfjsss_Click() frmckxsxx.Show 1End SubPrivate Sub ckfjxx
38、_Click() frmckfjxx.Show 1End SubPrivate Sub cxlll_Click() frmckxsxx.Show 1End SubPrivate Sub faaaaa_Click() frmbjxsxx.Show 1End SubPrivate Sub fjxszlxx_Click() frmxsjz.Show 1End SubPrivate Sub fjxxxx_Click() frmfhxsxx.Show 1End SubPrivate Sub bb_Click() frmjssyxx.Show 1End SubPrivate Sub ddd_Click() frmsyxxcx.Show 1End SubPrivate Sub Form_Resize() On Error Resume Next Me.Image1.Height = Me.Scale
