FormCreate(Sender: TObject);
begin
inherited;
datam.ADO_patient.Open;
datam.ADO_patient.Sort:='住院号';
datam.ADO_patient.First;
end;
procedure Tfrm_cqyzlr.RadioGroup1Click(Sender: TObject);
begin
inherited;
case radiogroup1.ItemIndex of
0:datam.ADO_patient.Sort:='住院号';
1:datam.ADO_patient.Sort:='病人姓名';
end;
end;
procedure Tfrm_cqyzlr.Button1Click(Sender: TObject);
begin
cpatient:=dbedit4.text;
frm_cqinsert:=tfrm_cqinsert.create(application);
frm_cqinsert.showmodal;
end;
procedure Tfrm_cqyzlr.MoveImgBtn3Click(Sender: TObject);
begin
datam.ADO_patient.First;
end;
procedure Tfrm_cqyzlr.MoveImgBtn6Click(Sender: TObject);
begin
datam.ADO_patient.last;
end;
procedure Tfrm_cqyzlr.MoveImgBtn5Click(Sender: TObject);
begin
datam.ADO_patient.next;
end;
procedure Tfrm_cqyzlr.MoveImgBtn4Click(Sender: TObject);
begin
datam.ADO_patient.Prior;
end;
