datamodule.~pa

来自「进销存程序设计」· ~PA 代码 · 共 55 行

unit DataModule;

interface

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

type
  TDM = class(TDataModule)
    DB: TDatabase;
    tbInput: TTable;
    tbInputUserID: TStringField;
    tbInputPasswordCode: TStringField;
    tbInputCompanyNo: TStringField;
    GetQuery: TQuery;
    Query: TQuery;
    qyExecute: TQuery;
    qyTemp1: TQuery;
    qyTemp2: TQuery;
    qyGet: TQuery;
    dsInput: TDataSource;
    tbInputAttribName: TStringField;
    qyCheck: TQuery;
    procedure tbInputCompanyNoValidate(Sender: TField);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DumpLog;
  end;
  procedure UpdateInventory(ProductID, WarehouseID: String; Quantity: Extended);  

var
  DM: TDM;

implementation

uses PublicFunction;

{$R *.DFM}

{ TDM }

procedure TDM.DumpLog;
begin
  try
    with DM.qyExecute do
    begin
      Close;
      SQL.Clear;
      SQL.Add('DUMP TRAN PSM WITH NO_LOG ');
      ExecSQL;
    end;
    MyInformation('簿埃ら粁郎ЧΘ