mulchange.pas

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

procedure TFormmulchange.ComboBox7Change(Sender: TObject);
var qry1:tadoquery;
    //s:string;
begin
qry1:=tadoquery.Create(self);
qry1.Connection:=datamod.Database1;
  if length(combobox7.text)>8 then
  begin
     listbox1.Items.Clear;
     Qry1.close;
     //s:=trim(copy(combobox7.text,1,pos('   ',combobox7.text)));
     Qry1.SQL.Text:='select * from pub05010 where dno='''+trim(copy(combobox7.text,1,pos('   ',combobox7.text)))+''' ';
     Qry1.Open;
     if Qry1.eof then
       Application.MessageBox('没有该部门，部门编号有误','Error',mb_ok+mb_iconerror)
     else begin
       Qry1.close;  //选出该部门所有的员工
       Qry1.SQL.Clear;
       Qry1.SQL.Text:='select workno,name,sexname from per24010 where deptno like '''+trim(copy(combobox7.text,1,pos('   ',combobox7.text)))+'%'' order by cardno';
       Qry1.Open;
       while not Qry1.Eof do  //不为空，就把它加入listbox1(工号，姓名，性别)中，等待user选择
       begin
         listbox1.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                            Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring)));
         Qry1.Next;
       end;
     end;
     Qry1.Close;
  end;
end;


procedure TFormmulchange.Edit2KeyPress(Sender: TObject; var Key: Char);
var
   i,p:integer;
   have:boolean;
   qry1:tadoquery;
