如何通过DELPHI,在SQL和EXECL之间相互导入导出数据并加密 ( 积分: 200 )

mybabyben · 2007-10-03

如何通过DELPHI,从数据库SQL中导出数据到EXECL中同时对EXECL加密, 反之用加密EXECL通过DELHPI界面操作导入到SQL数据库表中.

ganbaba · 2007-10-05

同问~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

erqie · 2007-10-10

这样的话估计只能用笨方法吧.直接每条数据取出来然后加密,然后再转存到excel里.

icic_icic · 2007-10-10

首先实现数据导入： 在sql server的查询分析器里执行： SELECT * into mytable FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="d:/a.xls";Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False')...sheet1$ 这个sql语句可以放到AdoQuery里去执行，没有问题吧？ ------------------------------------------------------------------- 然后实现数据导出： procedure TFrmMain.WriteExcel(AdsData: TADODataSet; sName, Title: string); var   ExcelApplication1: TExcelApplication;   ExcelWorksheet1: TExcelWorksheet;   ExcelWorkbook1: TExcelWorkbook;   i, j: integer;   filename: string; begin   filename := concat(extractfilepath(application.exename), sName, ’.xls’);   try     ExcelApplication1 := TExcelApplication.Create(Application);     ExcelWorksheet1 := TExcelWorksheet.Create(Application);     ExcelWorkbook1 := TExcelWorkbook.Create(Application);     ExcelApplication1.Connect;   except     Application.Messagebox(’Excel 没有安装!’, ’Hello’, MB_ICONERROR + mb_Ok);     Abort;   end;   try     ExcelApplication1.Workbooks.Add(EmptyParam, 0);     ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);     ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);     AdsData.First;     for j := 0 to AdsData.Fields.Count - 1 do       begin         ExcelWorksheet1.Cells.item[3, j + 1] := AdsData.Fields[j].DisplayLabel;         ExcelWorksheet1.Cells.item[3, j + 1].font.size := ’10’;       end;     for i := 4 to AdsData.RecordCount + 3 do       begin         for j := 0 to AdsData.Fields.Count - 1 do           begin             ExcelWorksheet1.Cells.item[i, j + 1] :=                 AdsData.Fields[j].Asstring;             ExcelWorksheet1.Cells.item[i, j + 1].font.size := ’10’;           end;         AdsData.Next;       end;     ExcelWorksheet1.Columns.AutoFit;     ExcelWorksheet1.Cells.item[1, 2] := Title;     ExcelWorksheet1.Cells.Item[1, 2].font.size := ’14’;     ExcelWorksheet1.SaveAs(filename);     Application.Messagebox(pchar(’数据成功导出’ + filename), ’Hello’,       mb_Ok);   finally     ExcelApplication1.Disconnect;     ExcelApplication1.Quit;     ExcelApplication1.Free;     ExcelWorksheet1.Free;     ExcelWorkbook1.Free;   end; end; 其中参数AdsData可以是一个ADOQuery或者ADOTable --------------------------------------------------------------------- 我就写到这一步，这两种是比较快速的方法了。 加密再看另外哪位来接招。

mybabyben · 2007-10-10

to icic_icic 谢谢你,能否把execl导入SQL中放在DELPHI中的过程写一个完整的给我呢,首先在查询分析器中我执行是没办法通过,报错有如下信息 "OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错。  [OLE/DB provider returned message: 找不到可安装的 ISAM。] OLE DB 错误跟踪［OLE/DB Provider 'Microsoft.Jet.OLEDB.4.0' IDBInitialize::Initialize returned 0x80004005:   ］。" 针对你提供的语句,有几个小问题,第一路径能否写成动态的?是否名字只能固定一个,因为我每次导入的文件名都会不一样的,但用户是不知道的,这些都要在后台处理,第二,我们所装的OFFICE中的EXECL 版本有多种,可能不同用户版本不一样,但程序要通用,此处是否只写EXECL5.就可.第三能否解释一下OpenDataSource()的每一个意思.第四,最后一点...sheet1$写这是起什么作用,我里面没有取这名字的,是根据导也的文件名字会不一样,是否此处只写这就行? 至于第二个,SQL导出到EXECL,我用EXECL中的VB宏可以实现导出功能,但却没办法用程序实现修改导出文件名及加密码功能.不知道你上面的能否实现此功能.且是否可以直接放上去就能用还是要根据不同的环境再作修改? 再详细一下题目要求: 1.通过DELPHI界面增加一导出,导出按钮, 2.用户点导出按钮时,要实现如下几点.  1)根据不同的内容同时从SQL数据库中取数生成三个不同的表(此用存储过程已实现),  2)导出到一EXECL文件名中三页内容,其中EXECL文件名要随着导出内容不同而动态生成,EXECL中三页内容的名字是中文名字且是固定的.  3)导出的EXECL需要加密,同时生成的内容需要固定放于一文件夹中,且用户不能修改 3.用户点导入按钮时,要实现如下几点  1)通过导出的固定文件夹中的EXECL,后台自动导入到SQL数据表中.(SQL数据中针对每个不同的EXECL都有三页内容,且这三页内容有三个共同的表,每次都导入这三个表中)  2)检查三个表中数据,若以前导入过此数据,则不再导入,没有导入再插入.  3)在导入前此文件还是加密状态,用户只能执行导入操作, 另:针对第三点导入,不知道以上方法能否实现,因为每次导入的文件名字是不一样的,后台能否实现自动去找,还是要通过用户自己找开文件夹点对应的文件才行.还是第次导入的文件名必须要相同才可以用程序来实现. 希望各位会的给一点参考意见.网上虽然查到好多这方面的资料,但至今都无法看懂,或者很难适合以上要求.

