per_salset.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 207 行

 unit per_salset;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, DBCtrls, ExtCtrls, StdCtrls, RxLookup, Mask, Buttons,ADODB,
  Menus, Db, wwdblook;

type
  TFormper_salset = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    btnexit: TSpeedButton;
    Label2: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Edit1: TEdit;
    DBNavigator3: TDBNavigator;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Panel5: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label12: TLabel;
    DBEdit36: TDBEdit;
    DBEdit61: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBEdit3: TDBEdit;
    Label6: TLabel;
    PopupMenu7: TPopupMenu;
    N7: TMenuItem;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    ADOQuery1: TADOQuery;
    Label21: TLabel;
    Label13: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DBEdit1: TDBEdit;
    DBEdit11: TDBEdit;
    Label25: TLabel;
    DBEdit12: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Label5: TLabel;
    ADOQuery2: TADOQuery;
    wwDBLookupCombo1: TwwDBLookupCombo;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure btnexitClick(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formper_salset: TFormper_salset;
  check:string='';//用来记录那些项目被选中
  che:array [1..18] of integer;//用来记录操作过程中那些项目被选中
  qry:tadoquery;

implementation

uses datamol, otmoney, insrecord,publicfunction;

{$R *.DFM}

procedure TFormper_salset.SpeedButton1Click(Sender: TObject);
begin
  if not assigned(forminsrecord) then
    forminsrecord:=Tforminsrecord.create(application);
    forminsrecord.Adoinsrecord.close;
    forminsrecord.Adoinsrecord.commandText:='Select * from ins02010 where workno='''+datamod.ADOpersonalworkno.asstring+''' ';
    forminsrecord.Adoinsrecord.open;
    forminsrecord.show;
end;

procedure TFormper_salset.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   datamod.adootmoney.close;
   formper_salset:=nil;
   action:=cafree;
end;

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

procedure TFormper_salset.FormCreate(Sender: TObject);
begin
  adoquery2.Close;
  adoquery2.Open;
  adoquery1.close;
  adoquery1.SQL.clear;
  adoquery1.SQL.Text:='select * from salnoname';
  adoquery1.open;
  if not adoquery1.Eof then
  begin
    label8.caption:=adoquery1.fieldbyname('noname1').asstring; label8.update;
    label10.caption:=adoquery1.fieldbyname('noname2').asstring; label10.update;
  end;

end;
procedure TFormper_salset.btnexitClick(Sender: TObject);
begin
  close;
end;

procedure TFormper_salset.Edit1Exit(Sender: TObject);
begin
    if (trim(edit1.text)<>'') then
    begin
       if not datamod.adopersal.locate('name',edit1.text,[]) then
       if not datamod.adopersal.locate('workno',edit1.text,[]) then
       if not datamod.adopersal.locate('cardno',edit1.text,[]) then
          application.messagebox('找不到你想查找的人员','齐协提示',mb_ok+mb_iconinformation);
    end;   
end;
procedure TFormper_salset.N7Click(Sender: TObject);
 var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
  begin
  clickok:=inputquery('请录入新的薪资名称','薪资名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from salnoname where noname1 is not null');
   aqy1.open;
   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
   aqy.SQL.add('insert into salnoname(noname1) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname1='''+noname1+''' ');
   end;
   aqy.execsql;
   end;
   label8.Caption:=noname1;
   label8.update;
end;

procedure TFormper_salset.MenuItem1Click(Sender: TObject);
 var
  noname2:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
  begin
  clickok:=inputquery('请录入新的薪资名称','薪资名称',noname2);
 if   clickok and (noname2<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from salnoname where noname2 is not null');
   aqy1.open;
   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
   aqy.SQL.add('insert into salnoname(noname2) values('''+noname2+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname2='''+noname2+''' ');
   end;
   aqy.execsql;
   end;
   label10.Caption:=noname2;
   label10.Update;
end;
end.