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
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É
Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......