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

±ð¼ûЦ£¬¸Õ¸Õѧdelphi±àд¼ÆËãÆ÷µÄСÎÊÌâ

3¸öÎı¾±à¼­¿ò
ʵÏÖ µÚÒ»¸öºÍµÚÈý¸ö¿òÊäÈëÊý×Ö ÖмäÊäÈë+ - * / ÔËËã·û µã»÷°´Å¥³öÏÖ½á¹û  Óà ¼Ó ¼õ ³Â ³ý  Ëĸöº¯Êý ʵÏÖ
function jia(x,y:Double):Double ;  º¯Êý¼Ó
var
c:Double;
begin
      c:=x+y  ;
      jia:=c;
end;
function jian(x,y:Double):Double ; º¯Êý¼õ
  var
d:Double;

begin
      d:=x-y;
      jian:=d;
end;
  function chen(x,y:Double):Double ;º¯Êý³Æ
  var
e:Double;

begin
      e:=x*y  ;
      chen:=e;
end;
function chu(x,y:Integer):double; º¯Êý³ý
var
e:Double;

begin
e:=x/y ;
chu:=e;
end;


procedure TForm1.Button1Click(Sender: TObject);  °´Å¥µÄʼþ´úÂë
var
x,z,d:Double;       
y:char;


begin
x:=strtoint(Edit1.text);  µÃµ½µÚÒ»¸öÊý×Ö
y:=Edit2.text;              ÕâÀï³ö´íÁË Ç°ÃæÊÇchar ÀàÐÍ ¿ÉÊDz»ÖªµÀÔõô¸Ä z:=strtoint(Edit3.text);  µÃµ½µÚ¶þ¸öÊý×Ö

if y="+" then              Èç¹û Y=¡°+¡±ºÅ
  d:=jia(x,y);              µ÷Óà jia º¯Êý
begin  &nbs


Ïà¹ØÎÊ´ð£º

delphi ½øÏú´æÊ±Èë¿âÊýÁ¿ºÍ³ö¿âÊýÁ¿¼äµÄ¹ØÏµ

ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......

ÇódelphiºÚ°×Æå´úÂë

ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè Ë­°ïÏÂæ°¡Ñ½!!!!!!!!
up

baidu£¬google

up

http://www.codepub.com/software/view-software-4061.html 
ÍøÕ¾ÉÏÓÐ
......

delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢

delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢

Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn

http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html

²å¸ö±ê¼Ç

ÒýÓÃ
Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn
Õ ......

delphiÈçºÎ»ñÈ¡ÍøÒ³µÄhttp·µ»Ø×´Ì¬¼°·´Ó¦Ê±¼ä

delphiÈçºÎ»ñÈ¡ÍøÒ³µÄ·µ»Ø×´Ì¬£¬¾ÍÏñä¯ÀÀÆ÷Öзµ»ØµÄhttp 500´íÎó£¬404´íÎóµÈ 
ÁíÍâÄܲ»ÄÜ»ñÈ¡µ½´ò¿ªÒ»¸öÍøÒ³µÄ·´Ó¦Ê±¼ä£¬¿ÉÒÔ´óÖ²ο¼ÍøÒ³´ò¿ªµÄËÙ¶È
лл£¡
¶¼¿ÉÒÔʵÏֵ쬾ßÌåµÄÄ㻹ÊDzé×ÊÁϰɣ¡

×Ô¼º ......

delphi + oracle µÝ¹éµÄÎÊÌâ

´ó¼ÒºÃ£º
  ÎÒĿǰҪ¿ª·¢Ò»¸öERPÖеÄBOM¹¤Ê±»ã×ܳÌÐò£¬ÔÚORACLEÖУ¬BOM±íµÄ½á¹¹ÊÇ´«Í³µÄ ¸¸¼þ ×Ó¼þ ʽµÄ£¬¹¤Ê±ÔÚÁíÒ»¸ö±íÖУ¬¿ÉÒÔÓÃleft outer joinÀ´¹ØÁª£¬¿ÉÒÔÈÏΪ£¬¹ØÁªºóµÄ±í½á¹¹Îª [¸¸¼þ] [ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