IntraWeb使用技巧集

最新推荐文章于 2024-09-25 05:10:11 发布

咖啡色的浪漫

最新推荐文章于 2024-09-25 05:10:11 发布

阅读量2.7k

点赞数

分类专栏： B/S学习文章标签： integer string excel 存储

本文链接：https://blog.csdn.net/micel108/article/details/1521233

版权

B/S学习专栏收录该内容

2 篇文章 0 订阅

订阅专栏

name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-3528650120430763&dt=1183890684015&lmt=1183890684&format=468x60_as&output=html&correlator=1183890684000&url=http%3A%2F%2Fgmai9999.googlepages.com%2Fhome&ad_type=text_image&ui=rc%3A0&cc=100&flash=9&u_h=768&u_w=1024&u_ah=738&u_aw=1024&u_cd=32&u_tz=480&u_java=true" frameborder="0" width="468" scrolling="no" height="60" allowtransparency="allowtransparency">
1。打开新窗体
begin
     If WebApplication.FindComponent('需要打开form的名称') <> Nil Then Begin
        TIWAppForm(WebApplication.FindComponent('需要打开form的名称')).Show;
     End Else Begin
        TIWEditfm(需要打开form的名称).Create(WebApplication).Show;
     End;
     release;
end;

2。退出
WebApplication.Terminate('谢谢使用,再见');

3。取得根目录路径(uses swsystem)
   pathstr := gsAppPath ;     //根目录路径
                     GSystemPath ；//系统路径
                     gsAppName;//程序名称

4。使用模板
在form上添加IWLayoutMgrHTML1,双击后直接编辑出网页,保存为filename.html(与filename.pas同名)
然后将form的Lay OutMgr指向IWLayoutMgrHTML1即可。

name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-0494631679463850&dt=1183254053140&lmt=1183254053&prev_fmts=120x600_as&format=468x60_as&output=html&correlator=1183254053031&url=http%3A%2F%2Fpages.google.com%2Fdraft%2FBlueStar.Skyking%2Fadsensepage%3Fauthtoken%3D91b825ffd39d84145aea501a0792e0ea1658201d&ad_type=text_image&ref=http%3A%2F%2Fpages.google.com%2Fpreview%2FBlueStar.Skyking%2Fadsensepage%3Fauthtoken%3D06516fbfa328a5527eb935f1e169cb23d43c0351%26no-cache%3D7350381924487911&flash=9&u_h=768&u_w=1024&u_ah=738&u_aw=1024&u_cd=32&u_tz=480&u_java=true" frameborder="0" width="468" scrolling="no" height="60" allowtransparency="allowtransparency">

5。浏览DbGrid后导出EXCEL
procedure TFrmMain.BtnDSXLSClick(Sender: TObject);
var
I: Integer;
Str: String;
StrList: TStringList;
title,Xlsstr:string;
begin
SWsystem.gsAppName
   Xlsstr := GsAppPath+'Files/Tempxls/Data.xls'; //Excel文件临时存储位置
try
begin
      StrList := TStringList.Create;
        with DBGridDS do   //Dbgrid Name
        begin
           title:='';
           for i:=0 to Columns.Count-1 do
           begin
             title:=title+Columns.Items[i].DisplayName+#9;
           end;
          StrList.Add(title);
        end;

        with TIWUserSession(WebApplication.Data).DSMDS do //micel DataSetAcess
        begin
          First;
          while not Eof do
          begin
            Str := '';
            for I := 0 to FieldCount-1 do
            Str := Str + Fields[I].AsString + #9;
            StrList.Add(Str);
            Next;
          end;
          StrList.SaveToFile(Xlsstr);
          WebApplication.SendFile(Xlsstr,true,'','');
        end;
end;
finally
    Freeandnil(StrList);
end;
end;