maindm.pas

这是一个本人初定的小制作

unit MainDM;

interface

uses
  SysUtils, Classes, DB, ADODB, CommonFunc;

type
  TDMMain = class(TDataModule)
    ADOConnectionMain: TADOConnection;
    ADOTOperator: TADOTable;
    ADOTGood: TADOTable;
    DSOperator: TDataSource;
    DSGood: TDataSource;
    ADOQueryMain: TADOQuery;
    ADOTSaleRecord: TADOTable;
    ADOTSalesMan: TADOTable;
    DSSaleRecord: TDataSource;
    DSSalesMan: TDataSource;
    DSMain: TDataSource;
    ADOTDepart: TADOTable;
    DSDepart: TDataSource;
    ADOTSalesManQuery: TADOTable;
    DSSalesManQuery: TDataSource;
    ADOTSysOperator: TADOTable;
    DSSysOperator: TDataSource;
    ADOTPermission: TADOTable;
    DSPermission: TDataSource;
    ADOTSaleBack: TADOTable;
    DSSaleBack: TDataSource;
    ADOCommandBackup: TADOCommand;
    ADOTStockIn: TADOTable;
    DSStockIn: TDataSource;
    ADOTStorageRecord: TADOTable;
    DSStorageRecord: TDataSource;
    ADOTStockOut: TADOTable;
    DSStockOut: TDataSource;
    ADOTStorageRecordGoodId: TStringField;
    ADOTStorageRecordAmount: TIntegerField;
    ADOTStorageRecordSaftyStock: TIntegerField;
    procedure DataModuleCreate(Sender: TObject);
    procedure ADOTStockInPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure ADOTOperatorPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure ADOTStorageRecordCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMMain: TDMMain;

implementation

{$R *.dfm}

procedure TDMMain.DataModuleCreate(Sender: TObject);
begin
  ADOConnectionMain.Connected := true;
end;

procedure TDMMain.ADOTStockInPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  PostError(DataSet, E, Action);
end;

procedure TDMMain.ADOTOperatorPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  DataSet.Cancel;
  
  Action := daFail;
end;

procedure TDMMain.ADOTStorageRecordCalcFields(DataSet: TDataSet);
begin
  ADOTGood.Open;
  ADOTGood.First;
  ADOTGood.Locate('Id',DataSet.FieldByName('GoodId').AsString, []);
  DataSet.FieldByName('SaftyStock').Value :=
    ADOTGood.FieldByName('SaftyStock').AsString;
end;

end.