获取字段数据函数

public10/ThreeFun/Fun/U_ControlData.pas

@@ -0,0 +1,58 @@
+unit U_ControlData;
+
+interface
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ComCtrls, ToolWin, ShlObj, cxShellCommon, cxControls, cxDropDownEdit,
+  cxContainer, cxShellTreeView, cxShellListView, StdCtrls, BtnEdit,
+  OleCtnrs, DB, ADODB,ZLib;
+
+  function InitDevCombobox(ADOQueryTmp: TADOQuery;  combobox: TcxCombobox; mFlag: string; selFlag:Boolean=true): Boolean;
+implementation
+
+/// ////////////////////////////////////////////////
+// 函数功能：取流水号
+// mFlag:前缀；mTable:表名
+// mlen:流水号长度; mtype:是否带日期  1：带 0 不带
+/// ////////////////////////////////////////////////
+function InitDevCombobox(ADOQueryTmp: TADOQuery;  combobox: TcxCombobox; mFlag: string; selFlag:Boolean=true): Boolean;
+begin
+    Result := false;
+  try
+    with ADOQueryTmp do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('select a.itemText from SY_Dict_Item a');
+      sql.Add(' inner join SY_Dict b on b.dictId=a.dictId');
+      sql.Add(' where b.dictcode='+QuotedStr(mFlag));
+      sql.Add('and a.valid=1 and b.valid=1');
+      sql.Add('order by b.sortorder');
+      Open;
+
+      if IsEmpty then
+      begin
+        application.MessageBox(PWideChar('未定义等级对应的字段字典数据(' + mFlag + ')'),'',0);
+        Exit;
+      end;
+      combobox.Properties.Items.Clear;
+      first;
+      while not eof  do
+      begin
+        combobox.Properties.Items.Add(trim(FieldByName('itemText').AsString));
+        next;
+      end;
+      if selFlag and (combobox.Properties.Items.Count>0) then
+      begin
+        combobox.ItemIndex:=0;
+      end;
+    end;
+
+  except
+
+    raise Exception.Create(PWideChar('获取等级字段字典数据(' + mFlag + ')时，发生错误!'));
+
+  end;
+end;
+
+end.