xls2sqljg.dpr

xls2sql 将Microsoft的Excel文件导入MSSQL中

program xls2sqlJG;

uses
  Forms,Inifiles,ExtCtrls,SysUtils,
  xls in 'xls.pas' {Form1},
  db_login in 'db_login.pas' {w_db_login};

{$R *.RES}
var whdb_ini : TIniFile;
    whdbini_filename :string;
begin
  whdbini_filename :=extractfilepath(application.ExeName)+'whdb.ini';
  whdb_ini:=Tinifile.Create(whdbini_filename);
  try
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    xls.db_username :=whdb_ini.ReadString('login','db_username','sa');
    xls.db_pass     :=whdb_ini.ReadString('login','db_pass','james');
    xls.form1.whdb.Params.Values['USER NAME'] := xls.db_username;
    xls.form1.whdb.Params.Values['PASSWORD']  := xls.db_pass;
  finally
    whdb_ini.Free ;
  end;
  try
    form1.whdb.Open;
  except
    w_db_login :=Tw_db_login.Create(Application);
    try
      w_db_login.ShowModal ;
    finally
      w_db_login.Free ;
    end;
  end;
  if not form1.whdb.Connected then Application.Terminate ;

  Application.Run;
end.