59 lines
1.7 KiB
ObjectPascal
59 lines
1.7 KiB
ObjectPascal
|
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
|
|||
|
|
|
|||
|
|
/// ////////////////////////////////////////////////
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD>ȡ<EFBFBD><C8A1>ˮ<EFBFBD><CBAE>
|
|||
|
|
// mFlag:ǰ<C7B0><D7BA>mTable:<3A><><EFBFBD><EFBFBD>
|
|||
|
|
// mlen:<3A><>ˮ<EFBFBD>ų<EFBFBD><C5B3><EFBFBD>; mtype:<3A>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1<><31><EFBFBD><EFBFBD> 0 <20><><EFBFBD><EFBFBD>
|
|||
|
|
/// ////////////////////////////////////////////////
|
|||
|
|
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('δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ȼ<EFBFBD><C8BC><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>ֶ<EFBFBD><D6B6>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD>(' + 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('<27><>ȡ<EFBFBD>ȼ<EFBFBD><C8BC>ֶ<EFBFBD><D6B6>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD>(' + mFlag + ')ʱ<><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'));
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|