xls2sqllj.dpr

xls2sql 将Microsoft的Excel文件导入MSSQL中

program xls2sqllj;

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

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  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.