frmcase.~pas

来自「医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统」· ~PAS 代码 · 共 69 行

unit Frmcase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB;

type
  TFormCase = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ADODataSet1: TADODataSet;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCase: TFormCase;

implementation

{$R *.dfm}

procedure TFormCase.FormShow(Sender: TObject);
begin
   //当天就诊人数统计
   FormCase.ADODataSet1.Close;
   FormCase.ADODataSet1.CommandText:='select * from 门诊挂号 where 时间<:a and 时间>:b';
   FormCase.ADODataSet1.Parameters.ParamByName('a').Value:=now()+1;
   FormCase.ADODataSet1.Parameters.ParamByName('b').Value:=now();
   FormCase.ADODataSet1.Open;
   FormCase.Edit1.Text:=inttostr(FormCase.ADODataSet1.RecordCount);
   //已划价人数
   FormCase.ADODataSet1.Close;
   FormCase.ADODataSet1.CommandText:='select * from 门诊划价 where 划价时间<:a and 划价时间>:b';
   FormCase.ADODataSet1.Parameters.ParamByName('a').Value:=formatdatetime('yyyy-mm-dd',now()+1);
   FormCase.ADODataSet1.Parameters.ParamByName('b').Value:=formatdatetime('yyyy-mm-dd',now());
   FormCase.ADODataSet1.Open;
   FormCase.Edit2.Text:=inttostr(FormCase.ADODataSet1.RecordCount);
   //已收费人数
   FormCase.ADODataSet1.Close;
   FormCase.ADODataSet1.CommandText:='select * from 门诊划价 where 收费时间<:a and 收费时间>:b';
   FormCase.ADODataSet1.Parameters.ParamByName('a').Value:=formatdatetime('yyyy-mm-dd',now()+1);
   FormCase.ADODataSet1.Parameters.ParamByName('b').Value:=formatdatetime('yyyy-mm-dd',now());
   FormCase.ADODataSet1.Open;
   FormCase.Edit3.Text:=inttostr(FormCase.ADODataSet1.RecordCount);
   //已取药人数
   FormCase.ADODataSet1.Close;
   FormCase.ADODataSet1.CommandText:='select * from 门诊划价 where 发药时间<:a and 发药时间>:b';
   FormCase.ADODataSet1.Parameters.ParamByName('a').Value:=now()+1;
   FormCase.ADODataSet1.Parameters.ParamByName('b').Value:=now();
   FormCase.ADODataSet1.Open;
   FormCase.Edit4.Text:=inttostr(FormCase.ADODataSet1.RecordCount);

end;

end.