fx_unit.pas

单机进销存管理程序 Delphi+Acce

unit fx_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart, ComCtrls,
  Buttons,data;

type
  Tfx_form = class(TForm)
    GroupBox10: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Edit8: TEdit;
    Edit9: TEdit;
    SpeedButton5: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Chart2: TChart;
    Edit11: TEdit;
    Edit12: TEdit;
    BarSeries1: TBarSeries;
    procedure SpeedButton10Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fx_form: Tfx_form;

implementation

{$R *.dfm}

procedure Tfx_form.SpeedButton10Click(Sender: TObject);
begin
close;
end;

procedure Tfx_form.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked  then
begin
with database do
begin
adoq1.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select 商品编码,商品名称,sum(金额) as 总金额 from jhd  group by 商品编码,商品名称');
adoq1.Active :=true;
  if adoq1.Recordset.RecordCount >0 then
       begin
             edit1.Text :=floattostr(adoq1.Fields.Fields[2].asfloat);
             chart2.Series[0].Add(strtofloat(edit1.Text),'进货金额',clred);
             checkbox3.Enabled :=false;
        end
  else begin showmessage('无相关记录!');checkbox3.Checked :=false;  end;
end;
end
else
begin
edit1.text:='0';

chart2.Series[0].Clear ;
end;
end;

procedure Tfx_form.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked  then
begin
with database do
begin
adoq1.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select 商品编码,商品名称,sum(金额) as 总金额 from jhthd  group by 商品编码,商品名称');
adoq1.Active :=true;
  if adoq1.Recordset.RecordCount >0 then
       begin
             edit2.Text :=floattostr(adoq1.Fields.Fields[2].asfloat);
             chart2.Series[0].Add(strtofloat(edit2.Text),'进货退货金额',clblue);
             checkbox4.Enabled:=false;
        end
else begin showmessage('无相关记录!');checkbox4.Checked :=false;  end;
end;
end
else
begin
edit2.text:='0';

chart2.Series[0].Clear ;
end;
end;

procedure Tfx_form.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked  then
begin
with database do
begin
adoq1.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select 物料编码,物料名称,sum(单价*数量) as 总金额 from xsd  group by 物料编码,物料名称');
adoq1.Active :=true;
  if adoq1.Recordset.RecordCount >0 then
       begin
             edit8.Text :=floattostr(adoq1.Fields.Fields[2].asfloat);
             chart2.Series[0].Add(strtofloat(edit8.Text),'销售金额',clyellow);
             checkbox2.Enabled:=false;
        end
  else begin showmessage('无相关记录!');checkbox2.Checked :=false;  end;
end;
end
else
begin
edit8.text:='0';

chart2.Series[0].Clear ;
end;
end;

procedure Tfx_form.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked  then
begin
with database do
begin
adoq1.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select 商品编码,商品名称,sum(金额) as 总金额 from khthd  group by 商品编码,商品名称');
adoq1.Active :=true;
  if adoq1.Recordset.RecordCount >0 then
       begin
             edit9.Text :=floattostr(adoq1.Fields.Fields[2].asfloat);
             chart2.Series[0].Add(strtofloat(edit9.Text),'退货金额',clgreen);
             checkbox5.Enabled:=false;
        end
  else begin showmessage('无相关记录!');checkbox5.Checked :=false;  end;
end;
end
else
begin
edit9.text:='0';

chart2.Series[0].Clear ;
end;
end;

procedure Tfx_form.SpeedButton5Click(Sender: TObject);
begin
checkbox2.Enabled:=true;
checkbox2.Checked:=false;
checkbox3.Enabled:=true;
checkbox3.Checked:=false;
checkbox4.Enabled:=true;
checkbox4.Checked:=false;
checkbox5.Enabled:=true;
checkbox5.Checked:=false;
end;

end.