renshi_edit.pas

用delphi编的企业人事管理系统

unit renshi_Edit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons, ExtCtrls, jpeg,
  DB;

type
  TFrmrenshiEdit = class(TForm)
    Panelrenshi: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    PopupCalBtn: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    DBEdit7: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBComboBox3: TDBComboBox;
    DBEdit6: TDBEdit;
    Label1: TLabel;
    DBComboBox4: TDBComboBox;
    Label4: TLabel;
    DBComboBox2: TDBComboBox;
    Label5: TLabel;
    DBComboBox1: TDBComboBox;
    Label17: TLabel;
    Label19: TLabel;
    Label9: TLabel;
    DBEdit5: TDBEdit;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure PopupCalBtnClick(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
  FrmrenshiEdit: TFrmrenshiEdit;

implementation
 USES MainData, Pickdate,func, Main;
{$R *.dfm}
procedure TFrmrenshiEdit.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TFrmrenshiEdit.FormCreate(Sender: TObject);
begin
frmmain.E2.Enabled:=false;

end;

procedure TFrmrenshiEdit.FormDestroy(Sender: TObject);
begin
frmmain.E2.Enabled:=true;
end;

procedure TFrmrenshiEdit.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
IF Datarenshi.AdoTable1.State in dsEditModes  THEN
begin
      if (MessageDlg('您已修改了员工['+DBEdit7.Text+']的资料，不保存就退出吗?',
      mtConfirmation,[mbYes, mbCancel], 0) = mrYes) then
      Datarenshi.AdoTable1.CancelUpdates
    else
       CanClose:= False;
  end;
end;

procedure TFrmrenshiEdit.PopupCalBtnClick(Sender: TObject);
begin
  DateForm.Date := Datarenshi.ADOTable1CSNY.Value;
  if DateForm.ShowModal = mrOk then
  begin
    datarenshi.ADOTable1.Open;
    datarenshi.ADOTable1.Edit;
    Datarenshi.ADOTable1CSNY.Value:=DateForm.Date;
  end;

end;

end.