u_teams.pas

小型劳资管理系统,用visual basic+access编写

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;
    DBCheckBox1: TDBCheckBox;
    Bevel1: TBevel;
    Bevel2: TBevel;
    bitbtn1: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBGrid2Enter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
  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('你处在班次排定状态,是否保存退出?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
    mrNO: begin DM.T_teams.Cancel; Action:=caFree;F_teams:=nil; end;
    mrYes:begin DM.T_teams.Post; Action:=caFree; end;
    mrCancel: begin Action:=caNone;exit;end;
    end else
      if dm.T_teamstime.State in [dsedit,dsinsert] then
      begin
        case MessageDlg('你处在排班状态,是否保存退出?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
          mrNO: begin DM.T_teamstime.Cancel; Action:=caFree;F_teams:=nil; end;
          mrYes:begin DM.T_teamstime.Post; Action:=caFree; end;
          mrCancel: begin Action:=caNone;exit;end;
        end;
      end
  else
    begin
      Action:=caFree;
      F_teams:=nil;
    end;
end;

procedure TF_teams.DBGrid1Enter(Sender: TObject);
begin
  ActiveDS.DataSet:=DM.T_teams;
end;

procedure TF_teams.DBGrid2Enter(Sender: TObject);
begin
  ActiveDS.DataSet:=DM.T_teamstime;
end;

procedure TF_teams.FormCreate(Sender: TObject);
begin
  DM.T_teams.Open;
  DM.T_teamstime.Open;
  height:=333;
  width:=535;
end;

procedure TF_teams.BitBtn1Click(Sender: TObject);
begin
  DM.teamsid:=DM.T_teams.fieldbyname('teams_id').asinteger;
  close;
end;

procedure TF_teams.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    if dm.T_teams.FieldByName('name').asstring<>'' then
      begin
        dm.T_teams.Refresh;
        dm.T_teams.Append;
      end;
end;

procedure TF_teams.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    if dm.T_teamstime.FieldByName('begin_check').asstring<>'' then
      begin
        dm.T_teamstime.Refresh;
        dm.T_teamstime.Append;
      end;
end;

procedure TF_teams.SpeedButton2Click(Sender: TObject);
begin
  if RF_teams=nil then
    RF_teams:=TRF_teams.Create(self);
    RF_teams.caption:='员工班次报表';
    RF_teams.QuickRep1.Preview;
end;

end.