u_sale.pas

客户信息跟踪管理软件

unit u_sale;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Spin, TeEngine, Series, TeeProcs, Chart, StdCtrls, ExtCtrls, DBCtrls,
  Mask, Grids, DBGrids, ComCtrls, DBChart, Buttons;

type
  TF_sale = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label8: TLabel;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    DBNavigator1: TDBNavigator;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit6: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBNavigator2: TDBNavigator;
    TabSheet2: TTabSheet;
    Label13: TLabel;
    B_print: TButton;
    B_stat: TButton;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    i_start_date: TMaskEdit;
    Label14: TLabel;
    i_end_date: TMaskEdit;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure B_statClick(Sender: TObject);
    procedure B_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_sale: TF_sale;

implementation

uses u_datamodule;

{$R *.DFM}

procedure TF_sale.FormShow(Sender: TObject);
begin
  DM_main.OpenSale;
end;

procedure TF_sale.B_statClick(Sender: TObject);
var
  start_date, end_date:TDate;
begin
  try
    start_date:=StrToDate(i_start_date.Text);
    end_date:=StrToDate(i_end_date.Text);
    DM_main.SaleStat(start_date, end_date);
  except
    Application.MessageBox('请确认时间格式。', '统计错误', MB_OK);
  end;
end;

procedure TF_sale.B_printClick(Sender: TObject);
begin
  DBChart1.Print;
end;

end.