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

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

2013-06-01 01:32 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;

end.

 

临时医嘱管理界面与代码设计实现

代码设计
unit lsyzlr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ExtCtrls, LabelButton,
  MoveImageButton, DBCtrls, XPMenu, Mask;

type
  Tfrm_lsyzlr = class(TForm)
    XPMenu1: TXPMenu;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel; （科教作文网http://zw.ΝsΕac.cOM编辑）
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Panel1: TPanel;
    MoveImgBtn1: TMoveImgBtn;
    MoveImgBtn2: TMoveImgBtn;
    MoveImgBtn3: TMoveImgBtn;
    MoveImgBtn4: TMoveImgBtn;
    MoveImgBtn5: TMoveImgBtn;
    MoveImgBtn6: TMoveImgBtn;
    MoveImgBtn7: TMoveImgBtn;
    MoveImgBtn8: TMoveImgBtn;
    LabelBtn1: TLabelBtn;
    LabelBtn2: TLabelBtn;
    LabelBtn3: TLabelBtn;
    LabelBtn4: TLabelBtn;
    LabelBtn5: TLabelBtn;
    LabelBtn6: TLabelBtn;
    LabelBtn7: TLabelBtn;
    LabelBtn8: TLabelBtn;
    RadioGroup1: TRadioGroup;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    DBEdit1: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit5: TDBEdit;
  &n