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Êý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......