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,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vclx;vcl;rtl;indy;dsnapcon;dsnap;dbrtl;vcldb;VclSmp;adortl;bdertl;vcldbx;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;Comm;dclOffice2k;WLib70;TntUnicodeVcl_R70;vclshlctrlsW
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=C:\Program Files\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1028
+CodePage=950
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
@@ -0,0 +1,10 @@
+[Stats]
+EditorSecs=43
+DesignerSecs=22
+InspectorSecs=1
+CompileSecs=5147
+OtherSecs=29
+StartTime=2008/1/28 15:50:17
+RealKeys=0
+EffectiveKeys=0
+DebugSecs=1
@@ -0,0 +1,81 @@
+object Form1: TForm1
+  Left = 192
+  Top = 121
+  Width = 696
+  Height = 480
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DBGrid1: TDBGrid
+    Left = 16
+    Top = 72
+    Width = 657
+    Height = 353
+    DataSource = DataSource1
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object ADOConnection1: TADOConnection
+    ConnectionString = 
+      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VS.NET\Thinkyu\D' +
+      'oc\'#21729#24037#36039#26009#34920'excel_1.xls;Extended Properties="EXCEL 8.0;HDR=0;IMEX=1"' +
+      ';Persist Security Info=False'
+    KeepConnection = False
+    LoginPrompt = False
+    Mode = cmShareDenyNone
+    Provider = 'Microsoft.Jet.OLEDB.4.0'
+    Left = 40
+    Top = 16
+  end
+  object ADODataSet1: TADODataSet
+    Connection = ADOConnection1
+    CursorType = ctStatic
+    CommandText = 'select * from ['#21729#24037#36039#26009#34920'excel$]'
+    Parameters = <>
+    Left = 128
+    Top = 16
+  end
+  object DataSource1: TDataSource
+    DataSet = ADODataSet2
+    Left = 216
+    Top = 16
+  end
+  object ADOConnection2: TADOConnection
+    ConnectionString = 
+      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VS.NET\Thinkyu\D' +
+      'oc\'#21729#24037#36039#26009#34920'.mdb;Persist Security Info=False'
+    KeepConnection = False
+    LoginPrompt = False
+    Provider = 'Microsoft.Jet.OLEDB.4.0'
+    Left = 328
+    Top = 16
+  end
+  object ADOCommand1: TADOCommand
+    CommandText = 'DELETE FROM ['#21729#24037#36039#26009']'
+    Connection = ADOConnection2
+    Parameters = <>
+    Left = 416
+    Top = 16
+  end
+  object ADODataSet2: TADODataSet
+    Connection = ADOConnection2
+    CursorType = ctStatic
+    CommandText = 'select * from ['#21729#24037#36039#26009']'
+    Parameters = <>
+    Left = 504
+    Top = 16
+  end
+end
@@ -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.