Delphi ÖÐÈçºÎ´úÂë¸øDBGrid¸³Öµ(´úÂëÈçÏÂ)£¿£¿£¿£¿
//ÉèÖÃDBGridÍ·
gbWareInfo.Columns.Clear;
myCoumn:=gbWareInfo.Columns.Add;
myCoumn.Title.Caption:='ÉÌÆ·±àºÅ';
myCoumn.FieldName:='ID';
myCoumn:=gbWareInfo.Columns.Add;
myCoumn.Title.Caption:='ÉÌÆ·Ãû³Æ';
myCoumn.FieldName:='Name';
myCoumn:=gbWareInfo.Columns.Add;
myCoumn.Title.Caption:='¿â´æÁ¿';
myCoumn.FieldName:='Number';
//Á¬½ÓÊý¾Ý¿â
sSql := ' select * from WareStock where DepotID = 1 '; //²éѯNÌõÊý¾Ý
ADOQueryDBGrid.Sql.clear;
ADOQueryDBGrid.SQL.Add(sSql);
ADOQueryDBGrid.Open;
ADOQueryDBGrid.First;
//ÈçºÎ¸øÎÒµÄDBGrid£¨gbWareInfo£© ÊÖ¶¯Ìí¼ÓֵĨ??????
ÓбØÒªÂð£¬Ö±½Ó¸øADOQuery¸³Öµ¾ÍÐÐÁË
ʲôÒâ˼£¬Ë«»÷dbgridÒ»¸öÒ»¸ö¼ÓÂð£¿
²»Óÿؼþ¹ØÁª£¬ÓôúÂë ¸øDBGridµÄÿһÁи³Öµ£¡£¡£¡£¡
»»³ÉStringGridDBºÃÁË
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
ÈçÌ⣺
ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊÇ¹ÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......