Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ

ÕâÓïÑÔºÃÄѰ¡  ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±È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=' ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