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

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

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

（转载自中国科教评价网www.nseac.com ）

  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