frmdata.pas

里面有个人一天消费管理

unit frmdata;

interface

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

type
  TdataFm = class(TDataModule)
    Connect_Data: TADOConnection;
    Tbl_Income: TADOTable;
    Tbl_Payout: TADOTable;
    Tbl_Bank: TADOTable;
    Tbl_Income_Option: TADOTable;
    Ds_Income_Option: TDataSource;
    Tbl_Income_Optionxiangmu: TWideStringField;
    Tbl_Income_Optiondisplay: TBooleanField;
    Tbl_Payout_option: TADOTable;
    Ds_payout_option: TDataSource;
    Tbl_family_option: TADOTable;
    Ds_family_option: TDataSource;
    Ds_Bank_option: TDataSource;
    Tbl_Bank_Option: TADOTable;
    Ds_Debt_Option: TDataSource;
    Tbl_Debt_Option: TADOTable;
    Qry_income_stat_renyuan: TADOQuery;
    Ds_income: TDataSource;
    Tbl_IncomeId: TAutoIncField;
    Tbl_Incomeriqi: TDateTimeField;
    Tbl_Incomerenyuan: TWideStringField;
    Tbl_Incomexiangmu: TWideStringField;
    Tbl_Incomejine: TFloatField;
    Tbl_Incomebeizhu: TWideStringField;
    Qry_income_stat_jine: TADOQuery;
    Ds_payout: TDataSource;
    Ds_bank: TDataSource;
    Tbl_BankId: TAutoIncField;
    Tbl_Bankriqi: TDateTimeField;
    Tbl_Bankrenyuan: TWideStringField;
    Tbl_Bankkahao: TWideStringField;
    Tbl_Bankxiangmu: TWideStringField;
    Tbl_Bankjine: TFloatField;
    Tbl_Bankbeizhu: TWideStringField;
    Tbl_PayoutId: TAutoIncField;
    Tbl_Payoutriqi: TDateTimeField;
    Tbl_Payoutrenyuan: TWideStringField;
    Tbl_Payoutxiangmu: TWideStringField;
    Tbl_Payoutjine: TFloatField;
    Tbl_Payoutbeizhu: TWideStringField;
    Qry_Income_Xiangmu: TADOQuery;
    Qry_Payout_Xiangmu: TADOQuery;
    Qry_Bank_Stat1: TADOQuery;
    Tbl_Bank_OptionId: TAutoIncField;
    Tbl_Bank_Optionyhmc: TWideStringField;
    Tbl_Bank_Optionkhr: TWideStringField;
    Tbl_Bank_Optionzh: TWideStringField;
    Tbl_Bank_Optionbz: TWideStringField;
    Tbl_Payout_optionId: TAutoIncField;
    Tbl_Payout_optionxiangmu: TWideStringField;
    Tbl_Payout_optiondisplay: TBooleanField;
    Qry_Payout_stat1: TADOQuery;
    Qry_Payout_stat2: TADOQuery;
    Qry_Bank_Stat2: TADOQuery;
    Qry_income_stat3: TADOQuery;
    Qry_income_stat4: TADOQuery;
    Qry_Payout_stat3: TADOQuery;
    Qry_Payout_stat4: TADOQuery;
    QryIncomeData: TADOQuery;
    QryPayoutData: TADOQuery;
    DsIncomeData: TDataSource;
    DsPayoutData: TDataSource;
    DsBankList: TDataSource;
    QryBankList: TADOQuery;
    Qry_income_stat3Id: TAutoIncField;
    Qry_income_stat3riqi: TDateTimeField;
    Qry_income_stat3renyuan: TWideStringField;
    Qry_income_stat3xiangmu: TWideStringField;
    Qry_income_stat3jine: TFloatField;
    Qry_income_stat3beizhu: TWideStringField;
    Qry_income_stat4Id: TAutoIncField;
    Qry_income_stat4riqi: TDateTimeField;
    Qry_income_stat4renyuan: TWideStringField;
    Qry_income_stat4xiangmu: TWideStringField;
    Qry_income_stat4jine: TFloatField;
    Qry_income_stat4beizhu: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
    procedure closeconnect;
    procedure openconnect;
    procedure RefreshTable;
    procedure DeleteTableTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dataFm: TdataFm;

implementation

uses frmBank, frmIncome, frmPayout;

{$R *.dfm}

procedure TdataFm.closeconnect;
begin
  Connect_Data.Connected:=false;
end;

procedure TdataFm.openconnect;
var i:integer;
TblName:Tdataset;
begin
  Connect_Data.Connected:=true;
  for I := 0 to Connect_Data.DataSetCount -1 do
  begin
    TblName:=(Connect_Data.DataSets[i] as Tdataset);
    if TblName.Tag=1 then
    begin
    TblName.Active:=true;
    TblName.Refresh;
    end;
  end;
    
end;

procedure TdataFm.RefreshTable;
var i:integer;
TblName:Tdataset;
begin
  for I :=0 to Connect_Data.DataSetCount-1 do
  begin
    TblName:=(Connect_Data.DataSets[i] as Tdataset);
    if TblName.Tag=1 then
    TblName.Refresh;
  end;
end;

procedure TdataFm.DataModuleCreate(Sender: TObject);
begin
  try
  Self.Connect_Data.Connected := false;
  Self.Connect_Data.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    ExtractFilePath(Paramstr(0)) + 'Data\TslMoney.mdb;' +
    'Persist Security Info=False';
  Self.Connect_Data.Connected := True;
  except
    ShowMessage('打开数据库失败！请检查数据库文件。');
  end;
  openconnect;
end;

procedure TdataFm.DeleteTableTable;
var i:integer;
TblName:Tdataset;
begin
  for I := 0 to Connect_Data.DataSetCount - 1 do
  begin
    TblName:=(Connect_Data.DataSets[i] as Tdataset);
    if TblName.Tag=1 then
    begin
      with tblName do
      begin
        close;
        Open;
        First;
        while not EOF do
        begin
        Delete;
        end;
      end;
    TblName.Refresh;
    end;
  end;
end;

end.