u_fr_jj_emp.~pas

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

unit U_fr_jj_emp;

interface

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

type
  TFr_jj_emp = class(TFrame)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Splitter1: TSplitter;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    procedure DBEdit1Change(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses U_Fr_DM;

{$R *.DFM}

procedure TFr_jj_emp.DBEdit1Change(Sender: TObject);
begin
  if length(trim(DBedit1.text))=10 then
    DBedit2.SetFocus;
end;

procedure TFr_jj_emp.DBEdit1Exit(Sender: TObject);
begin
  if length(trim(DBedit1.text))=10 then
   Fr_DM.T_jj_emp.FieldByName('month').asstring:=copy(DBedit1.text,1,7);
end;

procedure TFr_jj_emp.DBEdit2Exit(Sender: TObject);
begin
  if strtodate(DBedit1.Text)>strtodate(DBEdit2.text) then
    showmessage('