7个问题求解

Question

1. shellExecute(0,'open',pchar(application.HelpFile),nil,nil,sw_show);
    要引用什么单元？
2。如何将dbgrid显示的数据导出，另存为excel，或文本文件？
3。帮助文件如何与程序连在一起，比如通过button或按F1键
4。用excelapplication1.workbooks.open();()中要哪些参数？
5。如何导入word 文件
6。如何显示GIF，或用一个IMAGE来显示不同类型的图片？
7。下面出错信息原因为何？
  “Microsoft jet 数据库引擎打不开文件”，它已经被别的用户以独占方式打开，或没有查看数据的权限。
   close delphi后重新打开delhpi，运行正常，？

Answer 1

3.在Application中写，或者在project options中定义
6.用GifImage这个控件就可以了
7.你要是用的Access的数据库的话，可能是把表打开了，所以会报这个错

Answer 2

只知道第一个，楼上已经说了。Mark

Answer 3

3.buttononclick
  Application.HelpFile := 'HELP.HLP';Application.HelpCommand(HELP_FINDER, 0);
7.是否是你的access库正在查看（修改）着结构

Answer 4

7.我连的是excel
1。运行以后报错，内存不足 我的256M

Answer 5

1。shellapi
2.procedure TFrmAllReader.Button1Click(Sender: TObject);
var
  I, J: Integer;
begin
  with ExcelApplication1 do
  begin
    Disconnect;
    Visible[0] := True;
    SheetsInNewWorkbook[0] := 1;
    WorkBooks.Add(EmptyParam, 0);
    
    ExcelWorkBook1.ConnectTo(Workbooks[Workbooks.Count] as _Workbook);
  end;
  with ExcelWorkSheet1 do
  begin
    ConnectTo(ExcelWorkBook1.Sheets[1] as _Worksheet);
    Name := '报表';
  end;    J := 1; //计数器，记下现在的行数
  ExcelApplication1.Parent.DisplayFullScreen[0]:=True;
  ExcelApplication1.Parent.DisplayFullScreen[0]:=False;
  with DBGrid1 do
  begin
    if cbTitle.Checked then
    begin
      with ExcelWorkSheet1 do
      begin
         for I := 1 to FieldCount do
          Cells.Item[1, I] := Fields[I - 1].DisplayName;
        
        with Range[Cells.Item[1, 1], Cells.Item[1, FieldCount]] do
        begin
          Interior.Color := clGray;
          Font.Bold := 1;
        end;
      end;
      Inc(J);//改变计数器
    end;
    ADODataSet1.First;
    while not ADODataSet1.Eof do
    begin
      for I := 1 to FieldCount do
      begin
        ExcelWorkSheet1.Cells.Item[J, I] := Fields[I - 1].Value;
        if Fields[I - 1].DisplayName='登记日期' then
          ExcelWorkSheet1.Cells.Item[J, I].NumberFormatLocal:='yyyy-mm-dd';
      end;
      ADODataSet1.Next;
      Inc(J);
    end;
  end;end;
3.function Tform1.shellExec(filename1:string):boolean;
begin
  result:=(ShellExecute(0,nil,pchar(fileName1),nil,nil,SW_SHOWMAXIMIZED)>32);
end;直接调用它就可以了filename为全路径名

Answer 6

7:必须退出编辑状态，才能运行
cloudyandfog(zly) ：
   你的方法导出的速度有点慢，而且是一条一条显示，如果数据多的话，可能不太好吧

Answer 7

2、3数据导到excel这上面有很多的例子，我在这里也写了一个自己研究的例子你可以找一下，希望有帮助。

Answer 8

1. shellExecute(0,'open',pchar(application.HelpFile),nil,nil,sw_show);
    要引用什么单元？
  shellapi2。如何将dbgrid显示的数据导出，另存为excel，或文本文件？
  将dbgrid.datasource.dataset的数据通过while循环的方式导入到一个TStringList中，注意一条记录生成一个Item   数据不同的字段之间用#9分隔 
  如:TStringlist.add(dbgrid.datasource.dataset[0]+#9+dbgrid.datasource.dataset[1]......)
   最后TStringList.SaveToFile(XXX.xls);
  
3。帮助文件如何与程序连在一起，比如通过button或按F1键
   你的第一个问题就可以作到4。用excelapplication1.workbooks.open();()中要哪些参数？
   不记得 可以看帮助5。如何导入word 文件
   用OLE对象 具体操作和EXCEL一样6。如何显示GIF，或用一个IMAGE来显示不同类型的图片？
   需要下载GIF控件7。下面出错信息原因为何？
  “Microsoft jet 数据库引擎打不开文件”，它已经被别的用户以独占方式打开，或没有查看数据的权限。
   close delphi后重新打开delhpi，运行正常，？   你的DELPHI程序没有释放OLE对象