u_main.pas

对于医院的影像室的资料进行管理,主要方便查阅,特别是对于病人的照片的病前后比较对于病情的发展很有价值

unit U_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ADODB, DB, Buttons, ImgList, ComCtrls, ToolWin,
  jpeg, ExtCtrls;

type
  Tfrm_main = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    Image1: TImage;
    ImageList2: TImageList;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;

implementation

uses U_jibingleixing, U, U_datequery, U_stagequery, U_filmrecord,
  U_jibingquery, U_namequery, U_stagetongji;

{$R *.dfm}

procedure Tfrm_main.Button1Click(Sender: TObject);
begin
F_filmrecord.showmodal;
end;

procedure Tfrm_main.ToolButton1Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;
insFilmRecData;
(Sender as Ttoolbutton).Down:=false;
//F_filmrecord2.showmodal;
end;

procedure Tfrm_main.ToolButton2Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;
F_jibingleixing.showmodal;
(Sender as Ttoolbutton).Down:=false;

end;

procedure Tfrm_main.ToolButton3Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;
F_filmstage.showmodal;
(Sender as Ttoolbutton).Down:=false;

end;

procedure Tfrm_main.ToolButton7Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;
F_datequery.showmodal;
(Sender as Ttoolbutton).Down:=false;
end;

procedure Tfrm_main.ToolButton4Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;

F_stagequery.showmodal;
(Sender as Ttoolbutton).Down:=false;
end;

procedure Tfrm_main.ToolButton5Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;

F_jibingquery.showmodal;
(Sender as Ttoolbutton).Down:=false;

end;

procedure Tfrm_main.ToolButton6Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;
F_namequery.showmodal;
(Sender as Ttoolbutton).Down:=false;
end;

procedure Tfrm_main.ToolButton8Click(Sender: TObject);
begin
(Sender as Ttoolbutton).Down:=true;
F_stagetongji.showmodal;
(Sender as Ttoolbutton).Down:=false;

end;

procedure Tfrm_main.ToolButton9Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_escape then
close;
end;

procedure Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagebox(handle,'你确定退出系统吗?','[退出系统]确认提示',mb_iconwarning+mb_yesno+mb_defbutton2)<>idYes then
Action:=canone;
end;

end.