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

2013-06-01 01:32

导读：seditd.showmodal end else begin frm_passeditn:=tfrm_passeditn.create(application); frm_passeditn.showmodal; end; end; end. 长期医嘱管理界面与代码设计实现及功能代码设计: unit cqy

seditd.showmodal
   end
   else
   begin
     frm_passeditn:=tfrm_passeditn.create(application);
     frm_passeditn.showmodal;
   end;

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; 您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。
    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.

上一篇：delphi＋sql物资管理系统[开题报告＋论文＋源代码下一篇：没有了