评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi医嘱管理系统[开题报告＋论文＋源代码＋答(4)

2013-06-01 01:32 );
          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; （转载自科教范文网http://fw.nseac.com）
  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