参考文献 参考文献
[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 -