u.pas

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

unit U;

interface

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

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

var
  F_filmstage: TF_filmstage;

implementation

uses  U_datamodule, U_filmrecord;

{$R *.dfm}

procedure TF_filmstage.btnADDClick(Sender: TObject);
begin
adoquery1.append;
adoquery1.FieldByName('filmstage').AsString:=edit1.Text;
adoquery1.post;
//adoquery1.Open;
edit1.Text:='';
end;

procedure TF_filmstage.FreshData;
begin
adoquery1.Close;
adoquery1.SQL.Text:='select * from filmstage';
adoquery1.Open;
end;

procedure TF_filmstage.btnDeleClick(Sender: TObject);
begin
if not  adoquery1.active then exit;
if  adoquery1.Eof then exit;
adoquery1.delete;
end;

procedure TF_filmstage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
adoquery1.Close;
end;

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

procedure TF_filmstage.btnChooseClick(Sender: TObject);
begin
if not  adoquery1.active then exit;
F_filmrecord.filmstage.text:=adoquery1.fieldbyname('filmstage').asstring;
Close;

end;

procedure TF_filmstage.DBGrid1DblClick(Sender: TObject);
begin
btnChoose.click;
end;

procedure TF_filmstage.FormShow(Sender: TObject);
begin
FreshData;
end;

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

end.