u_stagetongji.~pas

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

unit U_stagetongji;

interface

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

type
  TF_stagetongji = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    GroupBox1: TGroupBox;
    Button1: TBitBtn;
    btnClose: TBitBtn;
    Lbegindate: TLabel;
    DateTimePicker1: TDateTimePicker;
    Lendate: TLabel;
    DateTimePicker2: TDateTimePicker;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Panel3: TPanel;
    Label1: TLabel;
    count1: TEdit;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    Panel4: TPanel;
    Label3: TLabel;
    count2: TEdit;
    DBGrid2: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_stagetongji: TF_stagetongji;

implementation

uses U_filmrecord;

{$R *.dfm}

procedure TF_stagetongji.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.sql.text:='select filmstage,count(*) as count1 from filmrecord where date between '+
  '#'+formatdatetime('yyyy-mm-dd',datetimepicker1.Date)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.Date)+'# group by filmstage';
adoquery1.Open;

adoquery2.Close;
adoquery2.sql.text:='select diagnose,count(*) as count2 from filmrecord where date between '+
  '#'+formatdatetime('yyyy-mm-dd',datetimepicker1.Date)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.Date)+'# group by diagnose';
adoquery2.Open;
count1.text:=inttostr(adoquery1.RecordCount);
count2.text:=inttostr(adoquery2.RecordCount);
end;

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

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

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

end.