³õѧDelphi ÏëÒª¿ìµãÉÏÊÖ - Delphi / Êý¾Ý¿âÏà¹Ø
ÎÒ¸ÕѧϰDelphi£¬ÒòΪÒÔǰûÓÐÓùýËü£¬ËùÒÔ²»ÖªµÀËüÄܲ»ÄÜ×ö³öÏëÒªµÄÑù×Ó£¬ËùÒÔÏÖÔÚÇë´ó¼Ò°ïÎÒ·ÖÎö·ÖÎö£¡
ÏÖÔÚµÄÏîÄ¿Ò»°ã¶¼ÐèÒªÊý¾Ý¿â°É¡£ÒÔÇ°ÎÒÓõÄÊÇ.net£¬ËüÀïÃæÓÐsqlhelperÖ®ÀàµÄ£¬²»ÖªµÀDelphiÀïÃæÓÐûÓпìËÙ¿ª·¢Êý¾Ý¿âÓ¦Óó̶ȵġ£
ÏëÒªÒ»¸ö¼òµ¥ ÈÝÒ׿´¶®µÄ ´úÂëÈ«µÄ ×¢ÊÍÏêϸµãµÄ Êý¾Ý¿â¿ª·¢ÊµÀý ×îºÃÓÐÎĵµËµÃ÷
»¹Ë¯ÄØ?¸ÃÐÑÁË
Â¥Ö÷Âò±¾×î»ù±¾µÄÊé¿´¿´£¬²»ÒªÔÚÕâÀïÎÊÁË¡£
adoconnection,adoquery
°¦¡£¡£¡£
ÎÒÒ²ÓÐÕâ·½ÃæµÄÎÊÌâ
¿´µãС´úÂ룬Ӧ¸ÃÄÜ¿´Ã÷°×
hi hi
ÀÏÐÖ£¬ÏÂÒ»¸öpdfµÄµç×ÓÊé²»¾ÍµÃÁË
²î²»¶àµÄ¶«Î÷£¬¿´ÏÂ×Ô´øµÄDEMO¾ÍÐÐÁË
ÍøÉÏÏÂÔØDEMO¿´Ï¾ͻáÁË£¬ºÜ¼òµ¥µÄ
with Dm_1.Cds_General do
begin
Close;
Commandtext := 'Select JCode,PCode,ModelNum,ProcCode,SubNum,WsCode,sKind,Sl-OutQty As BaskQty from V_Ccdmxk Where Sh_f =1 and NewBarCode = ' + '''' + DBEdit_BarCode.text + '''' + ' and Sl > OutQty ' + ' and DeptId = ' + '''' + 'C' + '''';
open;
first;
if not eof then
begin
Redo_f := true;
Dm_1.Cds_CheckPoint_C_1.fieldbyname('New_BC_f').value := false;
if not fieldbyname('JCode').IsNull then
Dm_1.Cds_CheckPoint_C_1.fieldbyname('JCode').value := fieldbyname('JCode').Value;<
Ïà¹ØÎÊ´ð£º
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐʲôÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃ棿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐʲôÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......
¶¨Òå±äÁ¿s,sqlΪstringÀàÐÍ£¬sΪº¯Êý²ÎÊý£¬sql£º='select field1 from table1 where'+s;ÔËÐÐʱs¸³ÖµÎªid>7»òÕßid<7¡¢id=7,µ«ÊÇÔËÐÐʱ×ÜÊdzö´í£¬Çë¸÷λ°ïÎÒ¸Ä´í£¬¶àл£¡
showMessage(sql)Ï¿´¿´
sql£º='sel ......
ÎÒÓõÄÊÇsql server2000£¬ÀïÃæ´æÓÐ×ֶΣºÕÕƬ image
ÎÒ²»Ã÷°×Ôõô°ÑͼƬ´æÈëÊý¾Ý¿âÖУ¿
ÎÒ»¹ÔÚDelphiÖн¨Á¢ÁË´°Ì壬ÈçºÎ½«Êý¾Ý¿âÖеÄͼƬһ²¢ÏÔʾ³öÀ´£¬ÎÒÓõÄÊÇDBGridºÍImage
ÈçºÎ½«Á½Õß¹ØÁªÆðÀ´£¿£¡
²Î¿¼(ÎÒ»Ø ......