salset.pas

pasa人力资源考勤管理系统

unit salset;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,  ComCtrls, ToolWin, Menus, DBCtrls, StdCtrls, Mask, Buttons,Db,
  ToolEdit, ImgList, jpeg, IniFiles;

type
  Tformsalset = class(TForm)
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Bevel14: TBevel;
    Bevel17: TBevel;
    Label26: TLabel;
    DBEdit31: TDBEdit;
    Label41: TLabel;
    DBEdit52: TDBEdit;
    Panel5: TPanel;
    ImageList2: TImageList;
    ToolBar2: TToolBar;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    tbnprint: TToolButton;
    ToolButton10: TToolButton;
    DBEdit2: TDBEdit;
    Label32: TLabel;
    DBNavigator1: TDBNavigator;
    Label13: TLabel;
    DBText1: TDBText;
    Label25: TLabel;
    Label27: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    Label11: TLabel;
    DBText2: TDBText;
    DBEdit13: TDBEdit;
    Label18: TLabel;
    DBText3: TDBText;
    DBEdit14: TDBEdit;
    Label19: TLabel;
    DBText4: TDBText;
    DBText5: TDBText;
    DBEdit15: TDBEdit;
    Label20: TLabel;
    DBText6: TDBText;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    Label28: TLabel;
    DBText7: TDBText;
    DBText8: TDBText;
    DBEdit36: TDBEdit;
    Label29: TLabel;
    DBText9: TDBText;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    Label33: TLabel;
    DBText10: TDBText;
    DBText11: TDBText;
    DBEdit39: TDBEdit;
    Label34: TLabel;
    DBText12: TDBText;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    DBEdit5: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBComboBox1: TDBComboBox;
    Label7: TLabel;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure insertClick(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure formkeyup(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PageControl1Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsalset: Tformsalset;
  items:string;
  intime:boolean;

implementation

uses Main,datamol,publicfunction, otmoney, othersalset, saltotalotset,
  otkind;

{$R *.DFM}

procedure Tformsalset.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if datamod.adosalset.State=dsEdit then
  datamod.adosalset.Post;
  datamod.adosalset.Close;
  Action:=caFree;
  Formsalset:=nil;
end;

procedure Tformsalset.FormCreate(Sender: TObject);
begin
  with datamod do
  begin
    adosalset.Open;
    adosalset.Edit;
    pagecontrol1.ActivePage:=TabSheet5;
  end;
end;

procedure Tformsalset.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        key:=#0;
        selectnext(activecontrol,true,true);
     end;
end;
procedure Tformsalset.insertClick(Sender: TObject);
begin
      Datamod.adosalset.Insert;
end;

procedure Tformsalset.SpeedButton6Click(Sender: TObject);
begin
     formotmoney:=TFormotmoney.create(application);
     formotmoney.showmodal;
     formotmoney.free;
end;


procedure Tformsalset.SpeedButton8Click(Sender: TObject);
begin
     formsaltotalotset:=TFormsaltotalotset.create(self);
     formsaltotalotset.showmodal;
     formsaltotalotset.free;
end;

procedure Tformsalset.ToolButton10Click(Sender: TObject);
begin
  close;
end;

procedure Tformsalset.ToolButton7Click(Sender: TObject);
var
    path:string;
    tax:TextFile;
    i:integer;
begin
  with datamod do
  begin
    adosalset.edit;
    adosalset.Post;
    adoatdset.Open;
    adoatdset.Edit;
    //adoatdsetlatestyle.asboolean:=adosalsetlatestyle.asboolean;
    adoatdset.post;
    adoatdset.close;
  end;
end;

procedure Tformsalset.ToolButton8Click(Sender: TObject);
begin
  datamod.adosalset.cancel;
end;

procedure Tformsalset.ToolButton6Click(Sender: TObject);
begin
  if application.messagebox(pchar('你确定要删除这笔薪资参数设定吗？删除后若不新增计算'+#13#10+'薪资时会出错'),'重要提示',mb_okcancel+mb_iconerror)=idok then
   begin
    datamod.adosalset.delete;
   end;
end;

procedure Tformsalset.SpeedButton9Click(Sender: TObject);
begin
   formotkind:=Tformotkind.create(self);
   formotkind.showmodal;
   formotkind.free;
end;

procedure Tformsalset.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case pagecontrol1.activepageindex of
       0:DBNavigator1.DataSource:=DataMod.DSsalset;
       1:DBNavigator1.DataSource:=DataMod.DSsalset;
       2:DBNavigator1.DataSource:=DataMod.DSsalset;
       //3:dbnav.datasource:=datasource1;
       //4:DBNav.DataSource:=datasource4;
     end;
  if button=nbpost then
    toolbutton7.onclick(self);
end;

procedure Tformsalset.formkeyup(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_f1 then
  begin
   Application.helpfile :=extractfilepath(application.exename) +'help\pasahelp.hlp';
   application.HelpJump('shm_contents0050');
  end;
end;

procedure Tformsalset.PageControl1Change(Sender: TObject);
begin
  case pagecontrol1.activepageindex of
   0:DBNavigator1.DataSource:=DataMod.DSsalset;
   1:DBNavigator1.DataSource:=DataMod.DSsalset;
   2:DBNavigator1.DataSource:=DataMod.DSsalset;
  end;
end;
procedure Tformsalset.RadioButton1Click(Sender: TObject);
begin
 dbedit5.Enabled:=false;
 datamod.ADOsalset.Edit;
 datamod.ADOsalsetdivmode.Value:=0;
end;

procedure Tformsalset.RadioButton2Click(Sender: TObject);
begin
 dbedit5.Enabled:=true;
 datamod.ADOsalset.Edit;
 datamod.ADOsalsetdivmode.Value:=1;
end;

procedure Tformsalset.RadioButton3Click(Sender: TObject);
begin
 dbedit5.Enabled:=false;
 datamod.ADOsalset.Edit;
 datamod.ADOsalsetdivmode.Value:=2;
end;

end.