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

zfang

var
    lForm: HTBGJBGN.THTBG;
    lQuery: TQuery;
  begin
    lQuery :=TQuery.Create(nil);
    try
     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;
    finally
      lQuery.Free;
    end;

     lForm :=  HTBGJBGN.THTBG.Create(Self.Context);
     lForm.BG.DataSet.ReadOnly:=true;
     lForm.DocViewHTXX_BGJLB.ReadOnly:=true;
     lForm.ShowModal;
      lForm.Free;
代码这样写！

zfang

如果你界面上的那个合同编号数据在这张数据表中没有，那你要依据什么来判断是否有值呢？

zfang

已经qq沟通，结帖！