delphi procedure ÔËÐÐÖÐ;ÈçºÎÖÕÖ¹ ?
ÓÐÒ»¸ö½Ð Taking() µÄprocedure, Óжþ¸ö°´Å¥, ÎÊÌâ, µãµÚÒ»¸ö°´Å¥µÄ´úÂëÊǵ÷ÓÃTaking()µÄ, Ôõô²ÅÄܵãµÚ¶þ¸ö°´Å¥°ÑTaking()ÖÕÖ¹»ò³·Ïú
¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ÎªFalseʱ£¬Exit RT£¬¾ÍÊÇÕâÑù£¬µÚÒ»¸ö°´Å¥ÅжÏÖµ£¬µÚ¶þ¸ö°´Å¥µÄʼþ°ÑÖµÉèÖÃΪfalseÒýÓà ¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ÎªFalseʱ£¬Exit ÎÊÌâÕâ¸ö¹ý³ÌÒªÖ´Ðж೤ʱ¼ä£¬²ÅÄܸÐÖªÄãÕâ¸ö±êÖ¾!? ¶øÇÒµÚ¶þ¸ö°´Å¥µÄÏûÏ¢´«µÝ¸øÏûÏ¢¶ÓÁÐÒ²ÊÇÔÚÕâ¸ö¹ý³ÌºóµÄÊ£¬ Â¥Ö÷ÄãÕâ¸ö¹ý³Ìû˵Çå³þ£¬Î޽⣡ Èç¹ûÑ»·µÄ»°ÔÚÀïÃæ¼Ó Delphi(Pascal) code: Application.ProcessMessages Exit; proceduce TakingÊÇÒ»¸öforÑ»·×öijЩÊÂ, ËäÈ»¿ÉÒÔÓÃExitÍ˳ö, Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´Î°É so goodÒýÓà proceduce TakingÊÇÒ»¸öforÑ»·×öijЩÊÂ, ËäÈ»¿ÉÒÔÓÃExitÍ˳ö, Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´Î°É Ϊʲô²»¿ÉÒÔ£¿ ¿ÉÒÔÓÃwhileÌæ´úfor »òÕßÔÚforÖеÚÒ»ÐÐÏÈÅжϴËÖµ£¬Èç²»Âú×㣬ÔòÍ˳öÒýÓà proceduce TakingÊÇÒ»¸öforÑ»·×öijЩÊÂ, ËäÈ»¿ÉÒÔÓÃExitÍ˳ö, Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´
Ïà¹ØÎÊ´ð£º
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ ÔõôûÈËÀíÎÒѽ ·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^* SQL creat table TableName(ID Counter Primary Key,FieldName varchar(20)) ADOQue ......
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿ DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿ delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª ÒýÓà delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª ÊÇÄĸö£¿ windowsµÄapi£¿ ±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
ÎÊÌâÒ»¡£ÎÒÔÚ×ö¿Î³ÌÉè¼ÆµÄʱºòŪÁ˸öÖØÐÂÉèÖÃÃÜÂë´°¿Ú£¬µ«ÊÇ°Ñ PasswordChar ¸ÄΪÁË * ,ÏÖÔÚÔõô°ÑÊäÈëºÃµÄÃÜÂë±£´æµ½±íPasswordÀï(Èç¹û PasswordChar ÊÇ #0 µÄ»°ÎÒÖªµÀ)¡£ ÎÊÌâ¶þ¡£ÎÒ±£´æºÃºóÔõô´Ó±íPasswordÀï ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬ Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi Ï¿ÉÓÐÔ´Âë ʵÏÖÄÚ´æ³Ø ¹Ì¶¨·ÖÅäÄÚ´æ³Ø´óСµÄ¡£¡£ÄÚ´æ³ØÂúºó×Ô¶¯×ª´¢Êý¾Ýµ½¡£¡£Ö¸¶¨µÄÒ»¸öÁÙʱÎļþ£¬ ²»ÖªµÀ¿É·ñÄÄλÐÖµÜ×ö¹ýÀàËÆµÄÀý×Ó¡£¡£¡£¡£¡£×îºÃÓÐÑÝʾԴÂë¡£¡£¡£Ð»Ð» ËÑÒ»ËÑ,×Ü»áÓÐ... ......