dataunit.pas

来自「工资管理系统」· PAS 代码 · 共 65 行

unit DATAUNIT;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables,dbiprocs;

type
  TDataM = class(TDataModule)
    Table1: TTable;
    DataSource1: TDataSource;
    Table2: TTable;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Query1: TQuery;
    DataSource4: TDataSource;
    Query2: TQuery;
    DataSource5: TDataSource;
    Query3: TQuery;
    DataSource6: TDataSource;
    Query4: TQuery;
    DataSource7: TDataSource;
    Query5: TQuery;
    DataSource8: TDataSource;
    Query6: TQuery;
    DataSource9: TDataSource;
    Query7: TQuery;
    DataSource11: TDataSource;
    Query8: TQuery;
    DataSource12: TDataSource;
    Query9: TQuery;
    DataSource13: TDataSource;
    Query10: TQuery;
    DataSource14: TDataSource;
    Query11: TQuery;
    Table4: TTable;
    DataSource15: TDataSource;
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure Table2AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataM: TDataM;

implementation

{$R *.DFM}

procedure TDataM.Table1AfterPost(DataSet: TDataSet);
begin
  dbisavechanges(table1.Handle);
end;

procedure TDataM.Table2AfterPost(DataSet: TDataSet);
begin
//     dbisavechanges(table2.Handle);
end;

end.