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

delphi ¾Ö²¿±äÁ¿¸³Öµ ÎÊÌâ ¼± ÔÚÏß

for i:= 0 to SelectedList.Count-1 do
        begin
        GotoBookmark(SelectedList.items[i]);
        strOldReg_ID:='';
        //OldAcc_date :=StrToDate(trim(FieldByName('acc_date').AsString));
        strOldReg_ID :=trim(FieldByName('register_id').AsString);
        if (strOldReg_ID <> '') then
        begin
          strNewReg_ID :=CreateRegisterID;

          OldAcc_date :=FormatDateTime('yyyy-mm-dd',StrToDate(trim(FieldByName('acc_date').AsString)));
          NewAcc_date :=FormatDateTime('yyyy-mm-dd',dbNewDate.Date);
          date_bt :=Trunc(StrToDate(NewAcc_date)-StrToDate(OldAcc_date));
          strUpdate := Format(strUpdate,[strNewReg_ID,StrToInt(strOldReg_ID),NewAcc_date,strOldReg_ID)]);          strLogUpdate :='update flo_actlog f set f.signdate=signdate+%d,f.completedate=completedate+%d,f.bpactid=''%s'' where  BPACTID=''%s''';
          strLogUpdate := Format(strLogUpdate,[date_bt,date_bt,strNewReg_ID,copy(strOldReg_ID,2,7)]);



Ïà¹ØÎÊ´ð£º

delphi編寫×Ô動¸üгÌÐò

ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......

DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

°²×°ÁËjre6.17ºó£¬Delphi²»Äܹرգ¿

ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