课程设计及心得体会.doc

多重窗体及菜单的设计

（一）功能描述

该程序主要包括多重窗体和文本编辑器，多重窗体由三个窗体构成，要实现的功能是三个窗体的隐藏与出现，文本编辑器要实现的是每个下拉菜单中的功能。

（二）概要设计

整个系统可以分解成三个子功能模块，各模块之间的衔接关系为：从模块一到模块二的衔接是form1.hide，form2.show；从模块二到模块三的衔接是form2.hide，form3.show；从模块三返回模块二的衔接是form3.hide，form2.show，用框图显示各模块间的衔接关系：

模块一

模块一

模块三

模块二

Form1是登陆界面，当输入的账号和密码正确时，单击命令按钮，form1隐藏，form2出现。Form2是实现菜单中各子菜单的功能，将每个子菜单的功能实现后，单击统计菜单项，form2隐藏，form3出现。Form3是显示form2中随机产生的10个数的最小值，最大值，平均值，该功能实现后，单击命令按钮，使form3隐藏，返回form2。

（三）详细设计

模块一各功能实现过程：

Form1的设计界面如下：

Form1中的程序：

PrivateSubForm_Load()

Text1.Text=

Text1.MaxLength=6

Text2.Text=

Text2.MaxLength=6

Text2.PasswordChar=*

EndSub

PrivateSubText1_LostFocus()

IfNotIsNumeric(Text1.Text)Then

MsgBox账号必须为数字,,警告

Text1.Text=

Text1.SetFocus

EndIf

EndSub

如果输入账号不是数字时，账号错误提示：：

单击命令按钮时：

PrivateSubCommand1_Click()

DimiAsInteger

IfText2.Text123456Then

i=MsgBox(密码错误,5+vbExclamation,警告)

Ifi6Then

End

Else

Text2.Text=

Text2.SetFocus

EndIf

EndIf

Form1.Hide

Form2.Show

EndSub

如果输入的密码错误，密码错误提示

模块二各功能实现过程：

Form2的设计界面：

Form2中的控件的程序：

文件菜单项下的子菜单的界面及程序：

(1)新建

PrivateSubNew_Click()

Text1.Text=

EndSub

(2)打开

PrivateSubOpen_Click()

CommonDialog1.Action=1

Text1.Text=

OpenCommonDialog1.FileNameForInputAs#1

DoWhileNotEOF(1)

LineInput#1,inputdata

Text1.Text=Text1.Text+inputdata+vbCrLf

Loop

Close#1

EndSub

打开的界面：

(3)另存为

PrivateSubSaveAs_Click()

CommonDialog1.FileName=Default.Txt

CommonDialog1.DefaultExt=Txt

CommonDialog1.Action=2

OpenCommonDialog1.FileNameForOutputAs#1

Print#1,Text1.Text

Close#1

EndSub

(4)打印

PrivateSubPrint_Click()

CommonDialog1.Action=5

Fori=1ToCommonDialog1.Copies

Printer.PrintText1.Text

Nexti

Printer.EndDoc

EndSub

(5)结束

PrivateSubExit_Click()

End

EndSub

编辑菜单下的界面及程序：

(1)复制

PrivateSubCopy_Click()

st=Text1.SelText

EndS