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

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

delphi医嘱管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](七) bsp; DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit6: TDBEdit;
    procedure Button1Click(Sender: TObject);
    procedure MoveImgBtn3Click(Sender: TObject);
    procedure MoveImgBtn4Click(Sender: TObject);
    procedure MoveImgBtn5Click(Sender: TObject);
    procedure MoveImgBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
frm_lsyzlr: Tfrm_lsyzlr;

implementation

{$R *.dfm}
uses dbm,pulvar, cqinsert, lsinsert;

procedure Tfrm_lsyzlr.Button1Click(Sender: TObject);
begin
    cpatient:=dbedit4.Text;
    frm_lsinsert:=tfrm_lsinsert.create(application);
    frm_lsinsert.showmodal;
end;

procedure Tfrm_lsyzlr.MoveImgBtn3Click(Sender: TObject);
begin
datam.ADO_patient.First;
end;

procedure Tfrm_lsyzlr.MoveImgBtn4Click(Sender: TObject);
begin
datam.ADO_patient.Prior;
end;

procedure Tfrm_lsyzlr.MoveImgBtn5Click(Sender: TObject);
begin
datam.ADO_patient.next;
end;

procedure Tfrm_lsyzlr.MoveImgBtn6Click(Sender: TObject);
begin
datam.ADO_patient.last;
end;

procedure Tfrm_lsyzlr.FormCreate(Sender: TObject);
begin
inherited;
datam.ADO_patient.Open;
datam.ADO_patient.Sort:='住院号';
datam.ADO_patient.First;
end;

end.

病区查询界面与代码设计

代码设计:
unit bqcx;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, XP_GroupBox;

type
Tfrm_bqcx = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    e_name: TEdit;
    e_pnum: TEdit;
    e_num: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    e_s: TEdit;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
frm_bqcx: Tfrm_bqcx;

implementation

{$R *.dfm}
uses dbm;

procedure Tfrm_bqcx.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_bqcx.Button2Click(Sender: TObject);
begin
    e_name.Text:='';
    e_pnum.Text:='';
    e_num.text:='';
    e_name.SetFocus;
end;

procedure Tfrm_bqcx.Button1Click(Sender: TObject);
var
&n

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

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