phistorysearch.pas

BarCodePrint条码打印机打印管理

unit pHistorySearch;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ComCtrls, Mask;

type
  TFormHistorySearch = class(TForm)
    TabControl1: TTabControl;
    ButtonCancle: TButton;
    ButtonOK: TButton;
    StaticText2: TStaticText;
    StaticText4: TStaticText;
    MaskEditYear: TMaskEdit;
    MaskEditMonth: TMaskEdit;
    StaticText1: TStaticText;
    StaticText3: TStaticText;
    EditLotNo: TEdit;
    EditHeNo: TEdit;
    procedure ButtonCancleClick(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormHistorySearch: TFormHistorySearch;

implementation

uses PDataModuleMain, pHistory;

{$R *.DFM}
procedure TFormHistorySearch.ButtonCancleClick(Sender: TObject);
begin
    Close;
end;

procedure TFormHistorySearch.ButtonOKClick(Sender: TObject);
var
    sSql:string;
begin
    sSql:='select * from LotHistory ';
    if (trim(MaskEditYear.Text)<>'') and (trim(MaskEditMonth.Text)<>'') then
        sSql:=sSql+' where PrintDate>=#' +trim(MaskEditYear.text) +'-'+trim(MaskEditMonth.Text)+'-01#'
        +'and PrintDate<#' +trim(MaskEditYear.text) +'-'+inttostr(strtoint(trim(MaskEditMonth.Text))+1)+'-01#'
    else begin
        if trim(MaskEditYear.Text)<>'' then sSql:=' where PrintDate>=#' +trim(MaskEditYear.text) +'-01-01#';
        if trim(MaskEditMonth.Text)<>'' then sSql:='  where PrintDate>=#' +FormatDateTime('yyyy',date)+trim(MaskEditMonth.text) +'-01#';
    end;
    if EditLotNo.Text<>'' then
      sSql:='select * from LotHistory where LotNo='''+EditLotNo.text+'''';

    if EditHeNo.Text<>'' then
      sSql:='select * from LotHistory where HeNo='''+EditHeNo.text+'''';

    FormHistory.ADOTableUsers.Close;
    FormHistory.ADOTableUsers.Sql.Clear;
    FormHistory.ADOTableUsers.Sql.Add(sSql);
    FormHistory.ADOTableUsers.Open;
    with FormHistory do
    begin
        DbgridUsers.Columns.Items[0].Title.Caption:='生产批号';
        DbgridUsers.Columns.Items[1].Title.Caption:='出荷号';
        DbgridUsers.Columns.Items[2].Title.Caption:='生产数量';
        DbgridUsers.Columns.Items[3].Title.Caption:='代码';
        DbgridUsers.Columns.Items[4].Title.Caption:='品名代码';
        DbgridUsers.Columns.Items[5].Title.Caption:='加工代码';
        DbgridUsers.Columns.Items[6].Title.Caption:='日期';
        DbgridUsers.Columns.Items[7].Title.Caption:='时间';
        DbgridUsers.Columns.Items[8].Title.Caption:='用户';
        StatusBarProductCode.SimpleText:='总数:' +IntTostr(AdoTableUsers.RecordCount);
    end;
    Close;
end;

procedure TFormHistorySearch.FormShow(Sender: TObject);
begin
    MaskEditYear.Text:=FormatDateTime('yyyy',date);
    MaskEditMonth.Text:=FormatDateTime('mm',date);
    EditLotNo.text:='';
    EditHeNo.Text:='';
end;

end.