1. 首页
  2. 开始使用
  3. fun_addcode

fun_addcode

fun_addcode 单元主要包含了不常用代码的积累。

procedure ClearEdit();

函数解析:

  • 函数用途:清空窗体中所有edit的内容,常用于窗体初始化过程中。
  • 调用范例:
    begin
    form2.clearedit;
    end;
    
  • 实例解析:这里是遍历窗体中所有的控件,如果控件是edit,则清空他的内容。 常用于form.show中初始化的调用。

procedure DBGridInFoToExcel(FileName, TitleCaption: string; MakeDataSource: TDataSource; makeDBGrid: TDBGrid);

函数解析:

  • 函数用途:把dbgird显示的结果导出到本地的excle表格中。
  • 调用范例:
    var sname:string;
    begin
    sname:='abc.xlsx';
    form2.DBGridInFoToExcel(sname,'',fun_db.fundb.DataSource1,DBGrid1);
    end;
    
  • 实例解析:调用参数说明:
    参数1:导出Excel的文件名称
    参数2:Excel的第一行标题(本例代码中去掉了这个功能,所以传空)
    参数3:与DBGrid连接的DataSouce
    参数4:要导出的DBGrid
    举例:DBGridInFoToExcel(AFileName, '', ADataSource, DBGrid1);

开始使用

框架摘要

框架完善