simple.~pa

一套融入了系统营销管理思想的管理软件产品

unit Simple;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Buttons, ExtCtrls, StdCtrls, Mask, DBCtrls;

type
  TfmSimple = class(TForm)
    Panel4: TPanel;
    sbExit: TSpeedButton;
    sbCancel: TSpeedButton;
    sbAppend: TSpeedButton;
    sbEdit: TSpeedButton;
    sbSave: TSpeedButton;
    sbDel: TSpeedButton;
    sbRefresh: TSpeedButton;
    sbFirst: TSpeedButton;
    sbPrior: TSpeedButton;
    sbNext: TSpeedButton;
    sbLast: TSpeedButton;
    qyMaster: TQuery;
    usMaster: TUpdateSQL;
    dsMaster: TDataSource;
    qyTemp: TQuery;
    Panel1: TPanel;
    Panel3: TPanel;
    ED1: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure qyMasterNewRecord(DataSet: TDataSet);
    procedure qyMasterBeforePost(DataSet: TDataSet);
    procedure qyMasterUpdateRecord(DataSet: TDataSet;
      UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
    procedure qyMasterBeforeInsert(DataSet: TDataSet);
    procedure qyMasterBeforeEdit(DataSet: TDataSet);
    procedure qyMasterBeforeDelete(DataSet: TDataSet);
    procedure qyMasterAfterPost(DataSet: TDataSet);
    procedure qyMasterAfterDelete(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure sbRefreshClick(Sender: TObject);
    procedure sbExitClick(Sender: TObject);
    procedure sbCancelClick(Sender: TObject);
    procedure sbAppendClick(Sender: TObject);
    procedure sbEditClick(Sender: TObject);
    procedure sbSaveClick(Sender: TObject);
    procedure sbDelClick(Sender: TObject);
    procedure sbFirstClick(Sender: TObject);
    procedure sbPriorClick(Sender: TObject);
    procedure sbNextClick(Sender: TObject);
    procedure sbLastClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure qyMasterAfterScroll(DataSet: TDataSet);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure qyMasterBeforeOpen(DataSet: TDataSet);
    procedure dsMasterStateChange(Sender: TObject);
    procedure qyMasterAfterOpen(DataSet: TDataSet);
    procedure qyMasterAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
    FSQL, FOrderSQL : String;
    function GetSQL: String;
    procedure SetSQL(ASQL: String);
    procedure SetOrderBySQL(AOrderSQL: String);
    procedure SetButton;
    function CheckCreateMan: Boolean;
  public
    { Public declarations }
    property SQLText : String read GetSQL write SetSQL;
    property OrderBySQL : String write SetOrderBySQL;
    procedure AfterInsertPost; virtual;
    procedure AfterEditPost; virtual;
    procedure AfterDelete; virtual;
    function  BeforeDelete: Boolean; virtual;
    procedure SetDescription; virtual;
    procedure SetMenuItem; virtual;
    procedure OpenDB; virtual;
    procedure SetOthersButton; virtual;
  end;

var
  fmSimple: TfmSimple;

implementation

uses Loading, DataModule, Main, PublicFunction, CheckData, Procress;

var
  bAdd, bEdit, bDel, bPrint, bBrowseAll, bEditAll : Boolean;     {