othermoney.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 874 行 · 第 1/2 页

PAS
874 行
字号
12
  formothermoneydef.free;
  datamod.ADOothermoney.close;
  datamod.ADOothermoney.open;
end;
procedure TFormothermoney.MaskEdit1Exit(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
  if maskedit1.text<>fmat1 then
    if (not isdate(maskedit1.Text)) then
      Application.Messagebox('对不起,日期不是有效的,您不能进行查找','Warning',mb_ok+mb_iconwarning)
    else begin
      datamod.ADOothermoney.Filtered :=false;
      datamod.ADOothermoney.filter :='rq='''+maskedit1.text+''' ';
      datamod.ADOothermoney.Filtered :=true;
    end;
end;

procedure TFormothermoney.Edit1Exit(Sender: TObject);
begin
  if trim(Edit1.text)<>'' then
    Begin
      datamod.ADOothermoney.Filtered :=false;
      datamod.ADOothermoney.Filter :='workno='''+edit1.text+''' ';
      datamod.ADOothermoney.Filtered :=true;
    end;
end;

procedure TFormothermoney.Edit2Exit(Sender: TObject);
begin
  if trim(Edit2.text)<>'' then
    begin
      datamod.ADOothermoney.Filtered :=false;
      datamod.ADOothermoney.Filter :='name='''+edit2.text+''' ';
      datamod.ADOothermoney.Filtered :=true;
    end;
end;

procedure TFormothermoney.tnbprintClick(Sender: TObject);
begin
  ppreport2.print;
end;

procedure TFormothermoney.ppReport2BeforePrint(Sender: TObject);
begin
  pplabel1.caption:=companyname1;
  pplabel15.caption:=pubworkname;
  pplabel7.Caption:=aqy.fieldbyname('noname5').asstring;
  pplabel9.Caption:=aqy.fieldbyname('noname6').asstring;
  pplabel8.Caption:=aqy.fieldbyname('noname7').asstring;
  pplabel10.Caption:=aqy.fieldbyname('noname8').asstring;
  pplabel11.Caption:=aqy.fieldbyname('noname9').asstring;
  pplabel12.Caption:=aqy.fieldbyname('noname10').asstring;
  label14.Caption:=aqy.fieldbyname('noname11').asstring;
end;
procedure TFormothermoney.DBEdit1Exit(Sender: TObject);
begin
  with datamod do
  begin
    query1.Close;
    query1.sql.Clear;
    query1.sql.add('select name,dept,cardno,mankind from per24010 where workno='''+dbedit1.text+''' ');
    query1.open;
  if query1.Eof then
  begin
     application.messagebox(pchar('你录入的工号:'+dbedit1.text+'不存在，请重新录入!'),'warning',mb_ok+mb_iconerror);
      dbedit1.setfocus;
      end else
   begin
    {if query1.fieldbyname('mankind').asstring<>'计件' then
    begin
      dbedit18.Enabled:=false;
      dbedit17.Enabled:=false;
    end
    else
    begin
      dbedit18.Enabled:=true;
      dbedit17.Enabled:=true;
    end; }
    adoothermoney.fieldbyname('name').asstring:=query1.fieldbyname('name').asstring;
    adoothermoney.fieldbyname('cardno').asstring:=query1.fieldbyname('cardno').asstring;
    adoothermoney.fieldbyname('dept').asstring:=query1.fieldbyname('dept').asstring;
    adoothermoney.fieldbyname('mankind').asstring:=query1.fieldbyname('mankind').asstring;
   end;

   end;
end;

procedure TFormothermoney.DateTimePicker1CloseUp(Sender: TObject);
begin
datamod.ADOothermoney.edit;
dbedit2.text:=datetostr(datetimepicker1.date);
dbedit1.SetFocus;
end;

procedure TFormothermoney.BitBtn1Click(Sender: TObject);
begin
  panel5.Visible:=false;
  datetimepicker5.DateTime:=now;
  datetimepicker6.DateTime:=now;
  label25.Visible:=false;
  Animate1.Active:=false;
end;

procedure TFormothermoney.BitBtn2Click(Sender: TObject);
begin
  if messagedlg('注意：移除前,请确认为已处理考勤的数据'+#13+'是否要进行移除',mtinformation,[mbyes,mbno],0)=mryes then
  begin
    Animate1.Active:=true;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    label25.Caption:='正在移除资料,请稍後........';
    label25.Visible:=true;
    label25.Update;
    adoquery1.SQL.text:='exec [bk_othermoney] ''1'','''+formatdatetime('yyyy/mm/dd',DateTimePicker5.DateTime)+''','''+formatdatetime('yyyy/mm/dd',DateTimePicker6.datetime)+'''';
    try
    adoquery1.ExecSQL;
    except
      ;
    end;
    label25.Caption:='移除完毕';
    label25.Update;
    DataMod.adoothermoney.Close;
    datamod.adoothermoney.CommandText:='select * from per24014';
    DataMod.adoothermoney.Open;
    //datamod.ADOchangebcman.close;
    //datamod.ADOchangebcman.CommandText:='select atd08011.workno,b.name,b.sexname,b.prof,b.dept,atd08011.operator,atd08011.cdate from atd08011 left join per24010 b on b.workno=atd08011.workno where id=:id';
   // datamod.adochangebcman.Open;
    messagedlg('移除成功，谢谢使用！！！！',mtinformation,[mbok],0);
    Animate1.Active:=false;
    label25.Visible:=false;
  end;
end;

procedure TFormothermoney.BitBtn3Click(Sender: TObject);
begin
    if messagedlg('注意：还原资料,将删除现有的资料',mtinformation,[mbyes,mbno],0)=mryes then
  begin
    Animate1.Active:=true;
    label25.Caption:='正在还原资料,请稍後.......';
    label25.Visible:=true;
    label25.Update;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.text:='exec [bk_othermoney]''0'','''+formatdatetime('yyyy/mm/dd',DateTimePicker5.DateTime)+''','''+formatdatetime('yyyy/mm/dd',DateTimePicker6.datetime)+'''';
    try
      adoquery1.ExecSQL;
    except
      ;
    end;
    label25.Caption:='还原完毕';
    label25.Update;
    DataMod.adoothermoney.Close;
    datamod.adoothermoney.CommandText:='select * from per24014';
    DataMod.adoothermoney.Open;
    //datamod.ADOchangebcman.close;
    //datamod.adochangebcman.Open;
    messagedlg('还原成功，谢谢使用！！！！',mtinformation,[mbok],0);
    Animate1.Active:=false;
    label25.Visible:=false;
    label25.Update;
  end;
end;

procedure TFormothermoney.ToolButton1Click(Sender: TObject);
begin
  panel5.Visible:=true;
  datetimepicker5.SetFocus;
end;

procedure TFormothermoney.ToolButton3Click(Sender: TObject);
begin
  DataMod.adoothermoney.Close;
  if toolbutton7.Down then
  begin
    datamod.adoothermoney.Filtered:=false;
    DataMod.adoothermoney.CommandText:='select * from per24014bk'
  end
  else
  begin
    datamod.adoothermoney.Filtered:=false;
    DataMod.adoothermoney.commandtext:='select * from per24014';
  end;
  DataMod.adoothermoney.Open;
end;

procedure TFormothermoney.ToolButton7Click(Sender: TObject);
begin
  DataMod.adoothermoney.Close;
  if toolbutton7.Down then
    DataMod.adoothermoney.CommandText:='select * from per24014bk'
  else
    DataMod.adoothermoney.commandtext:='select * from per24014';
  DataMod.adoothermoney.Open;
end;

procedure TFormothermoney.N5Click(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 noname5 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(noname5) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname5='''+noname1+''' ');
   end;
   aqy.execsql;
   label7.caption:=noname1;
   label7.update;
   end;
   end;

procedure TFormothermoney.N6Click(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 noname6 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(noname6) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname6='''+noname1+''' ');
   end;
   aqy.execsql;
   label5.caption:=noname1;
   label5.update;
   end;
   end;
procedure TFormothermoney.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 noname7 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(noname7) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname7='''+noname1+''' ');
   end;
   aqy.execsql;
   label10.caption:=noname1;
   label10.update;
   end;
   end;

procedure TFormothermoney.N8Click(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 noname8 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(noname8) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname8='''+noname1+''' ');
   end;
   aqy.execsql;
   label16.caption:=noname1;
   label16.update;
   end;
   end;

procedure TFormothermoney.N9Click(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 noname9 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(noname9) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname9='''+noname1+''' ');
   end;
   aqy.execsql;
   label18.caption:=noname1;
   label18.update;
   end;
   end;

procedure TFormothermoney.N10Click(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 noname10 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(noname10) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname10='''+noname1+''' ');
   end;
   aqy.execsql;
   label20.caption:=noname1;
   label20.update;
   end;
   end;

procedure TFormothermoney.N11Click(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 noname11 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(noname11) values('''+noname1+''') ');
 end else
    begin
   aqy.sql.add('update salnoname set noname11='''+noname1+''' ');
   end;
   aqy.execsql;
   label22.caption:=noname1;
   label22.update;
   end;
   end;


procedure TFormothermoney.ppReport2PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

end.
12

othermoney.pas - 源码说明

本页面展示了「pasa人力资源考勤管理系统」中的 othermoney.pas 源码文件，采用 PAS 编程语言编写，共 874 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与pasa相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?