delphi ÈçºÎÖªµÀ×ÓÒ³Ãæ²Ù×÷½áÊø?
Ö÷Ò³ÃæµÄ·½·¨:
procedure TOrderNewBookForm.originalTntButtonClick(Sender: TObject);
var
OriginalOrderForm:TOriginalOrderForm;
begin
OriginalOrderForm:=TOriginalOrderForm.Create(self);
OriginalOrderForm.FormStyle := fsMDIChild;
OriginalOrderForm.Show;
end;
×ÓÒ³ÃæµÄ·½·¨:
begin//¹Ø±ÕÔʼ¶©¹ºÒ³Ãæ
Close;
end;
begin //ˢж©¹ºÐÂÊéÒ³Ãæ.
//²»ÖªµÀÔõô¿ÉÒÔË¢ÐÂÖ÷Ò³Ãæ.
end;
Ö÷Ò³ÃæÊÇÒ»¸ö¶©µ¥Áбí, ´ò¿ª×ÓÒ³Ãæ,¿ÉÒÔÔÚÀïÃæÌí¼ÓÊý¾Ý,Ìí¼ÓÍêÊý¾Ýºó,¹Ø±Õ,µ«Ó¦¸ÃË¢ÐÂÖ÷Ò³Ãæ,²»ÖªµÀÔõôˢÐÂ?
ÒòΪÖ÷Ò³Ãæ±ØÐëÊDZØÐëÊDz»¿É¼ûµÄ¶øÇÒFormStyle := fsNormal;µ«ÎҵIJ»ÊÇ,ËùÒÔ²»ÖªµÀÔõôŪ?
ÔÚÒ»¸öʼþÖÐÌí¼ÓÒ»´ÎÖØÐ´ò¿ª¼´¿É
ÔÚ×ÓÒ³ÃæÖÐÒýÓø¸´°Ì壬Ȼºóµ÷ÓþßÌå·½·¨Ë¢Ð£¬»òÕß¶¨Òå1¸öÏûÏ¢£¬ÔÚ×Ó´°ÌåÖÐÏò¸¸´°Ìå·¢ËÍÏûÏ¢½øÐÐË¢ÐÂ
¸¸´°ÌåÒýÓÃÁË×Ó´°Ìå,ΪÁ˳õʼ»¯´ò¿ª×Ó´°Ìå,
×Ó´°Ìå²»ÄÜÔÙÒýÓø¸´°ÌåÁ˰É?³ÉÁËÑ»·ÒýÓÃÁ˰É
ÔÚÒ»¸öʼþÖÐÌí¼ÓÒ»´ÎÖØÐ´ò¿ª¼´¿É,
ûÃ÷°×?
ÔÚÄĸöʼþ,ÖØÏÖ´ò¿ªÄĸö?
ÔÚ×îÉϲãµÄ´°ÌåÀï,´ò¿ªÖ÷´°ÌåÂð? ¹Ø±Õ×Ó´°Ìå,ÔÙÈÃÖ÷´°ÌåÖØÐ´ò¿ªÂð?
Ŷ,ÎÒûÕâôʹ¹ý,ÎÒÊÔÊÔ,¶àлÁË
»¹ÊÇˢв»Á˸¸´°Ìå.¸¸Ò³ÃæÔõôÄÜÖªµÀ×Ó´°ÌåÖ´ÐÐÍêÁË?
ÎÒÊÔÁË,Äܵ÷Óø¸´°ÌåµÄ¾²Ì¬±äÁ¿,µ«´°Ìå¶ÔÏóµ÷Óò»ÁË.¾Í¸ü±ð˵µ÷ÓÃËûµÄˢз½·¨ÁË
°¥£¬ÄãÒª¸¸´°ÌåÖªµÀ¸Éʲô£¿ µ±ÄãÏëˢеÄʱºòÄã¾ÍË¢°¡¡£
¼ÈÈ»Äܵ÷Óø¸´°ÌåµÄ¾²Ì¬±äÁ¿£¬´°Ìå¶ÔÏó²»Äܵ÷Óõ½£¿´°Ìå¶ÔÏóÊÇÈ«¾ÖµØ¡£
¾ßÌåÔ
Ïà¹ØÎÊ´ð£º
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬
Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷
һ¥ÕýÈ·£¡
лл¸÷λÀ²
¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......
ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......