control_typeu.pas

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

unit Control_typeU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils,StdCtrls;
//通过类型分类得到类型
function GetTypeArrayByClass(TypeClass:integer):TADOQuery;
//通过类型分类得到的类型来填充指定的Combox
procedure FillCBXDataByTypeArray(cbx:TCombobox;TypeClass:integer);
implementation
procedure 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].Value);
      query.Next;
    end;
  query:=nil;
  cbx.ItemIndex:=0;
end;
function GetTypeArrayByClass(TypeClass:integer):TADOQuery;
var
  sql:string;
begin
  sql:='select id,名称 from 类型表 where 类型分类='+inttostr(TypeClass);
  result:=DAHelper.ExeSqlQuery(sql);
end;
end.