begin
  qry1:=tadoquery.Create(self);
  qry1.Connection:=datamod.Database1;
  if key=#13 then
  begin
    have:=false;
    p:=-1;
    for i:=0 to Listbox2.Items.Count-1 do
    begin
      if trim(copy(listbox2.items[i],1,10))=Edit2.text then
      begin
         have:=true;
         p:=i;
      end;
    end;
    if not have then
    begin
      Qry1.Close;
      Qry1.sql.text:='Select * from per24010 where workno='''+Edit2.text+''' ';
      Qry1.open;
      if not Qry1.eof then
      begin
           listbox2.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                              Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring))+'   '+
                              Qry1.fieldbyname('sexname').asstring);
           listbox2.ItemIndex:=Listbox2.Items.count;
      end else
         Application.MessageBox('没有该工号的员工','Error',mb_ok+mb_iconerror);
    end;
    listbox2.ItemIndex:=p;
    edit2.Clear;
  end;
end;


procedure TFormmulchange.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to listbox1.items.count-1 do
    begin
       if listbox1.Selected[i] then
          listbox2.Items.add(listbox1.items[i]);
    end;
end;

procedure TFormmulchange.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to listbox1.items.count-1 do
      if listbox2.items.indexof(listbox1.items[i])<0 then
        listbox2.items.add(listbox1.items[i]);
end;

procedure TFormmulchange.SpeedButton3Click(Sender: TObject);
var i,j,k:integer;
    list:TStringList;
begin
  j:=0;
  list:=TStringList.Create;
  for i:=0 to listbox2.items.count-1 do
       list.add(listbox2.items[i]);
    k:=0;
 for i:=0 to listbox2.items.count-1 do
    if listbox2.Selected[i] then
    begin
    j:=i;
      list.delete(j-k);
      inc(k);
    end;
  listbox2.items.clear;
  for i:=0 to list.Count-1 do
    listbox2.Items.Add(list.Strings[i]);
  for i:=0 to list.count-1 do
      if j=list.count then
      begin
      listbox2.selected[j-1]:=true;
      end else
     begin
     listbox2.selected[j]:=true;
     break;
     end;
end;

procedure TFormmulchange.SpeedButton4Click(Sender: TObject);
begin
  listbox2.clear;
end;

procedure TFormmulchange.Button1Click(Sender: TObject);
var i,j,i1,j1:integer;
    dayormon:boolean;
    sqltext,sqltext1,sqltext2,sr:string;
begin
  sqltext:='';
  sqltext1:='update per24010 ';
 // s:=copy(wwDBLookupCombo1.Text,1,pos('',wwDBLookupCombo1.text));
  if (wwDBLookupCombo1.Text<>'')  then
      if sqltext='' then
      sqltext:='set deptno='''+wwDBLookupCombo1.Text+''',dept='''+label3.Caption+''','
      else
      sqltext:='deptno='''+wwDBLookupCombo1.Text+''',dept='''+label3.Caption+''','
  else
    if sqltext='' then
      sqltext:='set '
    else
       sqltext:=sqltext+'';
  if (combobox2.Text<>'')  then
    if sqltext<>'' then
     sqltext:=sqltext+'prof='''+combobox2.Text+''','
    else
     sqltext:='set '''+sqltext+'''prof='''+combobox2.Text+''','
  else
     if sqltext='' then
        sqltext:='set '
     else
        sqltext:=sqltext+'';
  if (combobox3.Text<>'')  then
    if sqltext<>'' then
     sqltext:=sqltext+'mankind='''+combobox3.Text+''','
    else
     sqltext:='set '
  else
    if sqltext<>'' then
       sqltext:=sqltext+''
    else
       sqltext:='set ';
  if radiobutton1.Checked=true then
    if sqltext='' then
       sqltext:='set '
    else
       sqltext:=sqltext+'dayormon=1,'
  else if radiobutton2.Checked=true then
    if sqltext='' then
       sqltext:='set '
    else
       sqltext:=sqltext+'dayormon=0,'
  else
    if sqltext='' then
       sqltext:='set '
    else
     sqltext:=sqltext+'';
  if (wwdblookupcombo2.Text<>'')  then
    if sqltext='' then
       sqltext:='set '
    else
     sqltext:=sqltext+'scheno='''+wwDBLookupCombo2.Text+''','
  else
    if sqltext='' then
       sqltext:='set '
    else
     sqltext:=sqltext+'';
  if (combobox5.Text<>'')  then
    if sqltext='' then
       sqltext:='set '
    else
     sqltext:=sqltext+'dothing='''+combobox5.Text+''','
  else
    if sqltext='' then
       sqltext:='set '
    else
     sqltext:=sqltext+'';
  if (combobox6.Text<>'')  then
    if sqltext='' then
       sqltext:='set '
    else
     sqltext:=sqltext+'ruleno='''+combobox6.Text+''','
  else
    if sqltext='' then
       sqltext:='set '
    else
     sqltext:=sqltext+'';
  sqltext:=copy(sqltext,1,length(sqltext)-1);
  if listbox2.Items.Count<=0 then exit;
  for i:=0 to listbox2.Items.Count-1 do
    begin
      sqltext2:=' where workno = '''+ Copy(trim(listbox2.items[i]),1,pos(' ',trim(listbox2.items[i])))+'''';
      Query1.Close;
      Query1.sql.clear;
      Query1.SQL.Text:=sqltext1+sqltext+sqltext2;
      Query1.ExecSQL;
    end;
    showmessage('存档完毕！');
    //listbox2.Items.Clear;
end;


procedure TFormmulchange.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Formmulchange:=nil;
  action:=cafree;
end;


procedure TFormmulchange.ComboBox4Change(Sender: TObject);
begin
  Query1.close;
  Query1.Parameters[0].Value :=wwDBLookupCombo2.Text;
  Query1.sql.savetofile('c:\dyh5.sql');
  Query1.open;

end;

procedure TFormmulchange.wwDBLookupCombo1Change(Sender: TObject);
var qry1:tadoquery;
begin
  qry1:=tadoquery.Create(self);
  qry1.Connection:=datamod.Database1;
  qry1.Close;
  qry1.SQL.Text:='select dept from pub05010 where dno='''+wwDBLookupCombo1.Text+'''';
  qry1.Open;
  label3.Caption:=qry1.fieldbyname('dept').asstring;
end;

procedure TFormmulchange.wwDBLookupCombo2Change(Sender: TObject);
begin
  Query1.close;
  Query1.Parameters[0].Value :=wwDBLookupCombo2.Text;
  Query1.sql.savetofile('c:\dyh5.sql');
  Query1.open;

end;

end.