salesmanquery.pas

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

unit SalesManQuery;

interface

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

type
  TSalesManQueryDlg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DTPStart: TDateTimePicker;
    DTPEnd: TDateTimePicker;
    Label3: TLabel;
    SBtnSearch: TSpeedButton;
    SBtnReport: TSpeedButton;
    SBtnCompare: TSpeedButton;
    DBGridDisplay: TDBGrid;
    LTotal: TLabel;
    BtnClose: TButton;
    CBSalesMan: TComboBox;
    procedure BtnCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CBSalesManKeyPress(Sender: TObject; var Key: Char);
    procedure SBtnSearchClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SBtnReportClick(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
  SalesManQueryDlg: TSalesManQueryDlg;

implementation
uses DateUtils, SalesManQueryReportFrm, SalesManQueryChartFrm;
{$R *.dfm}

const SINGLEQUOTE = #39;

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

procedure TSalesManQueryDlg.FormShow(Sender: TObject);
begin
  CBSalesMan.Clear;
  CBSalesMan.Items.Add('所有');
  DMMain.ADOTSalesMan.Open;
  DMMain.ADOTSalesMan.First;//此句不可以少
  while not DMMain.ADOTSalesMan.Eof do
  begin
    CBSalesMan.Items.Add(DMMain.ADOTSalesMan.FieldByName('Id').AsString);
    DMMain.ADOTSalesMan.Next;
  end;
end;

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

procedure TSalesManQueryDlg.SBtnSearchClick(Sender: TObject);
var
  LSalesManId: string;
begin
  LSalesManId := Trim(CBSalesMan.Text);
  DMMain.ADOQueryMain.Close;
  DMMain.ADOQueryMain.SQL.Clear;
  if (LSalesManId = '') or (LSalesManId = '所有') then
  begin
    DMMain.ADOQueryMain.SQL.Add('select * from V_SalesManQueryAll');
    DMMain.ADOQueryMain.SQL.Add('where SaleDate>=:SaleDateStart and SaleDate<=:SaleDateEnd');
    DMMain.ADOQueryMain.Parameters.ParamByName('SaleDateStart').Value := DTPStart.DateTime;
    DMMain.ADOQueryMain.Parameters.ParamByName('SaleDateEnd').Value := IncDay(DTPEnd.DateTime);
    DMMain.ADOQueryMain.Open;
  end
  else
  begin
    DMMain.ADOQueryMain.SQL.Add('select * from V_SalesManQueryAll');
    DMMain.ADOQueryMain.SQL.Add('where SaleDate>=:SaleDateStart and SaleDate<=:SaleDateEnd');
    DMMain.ADOQueryMain.SQL.Add('and SId=:SId');
    DMMain.ADOQueryMain.Parameters.ParamByName('SId').Value := LSalesManId;
    DMMain.ADOQueryMain.Parameters.ParamByName('SaleDateStart').Value := DTPStart.DateTime;
    DMMain.ADOQueryMain.Parameters.ParamByName('SaleDateEnd').Value := IncDay(DTPEnd.DateTime);
    DMMain.ADOQueryMain.Open;
  end;
end;

procedure TSalesManQueryDlg.FormCreate(Sender: TObject);
begin
    DBGridDisplay.Columns.Items[0].FieldName := 'SId';
    DBGridDisplay.Columns.Items[1].FieldName := 'SName';
    DBGridDisplay.Columns.Items[2].FieldName := 'GId';
    DBGridDisplay.Columns.Items[3].FieldName := 'GName';
    DBGridDisplay.Columns.Items[4].FieldName := 'GType';
    DBGridDisplay.Columns.Items[5].FieldName := 'GUnit';
    DBGridDisplay.Columns.Items[6].FieldName := 'GPrice';
    DBGridDisplay.Columns.Items[7].FieldName := 'GNum';
    DBGridDisplay.Columns.Items[8].FieldName := 'SaleDate'; 
end;

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

procedure TSalesManQueryDlg.SetUserName(AValue: string);
begin
  FUserName := AValue;
end;

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

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

end.