chore: 首次簽入 Thinkyu ASP.NET 專案

- 加入 Visual Studio / ASP.NET .gitignore - 排除建置輸出、IDE 設定、NuGet packages、大型 MSI 安裝檔
2026-09-10 09:42:37 +08:00
commit 577060bc78
2496 changed files with 501389 additions and 0 deletions
@@ -0,0 +1,116 @@
+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.