u_rsgl.pas

人事考勤系统

unit U_RSGL;

interface

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

type
  TF_RSGL = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    DBGrid3: TDBGrid;
    DBGrid2: TDBGrid;
    Splitter1: TSplitter;
    DBNavigator1: TDBNavigator;
    Active_ds: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Edit2: TEdit;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    Label3: TLabel;
    BitBtn3: TBitBtn;
    SpeedButton3: TSpeedButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid2Enter(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_RSGL: TF_RSGL;

implementation

uses U_RS_DM, U_addemp, U_empbase, U_empteams, U_public, U_okbtndlg;

{$R *.DFM}

procedure TF_RSGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RS_DM.Q_employees.close;
  RS_DM.Q_empdata.close;
  RS_DM.T_ejbm.close;
  RS_DM.T_yjbm.close;
  Action:=caFree;
end;

procedure TF_RSGL.FormCreate(Sender: TObject);
begin
  rs_dm.T_yjbm.Open;
  rs_dm.T_ejbm.open;
  Active_ds.DataSet:=rs_dm.T_yjbm;
end;

procedure TF_RSGL.BitBtn1Click(Sender: TObject);
begin
  if F_addemp=nil then
    F_addemp:=TF_addemp.Create(self);
    F_addemp.Table1.Open;
    F_addemp.Table1.Append;
    F_addemp.Table1.FieldByName('work_num').asstring:=F_addemp.Getworknum;
    F_addemp.BitBtn1.Enabled:=false;
    F_addemp.BitBtn4.Enabled:=false;
    F_addemp.show;
end;

procedure TF_RSGL.DBGrid2Enter(Sender: TObject);
begin
  Active_ds.DataSet:=rs_dm.T_ejbm;
end;

procedure TF_RSGL.DBGrid1Enter(Sender: TObject);
begin
  Active_ds.DataSet:=rs_dm.T_yjbm;
end;

procedure TF_RSGL.BitBtn2Click(Sender: TObject);
begin
  if F_empbase=nil then
    F_empbase:=TF_empbase.Create(self);
    F_empbase.show;
end;

procedure TF_RSGL.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    if RS_DM.T_yjbm.FieldByName('yjbm_name').asstring<>'' then
      begin
        RS_DM.T_yjbm.Refresh;
        RS_DM.T_yjbm.Append;
      end;
end;

procedure TF_RSGL.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    if RS_DM.T_ejbm.FieldByName('ejbm_name').asstring<>'' then
      begin
       RS_DM.T_ejbm.Refresh;
       RS_DM.T_ejbm.append;
      end;
end;

procedure TF_RSGL.SpeedButton1Click(Sender: TObject);
begin
  if Length(Edit1.text)<>6 then begin showmessage('