frmsjkdr.pas

用于家庭养殖的财务进出

unit frmsjkdr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids;

type
  Tfrm_sjkdr = class(TForm)
    lbl1: TLabel;
    edt1: TEdit;
    Button1: TButton;
    dlgOpen1: TOpenDialog;
    btn1: TButton;
    dlgOpen2: TOpenDialog;
    dbgrd1: TDBGrid;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sjkdr: Tfrm_sjkdr;

implementation
   uses data_module,unit_global;
{$R *.dfm}

procedure Tfrm_sjkdr.Button1Click(Sender: TObject);
var
  filepath:string;
  ConString:string;
begin
  if dlgopen1.Execute then
  begin
    filepath:=dlgopen1.FileName;
    edt1.Text:=filepath;
    ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                filepath+';Persist Security Info=False';
    if dm.ADOConnection2.Connected then
    dm.ADOConnection2.Connected:=false;
    dm.ADOConnection2.ConnectionString:=constring;
  end;
end;

procedure Tfrm_sjkdr.btn1Click(Sender: TObject);
var
  filepath:string;
  fiecount,i:integer;
  fieldstr,valuestr:string;
begin
  dlgopen2.InitialDir:=apppath+'sjbf';
  dlgopen2.Filter:='XML files(*.xml)|*.xml';
  if dlgopen2.Execute then
  begin
    filepath:=dlgopen2.FileName;
    dm.ADOQy_dr.LoadFromFile(filepath);
    fiecount:=dm.ADOQy_dr.FieldCount;
    for  i:=0 to fiecount-1 do
    begin
    fieldstr:=fieldstr+dm.ADOQy_dr.FieldList.Fields[i].FieldName;
    valuestr:=valuestr+':value'+inttostr(i);
      if i<>fiecount-1 then
      begin
        fieldstr:=fieldstr+',';
        valuestr:=valuestr+',';
      end;
    end;
    with dm.ADOQy_dr do
    begin
      first;
      while not eof do
      begin
        with dm.qry1 do
        begin
          close;
          sql.Clear;
          sql.Add('insert into a01 ('+fieldstr+') values('+valuestr+')');
          for i:=0 to fiecount-1 do
            parameters[i].Value:=dm.ADOQy_dr.FieldList.Fields[i].Value;
          execsql;
        end;
        next;
      end;
    end;
  end
  else
  begin
    application.MessageBox('未选择任何需导入的文件','注意',mb_ok);
    exit;
  end;
end;

end.