jinricx.~pas

信息管理系统

unit jinricx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, DBTables, Db, paichein_unit,
  DBClient;

type
  Tjinricxfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ClientDataSet1: TClientDataSet;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    paiche:Tpaichein;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jinricxfrm: Tjinricxfrm;

implementation

{$R *.DFM}

procedure Tjinricxfrm.FormShow(Sender: TObject);
var
  riqistr:string;
  sql:string;
  n:integer;
begin
  shortdateFormat:='YYYY.MM.DD';         //确定日期格式
  LongDateFormat:='YYYY.MM.DD';
  DateSeparator:='-';
  riqistr:=datetostr(date);              //当前日期
  paiche:=Tpaichein.create;
  //sql:='delete from  DATETIME_RECORD '+'insert DATETIME_RECORD  ';
  //sql:='select * from WORK_INFO where DATETIME Like '+''''+'%'+ riqistr+'%'+'''';
  //paiche.Execu(sql);
  sql:='select * from WORK_INFO where DATETIME Like '+''''+'%'+ riqistr+'%'+'''';
  n:=paiche.Find(sql);
  clientdataset1.Data:=paiche.Sel(sql);  //显示当日的派车记录情况
  if n<>0 then
     StatusBar1.Panels[0].Text :='今日派车记录有 ' + inttostr(n) +'条。'
  else
     StatusBar1.Panels[0].Text :='今日尚无派车记录。';

end;

procedure Tjinricxfrm.BitBtn2Click(Sender: TObject);
begin            //退出查询
  close;
  paiche.Free;
end;

end.