117 lines
5.1 KiB
ObjectPascal
117 lines
5.1 KiB
ObjectPascal
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ADODB, DB, Grids, DBGrids;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
ADOConnection1: TADOConnection;
|
|
ADODataSet1: TADODataSet;
|
|
DBGrid1: TDBGrid;
|
|
DataSource1: TDataSource;
|
|
ADOConnection2: TADOConnection;
|
|
ADOCommand1: TADOCommand;
|
|
ADODataSet2: TADODataSet;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Private declarations }
|
|
function CdatetoEdate(adate: string): string;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
function TForm1.CdatetoEdate(adate: string): string;
|
|
begin
|
|
if adate = '' then
|
|
Result := ''
|
|
else
|
|
Result := FormatDateTime('yyyy/mm/dd',
|
|
EncodeDate(StrToInt(Copy(adate, 1, 2)) + 1911, StrToInt(Copy(adate, 4, 2)), StrToInt(Copy(adate, 7, 2))));
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
ADOConnection1.Connected := True;
|
|
ADODataSet1.Open;
|
|
|
|
ADOConnection2.Connected := True;
|
|
ADOCommand1.Execute;
|
|
ADODataSet2.Open;
|
|
|
|
while not ADODataSet1.Eof do
|
|
begin
|
|
ADODataSet2.Append;
|
|
|
|
ADODataSet2.FieldByName('員工編號').Value := ADODataSet1.FieldValues['A'];
|
|
ADODataSet2.FieldByName('員工姓名').Value := ADODataSet1.FieldValues['B'];
|
|
ADODataSet2.FieldByName('性別' ).Value := ADODataSet1.FieldValues['C'];
|
|
ADODataSet2.FieldByName('轉存方式').Value := ADODataSet1.FieldValues['D'];
|
|
ADODataSet2.FieldByName('到職日' ).AsString := CdatetoEdate(VarToStr(ADODataSet1.FieldValues['E']));
|
|
ADODataSet2.FieldByName('底薪' ).Value := StringReplace(VarToStr(ADODataSet1.FieldValues['F']), ',', '', [rfReplaceAll, rfIgnoreCase]);
|
|
ADODataSet2.FieldByName('薪資別' ).Value := ADODataSet1.FieldValues['G'];
|
|
ADODataSet2.FieldByName('行號' ).Value := ADODataSet1.FieldValues['H'];
|
|
ADODataSet2.FieldByName('英文全名').Value := ADODataSet1.FieldValues['I'];
|
|
ADODataSet1.MoveBy(1);
|
|
|
|
ADODataSet2.FieldByName('職務' ).Value := ADODataSet1.FieldValues['A'];
|
|
ADODataSet2.FieldByName('職務名稱' ).Value := ADODataSet1.FieldValues['B'];
|
|
ADODataSet2.FieldByName('出生日期' ).AsString := CdatetoEdate(VarToStr(ADODataSet1.FieldValues['C']));
|
|
ADODataSet2.FieldByName('投保身份' ).Value := ADODataSet1.FieldValues['D'];
|
|
ADODataSet2.FieldByName('離職日' ).AsString := CdatetoEdate(VarToStr(ADODataSet1.FieldValues['E']));
|
|
ADODataSet2.FieldByName('加班費' ).Value := StringReplace(VarToStr(ADODataSet1.FieldValues['F']), ',', '', [rfReplaceAll, rfIgnoreCase]);
|
|
ADODataSet2.FieldByName('帳號' ).Value := ADODataSet1.FieldValues['G'];
|
|
ADODataSet2.FieldByName('固定稅率' ).Value := StringReplace(VarToStr(ADODataSet1.FieldValues['H']), ',', '', [rfReplaceAll, rfIgnoreCase]);
|
|
ADODataSet2.FieldByName('聯絡電話一').Value := ADODataSet1.FieldValues['I'];
|
|
ADODataSet1.MoveBy(1);
|
|
|
|
ADODataSet2.FieldByName('部門' ).Value := ADODataSet1.FieldValues['A'];
|
|
ADODataSet2.FieldByName('部門名稱' ).Value := ADODataSet1.FieldValues['B'];
|
|
ADODataSet2.FieldByName('身份證字號').Value := ADODataSet1.FieldValues['C'];
|
|
ADODataSet2.FieldByName('勞保卡號' ).Value := ADODataSet1.FieldValues['D'];
|
|
ADODataSet2.FieldByName('退休日' ).AsString := CdatetoEdate(VarToStr(ADODataSet1.FieldValues['E']));
|
|
ADODataSet2.FieldByName('全勤獎金' ).Value := StringReplace(VarToStr(ADODataSet1.FieldValues['F']), ',', '', [rfReplaceAll, rfIgnoreCase]);
|
|
ADODataSet2.FieldByName('課稅方式' ).Value := ADODataSet1.FieldValues['G'];
|
|
ADODataSet2.FieldByName('固定稅額' ).Value := StringReplace(VarToStr(ADODataSet1.FieldValues['H']), ',', '', [rfReplaceAll, rfIgnoreCase]);
|
|
ADODataSet2.FieldByName('聯絡電話二').Value := ADODataSet1.FieldValues['I'];
|
|
ADODataSet1.MoveBy(1);
|
|
|
|
ADODataSet2.FieldByName('職等' ).Value := ADODataSet1.FieldValues['A'];
|
|
ADODataSet2.FieldByName('職等名稱' ).Value := ADODataSet1.FieldValues['B'];
|
|
ADODataSet2.FieldByName('婚姻狀況' ).Value := ADODataSet1.FieldValues['C'];
|
|
ADODataSet2.FieldByName('健保號碼' ).Value := ADODataSet1.FieldValues['D'];
|
|
ADODataSet2.FieldByName('資遣日' ).AsString := CdatetoEdate(VarToStr(ADODataSet1.FieldValues['E']));
|
|
ADODataSet2.FieldByName('退休金制度').Value := ADODataSet1.FieldValues['F'];
|
|
ADODataSet2.FieldByName('戶籍地址' ).Value := ADODataSet1.FieldValues['G'];
|
|
ADODataSet1.MoveBy(1);
|
|
|
|
ADODataSet2.FieldByName('學歷' ).Value := ADODataSet1.FieldValues['A'];
|
|
ADODataSet2.FieldByName('補助等級' ).Value := ADODataSet1.FieldValues['B'];
|
|
ADODataSet2.FieldByName('年資' ).Value := StringReplace(VarToStr(ADODataSet1.FieldValues['C']), ',', '', [rfReplaceAll, rfIgnoreCase]);
|
|
ADODataSet2.FieldByName('提繳身份別').Value := ADODataSet1.FieldValues['D'];
|
|
ADODataSet2.FieldByName('通訊地址' ).Value := ADODataSet1.FieldValues['G'];
|
|
ADODataSet1.MoveBy(1);
|
|
|
|
ADODataSet2.Post;
|
|
end;
|
|
|
|
ADOConnection1.Connected := False;
|
|
end;
|
|
|
|
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
ADOConnection2.Connected := False;
|
|
end;
|
|
|
|
end.
|