ÇþµÀË®Á¦¼ÆËãÔÚdelphiÉϵÄʵÏÖ(1)_¹¤³ÌÁ¦Ñ§×¨Òµ±ÏÒµÂÛÎÄ·¶ÎÄ
·¢²¼Ê±¼ä£º
2014-12-19
À´Ô´£º
ÈË´ó¾¼ÃÂÛ̳
ÇþµÀË®Á¦¼ÆËãÔÚdelphiÉϵÄʵÏÖ(1)_¹¤³ÌÁ¦Ñ§×¨Òµ±ÏÒµÂÛÎÄ·¶ÎÄ
ÕªÒª£ºÇþµÀË®Á¦¼ÆËãÒ»Ö±ÒÔÀ´ÔÚÇþµÀÉè¼ÆÖоÍÊÇÒ»¼þ·³ËöµÄÊÂÇ飬ÒòΪÆäÉæ¼°µ½´óÁ¿µÄÊÔË㹤×÷£¬ÔÚË®Àû¹¤³Ì¹à¸ÈÇþϵÉè¼ÆÖг£ÁîÈ˲»Ê¤Æä·³¡£Îª»¯·±Îª¼ò£¬¼õÉÙÉè¼ÆÖеŤ×÷Á¿£¬¿¼ÂÇʹÓüÆËã»ú¼¼ÊõʵÏÖÊÔË㹤×÷µÄ³ÌÐò»¯¡£ÎÒ¾ÖÕýʹÓÃdelphi±à³Ì¼¼Êõ½øÐйÜÀíÐÅϢϵͳ(mis)µÄ¿ª·¢½¨É蹤×÷£¬¹Ê¾ö¶¨½«ÆäÄÉÈëmisϵͳ½¨ÉèÖУ¬³ÉΪ±¾¾ÖmisϵͳµÄÒ»²¿·Ö¡£delphi¼¼ÊõÊÇÃÀ¹úinprise¹«Ë¾¿ª·¢µÄ»ùÓÚpascalÓïÑԵijÌÐò¿ª·¢Èí¼þ£¬Æä²»½öÔÚÊý¾Ý¿â±à³Ì·½ÃæÓÐ׿Խ±íÏÖ£¬¶øÇÒÔÚÊýѧ¼ÆËãÖÐÒ²³É¼¨ì³È»¡£
¹Ø¼ü´Ê£ºË®Á¦¼ÆËãdelphi л²ÅϵÊýÁ÷Á¿Ä£ÊýÒµÎñ·þÎñÆ÷¿Í»§¶Ë
Ò»¡¢ Ë®Á¦¼ÆËã¼ò½é
½«ÇþµÀÄÚË®Á÷ÊÓ×÷Ã÷Çþ¾ùÔÈÁ÷ÕâÊÇÇþµÀË®Á¦¼ÆËãµÄÇ°Ìᣬ¹Ê¼ÆË㹫ʽ²ÉÓÃÃ÷Çþ¾ùÔÈÁ÷¹«Ê½¡£Ö÷ÒªÈÎÎñÊǽâ¾öÇþµÀµÄ¹ýË®ÄÜÁ¦ÎÊÌ⣬¼´Éè¼ÆÇþµÀµÄ¶ÏÃæ³ß´ç£¬ÒÔ±£Ö¤Í¨¹ýËùÐèµÄÁ÷Á¿£¬»òУºËÇþµÀÊÇ·ñÂú×ãÊäË®Á÷Á¿µÄÒªÇóµÈ¡£×ÜÌå¶øÑÔ£¬ÇþµÀË®Á¦¼ÆËãµÄÎÊÌâÖ÷Òª·ÖÁ½Àࣺ1¡¢Ð£ºËÇþµÀ¹ýË®ÄÜÁ¦£»2¡¢¼ÆËãÇþµÀµÄ¶ÏÃæ³ß´ç¡£
УºËÇþµÀµÄ¹ýË®ÄÜÁ¦Ö÷ÒªÖ¸ÔÚÇþµÀµÄ¶ÏÃæÐÎʽ¡¢³ß´ç¡¢²ÚÂÊ¡¢µ×Ƶȶ¼ÒÑÈ·¶¨µÄÇé¿öÏ£¬¼ÆËãÆä¹ýË®ÄÜÁ¦¡£¼ÆËã²½ÖèΪ£ºÏȸù¾ÝË®Éîh,µ×¿íb¼°±ßÆÂϵÊým¼ÆËã³ö¹ýË®¶ÏÃæÃæ»ý¦Ø¡¢ÊªÖܦ֡¢Ë®Á¦°ë¾¶r¡£ÔÙ¸ù¾Ý²ÚÂÊn¼°Ë®Á¦°ë¾¶r¼ÆË㣨»ò²é±í£©Çó³öл²ÅϵÊýc¡£×îºóÓÃÃ÷Çþ¾ùÔÈÁ÷¹«Ê½q=¦Øc(ri)1/2¼ÆËã³öÁ÷Á¿¡£
¼ÆËãÇþµÀµÄ¶ÏÃæ³ß´çÊÇÇþϵ¹¤³ÌÉè¼ÆÖÐÓöµ½×î¶àµÄÎÊÌâ¡£Ôڹ滮Éè¼ÆÐÂÇþµÀʱ£¬Éè¼ÆÁ÷Á¿Óɹ¤³ÌÒªÇó¶ø¶¨£¬Æ¶ÈÒ»°ãÊÇÓÉÇþµÀ´óС¸ù¾ÝµØÐÎÌõ¼þÈ·¶¨£¬±ßÆÂϵÊým¼°²ÚÂÊn,ÔòÓÉÍÁÖʼ°Çþ±Ú²ÄÁÏÓëÊ©¹¤¡¢¹ÜÀíÔËÓõÈÌõ¼þ¶ø¶¨¡£Ò²¼´ÒÑÖªq¡¢m¡¢n¡¢i£¬ÇóÇþµÀµÄË®Éîh¼°µ×¿íb¡£´ËÎÊÌâÓÐÁ½¸öδ֪Êýb¼°h,¹ÊÐë¾¹ýÊÔËã²ÅÄÜÈ·¶¨¡£¼ÆËã²½ÖèΪ£º1¡¢¸ù¾ÝÒÑÖªµÄÁ÷Á¿q¼°ÇþµÀµ×ÆÂi£¬Çó³öÁ÷Á¿Ä£Êýk0£¨±ê×¼Á÷Á¿Ä£Êý£©£»2¡¢³õ²½¼Ù¶¨Ò»Ë®É¼ÆËãÆäÏàÓ¦µÄ¹ýË®¶ÏÃæ¦Ø¡¢ÊªÖܦ֡¢Ë®Á¦°ë¾¶r£¬²¢¸ù¾Ý²ÚÂÊn¼°Ë®Á¦°ë¾¶r¼ÆËã»ò²é±íÇó³öÏàÓ¦µÄл²ÅϵÊýcÖµ¡£È»ºó£¬°´¹«Ê½k=¦Øcr1/2Çó³öÏàÓ¦µÄÁ÷Á¿Ä£ÊýÖµ£¨Éè¼ÆÁ÷Á¿Ä£Êý£©£»3¡¢½«¼ÆËã³öµÄÉè¼ÆÁ÷Á¿Ä£ÊýÓë±ê×¼Á÷Á¿Ä£Êý±È½Ï£¬ÈôÁ½ÕßÏàµÈ£¬ÔòËùÉèË®ÉΪËùÇó¡£Èô²»µÈ£¬Ôò¿ÉÁíÉèһˮÉÖظ´ÉÏÊö²½Ö裬ֱµ½¼ÆËã³öµÄÉè¼ÆÁ÷Á¿Ä£ÊýÓë±ê×¼Á÷Á¿Ä£ÊýÏàµÈΪֹ¡£È»ºó¾×ۺϿ¼ÂǸ÷·½ÃæÒòËØ£¬ÈçÊ©¹¤±ãÀû£¬·Àºé³¬¸ßºÍÆäËûÓÃ;ºó×îÖÕÈ·¶¨ÇþµÀ¶ÏÃæ³ß´ç¡£
¶þ¡¢delphi¼¼Êõ¼ò½é
delphiÊÇÓÉÃÀ¹úinprise¹«Ë¾£¨Ç°borland¹«Ë¾£©ÍƳöµÄ¿ÉÊÓ»¯±à³Ì»·¾³£¬ËüÌṩÁËÒ»ÖÖ·½±ã¡¢¿ì½ÝµÄwindowsÓ¦ÓóÌÐò¿ª·¢¹¤¾ß¡£delphiʹÓÃÁËmicrosoft windowsͼÐÎÓû§½çÃæµÄÐí¶àÏȽøÌØÐÔºÍÉè¼Æ˼Ï룬²ÉÓÃÁË¿ÉÖظ´ÀûÓõÄÍêÕûµÄÃæÏò¶ÔÏó³ÌÐòÓïÑÔ£¨object-oriented language£©¡¢µ±½ñÊÀ½çÉÏ×î¿ìµÄ±à¼Æ÷¡¢×îΪÁìÏȵÄÊý¾Ý¿â¼¼Êõ¡£delphi¼¼ÊõµÄ»ù´¡Ô´×ÔpascalÓïÑÔ£¬ÊǶÔpascalÓïÑÔ±à³ÌµÄ¿ÉÊÓ»¯¡¢ÃæÏò¶ÔÏ󻯷¢Õ¹£¬´ÓÔçÆڵĶÔturbo pascalµÄwindows»¯µ½Èç½ñ¶ÔÍøÂ绯±à³ÌÓµÓÐÇ¿´ó¹¦ÄÜ£¬delphiÒѾÉý¼¶µ½ÁËÈç½ñµÄµÚÆ߸ö°æ±¾£¬¹¦Äܸü¼ÓÇ¿´ó£¬¶ÔÍøÂ翪·¢µÄÐèÇó¸üΪÊÊÓ¦£¬¶ÔÊý¾Ý¿â¿ª·¢µÄ¼¼Êõ¸üΪ³ÉÊìÓëÎȶ¨¡£
Èý¡¢³ÌÐòʵÏֵķ½·¨
±¾³ÌÐò×÷ΪÎÒ¾Ö¹ÜÀíÐÅϢϵͳ(mis)µÄÒ»²¿·ÖÍâ¹ÒÓÚÎÒ¾Ö¹ÜÀíÐÅϢϵͳµÄÖ÷½çÃæÉÏ£¬ÊôÓÚË®Àû³£ÓüÆËãÄ£¿é¡£ÎÒ¾Ö¹ÜÀíÐÅϢϵͳ²ÉÓÿͻ§¶Ë¡¢ÒµÎñ·þÎñÆ÷¡¢Êý¾Ý¿â¹ÜÀíϵͳ£¨dbms£©Èý¼¶½á¹¹£¬¿Í»§¶ËºÍÒµÎñ·þÎñÆ÷²ÉÓÃdephi¿ª·¢ÊµÏÖ£¬Êý¾Ý¿â¹ÜÀíϵͳ£¨dbms£©Ñ¡ÔñÃÀ¹úmicrosoft ¹«Ë¾±¶ÊÜÒµ½çºÃÆÀµÄsql server 2000¡£Òò´Ë£¬±¾³ÌÐòµÄÊý¾Ý¼ÆËã¡¢Êý¾ÝÌí¼ÓºÍÊý¾Ýɾ³ý¹¦ÄÜÒÔº¯ÊýµÄÐÎʽ½¨ÓÚÒµÎñ·þÎñÆ÷ÖУ¬ÔÚ¿Í»§¶Ëͨ¹ýº¯Êýµ÷Óôﵽ¹¦ÄܵÄʵÏÖ¡£ÎªÊµÏÖÊý¾ÝµÄ±£´æÓë²éѯ£¬ÏàÓ¦µØÔÚÎÒ¾Ö¹ÜÀíÐÅϢϵͳµÄÒµÎñÊý¾Ý¿âlsdataÖн¨Á¢Ò»¸öÊý¾Ý¿â±íwatercalculationtable¡£¿Í»§¶Ë³ýʵÏÖÒµÎñ·þÎñÆ÷Ïà¹Øº¯ÊýµÄµ÷ÓÃÍ⣬»¹³Ðµ£³ÌÐòÍâ¹Û½çÃæÉèÖúͲ¿·Ö¼òµ¥¹¦ÄܵÄʵÏÖ¡£Óû§Ö»ÄÜͨ¹ý³ÌÐò¿Í»§¶ËʵÏÖ¶ÔÈí¼þµÄ²Ù×÷¡£
1¡¢¹¦ÄÜÉè¼Æ
±¾³ÌÐòÉè¼ÆµÄÖ÷ҪĿµÄÔÚÓÚʵÏÖ¶ÔÇþµÀË®Á¦¼ÆËãµÄ³ÌÐò»¯ºÍÖÇÄÜ»¯£¬Ö÷Òª¹¦ÄÜ°üÀ¨¼ÆËã¡¢³É¹ûÏÔʾ¡¢Êý¾Ý´òÓ¡£¬ÁíÍâΪ·½±ãÊý¾ÝÊäÈë¼ÓÈëÖØÖù¦ÄÜ£¬Îª±ãÓÚÊý¾Ý¹ÜÀí¼ÓÈëɾ³ý¹¦ÄÜ£¬ÁíÍâΪʵÏÖ¼ÆËã½çÃæµÄÍ˳ö¶ø¼ÓÈë½çÃæÍ˳ö¹¦ÄÜ¡£
2¡¢½çÃæÉè¼Æ
ΪʵÏÖ¼ÆËã³É¹ûµÄÏÔʾ¹¦ÄÜÔÚ½çÃæÉÏÌí¼ÓÒ»¸ödxdbgrid¿Ø¼þ£¬×÷Ϊ³É¹ûÏÔʾµÄÔØÌ塣Ϊ·½±ãÊý¾ÝµÄ¼ÈëºÍ¼ÆËã³É¹ûµÄµ¥ÌõÏÔʾÌí¼ÓÊ®Îå¸öcoastedit¿Ø¼þ£¬ÎªÖðһ˵Ã÷¸÷¸öcoastedit¿Ø¼þ´ú±íµÄÊý¾Ý¶øÔöÈëÊ®Îå¸öÓëÖ®¶ÔÓ¦µÄlabel¿Ø¼þ£¬Îª³ÌÐòÃÀ¹ÛÓÃÒ»¸ögroupbox½«ËùÓÐcoastedit¿Ø¼þºÍlabel¿Ø¼þ¹éΪһ×顣ΪÁËʵÏÖ¼ÆË㡢ɾ³ý¡¢ÖØÖᢴòÓ¡¡¢Í˳ö¹¦ÄÜ£¬ÒýÈëÎå¸ö button¿Ø¼þÆäÖмÆËã°´Å¥³ýÔÚµ¥»÷ʱ´¥·¢¼ÆË㹦ÄÜÍ⣬ÔÚ¼ÆËã½áÊøºó×Ô¶¯Ö´ÐÐÊý¾ÝÌí¼Ó¹¦ÄÜ£¬½«¼ÆËãÊý¾ÝÌí¼ÓÈëÊý¾Ý¿âÖУ»É¾³ý°´Å¥ÊµÏÖ¶Ô¿âÄÚµ¥ÌõÊý¾ÝµÄɾ³ý£»ÖØÖð´Å¥Ö÷Òª¶Ôcoastedit¿Ø¼þÖеÄÊý¾Ý½øÐÐÇå³ý£¬ÒÔÀûÓÚÐÂÊý¾ÝµÄÊäÈ룻´òÓ¡¹¦ÄÜ×÷ÓÃÔÚÓÚ½«¼ÆËãËùµÃµÄ³É¹ûͨ¹ýÍâ½Ó´òÓ¡»ú´òÓ¡³öÀ´£»Í˳ö°´Å¥µÄ¹¦ÄÜÔÚÓÚʵÏÖ½çÃæµÄÍ˳ö£¬·µ»ØÖ÷½çÃæ¡£
³ÌÐò½çÃæÖÐÇþµÀÃû³Æ¡¢ÊÔËã´ÎÐòÊý¡¢ÇþµÀµ×¿í¡¢ÇþµÀË®Éî¡¢ÇþµÀ±È½µ¡¢±ßÆÂϵÊý¡¢ÇþµÀ²ÚÂÊ¡¢Éè¼ÆÁ÷Á¿µÈÊý¾Ý¿ÉÒÔÊÖ¶¯ÊäÈ룬ÆäËûÊý¾Ý²»ÄÜÔÚ½çÃæÉÏÊäÈ룬ÓɳÌÐò×Ô¶¯¼ÆË㣬²¢ÏÔʾ¡£¸ù¾ÝÇþµÀË®Á¦¼ÆËãÔÀí£¬¿ÉÊäÈëµÄÊý¾Ý³ýÉè¼ÆÁ÷Á¿Íâ¾ù²»ÔÊÐíΪ¿Õ£¬´ËÍâÇþµÀ²ÚÂʺÍÇþµÀ±È½µ²»ÄÜΪÁ㣬³öÏÖÉÏÊöÇé¿ö£¬¼ÆËãʱ³ÌÐò½«ÓèÒÔÌáʾ¡£
ΪʵÏÖ³ÌÐòµÄ´òÓ¡¹¦ÄÜ£¬ÌØÔö¼ÓÒ»´òÓ¡½çÃ棬ÔÚµã»÷´òÓ¡°´Å¥Ê±×Ô¶¯µ¯³ö£¬´òÓ¡½çÃæ¿ÉÒÔʵÏÖ´òÓ¡¡¢´òÓ¡Ô¤ÀÀ¹¦ÄÜ£¬Ôڴ˽çÃæ¿ÉÒÔµ÷ÓÃwindows´òÓ¡³ÌÐò¡£
¾ßÌå½çÃæÉè¼ÆͼÑù¼ûͼ1¡£
£¨Í¼Ò»£©
3¡¢Êý¾Ý¿â±íÉè¼Æ
±¾³ÌÐòÖ»ÓÐÒ»ÕÅ¿â±í£¬¼´ÇþµÀË®Á¦¼ÆËã±í£¨watercalculationtable£©,¾¹ýÉ÷ÃܵÄÊý¾Ý·ÖÎö£¬Éè¼Æ¸Ã±í¹²°üº¬Ê®Îå¸ö×ֶΣ¬·Ö±ðΪ£ºÇþµÀÃû³Æ¡¢ÊÔËã´ÎÐòÊý¡¢ÇþµÀ¿í¶È¡¢ÇþµÀË®Éî¡¢ÇþµÀ±È½µ¡¢±ßÆÂϵÊý¡¢Éè¼ÆÁ÷Á¿¡¢ÇþµÀ²ÚÂÊ¡¢ÊªÖÜ¡¢±ê×¼Á÷Á¿Ä£Êý¡¢¹ýË®¶ÏÃæÃæ»ý¡¢Ë®Á¦°ë¾¶¡¢Ð»²ÅϵÊý¡¢Éè¼Æ¶ÏÃæ¹ýË®Á÷Á¿¡¢Éè¼ÆÁ÷Á¿Ä£Êý¡£¾ßÌå¿â±íÉè¼Æ¼û±íÒ»£º
ÇþµÀË®Á¦¼ÆËã±í£¨watercalculationtable£©
±íÒ»
4¡¢ÄÚÖôúÂëÉè¼Æ
ÄÚÖôúÂëÖ÷ÒªÊÇÕë¶Ô³ÌÐòÖÐÏà¹Ø¿Ø¼þ´¥·¢µÄʼþ¶øÉ趨µÄÏàÓ¦ÏìÓ¦¡£±¾³ÌÐò°üº¬µÄʼþÖ÷ÒªÓи÷button¿Ø¼þÒý·¢µÄµ¥»÷ʼþ¡¢µ¥»÷dxdbgrid¿Ø¼þÒý·¢µÄʼþ(dxdbgridclick)¡¢Êý¾Ý¼¯¿Ø¼þ¹ö¶¯Ê¼þ(adodataset1afterscroll)ºÍ³ÌÐò½çÃ潨Á¢Ê±µÄʼþ(formcreat)¡£ÁíÍ⣬ҵÎñ·þÎñÆ÷(teoperationserver)Öаüº¬µÄÁ½¸öº¯ÊýaddwatercalculationºÍdeletewatercalculationÒ²ÓóÌÐò´úÂ뽨Á¢¡£
¸÷ʼþ´úÂë·Ö±ðÈçÏ£º
1£© addwatercalculationº¯Êý£¬´úÂëΪ£º
function tteoperationserver.addwatercalculation(
const ditchname: widestring; ditchwidth, ditchheight, ditchslope,
slopenumer, ditchrough, planvolume: currency;
const calculationno: widestring): longword;
var
strsql : string;
dwaffected : integer;
kstandard,flowarea,waterradius,cnumer,designvolume,kdesign,xnumer:currency;
begin
result := makeresult(sev_error,facility_account,err_suc);
kstandard:=strtofloat(formatfloat('0.00',(planvolume/sqrt(ditchslope)))); flowarea:=strtofloat(formatfloat('0.00',((ditchwidth+slopenumer*ditchheight)*ditchheight))); xnumer:=strtofloat(formatfloat('0.00',(ditchwidth+2*ditchheight*sqrt(1+sqr(slopenumer)))));
waterradius:=strtofloat(formatfloat('0.000',(flowarea/xnumer))); cnumer:=strtofloat(formatfloat('0.00',(1/ditchrough*power(waterradius,1/6))));
kdesign:=strtofloat(formatfloat('0.00',(flowarea*cnumer*sqrt(waterradius)))); designvolume:=strtofloat(formatfloat('0.00',(flowarea*cnumer*sqrt(waterradius*ditchslope))));
strsql:='insert into watercalculationtable (ditchname,ditchwidth,ditchheight,'
+ ' ditchslope,slopenumer,planvolume,ditchrough,kstandard,'
+ ' flowarea,waterradius,cnumer,designvolume,kdesign,xnumer,calculationno)'
+ ' values ('+''''+ditchname+''','
+ ' '''+floattostr(ditchwidth)+''','
+ ' '''+floattostr(ditchheight)+''','
+ ' '''+floattostr(ditchslope)+''','
+ ' '''+floattostr(slopenumer)+''','
+ ' '''+floattostr(planvolume)+''','
+ ' '''+floattostr(ditchrough)+''','
+ ' '''+floattostr(kstandard)+''','
+ ' '''+floattostr(flowarea)+''','
+ ' '''+floattostr(waterradius)+''','
+ ' '''+floattostr(cnumer)+''','
+ ' '''+floattostr(designvolume)+''','
+ ' '''+floattostr(kdesign)+''','
+ ' '''+floattostr(xnumer)+''','
+ ' '''+calculationno+''')';
executesql(strsql,@dwaffected);
if dwaffected = 0 then
begin
result := makeresult(sev_error,facility_account,err_insert);
exit;
end;
end;
2£©deletewatercalculationº¯ÊýµÄ´úÂëΪ£º
function tteoperationserver.deletewatercalculation(const ditchname,
calculationno: widestring): longword;
var
strsql : string;
dwaffected : integer;
begin
result := makeresult(sev_error,facility_account,err_suc);
strsql := ' delete from watercalculationtable '
+ ' where ditchname= ' + '''' + ditchname + ''''
+ ' and calculationno = ' + '''' + calculationno + '''';
executesql(strsql,@dwaffected);
if dwaffected 0 then
begin
result := makeresult(sev_error,facility_account,err_delete);
exit;
end;
end;
3)¼ÆËã°´Å¥(button1click)µÄ´úÂëΪ£º
procedure tformprice.button1click(sender: tobject);
var
resultcode:hresult;
begin
resultcode:=-1;
if coastedit1.text='' then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀÃû³Æ'' ²»ÄÜΪ¿Õ.','Ìáʾ',mb_ok+mb_iconwarning);
coastedit1.setfocus;
exit;
end;
if coastedit2.text='' then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀµ×¿í'',²»ÄÜΪ¿Õ','Ìáʾ',mb_ok+mb_iconwarning);
coastedit2.setfocus;
exit;
end;
if coastedit3.text='' then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀË®Éî'',²»ÄÜΪ¿Õ','Ìáʾ',mb_ok+mb_iconwarning);
coastedit3.setfocus;
exit;
end;
if coastedit4.text='' then
begin
application.messagebox('¶Ô²»Æð,''±ßÆÂϵÊý'',²»ÄÜΪ¿Õ','Ìáʾ',mb_ok+mb_iconwarning);
coastedit4.setfocus;
exit;
end;
if coastedit5.text='' then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀ²ÚÂÊ'',²»ÄÜΪ¿Õ','Ìáʾ',mb_ok+mb_iconwarning);
coastedit5.setfocus;
exit;
end;
if coastedit6.text='' then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀ±È½µ'',²»ÄÜΪ¿Õ','Ìáʾ',mb_ok+mb_iconwarning);
coastedit6.setfocus;
exit;
end;
if coastedit15.text='' then
begin
application.messagebox('¶Ô²»Æð,''ÊÔËã´ÎÐòÊý'',²»ÄÜΪ¿Õ','Ìáʾ',mb_ok+mb_iconwarning);
coastedit15.setfocus;
exit;
end;
if coastedit2.value=0 then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀµ×¿í'',²»ÄÜΪÁã','Ìáʾ',mb_ok+mb_iconwarning);
coastedit2.setfocus;
exit;
end;
if coastedit3.value=0 then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀË®Éî'',²»ÄÜΪÁã','Ìáʾ',mb_ok+mb_iconwarning);
coastedit3.setfocus;
exit;
end;
if coastedit6.value=0 then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀ±È½µ'',²»ÄÜΪÁã','Ìáʾ',mb_ok+mb_iconwarning);
coastedit6.setfocus;
exit;
end;
if coastedit5.value=0 then
begin
application.messagebox('¶Ô²»Æð,''ÇþµÀ²ÚÂÊ'',²»ÄÜΪÁã','Ìáʾ',mb_ok+mb_iconwarning);
coastedit5.setfocus;
exit;
end;
try
teoperationserver.begintrans; resultcode:=teoperationserver.addwatercalculation(coastedit1.text,coastedit2.value,coastedit3.value,coastedit6.value,coastedit4.value,coastedit5.value,coastedit7.value,coastedit15.text);
finally
if hresultcode(resultcode) = 0 then
begin
teoperationserver.commit;
refresh;
coastedit1.text:='';
coastedit2.text:='';
coastedit3.text:='';
coastedit4.text:='';
coastedit5.text:='';
coastedit6.text:='';
coastedit7.text:='';
coastedit8.text:='';
coastedit9.text:='';
coastedit10.text:='';
coastedit11.text:='';
coastedit12.text:='';
coastedit13.text:='';
coastedit14.text:='';
coastedit15.text:='';
coastedit1.setfocus;
end
else
begin
teoperationserver.rollback;
application.messagebox('Ìí¼Óʧ°Ü','Ìáʾ',mb_ok+mb_iconwarning);
coastedit1.setfocus;
end;
end;
end;
4£©´òÓ¡°´Å¥(button2click)µÄ´úÂëΪ£º
procedure tformprice.button2click(sender: tobject);
var
svdata: string;
iheader: integer;
iheaderobject: integer;
strsql: string;
recordset10: _recordset;
begin
svdatafile :=getparentdir(extractfilepath(paramstr(0))) + 'datawatercalculation.txt';
ppreport1.closedatapipelines;
if hfile 0 then fileclose(hfile);
if fileexists(svdatafile) then
deletefile(svdatafile);
hfile := filecreate(svdatafile);
strsql := 'select * from lsdata.dbo.watercalculationtable' ;
svdata:= teoperationserver.resultstrorder(strsql);
filewrite(hfile, pointer(svdata)^, length(svdata));
fileclose(hfile);
pptextpipeline1.filename := svdatafile;
ppreport1.datapipeline := pptextpipeline1;
//´¦Àí±íβ
if ppreport1.objectbyname(iheader, iheaderobject, 'pplabel8') then
tpplabel(ppreport1.bands[iheader].objects[iheaderobject]).caption := fmainframeobject.operatorname;
with tfrmreportpreview1.create(self) do
try
ppviewer1.report := ppreport1;
ppviewer1.firstpage;
show;
except
free;
end;
ppreport1.closedatapipelines;
fileclose(hfile);
end;
5)ÖØÖð´Å¥(button5click)µÄ´úÂëΪ£º
procedure tformprice.button5click(sender: tobject);
begin
coastedit1.text:='';
coastedit2.text:='';
coastedit3.text:='';
coastedit4.text:='';
coastedit5.text:='';
coastedit6.text:='';
coastedit7.text:='';
coastedit8.text:='';
coastedit9.text:='';
coastedit10.text:='';
coastedit11.text:='';
coastedit12.text:='';
coastedit13.text:='';
coastedit14.text:='';
coastedit15.text:='';
end;
end.
6)ɾ³ý°´Å¥(button4click)µÄ´úÂëΪ£º
procedure tformprice.button4click(sender: tobject);
var
resultcode:hresult;
begin
resultcode:=-1;
if application.messagebox(' ÄúȷʵҪɾ³ýÂð£¿','ɾ³ýÈ·ÈÏ',mb_yesno+mb_iconwarning+mb_defbutton2+mb_systemmodal)=idno then
exit;
try
teoperationserver.begintrans;
resultcode:=teoperationserver.deletewatercalculation(coastedit1.text,coastedit15.text);
finally
if hresultcode(resultcode) = 0 then
begin
application.messagebox('ɾ³ý³É¹¦','Ìáʾ',mb_ok+mb_iconwarning);
teoperationserver.commit;
refresh;
coastedit1.text:='';
coastedit2.text:='';
coastedit3.text:='';
coastedit4.text:='';
coastedit5.text:='';
coastedit6.text:='';
coastedit7.text:='';
coastedit8.text:='';
coastedit9.text:='';
coastedit10.text:='';
coastedit11.text:='';
coastedit12.text:='';
coastedit13.text:='';
coastedit14.text:='';
coastedit15.text:='';
end
else
begin
application.messagebox('ɾ³ýʧ°Ü','Ìáʾ',mb_ok+mb_iconwarning);
teoperationserver.rollback;
end;
end;
end;
7)Í˳ö°´Å¥(button4click)µÄ´úÂëΪ£º
procedure tformprice.button3click(sender: tobject);
begin
close;
end;
8)³ÌÐò½çÃæ´´½¨Ê¼þ(formcreat)µÄ´úÂëΪ£º
procedure tformprice.formcreate(sender: tobject);
var
strsql:string;
codestring1: string;
begin
teoperationserver:=getserver('teoperationserver');
refresh;
coastedit1.text:='';
coastedit2.text:='';
coastedit3.text:='';
coastedit4.text:='';
coastedit5.text:='';
coastedit6.text:='';
coastedit7.text:='';
coastedit8.text:='';
coastedit9.text:='';
coastedit10.text:='';
coastedit11.text:='';
coastedit12.text:='';
coastedit13.text:='';
coastedit14.text:='';
coastedit15.text:='';
end;
9)µ¥»÷dxdbgridʼþºÍÊý¾Ý¼¯¿Ø¼þ¹ö¶¯Ê¼þµÄ´úÂë(Á½Ê¼þ´úÂë»ù±¾Ò»Ñù)£º
begin
if (adodataset1.recordsetnil ) and (adodataset1.recordcount0 ) then
begin
coastedit1.text:=adodataset1.fields[0].value;
coastedit2.value:=adodataset1.fields[1].value;
coastedit3.value:=adodataset1.fields[2].value;
coastedit4.value:=adodataset1.fields[3].value;
coastedit5.value:=adodataset1.fields[4].value;
coastedit6.value:=adodataset1.fields[5].value;
coastedit7.value:=adodataset1.fields[6].value;
coastedit8.value:=adodataset1.fields[7].value;
coastedit9.value:=adodataset1.fields[8].value;
coastedit10.value:=adodataset1.fields[9].value;
coastedit11.value:=adodataset1.fields[10].value;
coastedit12.value:=adodataset1.fields[11].value;
coastedit13.value:=adodataset1.fields[12].value;
coastedit14.value:=adodataset1.fields[13].value;
coastedit15.text:=adodataset1.fields[14].value;
end;
10)refreshº¯ÊýµÄ´úÂëΪ£º
procedure tformprice.refresh;
var
strsql:string;
begin
strsql := ' select * from watercalculationtable' ;
adodataset1.recordset:=vartorecordset(teoperationserver.query(strsql));
end;