frmbaseunit.pas

根据客户对销售人员回款返利和业绩返利的功能需求所开发

unit frmBaseUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, RzPanel;

type
  TfrmBase = class(TForm)
    Panel1: TPanel;
    btn_Insert: TBitBtn;
    btn_Search: TBitBtn;
    btn_Delete: TBitBtn;
    btn_Edit: TBitBtn;
    btn_Print: TBitBtn;
    btn_Save: TBitBtn;
    btn_Close: TBitBtn;
    Piror_Panel: TPanel;
    Next_BitBtn: TBitBtn;
    Last_BitBtn: TBitBtn;
    Frist_BitBtn: TBitBtn;
    Prior_Bitbtn: TBitBtn;
    dsMaster: TDataSource;
    Panel3: TPanel;
    Panel2: TPanel;
    fSave: TSaveDialog;
    procedure btn_CloseClick(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btn_DeleteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public

    APP,UPD,DEL,PRT,SCH:Boolean;
    procedure setStatus;
    { Public declarations }

  end;

var
  frmBase: TfrmBase;

implementation

uses dmUnit;

{$R *.dfm}

procedure TfrmBase.btn_CloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmBase.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if ((key=VK_RETURN) and (Shift = [ssShift])) then
   begin

      SendMessage(Handle,WM_NEXTDLGCTL,1,0);
     exit;
   end;  
 if key = VK_RETURN then
   if UPPERCase(Screen.ActiveControl.ClassName)<>'TWWDBGRID' then
      PostMessage(Handle,WM_NEXTDLGCTL,0,0);
end;

procedure TfrmBase.btn_DeleteClick(Sender: TObject);
begin
  if Application.MessageBox('确定要删除吗?','删除警告',MB_YESNO+MB_ICONWARNING)=idNO then abort;
  if dsMaster.State in [dsInsert] then
    begin
     dsMaster.DataSet.Cancel;
     abort;
    end;
end;

procedure TfrmBase.FormShow(Sender: TObject);
var
  sql:String;
begin
   {APP:=True;UPD:=True;DEL:=True;PRT:=True;SCH:=True;
   setStatus;
   if dm.COMP_BOSS then exit;
   sql:='select * from pswd where usr='''+dm.USR+''' and UPPER(menu)='''+UPPERCASE(self.Name)+'''';
   dm.getQuery(sql);
   app:=dm.qryQuery.Fieldbyname('app').AsString='T';
   UPD:=dm.qryQuery.Fieldbyname('UPD').AsString='T';
   DEL:=dm.qryQuery.Fieldbyname('DEL').AsString='T';
   PRT:=dm.qryQuery.Fieldbyname('PRT').AsString='T';
   SCH:=dm.qryQuery.Fieldbyname('SCH').AsString='T';
   setStatus;   }
end;

procedure TfrmBase.setStatus;
begin
  { btn_insert.Enabled:=APP;
   btn_Edit.Enabled:=UPD;
   btn_Delete.Enabled:=DEL;
   btn_Print.Enabled:=PRT;
   btn_Search.Enabled:=SCH;}
end;

procedure TfrmBase.btn_PrintClick(Sender: TObject);
begin
  if not fSave.Execute then
    abort;
end;

end.