shouzhi.pas

健身会馆会员管理,实现了部分财务管理和,报表统计功能

unit shouzhi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, DBCtrls;

type
  Tshouzhifrm = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shouzhifrm: Tshouzhifrm;

implementation
uses unit1;
{$R *.dfm}

procedure Tshouzhifrm.Button1Click(Sender: TObject);
var
   I, Code: Integer;
begin
Val(Edit1.Text, I, Code);
     if code <> 0 then
         showmessage('金额只能输入数值!!')
     else
      begin
         ADOQuery1.Close ;
         ADOQuery1.SQL.Text :='select * from 收支表 ';
         ADOQuery1.Open ;
         if RadioButton1.Checked then
             begin
               ADOQuery1.Append ;
               ADOquery1.FieldByName('收入').AsFloat := strtofloat(Edit1.text);
               ADOquery1.FieldByName('经手人').AsString :=MainForm.user_name;
               ADOquery1.FieldByName('事由').AsString :=combobox1.Text;
               ADOquery1.FieldByName('日期').AsDateTime :=date +time;
               ADOquery1.FieldByName('备注').AsString :=edit3.Text;
               ADOquery1.Post ;
               ADOQuery1.Close ;

               MainForm.qianxiang.Open ;
               MainForm.qianxiang.Edit ;
               MainForm.qianxiang.FieldByName('钱箱内总金额').AsFloat :=MainForm.qianxiang.FieldValues['钱箱内总金额']+ strtofloat(Edit1.text);
               MainForm.qianxiang.FieldByName('本班收支').AsFloat :=MainForm.qianxiang.FieldValues['本班收支']+ strtofloat(Edit1.text);
               MainForm.qianxiang.Post ;
               MainForm.qianxiang.Close ;



               ADOQuery1.SQL.Text :='select * from 收支分类 where 收入分类=''' +combobox1.text +'''';
               ADOQuery1.Open ;
               if ADOQuery1.Eof then
                  begin
                  ADOQuery1.Append ;
                  ADOquery1.FieldByName('收入分类').AsString :=combobox1.Text;
                   ADOquery1.Post ;
                  end;
                ADOquery1.Close ;
             end
             //ADOQuery1.SQL.Text :='insert into 收支表 (收入,经手人,事由,日期,备注) values (' + Edit1.text + ',''' + form1.user_name + ''',''' + combobox1.Text + ''','+ datetimetostr(date) + ',''' + edit3.Text +''')'
         else
            // ADOQuery1.SQL.Text :='insert into 收支表 (支出,经手人,事由,日期,备注) values (' + Edit1.text + ',''' + form1.user_name + ''',''' + combobox1.Text + ''','+ datetimetostr(date) + ',''' + edit3.Text +''')';
            begin
               ADOQuery1.Append ;
               ADOquery1.FieldByName('支出').AsFloat := strtofloat(Edit1.text);
               ADOquery1.FieldByName('经手人').AsString :=MainForm.user_name;
               ADOquery1.FieldByName('事由').AsString :=combobox1.Text;
               ADOquery1.FieldByName('日期').AsDateTime :=date +time;
               ADOquery1.FieldByName('备注').AsString :=edit3.Text;
               ADOquery1.Post ;
               ADOQuery1.Close ;

               MainForm.qianxiang.Open ;
               MainForm.qianxiang.Edit ;
               MainForm.qianxiang.FieldByName('钱箱内总金额').AsFloat :=MainForm.qianxiang.FieldValues['钱箱内总金额']- strtofloat(Edit1.text);
               MainForm.qianxiang.FieldByName('本班收支').AsFloat :=MainForm.qianxiang.FieldValues['本班收支']- strtofloat(Edit1.text);
               MainForm.qianxiang.Post ;
               MainForm.qianxiang.Close ;

               ADOQuery1.SQL.Text :='select * from 收支分类 where 支出分类=''' +combobox1.text +'''';
               ADOQuery1.Open ;
               if ADOQuery1.Eof then
                  begin
                  ADOQuery1.Append ;
                  ADOquery1.FieldByName('支出分类').AsString :=combobox1.Text;
                   ADOquery1.Post ;
                  end;
                ADOquery1.Close ;
             end;
         //ADOQuery1.ExecSQL ;
          //MainForm.ADOQuery0.close ;
          //MainForm.ADOQuery0.open ;
          MainForm.ADOQuery0.close ;
          MainForm.ADOQuery0.open ;
         close;
      end;
end;

procedure Tshouzhifrm.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tshouzhifrm.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then
   begin
   combobox1.items.Clear;
   ADOQuery1.Close ;
   ADOQuery1.SQL.Text :='select distinct 收入分类 from 收支分类 where 收入分类<> NUll';
   ADOQuery1.Open ;
   while not ADOQuery1.Eof do
      begin
      combobox1.Items.Add(ADOquery1.FieldValues ['收入分类']);
      ADOQuery1.Next;
      end;
   ADOQuery1.Close ;
   combobox1.Items.Add('其它');
   end;
end;

procedure Tshouzhifrm.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked then
   begin
   combobox1.items.Clear;
   ADOQuery1.Close ;
   ADOQuery1.SQL.Text :='select distinct 支出分类 from 收支分类 where 支出分类<> NUll';
   ADOQuery1.Open ;
   while not ADOQuery1.Eof do
      begin
      combobox1.Items.Add(ADOquery1.FieldValues ['支出分类']);
      ADOQuery1.Next;
      end;
   ADOQuery1.Close ;
   combobox1.Items.Add('其它');
   end;
end;

procedure Tshouzhifrm.FormShow(Sender: TObject);
begin
Edit1.Text :='';
RadioButton1.OnClick(self) ;
end;

end.