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

end;

end.

长期医嘱管理界面与代码设计实现及功能

代码设计:
unit cqyzlr;

interface

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

type
  Tfrm_cqyzlr = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    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;
    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;
    Button1: TButton;
    XPMenu1: TXPMenu;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit1: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure MoveImgBtn3Click(Sender: TObject);
    procedure MoveImgBtn6Click(Sender: TObject);
    procedure MoveImgBtn5Click(Sender: TObject);
    procedure MoveImgBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cqyzlr: Tfrm_cqyzlr;

implementation

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

procedure Tfrm_cqyzlr.

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