importbase.~pas

来自「Barcode And LabelPrint」· ~PAS 代码 · 共 105 行

unit ImportBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid, ComCtrls, ToolWin,
  ActnList, DB, ADODB;

type
  TfrmImportBase = class(TfrmBase)
    ALToolbar: TActionList;
    acImport: TAction;
    acFirst: TAction;
    acPrior: TAction;
    acNext: TAction;
    acLast: TAction;
    acExit: TAction;
    ToolBar1: TToolBar;
    tbtfirst: TToolButton;
    tbtprior: TToolButton;
    tbtNext: TToolButton;
    tbtLast: TToolButton;
    ToolButton2: TToolButton;
    tbtImport: TToolButton;
    ToolButton1: TToolButton;
    tbtExit: TToolButton;
    wwDGMaster: TwwDBGrid;
    Splitter1: TSplitter;
    wwDGDetail: TwwDBGrid;
    QMaster: TADOQuery;
    QDetail: TADOQuery;
    dsMaster: TDataSource;
    dsDetail: TDataSource;
    QProducts: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure acFirstExecute(Sender: TObject);
    procedure acPriorExecute(Sender: TObject);
    procedure acNextExecute(Sender: TObject);
    procedure acLastExecute(Sender: TObject);
    procedure acExitExecute(Sender: TObject);
    procedure dsMasterDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmImportBase: TfrmImportBase;

implementation

Uses DataModule, Main, StockMain;
{$R *.dfm}

procedure TfrmImportBase.FormCreate(Sender: TObject);
begin
  inherited;
if not QMaster.Active then QMaster.Open;
if not QDetail.Active then QDetail.Open ;
end;

procedure TfrmImportBase.acFirstExecute(Sender: TObject);
begin
  inherited;
QMaster.First ;
end;

procedure TfrmImportBase.acPriorExecute(Sender: TObject);
begin
  inherited;
QMaster.Prior ;
end;

procedure TfrmImportBase.acNextExecute(Sender: TObject);
begin
  inherited;
QMaster.Next; 
end;

procedure TfrmImportBase.acLastExecute(Sender: TObject);
begin
  inherited;
QMaster.Last ;
end;

procedure TfrmImportBase.acExitExecute(Sender: TObject);
begin
  inherited;
Close;
end;

procedure TfrmImportBase.dsMasterDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
acFirst.Enabled := Not QMaster.Bof;
acLast.Enabled := Not QMaster.Eof;
acPrior.Enabled := acFirst.Enabled;
acNext.Enabled := acLast.Enabled;
end;

end.