salebackqueryfrm.pas

这是一个本人初定的小制作

unit SaleBackQueryFrm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Grids, DBGrids, ComCtrls, MainDM, CommonFunc,
  DateUtils;

type
  TSaleBackQueryDlg = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    SBtnSearch: TSpeedButton;
    SBtnReport: TSpeedButton;
    SBtnCompare: TSpeedButton;
    LTotal: TLabel;
    DTPStart: TDateTimePicker;
    DTPEnd: TDateTimePicker;
    DBGridDisplay: TDBGrid;
    BtnClose: TButton;
    procedure BtnCloseClick(Sender: TObject);
    procedure SBtnReportClick(Sender: TObject);
    procedure DBGridDisplayKeyPress(Sender: TObject; var Key: Char);
    procedure SBtnSearchClick(Sender: TObject);
    procedure SBtnCompareClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FUserName: string;
  public
    { Public declarations }
    procedure SetUserName(AValue: string);
  end;

var
  SaleBackQueryDlg: TSaleBackQueryDlg;

implementation

{$R *.dfm}
uses QRSaleBackFrm, SaleBackQueryChart;
procedure TSaleBackQueryDlg.SetUserName(AValue: string);
begin
  FUserName := AValue;
end;


procedure TSaleBackQueryDlg.BtnCloseClick(Sender: TObject);
begin
  Close;
end;


procedure TSaleBackQueryDlg.SBtnReportClick(Sender: TObject);
var
  LDlg: TQRSaleBack;
begin
  LDlg := TQRSaleBack.Create(nil);
  LDlg.SetUserName(FUserName);
  LDlg.Show;
  LDlg.Prepare;
  LDlg.PreviewModal;
  FreeAndNil(LDlg);
end;

procedure TSaleBackQueryDlg.DBGridDisplayKeyPress(Sender: TObject;
  var Key: Char);
begin
  Key := #0;
end;

procedure TSaleBackQueryDlg.SBtnSearchClick(Sender: TObject);
begin
  DMMain.ADOTSaleBack.Close;
  DMMain.ADOTSaleBack.Filter := 'BackDate>='+ DateToStr(DTPStart.DateTime)
    + ' and BackDate<='+ DateToStr(IncDay(DTPEnd.DateTime));
  DMMain.ADOTSaleBack.Filtered := true;
  DMMain.ADOTSaleBack.Open;
           {
  DMMain.ADOQueryMain.Close;
  DMMain.ADOQueryMain.SQL.Clear;
  DMMain.ADOQueryMain.SQL.Add('select * from T_SaleBack');
  DMMain.ADOQueryMain.SQL.Add('where BackDate>=:SaleDateStart and BackDate<=:SaleDateEnd');
  DMMain.ADOQueryMain.Parameters.ParamByName('SaleDateStart').Value := DTPStart.DateTime;
  DMMain.ADOQueryMain.Parameters.ParamByName('SaleDateEnd').Value := IncDay(DTPEnd.DateTime);
  DMMain.ADOQueryMain.Open;        }
end;

procedure TSaleBackQueryDlg.SBtnCompareClick(Sender: TObject);
var
  LDlg: TSaleBackQueryChartDlg;
begin
  LDlg := TSaleBackQueryChartDlg.Create(nil);
  LDlg.ShowModal;
  FreeAndNil(LDlg);
end;

procedure TSaleBackQueryDlg.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

end.