delphi医嘱管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](六)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi医嘱管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](六) 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;
    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

首页上一页 3 4 5 6 7 8 9 下一页尾页 6/11/11

delphi医嘱管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](六)由毕业论文网（www.huoyuandh.com）会员上传。