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

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

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

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