【delphi开源代码栏目提醒】:本文主要为网学会员提供XSSP_sum_u.pas,希望对需要XSSP_sum_u.pas网友有所帮助,学习一下!
{
unit name : XSSP_sum_u
Author : 李涛
Create date: 2004-07-15 09:11:13
description: POS销售商品分析单元
}
unit XSSP_sum_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Base_Form_U, QRCtrls, QuickRpt, StdCtrls, Buttons, ExtCtrls,
ComCtrls, DB, ADODB, TeEngine, Series, TeeProcs, Chart, DbChart;
type
TXSSP_sum = class(TBase_Form)
XFXM_SUM_DBChart: TDBChart;
SpeedButton1: TSpeedButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Series1: TBarSeries;
SUM_ADO: TADOQuery;
SUM_DataSource: TDataSource;
DateTimePicker4: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
Label1: TLabel;
DateTimePicker2: TDateTimePicker;
DateTimePicker1: TDateTimePicker;
procedure ADD_BitClick(Sender: TObject);
procedure Edit_BitClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
KS,JZ: TDateTime;
{ Private declarations }
public
{ Public declarations }
end;
var
XSSP_sum: TXSSP_sum;
implementation
uses Select_Merchandise_info_u, FXT_Set_Option_Browser_u;
{$R *.dfm}
procedure TXSSP_sum.ADD_BitClick(Sender: TObject);
begin
inherited;
if Length(Label4.Caption)=0 then
begin
ShowMessage('请先选择要分析的商品信息!!');
Exit;
end;
KS:=DateTimePicker1.Date+StrToTime(TimeToStr(DateTimePicker2.Time));
JZ:=DateTimePicker3.Date+StrToTime(TimeToStr(DateTimePicker4.Time));
SUM_ADO.Close;
SUM_ADO.Parameters.ParamByName('SPBM').Value:=Label4.Caption;
SUM_ADO.Parameters.ParamByName('KS').Value:=KS;
SUM_ADO.Parameters.ParamByName('JZ').Value:=JZ;
SUM_ADO.Open;
end;
procedure TXSSP_sum.Edit_BitClick(Sender: TObject);
begin
inherited;
if not Assigned(Select_Merchandise_info) then
begin
Select_Merchandise_info:=TSelect_Merchandise_info.Create(Self);
Select_Merchandise_info.ShowModal;
end;
end;
procedure TXSSP_sum.SpeedButton1Click(Sender: TObject);
begin
inherited;
if not Assigned(FXT_Set_Option_Browser) then
begin
FXT_Set_Option_Browser:=TFXT_Set_Option_Browser.Create(self);
FXT_Set_Option_Browser.DBChart_name:='XFXM_SUM_DBChart';
FXT_Set_Option_Browser.Show;
end;
end;
procedure TXSSP_sum.FormShow(Sender: TObject);
begin
inherited;
DatetimePicker1.Date:=Now-1;
DateTimePicker3.Date:=now;
end;
end.