u_datequery.pas

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

unit U_datequery;

interface

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

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

var
  F_datequery: TF_datequery;

implementation

uses U_filmrecord;

{$R *.dfm}

procedure TF_datequery.BtupdateClick(Sender: TObject);
begin
{if not adoquery1.Active then
adoquery1.Open;
bIns:=false;
//将当前值赋予F_filmrecord
F_filmrecord.filmnumber.Text:=adoquery1.fieldbyname('filmnumber').asstring;
F_filmrecord.date.date:=adoquery1.fieldbyname('date').asdatetime;
F_filmrecord.filmstage.Text:=adoquery1.fieldbyname('filmstage').asstring;
F_filmrecord.name.Text:=adoquery1.fieldbyname('name').asstring;
F_filmrecord.sex.Text:=adoquery1.fieldbyname('sex').asstring;
F_filmrecord.beizhu.Text:=adoquery1.fieldbyname('beiyong').asstring;
F_filmrecord.age.Text:=adoquery1.fieldbyname('age').asstring;
F_filmrecord.tel.Text:=adoquery1.fieldbyname('tel').asstring;
F_filmrecord.address.Text:=adoquery1.fieldbyname('adress').asstring;
F_filmrecord.casehis.Text:=adoquery1.fieldbyname('casehis').asstring;
F_filmrecord.filminfer.Text:=adoquery1.fieldbyname('filminfer').asstring;
F_filmrecord.diagnose.Text:=adoquery1.fieldbyname('diagnose').asstring;
F_filmrecord.showmodal;
}
if not adoquery1.active then exit;
if   adoquery1.FieldByName('filmnumber').asstring='' then exit;
updFilmRecData(adoquery1.fieldbyname('filmnumber').asstring);
end;

procedure TF_datequery.Button1Click(Sender: TObject);
begin

adoquery1.Close;
//首先应判断输入时间格式的正确性，但我不会
adoquery1.sql.text:='select * from filmrecord where 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_datequery.FormShow(Sender: TObject);
begin
datetimepicker1.Date:=now-365;
datetimepicker2.Date:=now;
Button1Click(nil);
end;

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

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

procedure TF_datequery.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_datequery.btnCloseClick(Sender: TObject);
begin
close;
end;

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

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

end.