erqie · 2007-10-10

1.肯定没有问题 2.  2).文件名动态生成,你有相应算法动态吗?不知道你指的是什么动态.但这个是可以自己设的,也就是说可以在程序里随便改.  3).是对excel文件里的单元格内容进行加密还是对整个excel文件进行加密?如果是仅对内容,看你需要什么加密算法了.常用的md5,des,base6等算法,或者你自己写一个.如果是对整个excel文件进行加密,可考虑导出后再调用一个加密算法对excel文件进行加密,如果是针对单元格的内容,可以先读出表的数据,然后逐一对每个数据进行加密后再存成excel文件. 3.  1)没什么说的  2)如果要实现逐一检查每一行数据,则不能用先前那位哥们的方法统一导入,因为那样不能检查是否有重复数据,此时只能一行一行的导入,导入前先针对主键进行检查,是否数据库里已经有此行数据,若没有则导入,若有则跳过.  3)如果有加密,则需要按相应的解密算法进行解密后再导. 文件名不一样,那是否有规律?按日期?或者则文件夹里只有这一个文件?

mybabyben · 2007-10-10

to erqie,谢谢 2   2)文件名为:客户名称+流水号,这个可以组合出来,但不知道如何把组合出来的名字替换掉导出来生成的BOOK1.XLS文件,用户只要导出就直接取上名字了.   3)加密是针对整个EXECL文档,目的是防止用户更改其中的数据 3   2)是每一行数据都要检查,关键是一个EXECL有三个表格要同时导入到SQL中同时检查,不知道如何下手 若能提供代码的万分感谢,在线等待中....

mybabyben · 2007-10-11

别人教我用这种办法导入,但还是行不通,调试不来,不知道问题错在哪里, // FN 是要导入的 Excel 文件名,HN 是工作表名 // SN,DN,UN,PW,TN 分别是 SQL服务器名,数据库名,SQL帐号,SQL密码,SQL表名 Procedure TfrmSalDeliMD.InputData(FN,HN:String;SN,DN,UN,PW,TN:String); var   adocSQL:TAdoConnection;   adocExcel:TAdoConnection;   dtssql:TAdoTable;   dtsExcel:TAdoDataSet;   DSN:String;   SF:string;//是个文件名变量，存的是Excel文件名，包括路径 Begin   DSN:='Provider=SQLOLEDB.1;';   DSN:=DSN+'Password='+PW+';';   DSN:=DSN+'Persist Security Info=True;';   DSN:=DSN+'User ID='+UN+';';   DSN:=DSN+'Initial Catalog='+DN+';';   DSN:=DSN+'Data Source='+SN;    adocSql:=TAdoConnection.Create(Application);    adocSql.LoginPrompt:=False;   Try If adocSQL.Connected then adocSQL.Connected:=False; adocSql.ConnectionString:=DSN;     adocSql.Connected:=True;   except showbox('连接SQL服务器失败！'); Abort;   end;   DNS:='Provider=Microsoft.Jet.OLEDB.4.0;'+   'Data Source='+SF+';Extended Properties=Excel 8.0;Persist Security Info=False';   adocExcel:=TAdoConnection.Create(Application);   adocExcel.LoginPrompt:=False;   Try If adocExcel.Connected then adocExcel.Connected:=False; adocExcel.ConnectionString:=DSN;     adocExcel.Connected:=True;   except showbox('连接Excel文件失败！'); Abort;   end;   dtsSql:=TAdoTable.Create(Application);   dtsSql.CONNECTION:=adocSql;   dtsSql.COMMANDTYPE:=CMDTABLEDIRECT;   dtsSql.COMMANDTEXT:=TN; // SQL  表名   // dtssql.con   Try dtsSql.Active:=True;   Except showbox('打开SQL表失败！'); abort;   end;   dtsExcel:=TAdoTable.Create(Application);   dtsExcel.CONNECTION:=adocSql;   dtsExcel.COMMANDTYPE:=CMDTABLEDIRECT;   dtsExcel.COMMANDTEXT:=HN; // Excel工作表名 比如 Sheet1   Try dtsExcel.Active:=True;   Except showbox('打开Excel工作表失败！'); abort;   end;   dtsExcel.First;   While Not DtsExcel.Eof Do   Begin If Not dtsSql.Locate('SQL表KeyFields',dtsExcel.Fields[0].AsString,[loCaseInsensitive]) Then Begin // 未找到   dtsSql.Append;   dtsSql.Edit;   // 这时把 DTSExcel行内容付给 DTSSQL表记录   dtsSql.Post; end else Begin   // 这里直接更新 DTSSql记录 end; DtsExcel.Next;   End;   end;

