实训六—实现专业班级.docVIP

实训六：功能模块实现——专业，班级管理 实验目的要求： 1、 掌握全局变量的定义和使用； 2、 掌握页面之间变量调用 3、 掌握自动编号实现 4、 实现——专业，班级管理功能（添加删除修改） 实验准备： 1、 运行SQL 2000或者2005 （注意电脑名称已经SQL版本不同） 2、 新建查询，执行SQL代码，生产数据库和表，以及表中插入数据 3、 打开DELPHI7，装入前面做好的工程， 实验步骤： 1、 修改专业管理菜单，添加3个子菜单，专业添加，修改删除 2、 新建2个窗体f_add_zy,（注意立刻修改NAME属性并保存到工程文件夹），删除窗体不用建，直接在树形控件中选中删除就可以。 3、 定义页面全局变量，定义为公有类型，treeid，treename ,stid ，分别保留TREEVIEW控件被选择节点的信息，和右边主窗体中如果有学生显示，保存学生信息。定义这两个变量方便后面使用。 变量定义位置在代码单位上面，public下面， 4、 修改新建的窗口属性： 5、 定义的全局变量初始化可以放置到主窗体得CREATE事件中完成： procedure Tf_main.FormCreate(Sender: TObject); begin treeid:=; treename:=; end; 6、 全局变量赋值可以在TREEVIEW控件中点击时候完成： procedure Tf_main.treeview1Change(Sender: TObject; Node: TTreeNode); begin StatusBar1.Refresh; StatusBar1.Panels[2].Text:=pdatanode(node.Data)^.index +______+pdatanode(node.Data)^.caption ; //当你选择一个节点时，就把这个节点的信息（编号，标题）读取出来赋给两个全局变量，方便后面调用这两个变量； treeid:=trim(pdatanode(node.Data)^.index); treename:=trim(pdatanode(node.Data)^.caption); if length(trim(pdatanode(node.Data)^.index))=7 then begin ADOQuery4.Close; ADOQuery4.SQL.Clear; ADOQuery4.SQL.Add(select * from st where bid=++trim(pdatanode(node.Data)^.index)+); ADOQuery4.Open; end; end; 7、 然后将“专业添加”子菜单和刚刚建好的窗体进行连接；菜单单击后添加代码：（不要忘记主窗体中声明“专业添加”窗体）,后面还要修改这段代码； procedure Tf_main.N28Click(Sender: TObject); begin if length(treeid)=2 then //判断是否选中了分院， begin Application.CreateForm(Tf_add_zy, f_add_zy); //内存中创建窗体 f_add_zy.ShowModal; //显示窗体 end else begin showmessage(请选择分院，然后再添加专业); exit; end; end; 8、 以上操作没有问题，就可以修改添加专业窗体得界面了，也可以用其他界面完成添加功能和修改功能；（下图仅供参考） 9、 注意主窗体菜单中对这个子窗体的调用，首要要声明，然后菜单单击输入开打子窗体的代码如下： procedure Tf_main.N28Click(Sender: TObject); begin if length(treeid)=2 then begin Application.CreateForm(Tf_add_zy, f_add_zy); //把你选中的节点的编号和名称传递到新窗体中的对应文本框中 f_add_zy.Edit1.Text:=treeid; f_add_zy.Edit6.Text:=treename; f_add_zy.Edit2.Text:=treeid; f_add_zy.ShowModal