实训五—功能模块实现分院专业班级.doc

实训五：功能模块实现——分院，专业，班级管理 实验目的要求： 1、 掌握全局变量的定义和使用； 2、 掌握页面之间调用 3、 掌握添加删除修改的灵活应用 4、 掌握自动编号实现 5、 实现——分院，专业，班级管理功能（添加删除修改） 实验准备： 1、 运行SQL 2000或者2005 2、 新建查询，执行SQL代码，生产数据库和表，以及表中插入数据 3、 打开DELPHI7，装入前面做好的工程， 实验步骤： 第一部分：添加分院 1、 添加新窗体-分院管理，点击DELPHI菜单 文件-》新建-窗体，出现新窗体后，修改NMAE属性f_fenyuanguanli，另存 u_fenyuanguanli，如图： 2、 保持好分院窗体后，修改该窗体的三个属性，分别是bordericons 为： ,borderstyle 为：bimaxmize=false ,position 为：bsSingle ，poMainFormCenter 3、 点击DELPHI的工具栏中擦看单元，打开工程单元，在工程单元中找到f_fenyuanguanli创建代码，复制到菜单“分院管理”事件中（只要点击菜单栏下的分院管理就能获取“分院管理”事件），注意不要忘记主窗体中声明分院管理窗体； 4、 5、 6、 设计主界面，放置需要控件到分院管理窗体上，如图： 放置的控件有edit 5个 ，label 有5个， DBGRID一个，ADOQUERY两个，一个和DBGRIG配合使用，一个供添加，修改删除使用，DataSource1 一个，根据以前的知识点设置DataSource1 ，DBGRIG1 ，ADOQUERY1 之间的链接关系，注意要在分院管理代码单元中声明U_DB。 5个EDIT框的最大长度属性根据数据库定义要设置长度。比如，数据库定义分院编号长度为2，那么对应EDIT1的长度就设置为2； 7、 分别对四个按钮编程实现功能需求； 添加功能 代码如下： procedure Tf_fenyuanguanli.Button1Click(Sender: TObject); var yid,yname,yman,yroom,ytel:string; begin ///这里是添加 yid:=trim(edit1.Text); yname:=trim(edit2.Text); yman:=trim(edit3.Text); yroom:=trim(edit4.Text); ytel:=trim(edit5.Text); ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add(insert into y values(++yid++,++yname++,++yman++,++yroom++,++ytel++)); ADOQuery2.ExecSQL; ADOQuery1.Close; ADOQuery1.Open; end; 8、 允许输入数字到文本框中 procedure Tf_fenyuanguanli.Edit5KeyPress(Sender: TObject; var Key: Char); begin if not (key in [0..9,#8]) then key:=#0; end; 9、 如果想让新添加的分院立刻在主窗体中有所体现，就在分院窗体退出前对主窗体中的树形控件进行刷新，代码如下；（注意不要忘记在分院管理代码单元中声明主窗体单元） f_main.FormShow(sender); f_fenyuanguanli.Close; 实验结果：