我在编程里用到的函数，归在一个类中(未完)

把在编程中遇到的一些代码整理在一个类中，这样可以提高代码的重用性

------------------------------------------------------------------------------------------------------------

unit PublicFunctionUnit;

interface
 uses sysutils,dateutils,db,stdctrls,dbTables,windows,extCtrls,comctrls;
 type
    TPublicFunction = class

 public
    // 根据 日期生成 06030010  形式的 id 号 要传入一个打开该表的数据集以及这保存 id 的字段名
    class function  GetAutoCreateIDWithDate(theDataSet:TdataSet;FieldName:string):string;
    // 给 combobox 的 item 添加项目 传入一个 query combobox 以及 sql 语句
    class procedure AddItemToCombobox(fQuery:TQuery;fCombobox:TCombobox;SqlStr:string);
    // 用 DBtable 的 delete 来删除记录  table 和 query 都属于 DBTable
    class procedure DeleteRecordWithDBTable(aDataset:TDataSet);
    // 清除 panel　面板上的所有的 Edit　里的 Text　值
    Class Procedure ClearTextFromPanel(thePanel:TPanel);
    // 给 listView 创建列，根据数组来创建
    Class procedure CreateListViewColumn(theColumns:array of string;theColumnWidth:array of integer;
                        theListView:TListView);
    // 给 listView　添加数据，根据打开的 Dataset;                           是否显示 checkbox
    Class procedure AddDataToListView(aDataSet:TDataset;aListView:TListview;shCheckBox:boolean);

 end;
implementation

uses FocObjectUnit;

   class function  TPublicFunction.GetAutoCreateIDWithDate(theDataSet:TdataSet;FieldName:string):string;
   var
     sOrderID,sTemp,sYear,sMonth:string;
   begin
      if not theDataSet.Active then theDataSet.Open;
     
      sYear:=Copy(IntToStr(YearOf(Now)),3,2);
      sMonth:=IntToStr(MonthOf(Now));
      sMonth:=Copy('0',length(sMonth),2-length(sMonth))+sMonth;
      if theDataSet.IsEmpty then
      begin
         sOrderID:=sYear+sMonth+'0001';
      end  else
      begin
         theDataSet.Last;
         sTemp:=Copy(theDataSet.FieldByName(FieldName).AsString,1,4);
         if (sTemp=(sYear+sMonth)) then
         begin
            sTemp:=IntToStr(StrToInt(Copy(theDataSet.FieldByName(FieldName).AsString,5,4))+1);
            sTemp:=Copy('000',length(sTemp),4-length(sTemp))+sTemp;
            sOrderID:=sYear+sMonth+sTemp;
         end else
            sOrderID:=sYear+sMonth+'0001';
      end ;

      result := sOrderID;
   end;

   //--------------------------------------------------------------------------//

   class procedure TPublicFunction.AddItemToCombobox(fQuery:TQuery;fCombobox:Tcombobox;SqlStr:string);
   begin
       with  fQuery do
       begin
          if active then close;
          sql.Clear;
          sql.Add(sqlStr);
          open;

          while not eof do
          begin
              fCombobox.Items.Add(Fields[0].asstring);
              next;
          end;
          close;
       end;
   end;
//-----------------------------------------------------------------------------//

  class procedure TPublicFunction.DeleteRecordWithDBTable(aDataSet:TdataSet);
  begin
     // 这里的 showbox　是调用的别的单元里的一个方法　，考虑到要和现在的程序
     // 在界面上保持一至，所以不用 messagebox 这里 用 messagebox　的方法给注
     // 释起来了
      if aDataSet.IsEmpty then exit;
      if ShowBox('确定要删除当前这条记录吗?') then
      begin
       
        aDataSet.Delete;
        try
          aDataSet.Post;
        except
        end;
      end;
      {
      if Messagebox(0,pchar('确定要删除当前这条记录吗？'),pchar('提示'),
         windows.MB_OKCANCEL+MB_iconQuestion) = idOk then
      begin
        aDataSet.Delete;
        try
          aDataSet.Post;
        except
        end;
      end;
      }
  end;
//-----------------------------------------------------------------------------//

  Class procedure TPublicFunction.ClearTextFromPanel(thePanel:TPanel);
  var
     i:integer;
  begin
      for i:= 0 to thePanel.ControlCount-1 do
      begin
          if thePanel.Controls[i] is TEdit then
          begin
             TEdit(thePanel.Controls[i]).Text := ''
          end;
      end;
  end;
//-----------------------------------------------------------------------------//
  Class procedure TPublicFunction.CreateListViewColumn(theColumns:array of string;
                theColumnWidth:array of integer;theListView:TListView);
  var
    i:integer;
    aColumn:TListColumn;
  begin
    theListView.Columns.Clear;
    theListView.ViewStyle := comctrls.vsReport;
    for i := low(theColumns) to High(theColumns) do
    begin
       aColumn:=theListView.Columns.Add;
       aColumn.Caption := theColumns[i];
       aColumn.Width := theColumnWidth[i];

    end;

  end;

//-----------------------------------------------------------------------------//

  Class procedure TPublicFunction.AddDataToListView(aDataSet:TDataset;
                aListView:TListview;shCheckBox:boolean);
  var
    aItem : TListItem;
    i: integer;
  begin
     aListView.Checkboxes := shCheckBox;
     aListView.GridLines := true;               //　显示网格线
     aListView.Items.Clear;
     aDataSet.First;
     while not aDataset.Eof do
     begin
         aItem := aListView.Items.Add;
         aItem.Caption := aDataSet.Fields[0].AsString;
         for i:= 1 to aDataSet.FieldCount-1 do
         begin
            
             aItem.SubItems.Add(aDataSet.Fields[i].AsString);
         end;
         aDataSet.next;
     end;
  end;
end.