simple.~pas

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

unit Simple;

interface

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

type
  TfmSimple = class(TForm)
    qyMaster: TQuery;
    usMaster: TUpdateSQL;
    dsMaster: TDataSource;
    qyTemp: TQuery;
    Panel1: TPanel;
    Panel3: TPanel;
    ED1: TDBEdit;
    Panel4: TPanel;
    sbExit: TSpeedButton;
    sbCancel: TSpeedButton;
    sbAppend: TSpeedButton;
    sbEdit: TSpeedButton;
    sbSave: TSpeedButton;
    sbDel: TSpeedButton;
    sbRefresh: TSpeedButton;
    sbFirst: TSpeedButton;
    sbPrior: TSpeedButton;
    sbNext: TSpeedButton;
    sbLast: TSpeedButton;
    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);
    procedure qyMasterUpdateError(DataSet: TDataSet; E: EDatabaseError;
      UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
  private
    { Private declarations }
    FSQL, FOrderSQL : String;
    FPrimaryKeyLabel : String;
    FDataDate : String;
    function GetSQL: String;
    procedure SetSQL(ASQL: String);
    procedure SetOrderBySQL(AOrderSQL: String);
    procedure SetPrimaryKeyLabel(APrimaryKeyLabel: String);
    function GetDataDate: String;
    procedure SetDataDate(ADataDate: String);
    procedure SetButton;
    function CheckCreateMan: Boolean;
    procedure UpdateMasterData;
  public
    { Public declarations }
    property SQLText : String read GetSQL write SetSQL;
    property OrderBySQL : String write SetOrderBySQL;
    property PrimaryKeyLabel : String write SetPrimaryKeyLabel;
    property DataDate : String read GetDataDate write SetDataDate;
    procedure SetDescription; virtual;
    procedure SetMenuItem; virtual;
    procedure OpenDB; virtual;
  end;

var
  fmSimple: TfmSimple;

implementation

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

var
  bAdd{新增}, bEdit{修改}, bDel{删除}, bPrint{输出}, bBrowseAll{浏览全部}, bEditAll{修改全部} : Boolean;     {判断权限}
  sStartUserID{用户代号(起)}, sEndUserID{用户代号(止)} : String;

{$R *.DFM}

{ TfmSimple }

procedure TfmSimple.FormCreate(Sender: TObject);
var
  sPower : String;
begin
  try
    fmLoading := TfmLoading.Create(Self);
    fmLoading.Show;
    fmLoading.Update;
    //预设拥有全部权限