sp; adoquery1.SQL.Clear;
s:='select * from cqyz';
adoquery1.sql.add(s);
adoquery1.Active:=true;
end;
1:
begin
adoquery1.Close;
adoquery1.SQL.Clear;
s:='select * from lsyz';
adoquery1.sql.add(s);
adoquery1.Active:=true;
end;
end;
str1:=s;
end;
procedure Tfrm_yzjh.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_yzjh.RadioGroup2Click(Sender: TObject);
begin
case radiogroup2.ItemIndex of
0:
begin
s:=str1;
adoquery1.Close;
adoquery1.SQL.Clear;
s:=s+' where 已否校核="已"';
adoquery1.sql.add(s);
adoquery1.Open;
end;
1:
begin
s:=str1;
adoquery1.Close;
adoquery1.SQL.Clear;
s:=s+' where 已否校核="否"';
adoquery1.sql.add(s);
adoquery1.Open;
end;
end;
str2:=str1;
end;
procedure Tfrm_yzjh.RadioGroup3Click(Sender: TObject);
begin
case radiogroup2.ItemIndex of
0:
begin
s:=str2;
adoquery1.Close;
adoquery1.SQL.Clear;
s:=s+' order by 住院号 asc';
adoquery1.sql.add(s);
adoquery1.Open;
end;
1:
begin
s:=str2;
adoquery1.Close;
adoquery1.SQL.Clear;
s:=s+' order by 住院号 desc';
adoquery1.sql.add(s);
adoquery1.Open;
end;
end;
end;
procedure Tfrm_yzjh.Button1Click(Sender: TObject);
begin
if adoquery1.FieldByName('已否校核').AsString='已' then
showmessage('该医嘱已校核!')
else
begin
adoquery1.Edit;
adoquery1.FieldByName('已否校核').AsString:='已';
adoquery1.Post;
end;
end;
