ryxxwh.pas

Delphi开发的人事管理系统

unit Ryxxwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ActnMan, ActnCtrls, ActnList, DB, DBCtrls, StdCtrls, ExtCtrls,
  RSGLCommon, Grids, DBGrids, ComCtrls, RyxxEdit, dmRsgl;

type
  TRyxxwhForm = class(TForm)
    dsRyxx: TDataSource;
    pnlToolBar: TPanel;
    btEdit: TButton;
    btAdd: TButton;
    btDel: TButton;
    dbRyxx: TDBGrid;
    pnlTitle: TPanel;
    alRyxx: TActionList;
    acDel: TAction;
    acEdit: TAction;
    acAdd: TAction;
    btBrowse: TButton;
    acExit: TAction;
    btExit: TButton;
    acBrowse: TAction;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dbRyxxDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure acAddExecute(Sender: TObject);
    procedure acEditExecute(Sender: TObject);
    procedure acDelExecute(Sender: TObject);
    procedure acBrowseExecute(Sender: TObject);
    procedure acExitExecute(Sender: TObject);
    procedure alRyxxUpdate(Action: TBasicAction; var Handled: Boolean);
  private
    { Private declarations }
    FdmRsgl: TdmRsgl;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; AdmRsgl: TdmRsgl); reintroduce;
  end;

var
  RyxxwhForm: TRyxxwhForm;

implementation

{$R *.dfm}

constructor TRyxxwhForm.Create(AOwner: TComponent; AdmRsgl: TdmRsgl);
begin
  inherited Create(AOwner);
  FdmRsgl := admRsgl;

  dsRyxx.DataSet := FdmRsgl.adotRyxx;
  dsRyxx.DataSet.Open;
  dsRyxx.DataSet.Refresh;
end;

procedure TRyxxwhForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  RyxxwhForm := nil;
end;

procedure TRyxxwhForm.dbRyxxDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if Column.Field.DataType in [ftBoolean] then
  begin
    if Column.Field.AsBoolean = True then
      (Sender as TDBGrid).Canvas.TextRect(Rect,Rect.Left,Rect.Top,'是')
    else
      (Sender as TDBGrid).Canvas.TextRect(Rect,Rect.Left,Rect.Top,'否');
  end;
end;

procedure TRyxxwhForm.acAddExecute(Sender: TObject);
begin
  with TRyxxEditForm.Create(self, FdmRsgl, optAdd) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TRyxxwhForm.acEditExecute(Sender: TObject);
begin
  with TRyxxEditForm.Create(self, FdmRsgl, optEdit) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TRyxxwhForm.acDelExecute(Sender: TObject);
begin
  if Application.MessageBox('是否删除?', '确认', 1) = 1 then
    dsRyxx.DataSet.Delete;
end;

procedure TRyxxwhForm.acBrowseExecute(Sender: TObject);
begin
  with TRyxxEditForm.Create(self, FdmRsgl, optBrowse) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TRyxxwhForm.acExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TRyxxwhForm.alRyxxUpdate(Action: TBasicAction;
  var Handled: Boolean);
begin
  acDel.Enabled := not (dsRyxx.DataSet.Bof and dsRyxx.DataSet.Eof);
  acEdit.Enabled := acDel.Enabled;
end;

end.