【搞定】关于窗体调用的问题

jiahaiminghr

在show出窗体之前做一下判断就可以了。

sunwbh

能不能给点例子呢?或者给点代码

zfang

参考代码：
var
  lQuery : TQuery;
begin
  //先做判断
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := 'DATABASEURL=Biz:\PXYS_LX_\SJK.DATABASE';
    lQuery.CommandText :=  'select * from 数据表 where 条件 ';
    lQuery.Open;
    if lQuery.eof then
    begin
        //给出提示
    Exit;
    end;
    //执行show窗体的代码
  finally
     lQuery.Free;
   end;
end;

zfang

楼主，问题搞定了吗？

wulei_doudou_1

我看一下阿，做这个的同事最近在忙别的，我一会回帖

wulei_doudou_1

var
    lForm: HTBGJBGN.THTBG;
    lQuery: TQuery;
  begin
    lForm :=  HTBGJBGN.THTBG.Create(Self.Context);
    lQuery :=TQuery.Create(nil);
    try
        finally
      lForm.Free;
      lQuery.Free;
    end;
我不知道起始的那个判断是干什么的，所以没写，那现在还少点什么吗？怎么没反应？

wulei_doudou_1

var
    lForm: HTBGJBGN.THTBG;
    lQuery: TQuery;
  begin
    lForm :=  HTBGJBGN.THTBG.Create(Self.Context);
    lQuery :=TQuery.Create(nil);
    try
     lForm.BG.DataSet.ReadOnly:=true;
     lForm.DocViewHTXX_BGJLB.ReadOnly:=true;
     lQuery.ConnectionString:='DATABASEURL=Biz:\FG\fsw.Database';
     lQuery.CommandText :=  'select * from BGJL,HTJBXX where BGJL.YHTBH=HTJBXX.HTBH ';
     lQuery.Open;
     if lQuery.Eof then
     begin
      jsDialogs.ShowMsg('没有你所需要的信息！', '');
      exit;
      end;
     lForm.ShowModal;
    finally
      lForm.Free;
      lQuery.Free;
    end;
是这个，上面那个给弄错了，您帮我看看还少点什么？

wulei_doudou_1

我把lQuery.CommandText :=  'select * from BGJL,HTJBXX where BGJL.YHTBH=HTJBXX.HTBH ';改成lQuery.CommandText :=  'select * from BGJL where YHTBH in (select HTBH from HTJBXX)';还是实现不了

wulei_doudou_1

我才发现我的窗体上的那个“合同编号”字段是通过查找属性定义的，本身那张表是没有数据的，那样的话我的查询语句该怎么写？

wulei_doudou_1

有没有人呢，给解决一下问题，两天了都没人理，怎么回事？