TopmenC 发表于 2012-4-25 06:26:31

delphi范例自学手册中第4章实例28的问题

http://115.com/file/bee1z5jk#028.zip
例子就在上面的这个网盘里，希望大牛们可以帮我这个小菜解决一下！

TopmenC 发表于 2012-4-25 06:41:22

本人正在按照Delphi范例完全自学手册在学习，希望有朋友正在学习这本书的和Delphi数据库的，加我的QQ（1848483984）,一起学习！

Biner 发表于 2012-4-25 07:16:59

我QQ673081523加我我帮你看下

Biner 发表于 2012-4-25 07:17:33

我一般晚上6.30后在白天别问。。。

乐yi忘忧 发表于 2012-7-2 17:02:15

错出在哪？说出来才好帮你解决。

乐yi忘忧 发表于 2012-7-3 17:07:22

我看了下，作了部分修改
1、提取重复代码（填充）；
procedure TForm1.tc;
begin
Edit1.Text := Query2.FieldByName('bh').AsString;
Edit2.Text := Query2.FieldByName('xm').AsString;
Edit4.Text := IntToStr(Query2.FieldByName('yw').AsInteger);
Edit3.Text := IntToStr(Query2.FieldByName('sx').AsInteger);
end;

２、增加了表里有相同的学号时不能插入数据（以免引起系统错误）；
with Query3 do
begin
    Close;
    SQL.Clear;
    SQL.Add('select * from cj where bh='''+Trim(Edit1.Text )+'''');
    Open;
end;
if not Query3.IsEmpty then
begin
    ShowMessage('不能插入重复记录');
    Exit
end
３、修改了Edit组件的tabOrder顺序。　　　　下载地址


╰漂泊☆云╯ 发表于 2012-8-2 01:08:50

{:1_1:} 不错的

永远前进的人 发表于 2013-4-10 10:43:28

共享下源码多好

心驰神往 发表于 2020-12-10 08:11:12

都不行了啊
页: [1]
查看完整版本: delphi范例自学手册中第4章实例28的问题