学生信息管理信息系统(7)

参考文献 参考文献

[1] 颜金传, 陈德全, 黄平山编著 《Delphi 2006 从入门到精通》 电子工业出版社 2008

[2]思维科技、刘山、赵辉编著，《Delphi系统开发实例精粹》，人民邮电出版社 2005

[3] 刘瑞新, 万朝阳, 董淑娟等编著，《Delphi程序设计教程》，机械工业出版社， 2006

[4]赵姝颖等编著，《Delphi数据库管理信息系统开发案例精选》，清华大学出版社， 2007 [5] 丁宝康，《数据库原理》，经济科学出版社，2000 [6] 冯建华 周立柱，数据库系统设计与原理[m]，北京：清华大学出版社，2004 [7] 甘仞初，《信息资源管理》,经济科学出版社，2000

[8] 叶稼 叶丽珠 张雪峰 万智萍,管理信息系统[m]，北京：电子工业出版社，2011

[9] 何玉洁 张俊超，数据库技术·应用及实验指导[m]，北京:机械出版社,2005 [10] 高凯主编 ，数据库原理与应用 [m]，北京：电子工业出版社，2011

- 27 -

经济管理学院本科课程设计论文 附录

用户管理模块 begin

adoquery1.edit;

adoquery1.Fields[0].AsString:=edit1.Text; adoquery1.Fields[1].AsString:=edit2.Text; adoquery1.Fields[2].AsString:=combobox1.Text; adoquery1.Post; showmessage('修改成功'); edit1.text:=''; edit2.text:=''; combobox1.text:=''; end;

信息录入模块（此处以课程信息录入为例）

procedure TGluru.Button1Click(Sender: TObject); begin

adoquery1.edit; adoquery1.Append;

adoquery1.Fields[0].AsString:=edit1.Text; adoquery1.Fields[1].AsString:=edit2.Text; adoquery1.Fields[2].AsString:=edit3.Text; adoquery1.Fields[3].AsString:=edit4.Text; adoquery1.Fields[4].AsString:=edit5.Text; adoquery1.Fields[5].AsString:=edit6.Text; adoquery1.Post;

showmessage('确定保存？'); edit1.text:=''; edit2.text:='';

- 28 -

附 录 edit3.text:=''; edit4.text:=''; edit5.text:=''; edit6.text:=''; end;

信息查询模块（此处以课程信息查询为例）

procedure TCsearch.Button1Click(Sender: TObject); begin

if RadioGroup1.itemIndex=0 then begin

adoquery1.close; adoquery1.sql.clear;

adoquery1.sql.add('select * from courseif'+' '+''''+'%'+edit1.text+'%'+''''); adoquery1.open; end else

if RadioGroup1.itemIndex=1 then begin

adoquery1.close; adoquery1.sql.clear;

adoquery1.sql.add('select * from courseif'+ ' '+''''+'%'+edit1.text+'%'+''''); adoquery1.open; end else

if RadioGroup1.itemIndex=2 then begin

adoquery1.close; adoquery1.sql.clear;

- 29 -

where cno where cname like like 经济管理学院本科课程设计论文 adoquery1.sql.add('select * from courseif'+ ' where ccredit like '+''''+'%'+edit1.text+'%'+''''); adoquery1.open; end else begin

adoquery1.close; adoquery1.sql.clear;

adoquery1.sql.add('select * from courseif'+ ' where ctype like '+''''+'%'+edit1.text+'%'+''''); adoquery1.open; end; end;

procedure TCsearch.Button2Click(Sender: TObject); begin

if adoquery1.RecordCount=0 then showMessage('记录为空不能删除') else begin

if MessageDlg('确定要删除吗？',mtInformation,[mbOK,mbCancel],0) = mrOK then

adoquery1.Delete; end; end;

end.

- 30 -

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生信息管理信息系统(7)在线全文阅读。