mybabyben · 2007-11-29

以上问题导出已全部自己解决,但导入至今没办法通过,请各位帮帮心忙 如果用SQL来实现如下: SELECT * into erpadm.at_from_sh_heat_chems_temp FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="D:/导出/钢-电-200710550.xls";Password=ERP;Extended properties=Excel 8.0')...[sheet1$] 则其报错没办法调试通过,也不知道是什么原因,其报错如下: 服务器: 消息 7399，级别 16，状态 1，行 1 OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错提供程序未给出有关错误的任何信息。 OLE DB 错误跟踪［OLE/DB Provider 'Microsoft.Jet.OLEDB.4.0' IDBInitialize::Initialize returned 0x80004005提供程序未给出有关错误的任何信息] 或报如下错: "OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错。 [OLE/DB provider returned message: 找不到可安装的 ISAM。] OLE DB 错误跟踪［OLE/DB Provider 'Microsoft.Jet.OLEDB.4.0' IDBInitialize::Initialize returned 0x80004005:   ］。" 如果在DELPHI中直接实现导入,上面也有朋友写过,在我这里就是没办法运行成功.而且导入的是一个EXECL文件中有多个SHEET,只导其中几个SHEET.且导入前需要先解密EXECL才可导入.有谁懂的帮帮忙.谢谢.在线急等

zhengjp · 2007-11-29

