u_jibingleixing.pas

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

unit U_jibingleixing;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids,U_datamodule, Buttons;

type
  TF_jibingleixing = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DigQuery: TADOQuery;
    Edit1: TEdit;
    btnAdd: TBitBtn;
    btnDele: TBitBtn;
    btnClose: TBitBtn;
    btnChoose: TBitBtn;
    procedure btnAddClick(Sender: TObject);
    procedure btnDeleClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnChooseClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_jibingleixing: TF_jibingleixing;

implementation

uses U_filmrecord;


{$R *.dfm}

procedure TF_jibingleixing.btnAddClick(Sender: TObject);
begin
if not  digQuery.active then exit;
digquery.append;
digquery.FieldByName('usualdig').AsString:=edit1.Text;
digquery.post;
digquery.Open;
edit1.Text:='';
end;

procedure TF_jibingleixing.btnDeleClick(Sender: TObject);
begin
if not  digQuery.active then exit;
if  digQuery.Eof then exit;
digquery.delete;
end;

procedure TF_jibingleixing.FormShow(Sender: TObject);
begin
digquery.Close;
digquery.SQL.Text:='select * from usualdiagnose';
digquery.Open;
end;

procedure TF_jibingleixing.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
digquery.Close;
end;

procedure TF_jibingleixing.DBGrid1DblClick(Sender: TObject);
begin
btnChoose.Click;
end;

procedure TF_jibingleixing.btnCloseClick(Sender: TObject);
begin
close;
end;

procedure TF_jibingleixing.btnChooseClick(Sender: TObject);
begin
F_filmrecord.diagnose.text:=digquery.fieldbyname('usualdig').asstring;
Close;
end;

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

end.