u_fr_dm.pas

人事考勤系统

unit U_Fr_DM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TFr_DM = class(TDataModule)
    Q_DBchat: TQuery;
    Q_DBChat2: TQuery;
    QV_emp_fk: TQuery;
    T_corpposi: TTable;
    T_corpposijbid: TIntegerField;
    T_corpposijb: TStringField;
    T_corpposijsfs: TStringField;
    T_corpposijbgz: TFloatField;
    T_corpposijbxs: TFloatField;
    T_corpposizwjt: TFloatField;
    T_corpposiQQ: TFloatField;
    T_corpposiposition: TStringField;
    T_corpposimemo: TStringField;
    T_yjbm: TTable;
    T_ejbm: TTable;
    T_emp: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    T_ejbmejbm_id: TIntegerField;
    T_ejbmyjbmid: TIntegerField;
    T_ejbmejbm_name: TStringField;
    T_empemp_id: TIntegerField;
    T_empdep_id: TIntegerField;
    T_empwork_num: TStringField;
    T_empcard_num: TStringField;
    T_empname: TStringField;
    T_empteamsid: TIntegerField;
    T_yjbmyjbm_id: TIntegerField;
    T_yjbmyjbm_name: TStringField;
    Q_changesal: TQuery;
    Q_changesalid: TIntegerField;
    Q_changesalempid: TIntegerField;
    Q_changesaljbid: TIntegerField;
    Q_changesaljbName: TStringField;
    Q_changesaljsjg: TFloatField;
    Q_changesalgzjg: TFloatField;
    Q_changesalzyjg: TFloatField;
    Q_changesalnzjg: TFloatField;
    Q_changesalexedate: TDateTimeField;
    Q_changesalifnew: TBooleanField;
    Q_changesalmemo: TStringField;
    DataSource4: TDataSource;
    Q_changesalyjbm_name: TStringField;
    Q_changesalejbm_name: TStringField;
    Q_changesalO: TQuery;
    IntegerField1: TIntegerField;
    IntegerField2: TIntegerField;
    StringField1: TStringField;
    StringField2: TStringField;
    IntegerField3: TIntegerField;
    StringField3: TStringField;
    FloatField1: TFloatField;
    FloatField2: TFloatField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    DateTimeField1: TDateTimeField;
    BooleanField1: TBooleanField;
    StringField4: TStringField;
    DataSource5: TDataSource;
    TV_yj_ej_emp: TTable;
    DataSource6: TDataSource;
    TV_yj_ej_empyjbm_name: TStringField;
    TV_yj_ej_empejbm_name: TStringField;
    TV_yj_ej_empname: TStringField;
    TV_yj_ej_empwork_num: TStringField;
    TV_yj_ej_empyjbm_id: TIntegerField;
    TV_yj_ej_empejbm_id: TIntegerField;
    TV_yj_ej_empemp_id: TIntegerField;
    T_jj_emp: TTable;
    DataSource7: TDataSource;
    T_jj_empempid: TIntegerField;
    T_jj_empMonth: TStringField;
    T_jj_empfromdate: TStringField;
    T_jj_emptodate: TStringField;
    procedure T_corpposijbgzChange(Sender: TField);
    procedure T_empAfterScroll(DataSet: TDataSet);
    procedure T_empBeforeScroll(DataSet: TDataSet);
    procedure T_jj_empBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fr_DM: TFr_DM;

implementation


{$R *.DFM}

procedure TFr_DM.T_corpposijbgzChange(Sender: TField);
begin
  if T_corpposi.FieldByName('jbgz').asstring<>'' then
    T_corpposi.FieldByName('jbxs').ascurrency:=T_corpposi.FieldByName('jbgz').ascurrency/8*1.5;
end;

procedure TFr_DM.T_empAfterScroll(DataSet: TDataSet);
begin
  with Q_changesal do
    begin
      close;
      sql.Clear;
      sql.Add('select * from changesal where empid='+T_emp.FieldByName('emp_id').asstring);
      sql.Add(' and ifNew=1');
      open;
    end;
  with Q_changesalo do
    begin
      close;
      sql.Clear;
      sql.Add('select * from changesal where empid='+T_emp.FieldByName('emp_id').asstring);
      sql.Add(' and ifNew=0');
      sql.add(' order by exedate');
      open;
    end;
end;

procedure TFr_DM.T_empBeforeScroll(DataSet: TDataSet);
begin
  if Q_changesal.State in [dsedit,dsinsert] then
  if MessageDlg('讽玡