config.pas

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

unit config;

interface

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

type
  Tsys_config = class(Tchildcc)
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    Splitter1: TSplitter;
    ADOmain: TADOTable;
    ADOdetail: TADOTable;
    DSMain: TDataSource;
    DSDetail: TDataSource;
    Panel1: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOdetailAfterInsert(DataSet: TDataSet);
    procedure ADOmainAfterScroll(DataSet: TDataSet);
    procedure DBGrid2Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sys_config: Tsys_config;

implementation

{$R *.dfm}
uses home_main;
procedure Tsys_config.FormClose(Sender: TObject; var Action: TCloseAction);
begin

   action := caFree;
end;

procedure Tsys_config.ADOdetailAfterInsert(DataSet: TDataSet);
begin
    adodetail.FieldByName('master_id').Value := ADomain.fieldbyname('id').AsInteger;
end;

procedure Tsys_config.ADOmainAfterScroll(DataSet: TDataSet);
begin
    adodetail.Filter := 'master_id = '+adomain.FieldByName('id').AsString;
    adodetail.Filtered := true;
end;

procedure Tsys_config.DBGrid2Exit(Sender: TObject);
begin
  if adodetail.State in [dsEdit, dsInsert] then
     adodetail.Post;
end;

procedure Tsys_config.FormCreate(Sender: TObject);
begin
  inherited;
  if GlobalFindAtom('config') = 0 then
     GlobalAddAtom('config');

end;

procedure Tsys_config.FormDestroy(Sender: TObject);
begin
  inherited;
   GlobalDeleteAtom(GlobalFindAtom('config'));
end;

end.