formprint.pas

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

unit FormPrint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_Dll, Grids, DBGridEh, StdCtrls, ExtCtrls, DB, DBClient,
  ActnList, FR_Desgn, FR_Class;

type
  TfrmFormPrint = class(TfrmBase_DLL)
    grid: TDBGridEh;
    Label1: TLabel;
    Bevel1: TBevel;
    btnok: TButton;
    btnexit: TButton;
    Button1: TButton;
    Button2: TButton;
    CDSprint: TClientDataSet;
    dsprint: TDataSource;
    CDSprintfid: TAutoIncField;
    CDSprintfformname: TWideStringField;
    CDSprintfprintname: TWideStringField;
    CDSprintfisdefault: TBooleanField;
    Button3: TButton;
    ActionList1: TActionList;
    acAdd: TAction;
    acDelete: TAction;
    acSave: TAction;
    acCancel: TAction;
    Button4: TButton;
    acEditreport: TAction;
    acExit: TAction;
    frReport: TfrReport;
    frDesigner: TfrDesigner;
    procedure gridGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acExitExecute(Sender: TObject);
    procedure dsprintStateChange(Sender: TObject);
    procedure dsprintDataChange(Sender: TObject; Field: TField);
    procedure acAddExecute(Sender: TObject);
    procedure CDSprintAfterInsert(DataSet: TDataSet);
    procedure acDeleteExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure acEditreportExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    function CheckSave :Boolean;       //癶