DELPHIÖÐÔõô°ÑDBGridËùÑ¡µÄÊý¾Ý¸³Öµ¸øEDIT
Æ©ÈçÎÒÓÐÒ»¸öDBGrid¿Ø¼þ£¬ÀïÃæÏÔʾÓÐNÌõÊý¾Ý£¡ÎÒËæ±ãÑ¡ÔñÒ»ÌõÊý¾Ý£¬µã»÷¡°Ð޸ġ±Ëü¾Í±íÏÔʾÔÚÎÒÉ趨µÄ¶ÔÓ¦EDITÖÐÏÔʾ³öÀ´£¡²¢ÓÐÐ޸ĵŦÄÜ
ΪʲôÎÒµãÀ´µãÈ¥¶¼ÊÇÖ»»áÏÔʾµÚÒ»´ÎÊý¾Ý£¿
ÔÚ¡°Ð޸ġ±°´¼ü¼ÓÈëµÄ´úÂëÊÇ£º
procedure TForm4.Button2Click(Sender: TObject);
begin
Application.CreateForm(TForm7,Form7);
Form7.ShowModal;
Form7.Free;
end;
ÔÚFORM¼ÓÈëµÄ´úÂëÊÇ£º
procedure TForm7.FormCreate(Sender: TObject);
begin
Edit1.Text:=ADOQuery2.Fieldbyname('IDNO').AsString;
end;
end.
Edit1.Text=AdoQuery1.FieldByName('×Ö¶ÎÃû').Values;
ßÀ£¬ÉÏÃæÖ»ÊÇ˵µÄÑ¡ÖÐÊý¾Ý£¬ÏÔʾµ½EDITÀï±ß
Èç¹ûÄãÏë´øÐ޸ŦÄÜ£¬½¨ÒéÄãÓÃDBEDIT
Delphi(Pascal) code:
Edit1.Text:=dbgrid1.SelectedField.AsString;
procedure Tform1.adoquery1AfterScroll(DataSet: TDataSet);
begin
Edit1.Text=AdoQuery1.FieldByName('×Ö¶ÎÃû').AsString;
end;
Õâ¸ö¸üºÃÓÃ....
Äã°´ÕÕ3Â¥µÄд·¨ÊÔһϣ¡
²»½¨ÒéÓÃDBEDITÕâÀà¶«Î÷£¬Ì«ÂýÁË£¬»¹ÊÇÓÃEDITºÃ
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬
ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......
ÇëÎÊdelphiÖеϲ¼ÄÜ»æ×ø±êͼÂð£¬ÄÇλ´óʦÓÐÕâ·½ÃæµÄÀý×Ó£¬°ïæ·¢Ò»¸ö£¬Ð»Ð»ÁË£¡ÎÒµÄÓÊÏäÊÇspringbird2006@126.com
tChart¿Ø¼þ¾Í¿ÉÒÔ£¬»¹ÓÐһЩµÚÈý¿Ø¼þ¡£ÏÂÔØÆµµÀÀï¾ÍÓв»ÉÙ¡£
¿É²»¿ÉÒÔ˵¾ßÌåµãÄØ£¬ÎÒ¸Õѧdelp ......