importbase.pas

产品信息系统!关于产品基础信息的系统!功能强大!

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;
{$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.