gest_oper.pas

基于OOP设计的一套较好的ERP系统

unit gest_oper;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, ExtCtrls, ComCtrls, ActnList, Db, ToolWin, Grids,
  DBGrids, Buttons;

type
  TGestOperatori_form = class(TForm)
    ActionList1: TActionList;
    dsOperatori: TDataSource;
    Chiudi: TAction;
    Panel1: TPanel;
    paneloper: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    procedure ChiudiExecute(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GestOperatori_form: TGestOperatori_form;

implementation

uses uMenu ;

{$R *.DFM}

procedure TGestOperatori_form.ChiudiExecute(Sender: TObject);
begin
 edit1.Text := '' ;
 modalResult := mrCancel ;
end;

procedure TGestOperatori_form.Edit1Change(Sender: TObject);
Var
   Anno,Mese,Giorno : Word ;
   Pwd              : string ;

begin
 DecodeDate(now,Anno,Mese,Giorno) ;
 Pwd := 'B' + FormatFloat('00',anno) +
              FormatFloat('00',mese) +
              FormatFloat('00',giorno) ;
 paneloper.visible := (edit1.text = pwd) ;
 dbnavigator1.enabled := paneloper.visible ;
end;

procedure TGestOperatori_form.DBGrid1KeyPress(Sender: TObject; var Key: Char);
Var
   kk : string ;
begin
 kk := Key ;
 kk := Uppercase(KK) ;
 key := KK[1] ;
end;

procedure TGestOperatori_form.SpeedButton1Click(Sender: TObject);
begin
     edit1.Text := '' ;
     modalResult := mrCancel ;
end;

end.