importbase.pas

来自「三层ERP系统 (SQL)」· PAS 代码 · 共 51 行

unit ImportBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_Dll, ActnList, ComCtrls, ImgList, ToolWin, ExtCtrls, Grids,
  DBGridEh, DB, DBClient;

type
  TfrmImportBase = class(TfrmBase_DLL)
    ToolBar1: TToolBar;
    ToolButtonImages: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ActionList1: TActionList;
    acFirst: TAction;
    acPrior: TAction;
    acNext: TAction;
    acLast: TAction;
    acImport: TAction;
    acExit: TAction;
    GridMaster: TDBGridEh;
    Splitter1: TSplitter;
    GridDetail: TDBGridEh;
    CDSmaster: TClientDataSet;
    dsMaster: TDataSource;
    CDSdetail: TClientDataSet;
    dsDetail: TDataSource;
    procedure FormDestroy(Sender: TObject);
    procedure acExitExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dsMasterStateChange(Sender: TObject);
    procedure acFirstExecute(Sender: TObject);
    procedure acPriorExecute(Sender: TObject);
    procedure acNextExecute(Sender: TObject);
    procedure acLastExecute(Sender: TObject);
    procedure CDSdetailCalcFields(DataSet: TDataSet);
    procedure GridMasterDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure dsMasterDataChange(Sender: TObject; Field: TField);
  private
    procedure GetDetailData;
    procedure SetDetailField;          //砞竚