DBGridEh-SaveDBGridEhToExpotFile、LoadDBGridEhFromImportFile

 

{$R *.dfm}

uses DBGridEhImpExp;

//SaveDBGridEhToExportFile可以支持以下五种类型

//TDBGridEhExportAsText

//TDBGridEhExportAsCSV

//TDBGridEhExportAsHTML

//TDBGridEhExportAsRTF

//TDBGridEhExportAsXLS

procedure TForm1.Button1Click(Sender: TObject);

begin

//导出

//SaveDBGridEhToExportFile(TDBGridEhExportAsXls,DBGridEh1,'f:\test.xls',True); //True:导出整个表;False:导出选中的局部数据区域

//SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'f:\test.txt',True);

SaveDBGridEhToExportFile(TDBGridEhExportAsHtml,DBGridEh1,'f:\test.htm',True);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

OpenDialog1.Filter:='Text(*.txt)|*.txt';

if Opendialog1.Execute then

   begin

     ADOQuery1.SQL.Text:='Delete from dzb';

     ADOQuery1.ExecSQL;

     ADOQuery1.SQL.Text:='Select 自编号,合同号,币种,金额,银行 from dzb';

     ADOQuery1.Open;

     //当前表的列数和字段类型一定要跟导入表的列数和字段类型相对应好,否则会出错

     LoadDBGridEhFromImportFile(TDBGridEhImportAsText,DBGridEh1,Opendialog1.FileName,False);

   end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

DBGridEh1.DataSource:=DataSource1;

DataSource1.DataSet:=ADOQuery1;

ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+

          'Data Source=f:\mcmygs.mdb;'+

          'Persist Security Info=False;'+

          'Jet OLEDB:Database Password=123456';

ADOQuery1.SQL.Text:='Select 自编号,合同号,币种,金额,银行 from dzb';

ADOQuery1.Open;

end;

 

导出的三种格式：

 

 

导入文本文件的时候需要对文本文件进行一些处理：