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

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

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

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

都不行了啊

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能^_^

评分