u_handexception.pas

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

unit U_handexception;

interface

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

type
  TF_handexception = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Ds_kqdata: TDataSource;
    Query1: TQuery;
    Query1cardnum: TStringField;
    Query1workday: TDateTimeField;
    Query1moringup: TIntegerField;
    Query1char1: TStringField;
    Query1moringdown: TIntegerField;
    Query1char2: TStringField;
    Query1afternoonup: TIntegerField;
    Query1char3: TStringField;
    Query1afternoondown: TIntegerField;
    Query1char4: TStringField;
    Query1eveningup: TIntegerField;
    Query1char5: TStringField;
    Query1eveningdown: TIntegerField;
    Query1char6: TStringField;
    Query1exceptionclass: TStringField;
    Query1teamsid: TIntegerField;
    Query1empid: TIntegerField;
    Label1: TLabel;
    DBText1: TDBText;
    Label2: TLabel;
    DBText2: TDBText;
    Label3: TLabel;
    DBText3: TDBText;
    Label4: TLabel;
    DBText4: TDBText;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    DBEdit1: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    Label8: TLabel;
    DBEdit4: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    GroupBox10: TGroupBox;
    button1: TSpeedButton;
    button2: TSpeedButton;
    bitbtn2: TSpeedButton;
    bitbtn1: TSpeedButton;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn3: TBitBtn;
    button3: TBitBtn;
    button4: TBitBtn;
    button5: TBitBtn;
    Label17: TLabel;
    Label18: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Query1AfterPost(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit3Exit(Sender: TObject);
    procedure DBEdit5Exit(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure DBEdit9Exit(Sender: TObject);
    procedure DBEdit11Exit(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
  private
    { Private declarations }
    Q_kqdata:TQuery;
  public
    { Public declarations }
    cardnum,workday,text:string;
    change:Boolean;
    Procedure enableedit(flag:boolean);
  end;

var
  F_handexception: TF_handexception;

implementation

uses U_dm;

{$R *.DFM}

Procedure TF_handexception.enableedit(flag:boolean);
var
  i:integer;
begin
  if flag then
    begin
      for i:=0 to controlcount-1 do
       if uppercase(controls[i].ClassName)='TDBEDIT' then
         begin
           TDBEDIT(controls[i]).color:=clWhite;
           TDBEDIT(controls[i]).readonly:=false;
         end;
    end
  else
    begin
      for i:=0 to controlcount-1 do
       if uppercase(controls[i].ClassName)='TDBEDIT' then
         begin
           TDBEDIT(controls[i]).color:=clMenu;
           TDBEDIT(controls[i]).readonly:=true;
         end;
    end;
end;

procedure TF_handexception.FormDestroy(Sender: TObject);
begin
  F_handexception:=nil;
end;

procedure TF_handexception.FormShow(Sender: TObject);
begin
  if text='正常打卡' then
   with Query1 do
    begin
      close;
      sql.Clear;
      sql.add('select * from emptimestable where cardnum='+''''+cardnum+''''+' and workday='+''''+workday+'''');
      open;
    end
   else
  with Query1 do//不要问我从哪里来,我的故乡在远方