{*******************************************************}
{                                                       }
{                      導入數據                         }
{                                                       }
{            中軟金馬公司版權所有。2002.12前            }
{                                                       }
{            編制：中軟金馬郵資票品項目開發組           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級系統管理模塊里面調用。

*)
unit LoadData;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables;

type
  TFrmLoadData = class(TForm)
    bbtLoad: TBitBtn;
    odlData: TOpenDialog;
    qryTemp: TQuery;
    procedure bbtLoadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLoadData: TFrmLoadData;

implementation

uses datas,Pub;

{$R *.DFM}

procedure TFrmLoadData.bbtLoadClick(Sender: TObject);
//var
 // vstrTemp: string;
var
  vsl: TStringList;
  i: integer;
begin
  //vstrTemp := ExtractFilePath(Application.ExeName) + 'data\';
  //opendialog1.InitialDir := vstrtemp;
  odlData.Title := '導入數據';
  if odlData.Execute then
  begin
    vsl := TStringList.Create;
    try
      vsl.LoadFromFile(odlData.FileName);
      if vsl.Count > 0 then
      begin
        if Data.dm.InTransaction then
          Data.Dm.Rollback;
        Data.dm.StartTransaction;
        try
          for i := 0 to vsl.Count - 1 do
          with qryTemp do
          begin
            Close;
            Sql.Clear;
            Sql.Add(vsl.Strings[i]);
            ExecSql;
          end;

          Data.Dm.Commit;
          CHQMsgBox('導入數據成功');
        except
          if Data.dm.InTransaction then
            Data.Dm.Rollback;
          CHQMsgBox('導入數據出錯');
        end;
      end;
    finally
      vsl.Free;
    end;
  end;

end;


end.