brush.pas

本系统为演示Delphi的功能而开发设计

unit brush;

interface

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

type
  TbrushinfoForm = class(TForm)
    DateTimePickerFrom: TDateTimePicker;
    DateTimePickerTo: TDateTimePicker;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ButtonSelect: TButton;
    ButtonClose: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure ButtonSelectClick(Sender: TObject);
    procedure ButtonCloseClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure DateTimePickerFromExit(Sender: TObject);
    procedure DateTimePickerToExit(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  brushinfoForm: TbrushinfoForm;
  fromdate,todate:tdatetime;

implementation
Uses Huaxia,Login;
{$R *.DFM}


procedure TbrushinfoForm.ButtonSelectClick(Sender: TObject);
begin
If Login.Secruity='租赁公司管理' Then
Begin
  with HuaXiaData.query1 do
    begin
    Close;
    UnPrepare;
    With Sql Do
    Begin
    Clear;
    Add('select login_name,brush_mach_no,brush_date from ic_brush_info');
    Add(' where brush_date>:fromdate and brush_date<=:todate');
    Add(' and comp_code=:compcode');
    Add(' order by  login_name asc');
    End;
    parambyname('fromdate').value:=datetimepickerFrom.datetime-2;
    parambyname('todate').value:=datetimepickerTo.datetime;
    parambyname('compcode').value:=login.CodeComp;
    Prepare;
    Open;
    end;
  with HuaXiaData.query2 do
    begin
    Close;
    UnPrepare;
    With Sql Do
    Begin
    Clear;
    Add('select login_name,brush_mach_no,count(brush_date)amount from ic_brush_info');
    Add(' where brush_date>:fromdate and brush_date<=:todate');
    Add(' and comp_code=:compcode');
    Add(' group by login_name,brush_mach_no order by  login_name asc')
    End;
    parambyname('fromdate').value:=datetimepickerFrom.datetime-2;
    parambyname('todate').value:=datetimepickerTo.datetime;
    parambyname('compcode').value:=login.CodeComp;
    Prepare;
    Open;
    end;
End
Else
Begin
  with HuaXiaData.query1 do
    begin
    Close;
    UnPrepare;
    With Sql Do
    Begin
    Clear;
    Add('select login_name,brush_mach_no,brush_date from ic_brush_info');
    Add(' where brush_date>:fromdate and brush_date<=:todate');
    Add('and comp_code=:compcode and site_code=:sitecode and login_name=:loginname');
    Add(' order by  login_name asc');
    End;
    parambyname('fromdate').value:=datetimepickerFrom.datetime-2;
    parambyname('todate').value:=datetimepickerTo.datetime;
    parambyname('compcode').value:=login.CodeComp;
    parambyname('sitecode').value:=login.CodeSite;
    parambyname('loginname').value:=login.loginname;
    Prepare;
    Open;
    end;
  with HuaXiaData.query2 do
    begin
    Close;
    UnPrepare;
    With Sql Do
    Begin
    Clear;
    Add('select login_name,brush_mach_no,count(brush_date)amount from ic_brush_info');
    Add(' where brush_date>:fromdate and brush_date<=:todate');
    Add(' and comp_code=:compcode and site_code=:sitecode and login_name=:loginname');
    Add(' group by login_name,brush_mach_no order by  login_name asc')
    End;
    parambyname('fromdate').value:=datetimepickerFrom.dateTime-2;
    parambyname('todate').value:=datetimepickerTo.dateTime;
    parambyname('compcode').value:=login.CodeComp;
    parambyname('sitecode').value:=login.CodeSite;
    parambyname('loginname').value:=login.loginname;
    Prepare;
    Open;
    end;
End;
end;

procedure TbrushinfoForm.ButtonCloseClick(Sender: TObject);
begin
  HuaXiaData.query1.Close;
  HuaXiaData.query2.Close;
  Close;
end;

procedure TbrushinfoForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End;

end;

procedure TbrushinfoForm.FormActivate(Sender: TObject);
begin
DateTimePickerFrom.Date:=Date;
DateTimePickerTo.Date:=Date;
end;

procedure TbrushinfoForm.DateTimePickerFromExit(Sender: TObject);
begin
datetimepickerFrom.time:=StrToTime('0:00:00');
datetimepickerTo.time:=StrToTime('23:59:59');
if datetimepickerFrom.datetime>=datetimepickerTo.datetime then
     ShowMessage('终止日期应大于开始日期');

end;

procedure TbrushinfoForm.DateTimePickerToExit(Sender: TObject);
begin
datetimepickerFrom.time:=StrToTime('0:00:00');
datetimepickerTo.time:=StrToTime('23:59:59');
if datetimepickerFrom.datetime>=datetimepickerTo.datetime then
     ShowMessage('终止日期应大于开始日期');


end;

end.