);
exit;
end;
if choose1.itemindex=1 then
//用户选择“医生”职务则打开“医生操作台”窗体
begin
//断开登录数据表连接
datam.ADO_doctor.Close;
datam.ADO_nurse.Close;
// 登录窗体隐藏
frm_login.Hide;
//窗体创建和显示
frm_maind:=tfrm_maind.create(application);
frm_maind.showmodal;
frm_login.close
end
else
//用户选择“护士“职务则打开“医生操作台”窗体
begin
datam.ADO_doctor.Close;
datam.ADO_nurse.Close;
frm_login.Hide;
frm_mainn:=tfrm_mainn.create(application);
frm_mainn.showmodal;
frm_login.close;
end;
end;
end; //过程结束
procedure TFrm_login.FormCreate(Sender: TObject);
begin
datam.ado_doctor.open;
datam.ado_nurse.open;
datam.ADO_doctor.Sort:='医生编号';
datam.ADO_nurse.Sort:='护士编号';
end;
procedure TFrm_login.choose1Change(Sender: TObject);
begin
if choose1.itemindex=1 then
//如果用户的职务选择“医生”，则将doctor表中“姓名“字段列表
begin
while not datam.ado_doctor.Eof do
begin
choose2.items.add(datam.ADO_doctor.fieldbyname('医生姓名').AsString);
datam.ADO_doctor.Next;
end;
choose2.ItemIndex:=0
end
else
//如果用户的职务选择“护士”，则将nurse表中“姓名“字段列表
begin
while not datam.ado_nurse.Eof do
begin
choose2.items.add(datam.ADO_nurse.fieldbyname('护士姓名').AsString);
datam.ADO_nurse.Next;
end;
//列表完毕，combobox2显示表中第一条记录
choose2.ItemIndex:=0
end;
end;
procedure TFrm_login.Button3Click(Sender: TObject);
begin
choosename:=choose2.text;
if choose1.itemindex=1 then
begin
frm_passeditd:=tfrm_passeditd.create(application);
frm_pas
