o t_hanwords(
word, meaning) values(''' + chengy.Text + ''',''' + edtexplain.Text + ''')'; ADOQuery1.SQL.Add(sql); ADOQuery1.ExecSQL; end; //实现删除功能 procedure TForm1.deleteClick(Sender: TObject); var sql:string; begin
ADOQuery1.Close; ADOQuery1.SQL.Clear; sql := 'delete from t_hanwords where word = ''' + chengy.Text + ''''; ADOQuery1.SQL.Add(
sql); ADOQuery1.ExecSQL; end; //实现刷新功能 procedure TForm1.changeClick(Sender: TObject); var sql:string; begin ADOQuery1.Close; ADOQuery1.SQL.Clear; sql := 'update t_hanwords set meaning = ''' + edtexplain.Text + ''' where word = ''' + chengy.Text + ''''; ADOQuery1.SQL.Add(sql); ADOQuery1.ExecSQL; ADOQuery1.Close; ADOQuery1.SQL.Clear; sql := 'select * from t_hanwords'; ADOQuery1.SQL.Add(sql); ADOQuery1.Open; ClientDataSet1.Refresh; end; //实现修改功能 procedure TForm1.ComboBox1Change(Sender: TObject); begin case ComboBox1.ItemIndex of 0: begin intindex := 0;
end; 1: begin intindex := 1; end; end; end; //添加多媒体功能 procedure TForm1.FormCreate(Sender: TObject); begin filename := 'D:\delphi.doc'; intjudge := 1; dx:=5; mediaplayer1.play; end; //实现保存功能 procedure TForm1.saveClick(Sender: TObject); begin groupboxforresult.caption:='查询结果'; memoforsave.Lines.Add(chengy.Text+' '+editforresult.text); memoforsave.Lines.SaveToFile(filename); editforresult.Visible:=false; memoforsave.Visible:=true; end; procedure TForm1.newClick(Sender: TObject); var sql:string; begin ADOQuery1.Close; ADOQuery1.SQL.Clear; sql := 'select * from t_hanwords';
ADOQuery1.SQL.Add(sql); ADOQuery1.Open; ClientDataSet1.Refresh; editforresult.Visible:=true; editforresult.text := ''; memoforsave.Visible:=false; groupboxforresult.caption:='查询提示'; end; end. 五、实验运行界面
成语查询界面
该程序在成语查找界面能够实现对数据库中成语的精确查找和模糊查找并 显示查找结果,同时能对查找后的成语及相关解释进行修改和保存;在编辑成语 界面能够实现对数据库中成语的添加和删除。
六、实验中遇到的问题及解决方法
1. 实验前部分功能已经实现并且能正常运行,但用 U 盘靠到实验室不却不能正常的运行, 经检查发现是要重新连接数据库,查找数据源。连接后达到预定要求。 2. 实验对所要求功能进行完善,在实现查找
功能时,adotable 对应的 dbgrid 中始终指向 第一个成语,后改用 adotable 查找的语句实现了指向查找成语的功能。
七、实验小结
本次实验是在
课程基本学完的基础上进行的一次较为综合的设计实验,按实 验要求实现了对成语的查找, 插入、 添加、 修改、 删除和保存等实验要求的功能。 此外根据自己所学知识另外添加了多媒体和图片功能, 使得界面更加美观和运行 时更加享受。 通过本次实验更加巩固了自己所学的知识,对 delphi 软件运用的更加的熟 练, 虽然实验中出现了不少的
问题, 通过自己的查找和同学的帮助都基本解决了, 对于自己的能力也是一个提高,从中受益匪浅。一个学期的 delphi 实验下来, 觉得做 delphi 实验是一件很有乐趣的事情,delphi 是个不错的
软件,希望有机 会更深一步的
学习。
。