这些代码都是现有软件的，没问题，你自己也改一下！不要老想着别人！ //-----------------------------------------// //功能：利用EhGrid打印、导出报表。 //作者：zhengjp //时间:2002.10.20 //修改:2003.01.20 //-----------------------------------------// unit pFam_prnDBGridEh; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   PrnDbgeh,DB,Variants,shellapi,    OleServer, Excel2000,ComOBJ,DBGridEh, Menus; type   TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;   TFam_prnDBGridEh = class(TFrame)     PrnDBGrdEh: TPrintDBGridEh;     PopupMenu_20040729print: TPopupMenu;     menuitem_20040729print: TMenuItem;     menuitem_20040729excel: TMenuItem;     procedure menuitem_20040729printClick(Sender: TObject);     procedure menuitem_20040729excelClick(Sender: TObject);   private     FQDYRepTitl: String;     FXLApp: Variant;     FxlBook: Variant;     FOnDoExcel:TNotifyEvent;     FQDYPrgBar: String;     FQTitil: String;     FqAfterScroll: TDataSetNotifyEvent;     FqBeforeScroll: TDataSetNotifyEvent;     procedure SetQDYRepTitl(const Value: String);     procedure SetQDYPrgBar(const Value: String);     procedure DoDoExecl;dynamic;     constructor Create(Owner: TComponent);override;     destructor Destroy;override;     { Private declarations }   public     property XLApp:Variant read FXLApp write FXLApp;     property xlBook:Variant read FxlBook write FxlBook;     property QDYPrgBar:String read FQDYPrgBar write SetQDYPrgBar;     property QDYRepTitl:String read FQDYRepTitl write SetQDYRepTitl;     property QTitil:String read FQTitil write FqTitil;     procedure doDBGridEhPrv(DBGridEhQdy:TDBGridEh);     procedure doDBGridEhPrn(DBGridEhQdy:TDBGridEh);     procedure doHtml(DBGridEhQdy:TDBGridEh;RptTitl:string;BeferStr,afterStr:TStrings;ShowXLapp:boolean);     procedure DoExcel(DBGridEhQdy:TDBGridEh;RptTitl:string;BeferStr,afterStr:TStrings;ShowXLapp:boolean);     property OnDoExcel:TNotifyEvent read FOnDoExcel write FOnDoExcel;     procedure QSetSubstitutes(RepTitil:String;grdtitil:String);     property qAfterScroll:TDataSetNotifyEvent read FqAfterScroll write FqAfterScroll;     property qBeforeScroll:TDataSetNotifyEvent read FqBeforeScroll write FqBeforeScroll;     procedure SetPrvPara(frmname:string);     procedure GetPrvPara(frmname:string);     { Public declarations }   end; implementation {$R *.dfm} uses pub_Dm; { TFam_prnDBGridEh } constructor TFam_prnDBGridEh.Create(Owner: TComponent); begin   inherited Create(Owner);   FQDYPrgBar:='';   FQTitil:=''; end; destructor TFam_prnDBGridEh.Destroy; begin;   if not VarIsEmpty(XLApp) then   begin       XLApp.quit;       XLApp:=Unassigned;       xlBook:=Unassigned;   end;   inherited Destroy; end; procedure TFam_prnDBGridEh.DoDoExecl; begin   if assigned(FOnDoExcel) then      FOnDoExcel(self); end; procedure TFam_prnDBGridEh.SetQDYPrgBar(const Value: String); begin   FQDYPrgBar := Value;   DoDoExecl; end; //打印 procedure TFam_prnDBGridEh.doDBGridEhPrn(DBGridEhQdy: TDBGridEh); begin   if not dm.q18pw_prv then   begin      showmessage('对不起！你没有打印权力');      abort;   end;   screen.Cursor :=crHourGlass ;   with PrnDBGrdEh do   begin         if DBGridEhQdy<>nil then           DBGridEh :=DBGridEhQdy;         FqAfterScroll:=DBGridEh.DataSource.DataSet.AfterScroll;         DBGridEh.DataSource.DataSet.AfterScroll:=nil;         FqBeforeScroll:=DBGridEh.DataSource.DataSet.BeforeScroll;         DBGridEh.DataSource.DataSet.BeforeScroll:=nil;         Print ;         DBGridEh.DataSource.DataSet.AfterScroll:=FqAfterScroll;         DBGridEh.DataSource.DataSet.BeforeScroll:=FqBeforeScroll;   end;    screen.Cursor :=crDefault ; end; //打印预览 procedure TFam_prnDBGridEh.doDBGridEhPrv(DBGridEhQdy: TDBGridEh); begin   if not dm.q18pw_prv then   begin      showmessage('对不起！你没有打印权力');      abort;   end;   screen.Cursor :=crHourGlass ;   with PrnDBGrdEh do   begin         if DBGridEhQdy<>nil then            DBGridEh :=DBGridEhQdy;         FqAfterScroll:=DBGridEh.DataSource.DataSet.AfterScroll;         DBGridEh.DataSource.DataSet.AfterScroll:=nil;         FqBeforeScroll:=DBGridEh.DataSource.DataSet.BeforeScroll;         DBGridEh.DataSource.DataSet.BeforeScroll:=nil;         Preview ;         DBGridEh.DataSource.DataSet.AfterScroll:=FqAfterScroll;         DBGridEh.DataSource.DataSet.BeforeScroll:=FqBeforeScroll;   end;   screen.Cursor :=crDefault ; end; //导入EXCEL. BeferStr 从1行开始，而不是从0行开始 procedure TFam_prnDBGridEh.DoExcel(DBGridEhQdy: TDBGridEh; RptTitl: string;   BeferStr, afterStr: TStrings; ShowXLapp: boolean); var    MaxTitCount,i,j,k,Cnt,y,jj:integer;    Titl,CelVale:string;    cValue,oldValue:String;    saveBK:TBookmark;  { Save current record position } begin   if not dm.q18pw_exp then   begin      showmessage('对不起！你没有导出权力');      abort;   end;   with DBGridEhQdy do   begin         FqAfterScroll:=DataSource.DataSet.AfterScroll;         DataSource.DataSet.AfterScroll:=nil;         FqBeforeScroll:=DataSource.DataSet.BeforeScroll;         DataSource.DataSet.BeforeScroll:=nil;   end;    if not VarIsEmpty(XLApp) then    begin       XLApp.quit;       XLApp:=Unassigned;       xlBook:=Unassigned;    end;    Screen.Cursor :=crHourGlass ;    QDYPrgBar:='请稍候，正在打开 Excel  ...';    XLApp:=CreateOleObject('Excel.application');    if VarIsEmpty(XLApp) then    begin         showmessage('没有安装 Excel 电子表格，不能导入!');         abort;    end;    QDYPrgBar:='请稍候，正在建立工作表...';    XLApp.workbooks.add(xlWBatWorkSheet);    XLApp.workbooks[1].workSheets[1].name:='qdy';    xlBook:=XLApp.workbooks[1].workSheets['qdy'];    QDYPrgBar:='请稍候，正在处理表头...';    //表头处理    oldValue:='';    MaxTitCount:=0;    with DBGridEhqdy do begin         for i:=0 to Columns.Count -1 do begin             Titl:=Columns.Title.Caption+'|';             j:=0;             K:=1;             while Pos('|', Titl) > 0 do begin                 cValue:=copy(Titl,j+1,Pos('|', Titl)-1-j);                 j:=Pos('|', Titl);                 Titl[Pos('|', Titl)]:='/';                 xlBook.Cells[k,i+1]:=cValue ;                 k:=k+1;             end;             if k>MaxTitCount then                MaxTitCount:=k-1;         end;         //纵向合并         QDYPrgBar:='请稍候，正在处理表头...纵向合并';         for i:=1 to Columns.Count  do begin             oldValue:=xlBook.Cells[1,i] ;             for k:=2 to MaxTitCount do begin                 cValue:=xlBook.Cells[k,i] ;                 if (oldValue = cValue) or (cValue='') then begin                    xlBook.Cells[k,i]:='';                    xlBook.Range[xlBook.Cells[k-1,i],xlBook.Cells[k,i]].Merge ;                 end;                 oldValue:=cValue;             end;         end;         if MaxTitCount<2 then MaxTitCount:=2;//2003.01.20 qdy         //横合并         QDYPrgBar:='请稍候，正在处理表头...横向合并';         for k:=1 to MaxTitCount do begin             xlBook.Rows[inttostr(k)+':1'].HorizontalAlignment := xlCenter ;             xlBook.Rows[inttostr(k)+':1'].VerticalAlignment := xlCenter ;             oldValue:=xlBook.Cells[k,1] ;             for i:=2 to Columns.Count  do begin                 cValue:=xlBook.Cells[k,i] ;                 if (oldValue = cValue) and (cValue<>'') then                 begin                    xlBook.Cells[k,i]:='';                    xlBook.Range[xlBook.Cells[k,i-1],xlBook.Cells[k,i]].Merge ;                 end;                 oldValue:=cValue;             end;         end;        //数据部分处理        Cnt:=Columns.Count;        if Cnt<2 then Cnt:=2 ;//2003.01.20要至少导入2列        with DataSource.DataSet do        begin             saveBK := GetBookmark;  { Save current record position }             DisableControls;             First;             {2004-03-03 qdy}             for i:=0 to Columns.Count -1 do             if columns.Visible then             begin                 if Columns.Field.DataType in [ftInteger] then                   xlBook.Range[xlBook.Cells[MaxTitCount+1,i+1],xlBook.Cells[RecordCount+8,i+1]].NumberFormatLocal:= '0'                 else                 if Columns.Field.DataType in [ftUnknown,ftString] then                   xlBook.Range[xlBook.Cells[MaxTitCount+1,i+1],xlBook.Cells[RecordCount+8,i+1]].NumberFormatLocal:= '@'                 else                 if Columns.Field.DataType in [ftCurrency,ftFloat,ftBCD] then                 begin                    xlBook.Range[xlBook.Cells[MaxTitCount+1,i+1],xlBook.Cells[RecordCount+8,i+1]].HorizontalAlignment := xlRight ;                    xlBook.Range[xlBook.Cells[MaxTitCount+1,i+1],xlBook.Cells[RecordCount+8,i+1]].VerticalAlignment := xlCenter ;                    xlBook.Range[xlBook.Cells[MaxTitCount+1,i+1],xlBook.Cells[RecordCount+8,i+1]].NumberFormatLocal := '￥#,##0.00;￥-#,##0.00';                 end;             end;             y:=1;             while not eof do             begin                 for i:=0 to Columns.Count -1 do                 if columns.Visible then                 begin                     CelVale:=Columns.DisplayText;                     if uppercase(celVale) = 'FALSE' then celVale:='否';                     if uppercase(celVale) = 'TRUE' then celVale:='是';                     xlBook.Cells[y+MaxTitCount,i+1]:=celVale;                 end;                 QDYPrgBar:='数据导入...'+inttostr(RecNo-RecordCount);                 next;                 y:=Y+1;             end;             GotoBookmark(saveBK);  { Restore original record position}             Freebookmark(saveBK);             EnableControls;        end;       //2004-02-04 qdy 加合计       jj:=0;       if (DBGridEhQdy.FooterRowCount >0) and (DBGridEhQdy.SumList.SumCollection.Count>0) then       for i:=0 to DBGridEhQdy.Columns.Count -1 do       begin         if DBGridEhQdy.Columns.Footer.ValueType = fvtStaticText then         begin            xlBook.Cells[y+1+MaxTitCount,i+1]:=DBGridEhQdy.Columns.Footer.value;           jj:=jj+1;         end         else         if trim(DBGridEhQdy.Columns.Footer.FieldName) <>'' then         begin           try              xlBook.Cells[y+1+MaxTitCount,i+1]:=DBGridEhQdy.SumList.SumCollection.Items[jj].SumValue;              jj:=jj+1;           except           end;         end;       end;       y:=Y+1;       QDYPrgBar:='请稍候，正在制表...';       //制表       k:=y+MaxTitCount;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlDiagonalDown].LineStyle := xlNone;//.select;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlDiagonalUp].LineStyle := xlNone;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlEdgeLeft].LineStyle := xlContinuous;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlEdgeTop].LineStyle := xlContinuous;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlEdgeBottom].LineStyle := xlContinuous;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlEdgeRight].LineStyle := xlContinuous;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlInsideVertical].LineStyle := xlContinuous;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Borders[xlInsideHorizontal].LineStyle := xlContinuous;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Rows.AutoFit ;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[k-2,Cnt]].Columns.AutoFit;       //表未       if afterstr<>nil then       for i:=0 to afterstr.Count -1 do       begin           xlBook.Cells[k+i+1,1].EntireRow.Insert;           xlBook.Range[xlBook.Cells[k+i+1,1],xlBook.Cells[k+i+1,cnt]].Merge ;           xlBook.Cells[k+i+1,1]:=afterstr.Strings;       end;       //表头       QDYPrgBar:='请稍候，正在制表...表头';       if BeferStr<>nil then       for i:=1 to BeferStr.Count -1 do       begin          xlBook.Cells[1,1].EntireRow.Insert;          xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[1,cnt]].Merge ;          xlBook.Cells[1,1]:=beferstr.Strings;       end;       //表头标题       xlBook.Cells[1,1].EntireRow.Insert;       xlBook.Rows['1:1'].HorizontalAlignment := xlCenter ;       xlBook.Rows['1:1'].VerticalAlignment := xlCenter ;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[1,cnt]].Merge ;       xlBook.Cells[1,1]:=RptTitl;       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[1,cnt]].Font.Name:='宋体';       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[1,cnt]].Font.FontStyle :='加粗';       xlBook.Range[xlBook.Cells[1,1],xlBook.Cells[1,cnt]].Font.Size :=18;       Screen.Cursor :=crDefault ;       XLApp.Visible :=ShowXLapp;       QDYPrgBar:='';     end;     with DBGridEhQdy do begin         DataSource.DataSet.AfterScroll:=FqAfterScroll;         DataSource.DataSet.BeforeScroll:=FqBeforeScroll;     end; end; procedure TFam_prnDBGridEh.SetQDYRepTitl(const Value: String); begin   FQDYRepTitl := Value;   QSetSubstitutes(FQDYRepTitl,FQTitil); end; procedure TFam_prnDBGridEh.QSetSubstitutes(RepTitil: String;grdtitil:String); begin   with  PrnDBGrdEh do   begin         with  PageHeader do         begin               LeftText.Clear ;               LeftText.Add(DM.QDYCompany);               CenterText.Clear ;               CenterText.Add(FQDYRepTitl);               RightText.Clear ;               RightText.Add('&[LongDate]');         end;         with PageFooter do         begin               RightText.Clear ;               RightText.Add('第&[page]页 共&[Pages]页');               LeftText.Clear ;               LeftText.Add('志华软件');         end;         //AfterGridText.Clear ;         //AfterGridText.Add('&[LongDate]');         SetSubstitutes(['%[qdate]',grdtitil,'%[QDYRepTitl]',RepTitil]);   end; end; {---------------------------------------------------------------------------- 功能说明： 把DBGridEh中的数据到出成为html文件 参数说明：DBGridEhQdy：数据所在的网格           RptTitl： 报表题头，在这里没有用，为了和其他保持一致           BeferStr, afterStr：传送文件的表头和表末文字           ShowXLapp：是否显示，在这里没有，为了和其他保持一致 返回值的说明：（无） Bug的List以及修补的日期、时间、人称、说明： 其他注释： ----------------------------------------------------------------------------} procedure TFam_prnDBGridEh.doHtml(DBGridEhQdy:TDBGridEh;RptTitl:string;BeferStr,afterStr:TStrings;ShowXLapp:boolean); var    i,j,k:integer;    CValue,OldValue,SValue:string;    SaveBK:TBookmark;  { Save current record position }    Titl:string;    SaveFileName: string;    TableContent: string;    CommonRol: string;    StyleRol: string;    FormatString: string;    ContentString: string;    SumString: string;    FooterCursor: integer;    FileHandle: integer;    StringLen: integer; begin   with DBGridEhQdy do   begin     FqAfterScroll:=DataSource.DataSet.AfterScroll;     DataSource.DataSet.AfterScroll:=nil;     FqBeforeScroll:=DataSource.DataSet.BeforeScroll;     DataSource.DataSet.BeforeScroll:=nil;   end;   QDYPrgBar:='请稍候，请选择保存为文件 ...';   //SaveHtmlDlg.Title:='请选择保存为';   //if SaveHtmlDlg.Execute then   //  SaveFileName:=SaveHtmlDlg.FileName   //else   //  abort;   SaveFileName:='./export.html';   FileHandle:=FileCreate(SaveFileName);   if FileHandle=-1 then   begin     showmessage('不能创建文件，请重试');     abort;   end;   TableContent:='<html><head><meta http-equiv="Content-Type" '+                   'content="text/html;charset=windows-936"><title>'+                   RptTitl+                   '</title></head>'+                   '<SCRIPT language=JavaScript>'+                   'var msge = "      '+                   RptTitl+                   '      ";'+                   'var pos = 0;'+                   'function Scrollit(){'+                   'window.status = msge.substring(pos,msge.length) + msge.substring(0,pos);'+                   'pos++;'+           'if(pos == msge.length + 5) pos = 0;'+              'window.setTimeout("Scrollit()",180);'+                   '}'+                   '</SCRIPT>'+                   '<SCRIPT language=JavaScript>'+                   'Scrollit();'+                   '</SCRIPT>'+                   '<body>';   QDYPrgBar:='请稍候，正在处理...';   //标题处理   TableContent:=TableContent+'<p align="center"><font size=5>'+RptTitl+'';   TableContent:=TableContent+'<p align="left">';   if BeferStr<>nil then   for i:=2 to BeferStr.Count -1 do   begin     TableContent:=TableContent+Beferstr.Strings+' ';   end;   TableContent:=TableContent+'';   TableContent:=TableContent+'<table align="center" border="1" cellspacing="0" cellpadding="0">';   with DBGridEhqdy do begin     TableContent:=TableContent+'<tr>';     OldValue:='';     for i:=0 to Columns.Count -1 do     begin       j:=0;       Titl:=Columns.Title.Caption+'|';       FormatString:='bgcolor="#00FFFF" align="center" ';       if Pos('|',Columns.Title.Caption)>0 then       begin         CValue:=copy(Titl,j+1,Pos('|', Titl)-1-j);         j:=Pos('|', Columns.Title.Caption          SValue:=copy(Titl,j+1,length(Titl)-1-j);         if (OldValue = '') then         begin           OldValue:=CValue;           StyleRol:='<td '+formatString+'>'+SValue+'</td>';           k:=1;         end         else           if (OldValue = CValue) then           begin             StyleRol:=StyleRol+'<td '+FormatString+'>'+SValue+'</td>';             k:=k+1;           end           else begin             TableContent:=TableContent+'<td '+FormatString+' colspan='+inttostr(k)+'>'+OldValue+'</td>';             OldValue:=CValue;             StyleRol:=StyleRol+'<td  '+FormatString+'>'+SValue+'</td>';             k:=1;           end       end       else begin         if OldValue<>'' then         begin           TableContent:=TableContent+'<td  '+FormatString+' colspan='+inttostr(k)+'>'+OldValue+'</td>';           OldValue:='';         end;           TableContent:=TableContent+'<td  '+FormatString+' rowspan=2 >'+Columns.Title.Caption+'</td>';       end;     end;     if OldValue<>'' then     begin       TableContent:=TableContent+'<td  '+FormatString+' colspan='+inttostr(k)+'>'+OldValue+'</td>';       OldValue:='';     end;     TableContent:=TableContent+'</tr>';     TableContent:=TableContent+'<tr>'+StyleRol+'</tr>';   end;   //导出表格内容   with DBGridEhqdy do   begin     with DataSource.DataSet do     begin       if not(Eof and Bof) then       begin         SaveBK := GetBookmark;  { Save current record position }         DisableControls;         First;         while not eof do         begin           TableContent:=TableContent+'<tr>';           for i:=0 to Columns.Count -1 do           if columns.Visible then           begin             if Columns.DisplayText='' then               ContentString:='&nbsp;'             else               ContentString:=Columns.DisplayText;               if uppercase(ContentString) = 'FALSE' then                 ContentString:='否';               if uppercase(ContentString) = 'TRUE' then                 ContentString:='是';               TableContent:=TableContent+'<td width="'+inttostr(Columns.Width+20)+'"nowrap align="center"><font size="2">&nbsp;'+ContentString+'&nbsp;</td>';           end;           QDYPrgBar:='数据导出中...';           next;           TableContent:=TableContent+'</tr>';         end;         GotoBookmark(saveBK);  { Restore original record position}         Freebookmark(saveBK);         EnableControls;       end;     end;   end;    //表末处理   with DBGridEhqdy do   begin     if FooterRowCount=1 then     begin       TableContent:=TableContent+'<tr>';       FooterCursor:=0;       for i:=0 to Columns.Count -1 do       begin         if Columns.Footer.ValueType=fvtStaticText then         begin            TableContent:=TableContent+'<td nowrap align="center"><font size="2">'+Columns.Footer.Value+'</td>';         end         else if (Columns.Footer.ValueType=fvtSum) and (sumlist.SumCollection.Items[footerCursor].FieldName=Columns.FieldName) then         begin           SumString:=floattostr(sumlist.SumCollection.Items[footerCursor].SumValue);           TableContent:=TableContent+'<td nowrap align="center"><font size="2">'+SumString+'</td>';           Inc(FooterCursor);         end         else begin           TableContent:=TableContent+'<td>&nbsp;</td>';         end;       end;       TableContent:=TableContent+'</tr>';     end;   end;   TableContent:=TableContent+'</table>';   if AfterStr<>nil then   for i:=0 to AfterStr.Count -1 do   begin     TableContent:=TableContent+'<p align="left">'+afterstr.Strings+'&nbsp;&nbsp;&nbsp;&nbsp;';   end;   TableContent:=TableContent+'</body></html>';   try     FileWrite(FileHandle,TableContent[1], length(TableContent));   finally     FileClose(FileHandle);   end;   with DBGridEhQdy do begin     DataSource.DataSet.AfterScroll:=FqAfterScroll;     DataSource.DataSet.BeforeScroll:=FqBeforeScroll;   end;   ShellExecute(Handle,'open','./export.html',nil,nil, SW_SHOWNORMAL); end; procedure TFam_prnDBGridEh.GetPrvPara(frmname: string); begin   with PrnDBGrdEh   do   begin      if dm.ReadIniFileBool(frmname,'e1',true)      then Options := Options + [pghFitGridToPageWidth]      else Options := Options - [pghFitGridToPageWidth];      if dm.ReadIniFileBool(frmname,'e2',true)      then Options := Options + [pghRowAutoStretch]      else Options := Options - [pghRowAutoStretch];      if dm.ReadIniFileBool(frmname,'e3',true)      then Options := Options + [pghColored]      else Options := Options - [pghColored];      if dm.ReadIniFileBool(frmname,'e5',false)      then Options := Options + [pghOptimalColWidths]      else Options := Options - [pghOptimalColWidths];      if dm.ReadIniFileBool(frmname,'e6',false)      then Options := Options + [pghFitingByColWidths]      else Options := Options - [pghFitingByColWidths];      Page.TopMargin:=StrToFloat(dm.ReadIniFileString(frmname,'s1','2'));      Page.BottomMargin:=StrToFloat(dm.ReadIniFileString(frmname,'s2','2'));      Page.LeftMargin:=StrToFloat(dm.ReadIniFileString(frmname,'s3','2'));      Page.RightMargin:=StrToFloat(dm.ReadIniFileString(frmname,'s4','2'));      PrintFontName:=dm.ReadIniFileString(frmname,'s5','');   end; end; procedure TFam_prnDBGridEh.SetPrvPara(frmname: string); begin   with PrnDBGrdEh do   begin      dm.WriteIniFileBool(frmname,'e1',pghFitGridToPageWidth in Options);      dm.WriteIniFileBool(frmname,'e2',pghRowAutoStretch in Options);      dm.WriteIniFileBool(frmname,'e3',pghColored in Options);      dm.WriteIniFileBool(frmname,'e5',pghOptimalColWidths in Options);      dm.WriteIniFileBool(frmname,'e6',pghFitingByColWidths in Options);      dm.WriteIniFileString(frmname,'s1',FloatToStr(Page.TopMargin));      dm.WriteIniFileString(frmname,'s2',FloatToStr(Page.BottomMargin));      dm.WriteIniFileString(frmname,'s3',FloatToStr(Page.LeftMargin));      dm.WriteIniFileString(frmname,'s4',FloatToStr(Page.RightMargin));      dm.WriteIniFileString(frmname,'s5',PrintFontName);   end; end; procedure TFam_prnDBGridEh.menuitem_20040729printClick(Sender: TObject); begin   doDBGridEhPrv(PrnDBGrdEh.DBGridEh);   end; procedure TFam_prnDBGridEh.menuitem_20040729excelClick(Sender: TObject); var   bs:TStringList; begin   inherited;   bs:=TStringList.Create ;   bs.Add('');   bs.Add(QTitil);   DoExcel(PrnDBGrdEh.DBGridEh,QDYRepTitl,bs,nil,true);   bs.Free ; end; end.

