count.pas

一个简单的家庭财务管理软件。

unit count;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, DbChart, DB, ADODB,
  StdCtrls, ComCtrls, Series,childccp;

type
  Ttotal = class(Tchildcc)
    Panel1: TPanel;
    Splitter1: TSplitter;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOmain: TADOQuery;
    ADOfsrxm: TADOQuery;
    ADOmainsummoney: TBCDField;
    ADOmainfsr: TIntegerField;
    ADOmainfsrxm: TStringField;
    ListBox1: TListBox;
    CheckBox1: TCheckBox;
    DBChart1: TDBChart;
    Series1: TBarSeries;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  total: Ttotal;

implementation

{$R *.dfm}

uses home_main;

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

procedure Ttotal.Button1Click(Sender: TObject);
var
 i_type:integer;
 s_sql :string;
begin

   ShortDateFormat := 'yyyy-mm-dd' ;

   adomain.SQL.Text := 'select sum(money) as summoney,fsr from t_lsz ';
   i_type := listbox1.ItemIndex + 1;

   if checkBox1.Checked then
       begin
      // adomain.SQL.Add('where type ='+inttostr(i_type)+' and fssj >= '+datetostr(DateTimePicker1.date)+ ' and fssj <= '+datetostr(DateTimePicker2.date)+' group by fsr');
        // s_sql := 'where type = %d and string(fssj,''yyyymmdd'') >= ''%s'' and string(fssj,''yyyymmdd'') <= ''%s'' ';
         s_sql := 'where type = %d and fssj >= %s and fssj <= %s ';
         s_sql := Format(s_sql,[i_type,'#'+datetostr(DateTimePicker1.date)+'#','#'+datetostr(DateTimePicker2.date)+'#']) ;
      // s_sql := Format(s_sql,[i_type,DateTimePicker1.date,DateTimePicker2.date]) ;
        adomain.sql.Add(s_sql);
       end
   else
       begin
       adomain.SQL.Add('where type ='+inttostr(i_type) );
       end;

   adomain.SQL.Add(' group by fsr') ;
   s_sql :=  adomain.SQL.Text;
   adomain.Open;
end;

procedure Ttotal.FormCreate(Sender: TObject);

begin
    listbox1.ItemIndex := 0;
    if GlobalFindAtom('total') = 0 then
      GlobalAddAtom('total');
end;

procedure Ttotal.CheckBox1Click(Sender: TObject);
begin
    if checkBox1.Checked then
       begin
       DateTimePicker1.Enabled := true;
       DateTimePicker2.Enabled := true;
       end
   else
       begin
       DateTimePicker1.Enabled := false;
       DateTimePicker2.Enabled := false;
       end;
end;

procedure Ttotal.FormDestroy(Sender: TObject);
begin
  GlobalDeleteAtom(GlobalFindAtom('total'));
end;

end.