u_teams.pas

一個很不錯的人事考勤系統,強烈講義大家下載,帶源碼,可以修改

unit U_teams;

interface

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

type
  TF_teams = class(TForm)
    DBNavigator1: TDBNavigator;
    ActiveDS: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    StaticText1: TStaticText;
    BitBtn1: TBitBtn;
    DBCheckBox1: TDBCheckBox;
    SpeedButton1: TSpeedButton;
    StaticText2: TStaticText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBGrid2Enter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_teams: TF_teams;

implementation

uses U_dm, RU_teams;

{$R *.DFM}

procedure TF_teams.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if DM.T_teams.State in [dsedit,dsinsert] then
    case MessageDlg('