5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TRes_Social_Security_F.cxButton1Click(Sender: TObject);
begin
inherited;
with ADOQ_hwgg do
begin
Close;
SQL.Clear;
SQL.Add( ' Select hwgg from CKGL_PMB where hwdm='''+ Trim(Edt_hwdm.Text)+''' and hwmc='''+ Trim(Cobx_hwmc.Text)+''' and ztbz=''正常'' and hwgg is not NULL group by hwgg ');
Open;
ShowMessage(SQL.Text);
end;
end;
procedure TRes_Social_Security_F.cxButton1Click(Sender: TObject);
begin
inherited;
with ADOQ_hwgg do
begin
Close;
SQL.Clear;
SQL.Add( ' Select Distinct hwgg from CKGL_PMB where hwdm='''+ Trim(Edt_hwdm.Text)+''' and hwmc='''+ Trim(Cobx_hwmc.Text)+''' and ztbz=''正常'' ');
Open;
ShowMessage(SQL.Text);
end;
end;