mybabyben · 2007-12-03

研究了好久 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966 还是存在密码和远程服务器访问的问题, 在本地数据库,且导没有加密码的EXECL到SQL是没问题,在查询分析器中,自己写了一个如下      declare @execl_name varchar(200),--本地客户机上的EXECL文件名及路径    @sql_heat varchar(1000),@sql_steel varchar(1000) set @sql_heat=' insert into  erpadm.at_from_sh_heat_chems(element,heat_no,result)  SELECT *  '                         +' FROM OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source="'+@execl_name                        +'";Extended properties=Excel 5.0; Persist Security Info=False'')...[炉号$] ' exec (@sql_heat) 以上在本地和EXECL不用解密的情况下,执行没问题,放到DELPHI中执行就没反应,给EXECL加上密码则查询分析器也不能行动成功.不知道何原因,请指教

如何通过DELPHI,在SQL和EXECL之间相互导入导出数据并加密 ( 积分: 200 )

mybabyben

Unregistered / Unconfirmed

ganbaba

Unregistered / Unconfirmed

erqie

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

mybabyben

Unregistered / Unconfirmed

erqie

Unregistered / Unconfirmed

mybabyben

Unregistered / Unconfirmed

mybabyben

Unregistered / Unconfirmed

mybabyben

Unregistered / Unconfirmed

zhengjp

Unregistered / Unconfirmed

mybabyben

Unregistered / Unconfirmed

Similar threads