udata.pas

为青岛一家公司做的条码打印管理

unit uData;

interface

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

type
  TFrmQuery = class(TForm)
    Panel1: TPanel;
    EtDateStart: TDateTimePicker;
    EtDateStop: TDateTimePicker;
    Panel2: TPanel;
    EtPCType: TEdit;
    BtnQuery: TBitBtn;
    CBDate: TRadioButton;
    CBPCType: TRadioButton;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    QuData: TQuery;
    StatusBar1: TStatusBar;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    procedure CBDateClick(Sender: TObject);
    procedure CBPCTypeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);
  private
    { Private declarations }
  public
    Procedure QueryOnDate;
    Procedure QueryOnType;
  end;

var
  FrmQuery: TFrmQuery;

implementation

{$R *.DFM}

procedure TFrmQuery.QueryOnDate;
var
  StartDate,StopDate:string;
  Year1,Month1,Day1:word;
  TempDate:TDateTime;
  TempSpace:TDateTime;
  TempStart:TDateTime;
begin
  DecodeDate(EtDateStart.DateTime,Year1,Month1,Day1);
  TempDate:=StrToDate(InttoStr(Year1)+'-'+InttoStr(Month1)+'-'+InttoStr(Day1));
  TempSpace:=EtDateStart.DateTime-TempDate;
  StartDate:=Format('%g',[EtDateStart.DateTime-TempSpace]);
  DecodeDate(EtDateStop.DateTime,Year1,Month1,Day1);
  TempDate:=StrToDate(InttoStr(Year1)+'-'+InttoStr(Month1)+'-'+InttoStr(Day1));
  TempSpace:=0.9999990000;
  StopDate:=Format('%g',[TempDate+TempSpace]);
  QuData.Active:=False;
  QuData.Sql.Clear;
  QuData.Sql.Add('Select * From  Data');
  QuData.Sql.Add('Where (LeaveFactoryDate>='+StartDate+') and (LeaveFactoryDate<='+StopDate+')');
  QuData.Active:=True;
end;

procedure TFrmQuery.QueryOnType;
var
  PCType:string;
begin
  PCType:=EtPCType.Text;
  QuData.Active:=False;
  QuData.Sql.Clear;
  QuData.Sql.Add('Select * From Data');
  QuData.Sql.Add('Where PCType like ''%'+PCType+'%''');
  QuData.Active:=True;
end;

procedure TFrmQuery.CBDateClick(Sender: TObject);
begin
  CBDate.Checked:=True;
  CBPCType.Checked:=False;
  EtDateStart.Enabled:=True;
  EtDateStop.Enabled:=True;
  EtPCType.Enabled:=False;
end;

procedure TFrmQuery.CBPCTypeClick(Sender: TObject);
begin
  CBDate.Checked:=False;
  CBPCType.Checked:=True;
  EtDateStart.Enabled:=False;
  EtDateStop.Enabled:=False;
  EtPCType.Enabled:=True;
end;

procedure TFrmQuery.FormCreate(Sender: TObject);
begin
  EtDateStart.DateTime:=Now;
  EtDateStop.DateTime:=Now;
  StatusBar1.Panels[0].Text:='记录共：0条';
end;

procedure TFrmQuery.BtnQueryClick(Sender: TObject);
begin
  if CBDate.Checked then begin
    QueryOnDate;
  end;
  if CBPCType.Checked then begin
    QueryOnType;
  end;
  StatusBar1.Panels[0].Text:='记录共：'+IntToStr(QuData.RecordCount)+'条';
end;



end.