pfm_queryspxs.pas

超市的销售

unit pfm_queryspxs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, TeeProcs, TeEngine, Chart, DBChart, StdCtrls, Db, DBTables,
  Series, Buttons, ADODB, ado_dm, Mask, DBCtrls;

type
  Tfm_queryspxs = class(TForm)
    GroupBox2: TGroupBox;
    DBChart1: TDBChart;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Label7: TLabel;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    Label9: TLabel;
    DBEdit6: TDBEdit;
    Label10: TLabel;
    DBEdit7: TDBEdit;
    Label11: TLabel;
    DBEdit8: TDBEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    edit1: TEdit;
    Button1: TButton;
    ADOQuery2: TADOQuery;
    ADOQuery2statrq: TStringField;
    ADOQuery2statspnum: TBCDField;
    Series2: TLineSeries;
    CBox1: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_queryspxs: Tfm_queryspxs;

implementation

{$R *.DFM}

procedure Tfm_queryspxs.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin

    action:=cafree;
end;

procedure Tfm_queryspxs.edit1KeyPress(Sender: TObject; var Key: Char);
var
spcodelen:integer;
tmpstr:string;
begin
    if key<>#13 then exit;
    if cbox1.ItemIndex<0 then
    begin
        label2.Caption:='请先选择月份';
        exit;
    end;

    if (length(edit1.text)<>13) and (length(edit1.text)>6) then
    begin
        label2.caption:='商品条形码应为13位';
    end;
    spcodelen:=length(edit1.text);
    if length(edit1.text)<6 then
    begin
         spcodelen:=length(edit1.text);
         tmpstr:='000000'+edit1.text;
         edit1.text:=copy(tmpstr,spcodelen+1,6);
         spcodelen:=6;
    end;
    adoquery1.Close;
    adoquery1.sql.Clear;
    if spcodelen=6 then
    begin
        adoquery1.sql.add('select * from t_spxx where spbm='''+edit1.text+'''');
    end
    else
    begin
        adoquery1.sql.add('select * from t_spxx where sptxm='''+edit1.text+'''');
    end;
    adoquery1.open;
    if length(dbedit1.text)=6 then
    begin
        adoquery2.active:=false;
        adoquery2.Parameters.Refresh;
        //adoquery2.Parameters.AddParameter;
        //adoquery2.Parameters
        adoquery2.parameters[1].value:=cbox1.ItemIndex+1;//统计月份
        adoquery2.Parameters[0].Value:=dbedit1.text;//统计商品编码
        adoquery2.active:=true;
        if adoquery2.Eof then
        begin
            adoquery2.Active:=false;
        end;
    end
    else
    begin
        label2.caption:='请选择商品';
    end;
    edit1.text:='';
end;

procedure Tfm_queryspxs.FormCreate(Sender: TObject);
var
i:integer;
begin
    label2.caption:='请先选择统计月份';
    for i:=1 to 12 do
    begin
        cbox1.Items.add(inttostr(i)+'月份');
    end;

end;

end.