procedure TForm1.FormCreate(Sender: TObject); begin while not adoquery1.Eof do begin ComboBox1.Items.Add(adoquery1.fieldbyname('f_emp_name').asstring); adoquery1.Next; end; end;
为了关联数据库,我用的是dblookupcombobox啊,因为虽然显示名称但是 关联id啊
使用query 建立查询,生成记录集,在dblookupcombobox的onchange方法中加入语句,如: query1.sql.add('select customer_id,customer_name from customer where customer_id like '''+dblookupcombobox.text+'%'' order by customer_id')然后,用所得记录集更新combobox的选项
function GetHzPy(const AHzStr: string): string; const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000), (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729), (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000), (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589)); var i, j, HzOrd: integer; Hz: string[2]; begin i := 1; while i <= Length(AHzStr) do begin if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then begin HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160; for j := 0 to 25 do begin if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then begin Result := Result + char(byte('A') + j); break; end; end; Inc(i); end else Result := Result + AHzStr[i]; Inc(i); end; end2 还有一个搜全部拼音的 unit HzSpell;interfaceuses Windows, Messages, SysUtils, Classes;type THzSpell = class(TComponent) protected FHzText: String; FSpell: String; FSpellH: String; procedure SetHzText(const Value: String); function GetHzSpell: String; function GetPyHead: String; public class function PyOfHz(Hz: String): String; class function PyHeadOfHz(Hz: String): String; published property HzText: String read FHzText write SetHzText; property HzSpell: String read GetHzSpell; property PyHead: String read GetPyHead; end;{$I HzSpDat2.inc}procedure Register;function GetHzPy(HzChar: PChar; Len: Integer): String; function GetHzPyFull(HzChar: String): String; function GetHzPyHead(HzChar: PChar; Len: Integer): String; function GetPyChars(HzChar: String): String;implementationprocedure Register; begin RegisterComponents('System', [THzSpell]); end;function GetHzPy(HzChar: PChar; Len: Integer): String; var C: Char; Index: Integer; begin Result := ''; if (Len > 1) and (HzChar[0] >= #129) and (HzChar[1] >= #64) then begin //是否为 GBK 字符 case HzChar[0] of #163: // 全角 ASCII begin C := Chr(Ord(HzChar[1]) - 128); if C in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then Result := C else Result := ''; end; #162: // 罗马数字 begin if HzChar[1] > #160 then Result := CharIndex[Ord(HzChar[1]) - 160] else Result := ''; end; #166: // 希腊字母 begin if HzChar[1] in [#$A1..#$B8] then Result := CharIndex2[Ord(HzChar[1]) - $A0] else if HzChar[1] in [#$C1..#$D8] then Result := CharIndex2[Ord(HzChar[1]) - $C0] else Result := ''; end; else begin // 获得拼音索引 Index := PyCodeIndex[Ord(HzChar[0]) - 128, Ord(HzChar[1]) - 63]; if Index = 0 then Result := '' else Result := PyMusicCode[Index]; end; end; end else if Len > 0 then begin //在 GBK 字符集外, 即半角字符 if HzChar[0] in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then Result := HzChar[0] else Result := ''; end; end;function GetHzPyFull(HzChar: String): String; var i, len: Integer; Py: String; function IsDouByte(C: Char): Boolean; begin Result := C >= #129; end; begin Result := ''; i := 1; while i <= Length(HzChar) do begin if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then len := 2 else len := 1; Py := GetHzPy(@HzChar[i], len); Inc(i, len); if (Result <> '') and (Py <> '') then Result := Result + ' ' + Py // + ' ' else Result := Result + Py; end; end;function GetHzPyHead(HzChar: PChar; Len: Integer): String; begin Result := Copy(GetHzPy(HzChar, Len), 1, 1); end;function GetPyChars(HzChar: String): String; var i, len: Integer; Py: String; function IsDouByte(C: Char): Boolean; begin Result := C >= #129; end; begin Result := ''; i := 1; while i <= Length(HzChar) do begin if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then len := 2 else len := 1; Py := GetHzPyHead(@HzChar[i], len); Inc(i, len); Result := Result + Py; end; end;{ THzSpell }function THzSpell.GetHzSpell: String; begin if FSpell = '' then begin Result := GetHzPyFull(FHzText); FSpell := Result; end else Result := FSpell; end;function THzSpell.GetPyHead: String; begin if FSpellH = '' then begin Result := GetPyChars(FHzText); FSpellH := Result; end else Result := FSpellH; end;class function THzSpell.PyHeadOfHz(Hz: String): String; begin Result := GetPyChars(Hz); end;class function THzSpell.PyOfHz(Hz: String): String; begin Result := GetHzPyFull(Hz); end;procedure THzSpell.SetHzText(const Value: String); begin FHzText := Value; FSpell := ''; FSpellH := ''; end;end.
to myboor(菜菜菜鸟): dblookupcombobox的onchange方法中加入语句??? 好像没有啊
begin
while not adoquery1.Eof do
begin
ComboBox1.Items.Add(adoquery1.fieldbyname('f_emp_name').asstring);
adoquery1.Next;
end;
end;
关联id啊
query1.sql.add('select customer_id,customer_name from customer where customer_id like '''+dblookupcombobox.text+'%'' order by customer_id')然后,用所得记录集更新combobox的选项
const
ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
(2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
(2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
(3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),
(9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));
var
i, j, HzOrd: integer;
Hz: string[2];
begin
i := 1;
while i <= Length(AHzStr) do
begin
if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then
begin
HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;
for j := 0 to 25 do
begin
if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then
begin
Result := Result + char(byte('A') + j);
break;
end;
end;
Inc(i);
end else Result := Result + AHzStr[i];
Inc(i);
end;
end2
还有一个搜全部拼音的
unit HzSpell;interfaceuses
Windows, Messages, SysUtils, Classes;type
THzSpell = class(TComponent)
protected
FHzText: String;
FSpell: String;
FSpellH: String;
procedure SetHzText(const Value: String);
function GetHzSpell: String;
function GetPyHead: String;
public
class function PyOfHz(Hz: String): String;
class function PyHeadOfHz(Hz: String): String;
published
property HzText: String read FHzText write SetHzText;
property HzSpell: String read GetHzSpell;
property PyHead: String read GetPyHead;
end;{$I HzSpDat2.inc}procedure Register;function GetHzPy(HzChar: PChar; Len: Integer): String;
function GetHzPyFull(HzChar: String): String;
function GetHzPyHead(HzChar: PChar; Len: Integer): String;
function GetPyChars(HzChar: String): String;implementationprocedure Register;
begin
RegisterComponents('System', [THzSpell]);
end;function GetHzPy(HzChar: PChar; Len: Integer): String;
var
C: Char;
Index: Integer;
begin
Result := '';
if (Len > 1) and (HzChar[0] >= #129) and (HzChar[1] >= #64) then
begin
//是否为 GBK 字符
case HzChar[0] of
#163: // 全角 ASCII
begin
C := Chr(Ord(HzChar[1]) - 128);
if C in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then
Result := C
else
Result := '';
end;
#162: // 罗马数字
begin
if HzChar[1] > #160 then
Result := CharIndex[Ord(HzChar[1]) - 160]
else
Result := '';
end;
#166: // 希腊字母
begin
if HzChar[1] in [#$A1..#$B8] then
Result := CharIndex2[Ord(HzChar[1]) - $A0]
else if HzChar[1] in [#$C1..#$D8] then
Result := CharIndex2[Ord(HzChar[1]) - $C0]
else
Result := '';
end;
else
begin // 获得拼音索引
Index := PyCodeIndex[Ord(HzChar[0]) - 128, Ord(HzChar[1]) - 63];
if Index = 0 then
Result := ''
else
Result := PyMusicCode[Index];
end;
end;
end
else if Len > 0 then
begin
//在 GBK 字符集外, 即半角字符
if HzChar[0] in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then
Result := HzChar[0]
else
Result := '';
end;
end;function GetHzPyFull(HzChar: String): String;
var
i, len: Integer;
Py: String;
function IsDouByte(C: Char): Boolean;
begin
Result := C >= #129;
end;
begin
Result := '';
i := 1;
while i <= Length(HzChar) do
begin
if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
len := 2
else
len := 1;
Py := GetHzPy(@HzChar[i], len);
Inc(i, len);
if (Result <> '') and (Py <> '') then
Result := Result + ' ' + Py // + ' '
else
Result := Result + Py;
end;
end;function GetHzPyHead(HzChar: PChar; Len: Integer): String;
begin
Result := Copy(GetHzPy(HzChar, Len), 1, 1);
end;function GetPyChars(HzChar: String): String;
var
i, len: Integer;
Py: String;
function IsDouByte(C: Char): Boolean;
begin
Result := C >= #129;
end;
begin
Result := '';
i := 1;
while i <= Length(HzChar) do
begin
if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
len := 2
else
len := 1;
Py := GetHzPyHead(@HzChar[i], len);
Inc(i, len);
Result := Result + Py;
end;
end;{ THzSpell }function THzSpell.GetHzSpell: String;
begin
if FSpell = '' then
begin
Result := GetHzPyFull(FHzText);
FSpell := Result;
end
else Result := FSpell;
end;function THzSpell.GetPyHead: String;
begin
if FSpellH = '' then
begin
Result := GetPyChars(FHzText);
FSpellH := Result;
end
else Result := FSpellH;
end;class function THzSpell.PyHeadOfHz(Hz: String): String;
begin
Result := GetPyChars(Hz);
end;class function THzSpell.PyOfHz(Hz: String): String;
begin
Result := GetHzPyFull(Hz);
end;procedure THzSpell.SetHzText(const Value: String);
begin
FHzText := Value;
FSpell := '';
FSpellH := '';
end;end.
好像没有啊