ccb.pas

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

unit ccb;

interface

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

type
  Tccqk = class(Tchildcc)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ADOConnection1: TADOConnection;
    ADOccb: TADOTable;
    DSccb: TDataSource;
    Panel1: TPanel;
    DBMemo1: TDBMemo;
    ADOQmc: TADOQuery;
    ADOlx: TADOQuery;
    ADOccbid: TIntegerField;
    ADOccbname: TIntegerField;
    ADOccbtype: TIntegerField;
    ADOccbmoney: TBCDField;
    ADOccbremark: TWideStringField;
    ADOccbmc: TStringField;
    ADOccbtypename: TStringField;
    Label1: TLabel;
    ADOlsz: TADOQuery;
    DataSource1: TDataSource;
    DBGrid2: TDBGrid;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    ADOlszid: TWideStringField;
    ADOlszfssj: TDateTimeField;
    ADOlszfsr: TIntegerField;
    ADOlsztype: TIntegerField;
    ADOlszcontent: TWideStringField;
    ADOlszchange: TBooleanField;
    ADOlszmoney: TBCDField;
    ADOlszcclx: TIntegerField;
    ADOfsr: TADOQuery;
    ADOfslx: TADOQuery;
    ADOlszfsrmc: TStringField;
    ADOlszfslx: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure ADOccbAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ccqk: Tccqk;

implementation

{$R *.dfm}

uses home_main;
procedure Tccqk.FormCreate(Sender: TObject);
begin
    if GlobalFindAtom('ccqk') = 0 then
         GlobalAddAtom('ccqk');
    adoccb.Active:=true;
    adoccb.Edit;
end;

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

procedure Tccqk.FormDestroy(Sender: TObject);
begin
  GlobalDeleteAtom(GlobalFindAtom('ccqk'));
end;

procedure Tccqk.ADOccbAfterScroll(DataSet: TDataSet);
var
 m_name:integer;
begin
  //inherited;
  adolsz.Close;
  m_name := ADOccb.fieldbyname('name').asinteger;
  Adolsz.Parameters.ParamByName('type').Value := m_name;
  adolsz.Open;

end;

end.