DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxxy.Itemindex];
if not adoconnection1.Connected then
try
adoconnection1.Open;
except
end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select רҵÃû³Æ from Speciality where ѧԺ =: XY');
try
adoquery1.Open;
except
end;
ComboBoxZy.Items.Clear;
while (not adoquery1.Eof) do
begin
ComboBoxzy.Items.Add(adoquery1.FieldValues['רҵÃû³Æ']);
adoquery1.Next;
end;
end;
ÔËÐеõ½µÄ½á¹ûÊÇ£º
ÓôÃÆ°¡~ÎҲ鿴ÁË£¬Êý¾Ý¿âµÄ¾ÍÊÇÄÇÁ½¸öÁбíÃû°¡£¡Ôõ»ØÊ°¡£¿ÓÐËÄܸæËßÎÒ£¿
½â¾öÁË~~£¡ÎÒÌ«²»ÊìϤÁË~£¡£¡
adoquery1.SQL.Add('select רҵÃû³Æ from Speciality where ѧԺ ='''+XY+'''');
ÔÎ~~
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxxy.Itemindex];
if not adoconnection1.Connected then
try
adoconnection1.Open;
except
end;
&nb
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ
·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÕâÓïÑÔºÃÄÑ°¡ ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøŬÁ¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É
Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
Delphi 3Äê ÔÚÉϺ£Ò»¸öÔÂÄÜÄöàÉÙ
£¨½Ó´¥¹ýµÄ¶¼ÊÇСÏîÄ¿ ´óÏîĿûÔõô×ö¹ý£©
»¹ÊÇ¿´¹«Ë¾°É¡£¡£
mark
ͬÑùÒ»Ì×·¿×Ó£¬ÎÒͬÊÂ̸14K/㎡£¬ÎÒ̸ÁË15K/㎡¡£
½á¹û²îÁË10W£¬ÎÒ¶à»ñÀûÁ ......