control_typeu.~pas

来自「这是一个餐饮业收费管理系统」· ~PAS 代码 · 共 31 行

unit Control_typeU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils,StdCtrls;
//通过类型分类得到类型
function GetTypeArrayByClass(TypeClass:integer):TADOQuery;
//通过类型分类得到的类型来填充指定的Combox
function FillCBXDataByTypeArray(cbx:TCombobox;TypeClass:integer);
implementation
function FillCBXDataByTypeArray(cbx:TCombobox;TypeClass:integer);
var
  query:TADOQuery;
begin
  cbx.Items.Clear;
  query:=GetTypeArrayByClass(TypeClass);
  while not query.Eof do
    begin
      cbx.Items.Add(query.Fields[1]);
      query.Next;
    end;
  query:=nil;
end;
function GetTypeArrayByClass(TypeClass:integer):TADOQuery;
var
  sql:string;
begin
  sql:='select id,名称 from 类型表 where 类型分类='+inttostr(TypeClass);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
end.