课程设计及心得体会.docVIP

多重窗体及菜单的设计 （一） 功能描述 该程序主要包括多重窗体和文本编辑器，多重窗体由三个窗体构成，要实 现的功能是三个窗体的隐藏与出现，文本编辑器耍实现的是每个下拉菜单屮的 功能。 （二） 概要设计 整个系统可以分解成三个子功能模块，各模块之间的衔接关系为：从模块 一到模块二的衔接是forml.hide, form2.show；从模块二到模块三的衔接是 form2.hide, form3.show；从模块三返回模块二的衔接是 form3.hide, form2.show, 用框图显示各模块间的衔接关系： Form 1是登陆界面，卅输入的账号和密码正确吋，单击命令按钮，forml 隐藏，foim2出现。Form2是实现菜单屮各子菜单的功能，将每个子菜单的功能 实现后，单击统计菜单项，form2隐藏，form3出现。Form3是显示form2 随 机产生的10个数的最小值，最大值，平均值，该功能实现后，单击命令按钮， 使form3隐藏，返冋form2o （三）详细设计 模块一各功能实现过程: Form!的设计界面如下: Form I中的程序: Private Sub Form_Load() Textl.Text = ,,n Text 1 .MaxLength = 6 Text2.Text = ,H, Text2.MaxLength = 6 Text2.PasswordChar = ”*” End Sub Private Sub Text l_LostFocus() If Not IsNumeric(Textl .Text) Then MsgBox ”账号必须为数字”,，”警告” Text 1.Text = ,H, Textl.SetFocus End If End Sub 如果输入账号不是数字吋，账号错误提示“ 单击命令按钮时： Private Sub Command l_Click() Dim i As Integer IfText2.Text 123456” Then i = MsgBox(”密码错误”,5 + vbExclamation, ”警告”) If io 6 Then End Else Text2.Text = ,H, Text2.SetFocus End If End If Form 1. Hi de Form2.Show End Sub 如果输入的密码错误，密码错误提示 模块二各功能实现过程: Form2的设计界面： Form2中的控件的程序： 文件菜单项下的子菜单的界面及程序: 編辑 格式 数据 统计 结束 新建 Ctrl+N 打开 Ctrl+0 另存为 Ctrl+S 打印 结束 文本编辑器 文件 ⑴新建 Private Sub New_Click() Textl.Text = HM End Sub ⑵打开 Private Sub Open_Click() CommonDialogl .Action = I Text 1.Text = ,,H Open CommonDialog 1 .FileName For Input As #1 Do While Not EOF(l) Line Input #1, inputdata Text 1 .Text = Text 1.Text + inputdata + vbCrLf Loop Close #1 End Sub 打开的界而： ⑶另存为 Private Sub SaveAs_CIick() CommonDialogl .FileName = rDefault.Txt CommonDialog 1 .DefaultExt = Txt CommonDialog 1 .Action = 2 Open CommonDialog 1 .FileName For Output As #1 Print #1, Text 1 .Text Close #1 End Sub ⑷打印 Private Sub Print_Click() CommonDialog I .Action = 5 For i = 1 To CommonDialog 1 -Copies Printer.Print Text 1 .Text Next i Printer.EndDoc End Sub ⑸结束 Private Sub Exit_Click() End End Sub 编辑菜单下的界面及稈?序： u文本编辑器 □叵1冈 文件 格式数据统计结束 复制Ctrl+C 1 剪切 Ctrl+X 粘贴Ctrl+V ⑴复制 Private Sub Copy_Click() st = Textl.SelText End Sub 剪切 Private Sub Cut_Click() st = Textl.SelTe