u_changesal.pas

一个很不错的人事考勤系统,功能齐全,附带源码.

unit U_changesal;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, U_fr_yj_ej_emp, Grids, DBGrids, U_Fr_jb, StdCtrls, DBCtrls,
  Buttons, Db, DBTables;

type
  TF_changesal = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Fr_yj_ej_emp1: TFr_yj_ej_emp;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    Panel3: TPanel;
    Fr_jb1: TFr_jb;
    Edit1: TEdit;
    Query1: TQuery;
    Label1: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Shape1: TShape;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
    myframe:TFrame;
    Procedure SetBut;
  public
    { Public declarations }
  end;

var
  F_changesal: TF_changesal;

implementation

uses U_Fr_DM, U_date, U_changesalPrisel, U_Prichangesal, U_Fr_jj_emp;

{$R *.DFM}

Procedure TF_changesal.SetBut;
begin
  if Fr_DM.Q_changesal.State in [dsedit,dsinsert] then
    begin
      bitbtn1.Enabled:=false;
      bitbtn2.Enabled:=true;
      Bitbtn3.Enabled:=true;
    end
  else
    begin
      bitbtn1.Enabled:=true;
      bitbtn2.Enabled:=false;
      Bitbtn3.Enabled:=false;
    end;
end;

procedure TF_changesal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if Fr_DM.T_corpposi.State in [dsedit,dsinsert] then
    begin
      APPlication.MessageBox('戮单