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

delphi ¼Ç¼Ìí¼ÓÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø

ʹÓÃtadoquery¡¢tdbgrid¹ý³ÌÖÐÓöµ½µ±µã»÷tdbgridÖеÄÊý¾Ýʱ£¬Ìí¼Ó²»ÁËмǼ£¬Èç¹û¸Õ½ø´°ÌåÖ±½Óµã¾Í¿ÉÒÔ.
procedure Tfcost.ToolButton1Click(Sender: TObject);
var
  i,j,k:integer;
  s1,s2:string;
begin
if adoquery1.Active then
  begin
  adoquery1.FindLast;
  i:=adoquery1.RecNo;
  s1:=adoquery1.FieldValues['fcostcode'];
  i:=strtoint(s1)+1;
  s2:=format('%.4d',[i]);
  adoquery1.Append;
  adoquery1.FieldByName('fcostcode').Value:=s2;
  adoquery1.FieldByName('fcostname').Value:='<ÐÂÏîÄ¿>';
  adoquery1.FieldByName('fcosttypid').Value:=1;
  adoquery1.FieldByName('fmoney').Value:=0;
  end;

end;
²¹³äÒ»ÏÂ
 ³ö´íÌáʾµ±Ç°¼Ç¼²»ÔÚ²åÈë»ò±à¼­×´Ì¬¡£¼Ç¼ָÏò×îºóÒ»Ìõ¼Ç¼£¬dbgridÖÐûÓÐмǼ¡£


ÓÃdbnavigatorÒ²ÊÇÒ»Ñù£¬Òª°´Á½´Î²Å¿´¼ûмǼ¡£

ÔÙ²¹³äһϣ¬ÎÒµÄÊý¾Ý¿âÊÇsql server 2000 £¬Óиö×Ö¶ÎÊÇfcostidÊÇ×Ô¶¯µÄ

ÖÕÓÚÕÒµ½ÎÊÌâËùÔÚ£¬ÎÒÔÚÁíÒ»¸öʼþ´¦ÀíÖÐÓÐЩÎÊÌâ¡£


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......

¹ØÓÚDelphi IXMLDOMNodeList ±£´æ

var
FXmlDoc:IXMLDomDocument;
begin
ʹÓÃFXmlDoc.save('Îļþ·¾¶')£»
½á¹û·¢ÏÖ±£´æºóµÄ¸ÃÎļþÖÐÎÄÈ«²¿ÎªÂÒÂ룬ÈçºÎ½â¾ö
end£»
²Î¿¼Õâ¸ö
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......

DelphiÊý¾Ý¿âͼƬÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÓõÄÊÇsql server2000£¬ÀïÃæ´æÓÐ×ֶΣºÕÕÆ¬ image
ÎÒ²»Ã÷°×Ôõô°ÑͼƬ´æÈëÊý¾Ý¿âÖУ¿
ÎÒ»¹ÔÚDelphiÖн¨Á¢ÁË´°Ì壬ÈçºÎ½«Êý¾Ý¿âÖеÄͼƬһ²¢ÏÔʾ³öÀ´£¬ÎÒÓõÄÊÇDBGridºÍImage
ÈçºÎ½«Á½Õß¹ØÁªÆðÀ´£¿£¡
²Î¿¼(ÎÒ»Ø ......

Delphi spcomm ¿Ø¼þ - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

´óÏÀÃǰïæ¿´Ò»Ï£¬ÓÃspcomm¿Ø¼þ½øÐд®¿ÚͨÐÅ¡£
·¢ËÍÊý¾Ý£º
procedure TForm1.Button2Click(Sender: TObject);
var
 strPressure:string;
begin
 
 strPressure:='SEND'+#13;
 comm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