u_jibingquery.pas

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

unit U_jibingquery;

interface

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

type
  TF_jibingquery = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Ediagnose: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TBitBtn;
    BitBtn2: TBitBtn;
    btnClose: TBitBtn;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label4: TLabel;
    count: TEdit;
    btnDele: TBitBtn;
    btnUpd: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure btnCloseClick(Sender: TObject);
    procedure btnUpdClick(Sender: TObject);
    procedure btnDeleClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_jibingquery: TF_jibingquery;

implementation

uses U_filmrecord;

{$R *.dfm}

procedure TF_jibingquery.Button1Click(Sender: TObject);
begin
adoquery1.close;
//adoquery1.sql.Text:='select * from filmrecord where date between #'+begindate.Text+'# and #'+enddate.Text+'#';
//adoquery1.SQL.Text:='select * from filmrecord where diagnose like '+'''%'+ediagnose.Text+'%'''+' and (date between #'+begindate.Text+'# and #'+enddate.Text+'#)';
//adoquery1.IndexFields[0]:='filmnumber';
adoquery1.SQL.Text:='select * from filmrecord where diagnose like '+'''%'+ediagnose.text+'%'''+' and date between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.Date)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.Date)+'#';// order by filmnumber';
adoquery1.Open;
adoquery1.Sort:= 'filmnumber';
count.text:=inttostr(adoquery1.RecordCount);
end;

procedure TF_jibingquery.FormShow(Sender: TObject);
begin
datetimepicker1.date:=now-365;
datetimepicker2.Date:=now;
Button1Click(nil);
end;

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

procedure TF_jibingquery.DBGrid1TitleClick(Column: TColumn);
begin
SortDataset(column);
//
end;

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

procedure TF_jibingquery.btnUpdClick(Sender: TObject);
begin
if not adoquery1.active then exit;
if   adoquery1.FieldByName('filmnumber').asstring='' then exit;
updFilmRecData(adoquery1.fieldbyname('filmnumber').asstring);

end;

procedure TF_jibingquery.btnDeleClick(Sender: TObject);
begin
if not  adoquery1.active then exit;
if   adoquery1.FieldByName('filmnumber').asstring='' then exit;
if messagebox(handle,'你希望删除当前的数据吗?请小心删除,删除后将不能恢复该信息.','[危险操作]确认信息',mb_iconwarning+mb_YESNO+mb_defbutton2)<>idYes then
exit;

adoquery1.Delete;
count.text:=inttostr(adoquery1.RecordCount);
end;

procedure TF_jibingquery.DBGrid1DblClick(Sender: TObject);
begin
btnUpd.Click;
end;

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

end.