⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 change.~pas

📁 本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
  sqlquery1.Parameters[5].direction:=pdinput;
  sqlquery1.Parameters[5].value:=StrToFloat(Edit6.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[6].name:='s6';
  sqlquery1.Parameters[6].datatype:=ftfloat;
  sqlquery1.Parameters[6].direction:=pdinput;
  sqlquery1.Parameters[6].value:=StrToFloat(Edit7.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[7].name:='s7';
  sqlquery1.Parameters[7].datatype:=ftfloat;
  sqlquery1.Parameters[7].direction:=pdinput;
  sqlquery1.Parameters[7].value:=StrToFloat(Edit8.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[8].name:='s8';
  sqlquery1.Parameters[8].datatype:=ftfloat;
  sqlquery1.Parameters[8].direction:=pdinput;
  sqlquery1.Parameters[8].value:=StrToFloat(Edit9.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[9].name:='s9';
  sqlquery1.Parameters[9].datatype:=ftfloat;
  sqlquery1.Parameters[9].direction:=pdinput;
  sqlquery1.Parameters[9].value:=StrToFloat(Edit10.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[10].name:='s10';
  sqlquery1.Parameters[10].datatype:=ftfloat;
  sqlquery1.Parameters[10].direction:=pdinput;
  sqlquery1.Parameters[10].value:=StrToFloat(Edit11.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[11].name:='s11';
  sqlquery1.Parameters[11].datatype:=ftfloat;
  sqlquery1.Parameters[11].direction:=pdinput;
  sqlquery1.Parameters[11].value:=StrToFloat(Edit12.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[12].name:='s12';
  sqlquery1.Parameters[12].datatype:=ftfloat;
  sqlquery1.Parameters[12].direction:=pdinput;
  sqlquery1.Parameters[12].value:=real_salary;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[13].name:='s13';
  sqlquery1.Parameters[13].datatype:=ftstring;
  sqlquery1.Parameters[13].direction:=pdinput;
  sqlquery1.Parameters[13].value:=Str1;
  sqlquery1.execsql;
  adotable1.active:=true;
  sqlquery1.Close;
  sqlquery1.SQL.clear;
  //sqlquery1.SQL.add('insert into info values(:s0)');//(number,name,operator_date,operator,base_salary,float_salary,allowance_salary,age_salary,award,addition_award,rest,insurance,rent,detain,total,real_salary,tax,shuoming)');
  //sqlquery1.sql.add(' values(:s0)');//,:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17)');
  //sqlquery1.SQL.add('insert into info');
  //sqlquery1.sql.add(' values(:s0,:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17)');
  {sqlquery1.Parameters.clear;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[0].name:='s0';                   //number
  sqlquery1.Parameters[0].datatype:=ftstring;
  sqlquery1.Parameters[0].direction:=pdinput;
  sqlquery1.Parameters[0].value:=str1;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[1].name:='s1';                   //name
  sqlquery1.Parameters[1].datatype:=ftstring;
  sqlquery1.Parameters[1].direction:=pdinput;
  sqlquery1.Parameters[1].value:=str2;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[2].name:='s2';                   //ooperator_date
  sqlquery1.Parameters[2].datatype:=ftdate;
  sqlquery1.Parameters[2].direction:=pdinput;
  sqlquery1.Parameters[2].value:=date();
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[3].name:='s3';                  //operator
  sqlquery1.Parameters[3].datatype:=ftstring;
  sqlquery1.Parameters[3].direction:=pdinput;
  sqlquery1.Parameters[3].value:=username;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[4].name:='s4';                  //base_salary
  sqlquery1.Parameters[4].datatype:=ftfloat;
  sqlquery1.Parameters[4].direction:=pdinput;
  sqlquery1.Parameters[4].value:=StrToFloat(Edit1.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[5].name:='s5';                  //float)salary
  sqlquery1.Parameters[5].datatype:=ftfloat;
  sqlquery1.Parameters[5].direction:=pdinput;
  sqlquery1.Parameters[5].value:=StrToFloat(Edit2.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[6].name:='s6';                  //allowance_salary
  sqlquery1.Parameters[6].datatype:=ftfloat;
  sqlquery1.Parameters[6].direction:=pdinput;
  sqlquery1.Parameters[6].value:=StrToFloat(Edit3.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[7].name:='s7';                  //age_salary
  sqlquery1.Parameters[7].datatype:=ftfloat;
  sqlquery1.Parameters[7].direction:=pdinput;
  sqlquery1.Parameters[7].value:=StrToFloat(Edit4.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[8].name:='s8';                  //award
  sqlquery1.Parameters[8].datatype:=ftfloat;
  sqlquery1.Parameters[8].direction:=pdinput;
  sqlquery1.Parameters[8].value:=StrToFloat(Edit5.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[9].name:='s9';                  //addition_award
  sqlquery1.Parameters[9].datatype:=ftfloat;
  sqlquery1.Parameters[9].direction:=pdinput;
  sqlquery1.Parameters[9].value:=StrToFloat(Edit6.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[10].name:='s10';                //insurance
  sqlquery1.Parameters[10].datatype:=ftfloat;
  sqlquery1.Parameters[10].direction:=pdinput;
  sqlquery1.Parameters[10].value:=StrToFloat(Edit9.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[11].name:='s11';                //rent
  sqlquery1.Parameters[11].datatype:=ftfloat;
  sqlquery1.Parameters[11].direction:=pdinput;
  sqlquery1.Parameters[11].value:=StrToFloat(Edit10.Text);
  sqlquery1.Parameters.AddParameter;                   
  sqlquery1.Parameters[12].name:='s12';                //detain
  sqlquery1.Parameters[12].datatype:=ftfloat;
  sqlquery1.Parameters[12].direction:=pdinput;
  sqlquery1.Parameters[12].value:=StrToFloat(Edit11.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[13].name:='s13';                //tax
  sqlquery1.Parameters[13].datatype:=ftfloat;
  sqlquery1.Parameters[13].direction:=pdinput;
  sqlquery1.Parameters[13].value:=StrToFloat(Edit12.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[14].name:='s14';                //total
  sqlquery1.Parameters[14].datatype:=ftfloat;
  sqlquery1.Parameters[14].direction:=pdinput;
  sqlquery1.Parameters[14].value:=StrToFloat(Edit8.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[15].name:='s15';                //real_salary
  sqlquery1.Parameters[15].datatype:=ftfloat;
  sqlquery1.Parameters[15].direction:=pdinput;
  sqlquery1.Parameters[15].value:=real_salary;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[16].name:='s16';                //shuoming
  sqlquery1.Parameters[16].datatype:=ftstring;
  sqlquery1.Parameters[16].direction:=pdinput;
  sqlquery1.Parameters[16].value:='工资调整';
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[17].name:='s17';                //rest
  sqlquery1.Parameters[17].datatype:=ftfloat;
  sqlquery1.Parameters[17].direction:=pdinput;
  sqlquery1.Parameters[17].value:=StrToFloat(Edit7.Text);
  sqlquery1.execsql; }
  //info表打算之用作历史实发工资记录，以备查询，不做操作记录
  sqlquery1.SQL.add('update info set base_salary=:s0,float_salary=:s1,allowance_salary=:s2,age_salary=:s3,award=:s4,addition_award=:s5,');
  sqlquery1.sql.add('rest=:s6,insurance=:s7,rent=:s8,detain=:s9,total=:s10,tax=:s11,real_salary=:s12 where number=:s13');
  sqlquery1.parameters.Clear;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[0].name:='s0';
  sqlquery1.Parameters[0].datatype:=ftfloat;
  sqlquery1.Parameters[0].direction:=pdinput;
  sqlquery1.Parameters[0].value:=StrToFloat(Edit1.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[1].name:='s1';
  sqlquery1.Parameters[1].datatype:=ftfloat;
  sqlquery1.Parameters[1].direction:=pdinput;
  sqlquery1.Parameters[1].value:=StrToFloat(Edit2.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[2].name:='s2';
  sqlquery1.Parameters[2].datatype:=ftfloat;
  sqlquery1.Parameters[2].direction:=pdinput;
  sqlquery1.Parameters[2].value:=StrToFloat(Edit3.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[3].name:='s3';
  sqlquery1.Parameters[3].datatype:=ftfloat;
  sqlquery1.Parameters[3].direction:=pdinput;
  sqlquery1.Parameters[3].value:=StrToFloat(Edit4.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[4].name:='s4';
  sqlquery1.Parameters[4].datatype:=ftfloat;
  sqlquery1.Parameters[4].direction:=pdinput;
  sqlquery1.Parameters[4].value:=StrToFloat(Edit5.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[5].name:='s5';
  sqlquery1.Parameters[5].datatype:=ftfloat;
  sqlquery1.Parameters[5].direction:=pdinput;
  sqlquery1.Parameters[5].value:=StrToFloat(Edit6.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[6].name:='s6';
  sqlquery1.Parameters[6].datatype:=ftfloat;
  sqlquery1.Parameters[6].direction:=pdinput;
  sqlquery1.Parameters[6].value:=StrToFloat(Edit7.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[7].name:='s7';
  sqlquery1.Parameters[7].datatype:=ftfloat;
  sqlquery1.Parameters[7].direction:=pdinput;
  sqlquery1.Parameters[7].value:=StrToFloat(Edit8.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[8].name:='s8';
  sqlquery1.Parameters[8].datatype:=ftfloat;
  sqlquery1.Parameters[8].direction:=pdinput;
  sqlquery1.Parameters[8].value:=StrToFloat(Edit9.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[9].name:='s9';
  sqlquery1.Parameters[9].datatype:=ftfloat;
  sqlquery1.Parameters[9].direction:=pdinput;
  sqlquery1.Parameters[9].value:=StrToFloat(Edit10.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[10].name:='s10';
  sqlquery1.Parameters[10].datatype:=ftfloat;
  sqlquery1.Parameters[10].direction:=pdinput;
  sqlquery1.Parameters[10].value:=StrToFloat(Edit11.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[11].name:='s11';
  sqlquery1.Parameters[11].datatype:=ftfloat;
  sqlquery1.Parameters[11].direction:=pdinput;
  sqlquery1.Parameters[11].value:=StrToFloat(Edit12.Text);
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[12].name:='s12';
  sqlquery1.Parameters[12].datatype:=ftfloat;
  sqlquery1.Parameters[12].direction:=pdinput;
  sqlquery1.Parameters[12].value:=real_salary;
  sqlquery1.Parameters.AddParameter;
  sqlquery1.Parameters[13].name:='s13';
  sqlquery1.Parameters[13].datatype:=ftstring;
  sqlquery1.Parameters[13].direction:=pdinput;
  sqlquery1.Parameters[13].value:=Str1;
  sqlquery1.execsql;
  sqlquery1.Close;
  application.messagebox('操作成功!','提示信息',mb_ok);
end;

end.
12

⌨️ 快捷键说明

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