riqicx.~pas

信息管理系统

unit riqicx;

interface

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

type
  Triqicxfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ClientDataSet1: TClientDataSet;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  paiche:Tpaichein;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  riqicxfrm: Triqicxfrm;

implementation

{$R *.dfm}

procedure Triqicxfrm.FormShow(Sender: TObject);
var
   riqistr:string;
begin
   shortdateFormat:='YYYY.MM.DD';      //确定日期格式
   LongDateFormat:='YYYY.MM.DD';
   DateSeparator:='.';
   riqistr:=datetostr(date);           //当前日期
   Edit1.Text:=riqistr;                //起始日期
   Edit2.Text:=riqistr;                 //截止日期
   paiche:=Tpaichein.create;            
end;

procedure Triqicxfrm.BitBtn1Click(Sender: TObject);
var
  n:integer;
  sqlstr1:string;
begin          //执行查询
  if (edit1.Text<>'') and (edit2.Text<>'') then
     sqlstr1:='select * from work_info  where (datetime>='+''''+edit1.Text+''')and(datetime<='+''''+edit2.Text+''') order by datetime';
  if (edit1.Text<>'') and (edit2.Text='') then
     sqlstr1:='select * from work_info  where (datetime>='+''''+edit1.Text+''') order by datetime';
  if (edit1.Text='') and (edit2.Text<>'') then
     sqlstr1:='select * from work_info  where (datetime<='+''''+edit2.Text+''') order by datetime';
  if (edit1.Text='') and (edit2.Text='') then
     sqlstr1:='select * from work_info order by datetime';
  n:=paiche.Find(sqlstr1);
  clientdataset1.Data:=paiche.Sel(sqlstr1);  //显示当日的派车记录情况
  if n<>0 then
     StatusBar1.Panels[0].Text :='此期间派车记录有 ' + inttostr(n) +'条。'
  else
     StatusBar1.Panels[0].Text :='此期间无派车记录。';
end;

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

end.