DELPHI调用SQL SERVER 的问题

开元

某MS SQL数据库ZSD,有表KA,KA表有下列字段

KH  ----- 字符型
NAME ------  字符型
RQA ----- 日期型
RQB ----- 日期型
PHOTO  ----  字符型 （它实际上是照片文件的文件全名 如'z:\000012345.jpg'）
如下图所示，希望能够实现
当在Edit1输入KH（比如输入000012345）,点查询后，能自动调用数据库中数据，并完成该窗体（包括显示照片）。

小弟才开始学数据库，还望各位达人前辈多多照顾，谢谢。

[ 本帖最后由 开元 于 2008-4-19 18:18 编辑 ]

guaguatou

你的问题是什么呢？
是如何写事件处理，还是如何创建数据连接对象，还是如何写sql文？

开元

按钮写了如下代码，但是没成功 ，不知道为什么，达人帮忙看下，谢谢
procedure TForm1.Button1Click(Sender: TObject);
begin
     ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.sql.Add('select name,rqa,rqb from ka where usercode=''+code+'‘');
    edit1.text:=code;
    ADOQuery1.open;

end;

end.

guaguatou

dephi调用ado的解析方法，我不是很熟悉，等别的高手来解决。
你的这个逻辑好像有点不大对吧。
button1click事件：
1.赋值
   把画面上的edit1的值赋给code变量
   code=edit1.text

2.生成sql文
   并且执行sql，得到返回值

3.把返回的值放在画面上
  edit2.text = name
    edit3.text = 开户时间
  edit4.test = 到期时间

lsj

ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.sql.Add('select name,rqa,rqb,photo from ka where usercode='''+edit1.text+'''');
    ADOQuery1.open;
   edit2.text := ADOQuery1.FieldByName('name').AsString;
  Image1.Picture.LoadFromFile(ADOQuery1.FieldByName('photo').AsString);

开元

谢谢楼上两位
可是不知道为什么照片没出来，再帮忙看下 谢谢

lsj

检查一下图片的路径对不对。

开元

数据库中照片路径是对的，文件也确有，运行出错，见下图。

lsj

在前面的uses部份加入jpeg支持。

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;

开元

加上了 可是错误依然存在 RUN时出错如下图。
再次感谢楼上的帮助。