DELPHI调用SQL SERVER 的问题

lsj

嘿嘿，那就不知道为什么了，你可以在设计时直接把图片在image的picture属性里load进去运行程序试一下。

开元

重新考虑了一下问题，既然每个KH 对应的PHOTO，都是有一样规律的。（例如KH ='000010234',则PHOTO ='E:\PHOTO\000010234.JPEG'   ）那么我就在数据库里省略PHOTO字段，而直接用字符串调用（这样还可以在插入过程中少查一个字段，o(∩_∩)o），做了如下代码调整，编译和运行都通过了。

var
  Form1: TForm1;
  s2:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.sql.Add('select name,rqa,rqb,photo from ka where kh='''+edit1.text+'''');
    ADOQuery1.open;
   edit2.text := ADOQuery1.FieldByName('name').AsString;
   edit3.text := ADOQuery1.FieldByName('rqa').AsString;
   edit4.text := ADOQuery1.FieldByName('rqb').AsString;
   s2:='e\photo\'+trim(edit1.text)+'.jpeg';
    //s2:=ADOQuery1.FieldByName('photo').AsString;
                 if fileexists(s2) then
                        image1.picture.loadfromfile(s2);
                       image1.visible:=true;
                 
   end;

end.


========
理论上，我觉得取得数据库里photo字段数据值也是字符串，这样做应该也可以的，但是实际上不行，不知道为什么。
再次感谢楼上给予我的帮助。

[ 本帖最后由 开元 于 2008-4-21 15:12 编辑 ]

lsj

其实这个问题跟数据库一点关系都没有了，你可以在Button1Click里只写以下代码

image1.picture.loadfromfile('E:\PHOTO\000010234.JPEG' );

如果这样都显示不出来那就是你的delphi的问题了，当然前面要uses jpeg

你也可以在设计期将图片在image的picture里load进去看能不能显示，看问题出在那里。

夏夜星空

uses jpeg;


procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.sql.Add('select [name],rqa,rqb,photo from ka where kh='''+edit1.text+'''');
    ADOQuery1.open;
   edit2.text := ADOQuery1.FieldByName('name').AsString;
   edit3.text := ADOQuery1.FieldByName('rqa').AsString;
   edit4.text := ADOQuery1.FieldByName('rqb').AsString;
   s2:='e:\photo\'+trim(edit1.text)+'.jpeg';
    //s2:=ADOQuery1.FieldByName('photo').AsString;
                 if fileexists(s2) then
                        image1.picture.loadfromfile(s2);
                  
   end;

end.

guaguatou

基本没有做过dephi,问个问题，为什么adoquery在使用前先要close?

夏夜星空

adoquery之前是需要先close的,没有错

开元

本问题中 表KA 中增加 GS ---- 逻辑是否型 (可能问题出在这里,MS SQL2000里没有这种类型,我选择了bit型)
现在要求增加两个判断
1  假如 RQB 早于 当前日期  则提示 卡片已过期
2  假如 GS = 1   则提示 卡片已挂失
3  无论卡片是否已过期 卡片是否已挂失 都完成窗体内容 (包括显示照片)

===========
我写了很多,要么该出提示的不出提示,要么除了提示就不干活了(完成窗体内容)
神啊 ,帮帮我吧
谢谢先

xeen

貌似 很简单 随便改了下 没编译不知道行不 提供一个想法而已
var
  Form1: TForm1;
  s2:string;
  gsw:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.sql.Add('select name,rqa,rqb,photo,gs from ka where kh='''+edit1.text+'''');
    ADOQuery1.open;
   edit2.text := ADOQuery1.FieldByName('name').AsString;
   edit3.text := ADOQuery1.FieldByName('rqa').AsString;
   edit4.text := ADOQuery1.FieldByName('rqb').AsString;
    gsw := ADOQuery1.FieldByName('gs');
   s2:='e\photo\'+trim(edit1.text)+'.jpeg';
    //s2:=ADOQuery1.FieldByName('photo').AsString;
                 if fileexists(s2) then
                        image1.picture.loadfromfile(s2);
                       image1.visible:=true;
   
           if    ADOQuery1.FieldByName('rqb').AsDateTime < now  then
                              showmessage('卡已经过期');
                       if gsw = '1'  then
                              showmessage('卡已挂失');
                 
   end;

end.

[ 本帖最后由 xeen 于 2008-6-13 06:03 编辑 ]

无闻

原帖由 guaguatou 于 2008-4-23 14:21 发表
基本没有做过dephi,问个问题，为什么adoquery在使用前先要close?

估计因为查询的时候都是open，一般如果习惯好的话，在后面应该会有close再退出的，但是为了避免出现没有关闭然后再次open的时候出现错误，所以要先close