loaddata.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                      导入数据                         }
{                                                       }
{            中软金马公司版权所有。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.