unit1.pas

新旧人事软件数据结转程序 从sqlserver转至VF数据

ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('select lb as dl,ls as ds,jb as dj,xz as dx,hy,g1,g2,g3,g4,px from dwk where no='''+Query1.fieldbyname('rd').asstring+'''');
ADOQuery4.Open;
//edit1.Text:='select dl,ds,dj,dx,hy,g1,g2,g3,g4,px from dwk where no='''+Query1.fieldbyname('rd').asstring+'''';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(instsql);
ADOQuery1.SQL.Add('values(:bh,:rd,:rb,:rz,:zm,:j2,:j1,:zc,:xh,:zg,:zl,:cz,:ts,:th,:rs,:rh,:ms,:dl,:ds,:dj,:dx,:hy,:g1,:g2,:g3,:g4,:px,:hx,:hd)');
ADOQuery1.Parameters.ParamByName('bh').Value:=strtofloat(Query1.fieldbyname('BH').asstring);;
ADOQuery1.Parameters.ParamByName('rd').value:=Query1.fieldbyname('rd').asstring;
ADOQuery1.Parameters.ParamByName('rb').value:=Query1.fieldbyname('rb').asstring;
ADOQuery1.Parameters.ParamByName('rz').value:=Query1.fieldbyname('rz').asstring;
ADOQuery1.Parameters.ParamByName('zm').value:=Query1.fieldbyname('zm').asstring;
ADOQuery1.Parameters.ParamByName('j2').value:=Query1.fieldbyname('j2').asstring;
ADOQuery1.Parameters.ParamByName('j1').value:=Query1.fieldbyname('j1').asstring;
ADOQuery1.Parameters.ParamByName('zc').value:=Query1.fieldbyname('zc').asstring;
ADOQuery1.Parameters.ParamByName('xh').value:=Query1.fieldbyname('xh').asstring;
ADOQuery1.Parameters.ParamByName('zg').value:=Query1.fieldbyname('zg').asstring;
ADOQuery1.Parameters.ParamByName('zl').value:=Query1.fieldbyname('zl').asstring;
ADOQuery1.Parameters.ParamByName('cz').value:=Query1.fieldbyname('cz').asstring;
ADOQuery1.Parameters.ParamByName('ts').value:=Query1.fieldbyname('ts').asstring;
ADOQuery1.Parameters.ParamByName('th').value:=Query1.fieldbyname('th').asstring;
ADOQuery1.Parameters.ParamByName('rs').value:=delstring(Query1.fieldbyname('rs').asstring);
ADOQuery1.Parameters.ParamByName('rh').value:=Query1.fieldbyname('rh').asstring;
ADOQuery1.Parameters.ParamByName('ms').value:=Query1.fieldbyname('ms').asstring;
ADOQuery1.Parameters.ParamByName('dl').value:=ADOQuery4.fieldbyname('dl').asstring;
ADOQuery1.Parameters.ParamByName('ds').value:=ADOQuery4.fieldbyname('ds').asstring;
ADOQuery1.Parameters.ParamByName('dj').value:=ADOQuery4.fieldbyname('dj').asstring;
ADOQuery1.Parameters.ParamByName('dx').value:=ADOQuery4.fieldbyname('dx').asstring;
ADOQuery1.Parameters.ParamByName('hy').value:=ADOQuery4.fieldbyname('hy').asstring;
ADOQuery1.Parameters.ParamByName('g1').value:=ADOQuery4.fieldbyname('g1').asstring;
ADOQuery1.Parameters.ParamByName('g2').value:=ADOQuery4.fieldbyname('g2').asstring;
ADOQuery1.Parameters.ParamByName('g3').value:=ADOQuery4.fieldbyname('g3').asstring;
ADOQuery1.Parameters.ParamByName('g4').value:=ADOQuery4.fieldbyname('g4').asstring;
ADOQuery1.Parameters.ParamByName('px').value:=ADOQuery4.fieldbyname('px').asstring;
ADOQuery1.Parameters.ParamByName('hx').value:='结转';
ADOQuery1.Parameters.ParamByName('hd').value:='20061001';
ADOQuery1.ExecSQL;
Query1.Next;
  end;
  end;
 application.MessageBox('职务表操作成功！','提示信息',mb_ok);
except
    raise Exception.Create('职务表操作失败！');
 end;
 end;


procedure TForm1.Button1Click(Sender: TObject);
begin
//DBGrid1.Action:=false;
 if Flistdate1.Count >0 then
 begin
   //if  ListBox1.count>0 then
   if PageControl1.TabIndex =0 then
   begin
  //Edit1.Text:='w22323';
  ListBox1.Clear;
  instGrid('B0001');//生成基本表
  //Edit1.Text:='wwwww';
  //instsbjt1('B0001');//家庭成员表
  //instsbzl1('B0001');//履历表
  //instsbrz1('B0001');
  Flistdate1.Clear;
  //ListBox1.Clear;
   end;// else
   //begin
   //if  ListBox2.count>0 then
   if PageControl1.TabIndex =1 then
   begin
  ListBox2.Clear;
  instGrid('PersonID');//生成基本表
  instsbjt1('PersonID');//家庭成员表
  instsbzl1('PersonID');//履历表
  instsbrz1('PersonID');
  Flistdate1.Clear;
  //ListBox2.Clear;
   end;
   //end;
  end else
  application.MessageBox('请选择转出人员！','提示信息',mb_ok);
end;



procedure TForm1.TreeView3DblClick(Sender: TObject);
var
i:integer;
tt:string;
begin
//Edit5.Text:=Treeview1.Selected.Text;
for i:= 0 to flist.Count-1 do
   begin
  if Treeview3.Selected.Text=flist1.Strings[i] then
   begin
   Edit5.Text:=Treeview3.Selected.Text;
   tt:=flist.Strings[i];
   Edit6.Text:=tt;
 end;
end;
Edit3.Text:='';
Edit4.Text:='';
Query4.SQL.Clear;
//Edit3.Text:= 'select * from OrganizationToDwk where CodeItemID='''+tt+''' ORDER BY NO'
Query4.SQL.Add('select * from OrganizationToDwk where CodeItemID='''+tt+''' ORDER BY NO');
Query4.Open;
if not Query4.Eof then
 begin
 Edit3.Text:=Query4.fieldbyname('no').asstring;
 Edit4.Text:=Query4.fieldbyname('dz').asstring;
 end;
//ADOTable2.Active:=true;

end;
procedure TForm1.DBGrid3DblClick(Sender: TObject);
var
sProductID,sProductdz:String;
begin
sProductID:=ADOTable2.fieldbyname('no').asstring;
sProductdz:=ADOTable2.fieldbyname('dz').asstring;
Edit3.Text:= sProductID;
Edit4.Text:= sProductdz;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
strsele,instr:String;
begin
if edit6.Text<>'' then
begin
try
strsele:='';
strsele:='select * from OrganizationToDwk where CodeItemID='''+edit6.Text+'''';
Query6.SQL.Clear;
 Query6.SQL.Add(strsele);
Query6.Open;
if Query6.Eof then
 begin
instr:='insert into OrganizationToDwk (CodeID,CodeItemID,CodeItemName,no,dz)';
Query4.SQL.Add(instr);
Query4.SQL.Add('values(:CodeID,:CodeItemID,:CodeItemName,:no,:dz)');
Query4.Parameters.ParamByName('CodeID').value:='N';
Query4.Parameters.ParamByName('CodeItemID').value:=edit6.Text;
Query4.Parameters.ParamByName('CodeItemName').value:=edit5.Text;
Query4.Parameters.ParamByName('no').Value:=edit3.Text;
Query4.Parameters.ParamByName('dz').Value:=edit4.Text;
Query4.ExecSQL;
 end else
 begin

 strsele:='';
 strsele:='update OrganizationToDwk set no=:no,dz=:dz where CodeItemID=:CodeItemID';
 Query4.SQL.Clear;
 Query4.SQL.Add(strsele);
 Query4.Parameters.ParamByName('no').Value:=edit3.Text;
 Query4.Parameters.ParamByName('dz').Value:=edit4.Text;
 Query4.Parameters.ParamByName('CodeItemID').Value:=edit6.Text;
 Query4.ExecSQL;
 end;
 Memo1.Lines.Add(edit6.Text+edit5.Text+'对应'+edit3.Text+edit4.Text);
 application.MessageBox('操作成功！','提示信息',mb_ok);
 edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
except
    raise Exception.Create('数据库连接失败！');
end;
end;
end;

procedure TForm1.Edit3DblClick(Sender: TObject);
begin
edit3.Text:='';
edit4.Text:='';
end;

procedure TForm1.Button4Click(Sender: TObject);
var
instr:string;
begin
try
//Query3.SQL.Clear;
//Query3.SQL.Add('DELETE from OrganizationToDwk');
//Query3.Open;
//Query3.Close;

Query3.SQL.Clear;
Query3.SQL.Add('select CodeID,CodeItemID,CodeItemName from Organization');
Query3.Open;
while not Query3.Eof do
 begin
  Query2.SQL.Clear;
  instr:='insert into OrganizationToDwk (CodeID,CodeItemID,CodeItemName)';
Query2.SQL.Add(instr);
Query2.SQL.Add('values(:CodeID,:CodeItemID,:CodeItemName)');
Query2.Parameters.ParamByName('CodeID').value:=Query3.fieldbyname('CodeID').asstring;
Query2.Parameters.ParamByName('CodeItemID').value:=Query3.fieldbyname('CodeItemID').asstring;
Query2.Parameters.ParamByName('CodeItemName').value:=Query3.fieldbyname('CodeItemName').asstring;
Query2.ExecSQL;
Query3.Next;
  end;
 application.MessageBox('创建成功！','提示信息',mb_ok);
except
 raise Exception.Create('创建失败！');
 end;
end;

procedure TForm1.Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
{if (x>Label9.Left) and (x<(Label9.Left+Label9.Width)) then
begin
   if(y>Label6.Top)then
   begin
Label6.Visible:=True;
Label8.Visible:=false;
Label7.Visible:=false;
   // end;
end else
begin
    //if(y>(Label6.top+Label6.Height)) then
   Label6.Visible:=false;
end;
end; }
end;

procedure TForm1.Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
{if (x>Label10.Left) and (x<(Label10.Left+Label10.Width)) then
begin
   //if(y>Label10.Top)then
   //begin
Label7.Visible:=True;
Label8.Visible:=false;
Label6.Visible:=false;
   // end;
end else
begin
    //if(y>(Label6.top+Label6.Height)) then
   Label7.Visible:=false;
//end;
end; }
end;

procedure TForm1.Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (x>Label11.Left) and (x<(Label11.Left+Label11.Width)) then
begin
   if(y>Label8.Top)then
   begin
Label8.Visible:=True;

   // end;
end else
begin
    //if(y>(Label6.top+Label6.Height)) then
   Label8.Visible:=false;
end;
end;
end;

procedure TForm1.DBGrid5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

Label8.Visible:=false;
end;

procedure TForm1.Panel4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Panel16MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.TabSheet4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.TreeView2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.ListBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.TreeView3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Edit6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Edit5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Edit4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.DBGrid3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Panel9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label8.Visible:=false;
end;

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
Label8.Visible:=false;
end;

end.