salary.~pas

本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&

        Edit19.Text:=adodataset1.FieldByname('shuoming').AsString;
        if adodataset1.FieldByName('enabled').Asstring='T'  then
          Checkbox1.Checked:=True
        else
          Checkbox1.Checked:=false;
      end;
    end
    else
    begin
      if radiobutton2.checked or radiobutton3.checked then
      begin
        application.messagebox('该用户不存在,请重新输入:(','提示信息',mb_ok);
        EmptyDataBox;
        edit1.setfocus;
      end
      else
      begin
        edit2.setfocus;
      end;
    end;
    adodataset1.active:=false;
  end;
end;

procedure Tsalaryform.Edit5Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit6Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit7Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit8Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit9Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit10Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit11Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit12Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit13Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Edit14Exit(Sender: TObject);
begin
  RetrySalary;
end;

procedure Tsalaryform.Button1Click(Sender: TObject);
var
  adodataset1:tadoquery;
begin
  adodataset1:=tadoquery.create(self);
  adodataset1.connection:=adoconnection1;
  adodataset1.close;
  adodataset1.SQL.clear;
  if radiobutton1.checked then
  begin
    adodataset1.sql.add('insert into salary values(:s0,:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17,:s18,:s19,:s20,:s21,:s22,:s23,:s24)');
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[1].Name:='s1';
    adodataset1.parameters[1].datatype:=ftstring;
    adodataset1.parameters[1].direction:=pdinput;
    adodataset1.parameters[1].value:=edit2.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[2].Name:='s2';
    adodataset1.parameters[2].datatype:=ftstring;
    adodataset1.parameters[2].direction:=pdinput;
    adodataset1.parameters[2].value:=combobox1.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[3].Name:='s3';
    adodataset1.parameters[3].datatype:=ftstring;
    adodataset1.parameters[3].direction:=pdinput;
    adodataset1.parameters[3].value:=edit3.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[4].Name:='s4';
    adodataset1.parameters[4].datatype:=ftdate;
    adodataset1.parameters[4].direction:=pdinput;
    adodataset1.parameters[4].value:=strtodate(maskedit1.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[5].Name:='s5';
    adodataset1.parameters[5].datatype:=ftdate;
    adodataset1.parameters[5].direction:=pdinput;
    adodataset1.parameters[5].value:=strtodate(maskedit2.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[6].Name:='s6';
    adodataset1.parameters[6].datatype:=ftdate;
    adodataset1.parameters[6].direction:=pdinput;
    adodataset1.parameters[6].value:=date();
    adodataset1.parameters.addparameter;
    adodataset1.parameters[7].Name:='s7';
    adodataset1.parameters[7].datatype:=ftstring;
    adodataset1.parameters[7].direction:=pdinput;
    adodataset1.parameters[7].value:=edit4.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[8].Name:='s8';
    adodataset1.parameters[8].datatype:=ftstring;
    adodataset1.parameters[8].direction:=pdinput;
    adodataset1.parameters[8].value:=edit18.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[9].Name:='s9';
    adodataset1.parameters[9].datatype:=ftstring;
    adodataset1.parameters[9].direction:=pdinput;
    adodataset1.parameters[9].value:=username;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[10].Name:='s10';
    adodataset1.parameters[10].datatype:=ftfloat;
    adodataset1.parameters[10].direction:=pdinput;
    adodataset1.parameters[10].value:=strtofloat(edit5.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[11].Name:='s11';
    adodataset1.parameters[11].datatype:=ftfloat;
    adodataset1.parameters[11].direction:=pdinput;
    adodataset1.parameters[11].value:=strtofloat(edit6.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[12].Name:='s12';
    adodataset1.parameters[12].datatype:=ftfloat;
    adodataset1.parameters[12].direction:=pdinput;
    adodataset1.parameters[12].value:=strtofloat(edit7.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[13].Name:='s13';
    adodataset1.parameters[13].datatype:=ftfloat;
    adodataset1.parameters[13].direction:=pdinput;
    adodataset1.parameters[13].value:=strtofloat(edit8.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[14].Name:='s14';
    adodataset1.parameters[14].datatype:=ftfloat;
    adodataset1.parameters[14].direction:=pdinput;
    adodataset1.parameters[14].value:=strtofloat(edit9.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[15].Name:='s15';
    adodataset1.parameters[15].datatype:=ftfloat;
    adodataset1.parameters[15].direction:=pdinput;
    adodataset1.parameters[15].value:=strtofloat(edit10.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[16].Name:='s16';
    adodataset1.parameters[16].datatype:=ftfloat;
    adodataset1.parameters[16].direction:=pdinput;
    adodataset1.parameters[16].value:=strtofloat(edit11.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[17].Name:='s17';
    adodataset1.parameters[17].datatype:=ftfloat;
    adodataset1.parameters[17].direction:=pdinput;
    adodataset1.parameters[17].value:=strtofloat(edit12.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[18].Name:='s18';
    adodataset1.parameters[18].datatype:=ftfloat;
    adodataset1.parameters[18].direction:=pdinput;
    adodataset1.parameters[18].value:=strtofloat(edit13.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[19].Name:='s19';
    adodataset1.parameters[19].datatype:=ftfloat;
    adodataset1.parameters[19].direction:=pdinput;
    adodataset1.parameters[19].value:=strtofloat(edit14.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[20].Name:='s20';
    adodataset1.parameters[20].datatype:=ftfloat;
    adodataset1.parameters[20].direction:=pdinput;
    adodataset1.parameters[20].value:=strtofloat(edit16.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[21].Name:='s21';
    adodataset1.parameters[21].datatype:=ftfloat;
    adodataset1.parameters[21].direction:=pdinput;
    adodataset1.parameters[21].value:=strtofloat(edit17.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[22].Name:='s22';
    adodataset1.parameters[22].datatype:=ftfloat;
    adodataset1.parameters[22].direction:=pdinput;
    adodataset1.parameters[22].value:=strtofloat(edit15.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[23].Name:='s23';
    adodataset1.parameters[23].datatype:=ftstring;
    adodataset1.parameters[23].direction:=pdinput;
    adodataset1.parameters[23].value:=edit19.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[24].Name:='s24';
    adodataset1.parameters[24].datatype:=ftstring;
    adodataset1.parameters[24].direction:=pdinput;
    if checkbox1.checked then
      adodataset1.parameters[24].value:='T'
    else
      adodataset1.parameters[24].value:='F';
    adodataset1.ExecSQL;
    writehistorydatatable;
  end
  else if radiobutton2.checked then
  begin
    adodataset1.SQL.add('delete from salary where number=:s0');
    adodataset1.Parameters.clear;
    adodataset1.Parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.ExecSQL;
  end
  else
  begin
    adodataset1.sql.add('update salary ');
    adodataset1.SQL.add('set name=:s0,sex=:s1,id=:s2,birthdate=:s3,workdate=:s4,operatordate=:s5,job=:s6,office=:s7,');
    adodataset1.sql.Add('operator=:s8,base_salary=:s9,float_salary=:s10,allowance_salary=:s11,');
    adodataset1.SQL.add('age_salary=:s12,award=:s13,addition_award=:s14,rest=:s15,insurance=:s16,');
    adodataset1.sql.add('rent=:s17,detain=:s18,total=:19,real_salary=:s20,tax=:s21,shuoming=:s22,enabled=:s23');
    adodataset1.sql.add('where number=:s24');
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;                                                                         
    adodataset1.parameters[0].value:=edit2.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[1].Name:='s1';
    adodataset1.parameters[1].datatype:=ftstring;
    adodataset1.parameters[1].direction:=pdinput;
    adodataset1.parameters[1].value:=combobox1.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[2].Name:='s2';
    adodataset1.parameters[2].datatype:=ftstring;
    adodataset1.parameters[2].direction:=pdinput;
    adodataset1.parameters[2].value:=edit3.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[3].Name:='s3';
    adodataset1.parameters[3].datatype:=ftdate;
    adodataset1.parameters[3].direction:=pdinput;
    adodataset1.parameters[3].value:=strtodate(maskedit1.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[4].Name:='s4';
    adodataset1.parameters[4].datatype:=ftdate;
    adodataset1.parameters[4].direction:=pdinput;
    adodataset1.parameters[4].value:=strtodate(maskedit2.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[5].Name:='s5';
    adodataset1.parameters[5].datatype:=ftdate;
    adodataset1.parameters[5].direction:=pdinput;
    adodataset1.parameters[5].value:=date();
    adodataset1.parameters.addparameter;
    adodataset1.parameters[6].Name:='s6';
    adodataset1.parameters[6].datatype:=ftstring;
    adodataset1.parameters[6].direction:=pdinput;
    adodataset1.parameters[6].value:=edit4.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[7].Name:='s7';
    adodataset1.parameters[7].datatype:=ftstring;
    adodataset1.parameters[7].direction:=pdinput;
    adodataset1.parameters[7].value:=edit18.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[8].Name:='s8';
    adodataset1.parameters[8].datatype:=ftstring;
    adodataset1.parameters[8].direction:=pdinput;
    adodataset1.parameters[8].value:=username;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[9].Name:='s9';
    adodataset1.parameters[9].datatype:=ftfloat;
    adodataset1.parameters[9].direction:=pdinput;
    adodataset1.parameters[9].value:=strtofloat(edit5.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[10].Name:='s10';
    adodataset1.parameters[10].datatype:=ftfloat;
    adodataset1.parameters[10].direction:=pdinput;
    adodataset1.parameters[10].value:=strtofloat(edit6.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[11].Name:='s11';
    adodataset1.parameters[11].datatype:=ftfloat;
    adodataset1.parameters[11].direction:=pdinput;
    adodataset1.parameters[11].value:=strtofloat(edit7.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[12].Name:='s12';
    adodataset1.parameters[12].datatype:=ftfloat;
    adodataset1.parameters[12].direction:=pdinput;
    adodataset1.parameters[12].value:=strtofloat(edit8.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[13].Name:='s13';
    adodataset1.parameters[13].datatype:=ftfloat;
    adodataset1.parameters[13].direction:=pdinput;
    adodataset1.parameters[13].value:=strtofloat(edit9.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[14].Name:='s14';
    adodataset1.parameters[14].datatype:=ftfloat;
    adodataset1.parameters[14].direction:=pdinput;
    adodataset1.parameters[14].value:=strtofloat(edit10.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[15].Name:='s15';
    adodataset1.parameters[15].datatype:=ftfloat;
    adodataset1.parameters[15].direction:=pdinput;
    adodataset1.parameters[15].value:=strtofloat(edit11.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[16].Name:='s16';
    adodataset1.parameters[16].datatype:=ftfloat;
    adodataset1.parameters[16].direction:=pdinput;
    adodataset1.parameters[16].value:=strtofloat(edit12.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[17].Name:='s17';
    adodataset1.parameters[17].datatype:=ftfloat;
    adodataset1.parameters[17].direction:=pdinput;
    adodataset1.parameters[17].value:=strtofloat(edit13.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[18].Name:='s18';
    adodataset1.parameters[18].datatype:=ftfloat;
    adodataset1.parameters[18].direction:=pdinput;
    adodataset1.parameters[18].value:=strtofloat(edit14.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[19].Name:='s19';
    adodataset1.parameters[19].datatype:=ftfloat;
    adodataset1.parameters[19].direction:=pdinput;
    adodataset1.parameters[19].value:=strtofloat(edit16.text);   
    adodataset1.parameters.addparameter;
    adodataset1.parameters[20].Name:='s20';
    adodataset1.parameters[20].datatype:=ftfloat;
    adodataset1.parameters[20].direction:=pdinput;
    adodataset1.parameters[20].value:=strtofloat(edit17.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[21].Name:='s21';
    adodataset1.parameters[21].datatype:=ftfloat;
    adodataset1.parameters[21].direction:=pdinput;
    adodataset1.parameters[21].value:=strtofloat(edit15.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[22].Name:='s22';
    adodataset1.parameters[22].datatype:=ftstring;
    adodataset1.parameters[22].direction:=pdinput;
    adodataset1.parameters[22].value:=edit19.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[23].Name:='s23';
    adodataset1.parameters[23].datatype:=ftstring;
    adodataset1.parameters[23].direction:=pdinput;
    if checkbox1.checked then
      adodataset1.parameters[23].value:='T'
    else
      adodataset1.parameters[23].value:='F';
    adodataset1.parameters.addparameter;
    adodataset1.parameters[24].Name:='s24';
    adodataset1.parameters[24].datatype:=ftstring;
    adodataset1.parameters[24].direction:=pdinput;
    adodataset1.parameters[24].value:=edit1.text;
    adodataset1.ExecSQL;
    writehistorydatatable;
  end;
  adodataset1.close;
  application.messagebox('操作成功:)','提示信息',mb_ok);
  emptydatabox;
  edit1.setfocus;
end;

end.