الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشروع واب Isapi

رائج
بدأه زكيري عبد العالي في 23 يناير 2009 · 151 رد · 13,644 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#126

لم ينجح معى Css + لم افهم فيه شىء .

توصلت الى المرغوب فيه ...

كود دالفى 

  1.  
  2. FUNCTION TWebModule1.Get_ListC():string;
  3. VAR
  4.    vQueryListC : TMyQuery;
  5.    Str ,C      : String;
  6.    I           : LongWord;
  7. BEGIN
  8.    Str:=''; I:= 0;
  9.    vQueryListC:=TMyQuery.Create(nil);
  10.    TRY
  11.      WITH vQueryListC DO
  12.      BEGIN
  13.          Connection:=Con1;
  14.          SQL.Text:='SELECT ID_C,LIB_C FROM compte ORDER BY LIB_C';
  15.          TRY
  16.             Open;
  17.             WHILE NOT (Eof) DO
  18.             BEGIN
  19.                Case (I mod 2 ) oF
  20.                 0:C:= '#DAE6FC' ;
  21.                 1:C:= '#F0F8FF';
  22.                end;
  23.               str:= str +
  24.                  '<TR> ' +
  25.                  '<td bgcolor="'+c+'">'+ FieldByName('ID_C').AsString + '</td>' +
  26.                  '<td bgcolor="'+c+'">'+ FieldByName('LIB_C').AsString + '</td>' +
  27.                  '</TR>';
  28.                  Next; Inc(i)
  29.             END;
  30.  
  31.          EXCEPT ON E:exception DO
  32.                 Result:=E.Message;
  33.          END;
  34.      END;
  35.    FINALLY
  36.     vQueryListC.Free;
  37.     Result:=str;
  38.    END;
  40.  
  41. procedure TWebModule1.pgplistcHTMLTag(Sender: TObject; Tag: TTag;
  42.   const TagString: String; TagParams: TStrings; var ReplaceText: String);
  43. begin
  44.   IF UpperCase(TagString) = 'LISTECOMPTE' THEN
  45.       ReplaceText:= Get_ListC();
  46.  
  47.   IF (TagString) = 'scroll' THEN
  48.       ReplaceText:=
  49.        '<div style="height:300px;width:350px;overflow:scroll;">';
  51.  
  52. procedure TWebModule1.WebModule1Admin_CAction(Sender: TObject;
  53.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  54. begin
  55.   Response.Content:= Pgplistc.Content;
  57.  
كود Html
  1.  
  2. <html>
  3.  
  4. <head>
  5.   <title>Liste des Comptes</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <#scroll>
  11.  
  12. <table cellspacing="5" border="5" bgcolor="#FF8C00"bordercolor="skyblue">
  13.    <TR> <td width="30%" bgcolor="#ffff00"><FONT COLOR="#ff0000">Code</Font></td><td width="50%"
    bgcolor="#ffff00"><FONT COLOR="#ff0000">LIB</Font></td></TR> 
  14.  
  15. <#LISTECOMPTE>
  16.  
  17. </table> 
  18. </div>
  19.  
  20.  
  21. </body>
  22. </html>
  23.  

sanstitreny0.jpg

      
      

      
    

  

    
    

      
#127
        
        

      
اخي hanitaieb عمل جيد تقوم به لكن لو اعتبنا نفسنا مبرمجين واب فان الطريقة التي تقوم بها غير جيدة و لابد و لابد من استعمال CSS .
لكن في الحين ليس مشكل لانه هو المشروع الاول لكن في المشاريع القادمة ارجوا ان تقرا قليلا CSS انه ليست صعبه كما تعتقد يكفيك يومان فقط لمعرفة اغلب الامور .
----------------------------------------------------------------
اكرر المطلوب
1- الان هو وضع رابطة على كل سطر و عند النقر عليه يقودنا الى الصفحة الجديدة لنقوم بعملبة التغيير على هذا السطر حيث نعرض في هذه الصفحة 
رقم المؤسسة   (ID_C)
الاسم (LIB_C)  
زر الموافقة و زر الرجوع 
2-نفس الذي قم به لعرض المؤسسات التي ستسحب من رصيدك في كل عملية نعرض جميع العمليات من الجدول LIST_OP
وذلك بالاكشن lsit_op  و في الصفحة LISTOP.HTML  مرتبة ترتيبا تنازوليا من التاريخ الاكبر الي الاصغر.
3- نفس الشيء ايضا اي عرض صفحة التتغيير للعمليات 
----------------------------------------------------------
ملاحضة: 
لا نطيل كثيرا في هذا المشروع لانه هناك مشروع الدلفي البريسم للواب و هو احسن من isapi   لكن لبدا من تعلم كل الامور المتعلقة بالدلفي .

      
      

      
    

  

    
    

      
#128
        
        

      
السلام عليكــم ورحمـة الله وبركاتــه
مشروع الواب  بدلفي بريسم انتظره بفارغ الصبر 
هذه محاولتي اخي عبد العالي انشاء قائمة العمليات
Allsource.rar

      
تم تعديل هذه المشاركة بواسطة علي .ع في 12 فبراير 2009 في 23:16

      

      
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا 

    

  

    
    

      
#129
        
        

      
جاري التجريب

      
      

      
    

  

    
    

      
#130
        
        

      
السلام عليكم
كيف حالكم لقد اشتقت للعمل مكم
سارى ان كنت استطيع ان اعمل معكم و ذلك حسب تقدمكم في العمل

      
      

      
    

  

    
    

      
#131
        
        

      
مرحبا بك الاخت هبه كيف حلك ان شاء الله سارت الامور جيدة مع تقديم مشروعك .
هنا يقوم الاخوة ببناء يرنامج واب ديناميكي يعتمد على DLL  ISAPI مطورة بالدلفي و لقد عملنا لحد الان سوي مرحلة العرض و نحن الان سندخل مرحلة التحديث.
ارجوا ان تشاريكينا فالمنتدي هده الايام ينبض بشدة و خاصة سنبدا مشروع الدلفي الجديد عما قريب بحول الله .

      
      

      
    

  

    
    

      
#132
        
        

      
السلام عليكم ورحمة الله وبركاته 
ارجو ان لا اكون متاخر عنكم في المشروع ساحاول عمل المطلوب

      
      

      
 
 إعجاب الإنسان بنفسه دليل على صغر عقله 
-----------------------------------------------------------------
رأس الحكمة مخافة الله 

    

  

    
    

      
#133
        
        

      
جيد لقد قررنا انا و الا خ على اكمال المشروع في الغد ان شاء الله .
ولذلك سنعمل اليوم على التغيير و الاضافة و تبقي البحث في الغد.

      
      

      
    

  

    
    

      
#134
        
        

      
اولا اضافة الرابط الى قاءمة المؤسسات او الرسيد compte
اي نغيير الاسطر التلية في Get_ListC
 

                   str[color= #339933;]:= str [color= #339933;]+ [color= #0000ff;]'<TR class="'[color= #339933;]+vrow[color= #339933;]+[color= #0000ff;]'"> ' [color= #339933;]+

                               [color= #0000ff;]'<td> ' [color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'ID_C'[color= #009900;])[color= #339933;].AsString [color= #339933;]+ [color= #0000ff;]'</td>' [color= #339933;]+

                               [color= #0000ff;]'<td><a href="./addupop?mod=update&idc='[color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'ID_C'[color= #009900;])[color= #339933;].As
String[color= #339933;]+[color= #0000ff;]'">'[color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'LIB_C'[color= #009900;])[color= #339933;].AsString [color= #339933;]+[color= #0000ff;]'</a></td>' [color= #339933;]+

                               [color= #0000ff;]'</TR>'[color= #339933;];

      
      

      
    

  

    
    

      
#135
        
        

      
سبقتني اخي زكيري عبد العالي  :tantrum: 
اضافة  في Action لل AddUpdateC 
Response.Content:= Pgpaddupc.Content;

      
تم تعديل هذه المشاركة بواسطة maosalah في 13 فبراير 2009 في 22:50

      

      
 
 إعجاب الإنسان بنفسه دليل على صغر عقله 
-----------------------------------------------------------------
رأس الحكمة مخافة الله 

    

  

    
    

      
#136
        
        

      
قمت بعمل صفحة  addupc.html 
<html>
<head>
<link REL="stylesheet" TYPE="text/css" HREF="<#CSS>">
<title><#PAGE></title>
<head>
<body>

<table>

<FORM action="./addupc" method="get">

<INPUT type="hidden" name="mod" value="<#PAGE>">
   <TR>

   <td> CODE : </td> <td> <INPUT type="text" name="idc" value="<#CODE>"> </td> 
   </TR> 
   <TR>
   <td> LIB : </td> <td> <INPUT type="text" name="lib" value="<#LIB>"> </td> 
   </TR> 
   <TR> 
   <td> <a href="./listc"> Back </td> <td> <INPUT type="submit" value="<#PAGE>"> </td> 
   </TR> 
 </FORM>

</body>
</html>
عملت Procedure جديد 
Procedure TWebM.Find_Comp(Const idc:String; var Code,Lib : String);
VAR   vQueryListC : TMyQuery;
	  str,vrow		 : String;
Begin
vQueryListC:=TMyQuery.Create(nil);
  WITH vQueryListC DO
	BEGIN
	 Connection:=ConGestCompt;
	 SQL.Text:='SELECT ID_C,LIB_C FROM compte Where ID_C ='+idc;
	 Open;
	 Code := FieldByName('ID_C').AsString;
	 Lib := FieldByName('LIB_C').AsString;
   vQueryListC.Close;
   vQueryListC.Free;
  END;

End;
وضعت  في
Onhtmltag لل Pgpaddupc 
procedure TWebM.PgpaddupcHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);

CONST   C_CssPath='/css/gestc.css';

var ID,CODE,LIB : String;
begin
	 IF UpperCase(TagString) = 'CSS' THEN
		 BEGIN
			ReplaceText:= C_CssPath;
		 END;


if (UpperCase(Request.QueryFields.Values['mod']) = 'UPDATE') then
Begin
	  IF UpperCase(TagString) = 'MOD' THEN
		 ReplaceText  := 'update';
	  IF UpperCase(TagString) = 'PAGE' THEN
		 ReplaceText  := 'UPDATE';
End;

if (UpperCase(Request.QueryFields.Values['mod']) = 'ADD') then
	  IF UpperCase(TagString) = 'PAGE' THEN
		 begin
		 ReplaceText  := 'ADD';
		 end;

if (Request.QueryFields.Values['idc']) <> '' then
  begin
	id := Request.QueryFields.Values['idc'];
	Find_Comp(id,code,lib);

	  IF UpperCase(TagString) = 'CODE' THEN
		 begin
		 ReplaceText  := code;
		 end;
	  IF UpperCase(TagString) = 'LIB' THEN
		 begin
		 ReplaceText  := lib;
		 end;
  end;
end;
نجحت معي

      
      

      
 
 إعجاب الإنسان بنفسه دليل على صغر عقله 
-----------------------------------------------------------------
رأس الحكمة مخافة الله 

    

  

    
    

      
#137
        
        

      
نعم لكن هناك امور يجب ان نصححها معا .

      
      

      
    

  

    
    

      
#138
        
        

      
اقتباس
نعم لكن هناك امور يجب ان نصححها معا .
نعم اخي  :)

      
      

      
 
 إعجاب الإنسان بنفسه دليل على صغر عقله 
-----------------------------------------------------------------
رأس الحكمة مخافة الله 

    

  

    
    

      
#139
        
        

      
بســم الله الـرحمــن الرحيــم 
روابط قائمة العمليات بالاضافة الى راوبط الرصيد
allsource.rar

      
      

      
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا 

    

  

    
    

      
#140
        
        

      
بســم الله الـرحمــن الرحيــم
post-1034-1234564687_thumb.jpg
allsource.rar

      
      

      
    

  

    
    

      
#141
        
        

      
1-المطلوب اجراء عمليه الحفض.
2-اضافة جديد مع امكتنية الكتابة طبعا في حقل الكود .
3-حفظ. الجديد

      
      

      
    

  

    
    

      
#142
        
        

      
[color= #009900;]{[color= #339933;]==============================================================================[color= #009900;]}

[color= #009900;]{   UwebmGestC [color= #339933;]: aaplication ISAPI DELPHI sur APACHE [color= #339933;].

                 [color= #339933;]@ [color= #339933;]- ZEKIRI ABDELALI [color= #339933;].

                 [color= #339933;]@- [color= #cc66cc;]07[color= #cc66cc;]-02[color= #cc66cc;]-2009 [color= #339933;].

                 [color= #339933;]@- [color= #cc66cc;]13[color= #cc66cc;]-02[color= #cc66cc;]-2009 [color= #339933;].

[color= #009900;]{[color= #339933;]==============================================================================[color= #009900;]}

unit UwebmGestC[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #000000; font-weight: bold;]interface

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

uses

  SysUtils[color= #339933;], Classes[color= #339933;], HTTPApp[color= #339933;], DBXpress[color= #339933;], DB[color= #339933;], SqlExpr[color= #339933;], HTTPProd[color= #339933;], ADODB[color= #339933;],DBAccess[color= #339933;], MyAccess[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

type

  TWebM [color= #339933;]= [color= #000000; font-weight: bold;]class[color= #009900;](TWebModule[color= #009900;])

    PgpLogin    [color= #339933;]: TPageProducer[color= #339933;];

    ConGestCompt[color= #339933;]: TMyConnection[color= #339933;];

    Pgplistc    [color= #339933;]: TPageProducer[color= #339933;];

    Pgplistop   [color= #339933;]: TPageProducer[color= #339933;];

    Pgpaddupop  [color= #339933;]: TPageProducer[color= #339933;];          [color= #666666; font-style: italic;]//

    Pgpaddupc   [color= #339933;]: TPageProducer[color= #339933;];

 

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #009900;]{[color= #666666; font-style: italic;]################### ALL TAG   #################################################

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

    procedure PgplistcHTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;];const TagString[color= #339933;]: String[color= #339933;]; TagParams[color= #339933;]: TS
trings[color= #339933;];var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #009900;]{[color= #666666; font-style: italic;]################### ALL ACTION ################################################

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

    procedure WebMAdmin_CAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];Response[color= #339933;]: TWebResponse[color= #339933;]; v
ar Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

    procedure WebMAdmin_OPAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];Response[color= #339933;]: TWebResponse[color= #339933;]; 
var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

    procedure PgpaddupcHTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;];const TagString[color= #339933;]: String[color= #339933;]; TagParams[color= #339933;]: T
Strings[color= #339933;];var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

    procedure PgplistopHTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;];const TagString[color= #339933;]: String[color= #339933;]; TagParams[color= #339933;]: T
Strings[color= #339933;];var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

    procedure WebMAddUpdateCAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];

      Response[color= #339933;]: TWebResponse[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

    procedure WebMValidAdUpcAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];

      Response[color= #339933;]: TWebResponse[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

  [color= #000000; font-weight: bold;]PRIVATE    [color= #009900;]{ [color= #000000; font-weight: bold;]Private declarations [color= #009900;]}

        [color= #000000; font-weight: bold;]FUNCTION   Get_ListC[color= #009900;]([color= #009900;]) [color= #339933;]:string[color= #339933;];

        [color= #000000; font-weight: bold;]FUNCTION   Get_Listop[color= #009900;]([color= #009900;])[color= #339933;]:string[color= #339933;];

        [color= #000000; font-weight: bold;]FUNCTION   GetLibC[color= #009900;](iIdc[color= #339933;]:string[color= #009900;])          [color= #339933;]:string[color= #339933;];

        [color= #000000; font-weight: bold;]FUNCTION   Set_UpdateC[color= #009900;](iIdc[color= #339933;],iLib[color= #339933;]:string[color= #009900;]) [color= #339933;]:Boolean[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

  [color= #000000; font-weight: bold;]PUBLIC    [color= #009900;]{ [color= #000000; font-weight: bold;]Public declarations [color= #009900;]}

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

  [color= #990000;]END[color= #339933;];

 

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

CONST

    C_CssPath[color= #339933;]=[color= #0000ff;]'css/gestc.css'[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #000000; font-weight: bold;]VAR

   WebM[color= #339933;]: TWebM[color= #339933;];

 

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

IMPLEMENTATION  [color= #009900;]{[color= #000033;]$R [color= #339933;]*.dfm[color= #009900;]}

 

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #009900;]{[color= #666666; font-style: italic;]################### ALL FUNCTION ##############################################

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #000000; font-weight: bold;]FUNCTION TWebM[color= #339933;].Get_ListC[color= #009900;]([color= #009900;])[color= #339933;]:string[color= #339933;];

[color= #000000; font-weight: bold;]VAR

   vQueryListC [color= #339933;]: TMyQuery[color= #339933;];

   vrow[color= #339933;],str    [color= #339933;]: String[color= #339933;];

BEGIN

   str[color= #339933;]:=[color= #0000ff;]''[color= #339933;];

   vrow[color= #339933;]:=[color= #0000ff;]'row1'[color= #339933;];

   vQueryListC[color= #339933;]:=TMyQuery[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

   TRY

     WITH vQueryListC [color= #b1b100;]DO

     BEGIN

         Connection[color= #339933;]:=ConGestCompt[color= #339933;];

         SQL[color= #339933;].Text[color= #339933;]:=[color= #0000ff;]'SELECT ID_C,LIB_C FROM compte ORDER BY LIB_C'[color= #339933;];

         TRY

            Open[color= #339933;];

            [color= #b1b100;]WHILE NOT [color= #009900;](Eof[color= #009900;]) [color= #b1b100;]DO

            BEGIN

                [color= #b1b100;]if RecNo mod [color= #cc66cc;]2 [color= #339933;]= [color= #cc66cc;]0 then vrow[color= #339933;]:=[color= #0000ff;]'row1' [color= #b1b100;]ELSE vrow[color= #339933;]:=[color= #0000ff;]'row2'[color= #339933;];

                   str[color= #339933;]:= str [color= #339933;]+ [color= #0000ff;]'<TR class="'[color= #339933;]+vrow[color= #339933;]+[color= #0000ff;]'"> ' [color= #339933;]+

                               [color= #0000ff;]'<td> ' [color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'ID_C'[color= #009900;])[color= #339933;].AsString [color= #339933;]+ [color= #0000ff;]'</td>' [color= #339933;]+

                               [color= #0000ff;]'<td><a href="./addupc?mod=update&idc='[color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'ID_C'[color= #009900;])[color= #339933;].AsS
tring[color= #339933;]+[color= #0000ff;]'">'[color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'LIB_C'[color= #009900;])[color= #339933;].AsString [color= #339933;]+[color= #0000ff;]'</a></td>' [color= #339933;]+

                               [color= #0000ff;]'</TR>'[color= #339933;];

                   [color= #990000;]Next[color= #339933;];

            [color= #990000;]END[color= #339933;];

         EXCEPT ON E[color= #339933;]:exception [color= #b1b100;]DO         [color= #666666; font-style: italic;]//LOG(''+E.Message);

                Result[color= #339933;]:=E[color= #339933;].Message[color= #339933;];

         [color= #990000;]END[color= #339933;];

     [color= #990000;]END[color= #339933;];

   FINALLY

   vQueryListC[color= #339933;].Free[color= #339933;];

   Result[color= #339933;]:=str[color= #339933;];

   [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #000000; font-weight: bold;]FUNCTION TWebM[color= #339933;].Get_Listop[color= #009900;]([color= #009900;])[color= #339933;]:string[color= #339933;];

[color= #000000; font-weight: bold;]VAR

     vQueryListop [color= #339933;]: TMyQuery[color= #339933;];

     str[color= #339933;],vrow     [color= #339933;]: String[color= #339933;];

BEGIN

str[color= #339933;]:= [color= #0000ff;]'<TR class="blue" > <td> Code opration </td><td> Type OP  </td><td>  Date OPRATION   </td
> <td> Val OP </td><td> Code c </td></TR>'[color= #339933;];

vQueryListop[color= #339933;]:=TMyQuery[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

 TRY

   WITH vQueryListop [color= #b1b100;]DO

    BEGIN

     Connection[color= #339933;]:=ConGestCompt[color= #339933;];

     SQL[color= #339933;].Text[color= #339933;]:=[color= #0000ff;]' SELECT op.ID_OP,op.DATE_OP,op.TYPE_OP,VAL_OP,ct.LIB_C,ct.LIB_C '[color= #339933;]+

               [color= #0000ff;]' FROM operation op ,compte ct '[color= #339933;]+

               [color= #0000ff;]' WHERE op.ID_C = ct.ID_C '[color= #339933;]+

               [color= #0000ff;]' ORDER BY DATE_OP'[color= #339933;];

 

     TRY

     Open[color= #339933;];

     [color= #b1b100;]WHILE NOT [color= #009900;](Eof[color= #009900;]) [color= #b1b100;]DO

       BEGIN

 

         [color= #b1b100;]if [color= #009900;](RecNo mod [color= #cc66cc;]2 [color= #339933;]= [color= #cc66cc;]0[color= #009900;]) then

            vrow [color= #339933;]:= [color= #0000ff;]'Row1'

           [color= #b1b100;]Else

            vrow [color= #339933;]:= [color= #0000ff;]'Row2'[color= #339933;];

         str[color= #339933;]:= str [color= #339933;]+ [color= #0000ff;]'<TR class="'[color= #339933;]+vrow[color= #339933;]+[color= #0000ff;]'"> ' [color= #339933;]+

                    [color= #0000ff;]'<td> ' [color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'ID_OP'[color= #009900;])[color= #339933;].AsString [color= #339933;]+ [color= #0000ff;]'</td>' [color= #339933;]+

                    [color= #0000ff;]'<td><a href="./addupop?mod=update&idop='[color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'ID_OP'[color= #009900;])[color= #339933;].AsString[color= #339933;]+[color= #0000ff;]'"
>'[color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'LIB_C'[color= #009900;])[color= #339933;].AsString [color= #339933;]+[color= #0000ff;]'</a></td>' [color= #339933;]+

                      [color= #0000ff;]'<td> ' [color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'DATE_OP'[color= #009900;])[color= #339933;].AsString [color= #339933;]+ [color= #0000ff;]'</td>' [color= #339933;]+

                     [color= #0000ff;]'<td> ' [color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'TYPE_OP'[color= #009900;])[color= #339933;].AsString [color= #339933;]+ [color= #0000ff;]'</td>' [color= #339933;]+

                     [color= #0000ff;]'<td> ' [color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'VAL_OP'[color= #009900;])[color= #339933;].AsString [color= #339933;]+ [color= #0000ff;]'</td>' [color= #339933;]+

                     [color= #0000ff;]'</TR>'[color= #339933;];

 

                   [color= #990000;]Next[color= #339933;];

       [color= #990000;]END[color= #339933;];

  EXCEPT ON E[color= #339933;]:exception [color= #b1b100;]DO

     str[color= #339933;]:= str [color= #339933;]+ [color= #0000ff;]'<TR class="'[color= #339933;]+vrow[color= #339933;]+[color= #0000ff;]'"> ' [color= #339933;]+[color= #0000ff;]'<td>'[color= #339933;]+E[color= #339933;].Message[color= #339933;]+[color= #0000ff;]'</td>'[color= #339933;]+[color= #0000ff;]'</TR>'[color= #339933;];

  [color= #990000;]END[color= #339933;];

 [color= #990000;]END[color= #339933;];

   FINALLY

   vQueryListop[color= #339933;].Close[color= #339933;];

   vQueryListop[color= #339933;].Free[color= #339933;];

   Result[color= #339933;]:=str[color= #339933;];

  [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #000000; font-weight: bold;]FUNCTION TWebM[color= #339933;].GetLibC[color= #009900;](iIdc[color= #339933;]:string[color= #009900;])[color= #339933;]:string[color= #339933;];

[color= #000000; font-weight: bold;]VAR

     vQueryListop [color= #339933;]: TMyQuery[color= #339933;];

     str[color= #339933;]:string[color= #339933;];

BEGIN

    str[color= #339933;]:=[color= #0000ff;]''[color= #339933;];

    vQueryListop[color= #339933;]:=TMyQuery[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

    TRY

       WITH vQueryListop [color= #b1b100;]DO

       BEGIN

           Connection[color= #339933;]:=ConGestCompt[color= #339933;];

           SQL[color= #339933;].Text[color= #339933;]:=[color= #0000ff;]' SELECT LIB_C FROM compte WHERE ID_C = '[color= #339933;]+ iIdc[color= #339933;];

           TRY

           Open[color= #339933;];

           str[color= #339933;]:=FieldByName[color= #009900;]([color= #0000ff;]'LIB_C'[color= #009900;])[color= #339933;].AsString[color= #339933;];

           EXCEPT ON E[color= #339933;]:exception [color= #b1b100;]DO

           [color= #990000;]END[color= #339933;];

       [color= #990000;]END[color= #339933;];

     FINALLY

     vQueryListop[color= #339933;].Close[color= #339933;];

     vQueryListop[color= #339933;].Free[color= #339933;];

     Result[color= #339933;]:=str[color= #339933;];

     [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #000000; font-weight: bold;]FUNCTION TWebM[color= #339933;].Set_UpdateC[color= #009900;](iIdc[color= #339933;],iLib[color= #339933;]:string[color= #009900;])[color= #339933;]:Boolean[color= #339933;];

[color= #000000; font-weight: bold;]VAR

     vQueryListop [color= #339933;]: TMyQuery[color= #339933;];

BEGIN

    Result[color= #339933;]:=[color= #000000; font-weight: bold;]False[color= #339933;];

    vQueryListop[color= #339933;]:=TMyQuery[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

    TRY

       WITH vQueryListop [color= #b1b100;]DO

       BEGIN

           Connection[color= #339933;]:=ConGestCompt[color= #339933;];

           SQL[color= #339933;].Text[color= #339933;]:=[color= #0000ff;]' UPDATE compte SET LIB_C = '[color= #0000ff;]''[color= #339933;]+iLib[color= #339933;]+[color= #0000ff;]''[color= #0000ff;]' WHERE ID_C = '[color= #339933;]+ iIdc[color= #339933;];

           TRY

           Open[color= #339933;];

           Result[color= #339933;]:=[color= #000000; font-weight: bold;]TRUE[color= #339933;];

           EXCEPT ON E[color= #339933;]:exception [color= #b1b100;]DO [color= #990000;]END[color= #339933;];

       [color= #990000;]END[color= #339933;];

     FINALLY

     vQueryListop[color= #339933;].Close[color= #339933;];

     vQueryListop[color= #339933;].Free[color= #339933;];

     [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #666666; font-style: italic;]################### ALL TAG   #################################################

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

PROCEDURE TWebM[color= #339933;].PgplistcHTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;];const TagString[color= #339933;]: String[color= #339933;]; TagParams[color= #339933;]: 
TStrings[color= #339933;]; [color= #000000; font-weight: bold;]var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

BEGIN

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'CSS' THEN

     BEGIN

         ReplaceText[color= #339933;]:= C_CssPath[color= #339933;];

         [color= #990000;]EXIT[color= #339933;];

     [color= #990000;]END[color= #339933;];

 

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'LISTECOMPTE' THEN

     BEGIN

         ReplaceText[color= #339933;]:= Get_ListC[color= #009900;]([color= #009900;])[color= #339933;];

         [color= #990000;]EXIT[color= #339933;];

     [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

PROCEDURE TWebM[color= #339933;].PgplistopHTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;]; const TagString[color= #339933;]: String[color= #339933;]; TagParams
[color= #339933;]: TStrings[color= #339933;]; [color= #000000; font-weight: bold;]var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

BEGIN

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'CSS' THEN

     BEGIN

         ReplaceText[color= #339933;]:= C_CssPath[color= #339933;];

         [color= #990000;]EXIT[color= #339933;];

     [color= #990000;]END[color= #339933;];

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'LISTEOPERATION' THEN

     BEGIN

         ReplaceText[color= #339933;]:= Get_Listop[color= #009900;]([color= #009900;])[color= #339933;];

         [color= #990000;]EXIT[color= #339933;];

     [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

PROCEDURE TWebM[color= #339933;].PgpaddupcHTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;]; const TagString[color= #339933;]: String[color= #339933;]; TagParams
[color= #339933;]: TStrings[color= #339933;]; [color= #000000; font-weight: bold;]var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

BEGIN

      [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'CSS' THEN

      BEGIN

            ReplaceText[color= #339933;]:= C_CssPath[color= #339933;];

            [color= #990000;]EXIT[color= #339933;];

      [color= #990000;]END[color= #339933;];

 

      [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'MOD'  THEN

      BEGIN

          ReplaceText  [color= #339933;]:= Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'mod'[color= #009900;]][color= #339933;];

          [color= #990000;]EXIT[color= #339933;];

      [color= #990000;]END[color= #339933;];

 

      [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'IDC' THEN

      BEGIN

           ReplaceText  [color= #339933;]:= Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'IDC'[color= #009900;]][color= #339933;];

           [color= #990000;]EXIT[color= #339933;];

      [color= #990000;]END[color= #339933;];

 

      [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;]) [color= #339933;]= [color= #0000ff;]'LIB'  THEN

      BEGIN

           ReplaceText  [color= #339933;]:= GetLibC[color= #009900;](Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'IDC'[color= #009900;]][color= #009900;])[color= #339933;];

           [color= #990000;]EXIT[color= #339933;];

      [color= #990000;]END[color= #339933;];

 

[color= #990000;]END[color= #339933;];

 

 

[color= #009900;]{[color= #666666; font-style: italic;]################### ALL ACTION ################################################

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

PROCEDURE TWebM[color= #339933;].WebMAdmin_CAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];Response[color= #339933;]: TWebResponse[color= #339933;];
 [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

BEGIN

     Response[color= #339933;].Content[color= #339933;]:= Pgplistc[color= #339933;].Content[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

PROCEDURE TWebM[color= #339933;].WebMAdmin_OPAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];Response[color= #339933;]: TWebResponse
[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

BEGIN

      Response[color= #339933;].Content[color= #339933;]:= Pgplistop[color= #339933;].Content[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

PROCEDURE TWebM[color= #339933;].WebMAddUpdateCAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];Response[color= #339933;]: TWebRespon
se[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

BEGIN

     Response[color= #339933;].Content [color= #339933;]:= Pgpaddupc[color= #339933;].Content[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

PROCEDURE TWebM[color= #339933;].WebMValidAdUpcAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];Response[color= #339933;]: TWebRespon
se[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

BEGIN

     Set_UpdateC[color= #009900;](Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'txtidc'[color= #009900;]][color= #339933;],Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'txtlib'[color= #009900;]][color= #009900;])[color= #339933;];

     Response[color= #339933;].SendRedirect[color= #009900;]([color= #0000ff;]'./listc'[color= #009900;])[color= #339933;];

[color= #990000;]END[color= #339933;];

[color= #009900;]{[color= #339933;]------------------------------------------------------------------------------[color= #009900;]}

[color= #990000;]END[color= #339933;].

      
      

      
    

  

    
    

      
#143
        
        

      
ممتاز ماذا بقي اخي عبد العالي 
يبدو اني ساواصل معك اليوم وحدي في غياب الاخوة

      
      

      
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا 

    

  

    
    

      
#144
        
        

      
اهلا علي لندأ المشاريع كثيرة و الوقت قليل عسى ان نكمله و نشارك في المشاريع الاخرى .
شكرا لستمرارك و كل المشاريكين .
المطلوب كما قلنا سابقا اضافة مؤسسة جديدة او رقم رصيد جديد الذي عبرة له ب compt
الى حد الان :
1- عرض قاءمة الارصدة او المؤسسات التي ستسحب من رصيدك .
2-عملية التغيير في اسم المؤسسة
3-عملية اضافة مؤسسة جديدة
4-عرض قاءمة العمليات الادخال و الاخراج من رصيدك.

      
      

      
    

  

    
    

      
#145
        
        

      
[color= #000000; font-weight: bold;]FUNCTION TWebM[color= #339933;].Set_AddC[color= #009900;](iLib[color= #339933;]:string[color= #009900;])[color= #339933;]:Boolean[color= #339933;];

[color= #000000; font-weight: bold;]VAR

     vQueryListop [color= #339933;]: TMyQuery[color= #339933;];

BEGIN

    Result[color= #339933;]:=[color= #000000; font-weight: bold;]False[color= #339933;];

    vQueryListop[color= #339933;]:=TMyQuery[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

    TRY

       WITH vQueryListop [color= #b1b100;]DO

       BEGIN

           Connection[color= #339933;]:=ConGestCompt[color= #339933;];

           SQL[color= #339933;].Text[color= #339933;]:=[color= #0000ff;]' INSERT INTO compte  (LIB_C) VALUES ('[color= #0000ff;]''[color= #339933;]+iLib[color= #339933;]+[color= #0000ff;]''[color= #0000ff;]')'[color= #339933;];

           TRY

           Open[color= #339933;];

           Result[color= #339933;]:=[color= #000000; font-weight: bold;]TRUE[color= #339933;];

           EXCEPT ON E[color= #339933;]:exception [color= #b1b100;]DO [color= #990000;]END[color= #339933;];

       [color= #990000;]END[color= #339933;];

     FINALLY

     vQueryListop[color= #339933;].Close[color= #339933;];

     vQueryListop[color= #339933;].Free[color= #339933;];

     [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];
PROCEDURE TWebM[color= #339933;].WebMValidAdUpcAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;];Response[color= #339933;]: TWebRespon
se[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

 BEGIN

      [color= #b1b100;]IF [color= #009900;](Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'txtmod'[color= #009900;]][color= #339933;]=[color= #0000ff;]'update'[color= #009900;]) THEN

         Set_UpdateC[color= #009900;](Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'txtidc'[color= #009900;]][color= #339933;],Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'txtlib'[color= #009900;]][color= #009900;])

      [color= #b1b100;]ELSE                       [color= #666666; font-style: italic;]//(['txtmod']='New')

         Set_AddC[color= #009900;](Request[color= #339933;].QueryFields[color= #339933;].Values[color= #009900;][[color= #0000ff;]'txtlib'[color= #009900;]][color= #009900;])[color= #339933;];

 

      Response[color= #339933;].SendRedirect[color= #009900;]([color= #0000ff;]'./listc'[color= #009900;])[color= #339933;];

 [color= #990000;]END[color= #339933;];
<html>
<head>
<link REL="stylesheet" TYPE="text/css" HREF="<#CSS>">
<title>Liste des Comptes</title>
<head>
<body>
<div class="scrol">
<table class="blue">
<#LISTECOMPTE>
</table> 
</div>
<div><INPUT type="button" value="Nouveau" name="bnew" onclick="location.href='./addupc?mod=new';"/></div>
</body>
</html>

      
تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 15 فبراير 2009 في 01:14

      

      
    

  

    
    

      
#146
        
        

      
مشكور اخي  عبدالعالي 
محاولة في المرفق لست ادري مدى صحتها
allsource.rar

      
      

      
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا 

    

  

    
    

      
#147
        
        

      
عمل جيد اخ على ارجوا.
لم يبقي الا العمليات الاضافة و التغيير و البحث .

      
      

      
    

  

    
    

      
#148
        
        

      
 

[color= #000000; font-weight: bold;]FUNCTION TWebM[color= #339933;].Get_OpFeldVal[color= #009900;](iIdop[color= #339933;]:string[color= #009900;])[color= #339933;]:string[color= #339933;];

[color= #000000; font-weight: bold;]VAR

     vQueryop [color= #339933;]: TMyQuery[color= #339933;];

     str[color= #339933;]:string[color= #339933;];

BEGIN

    vQueryop[color= #339933;]:=TMyQuery[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

    TRY

       WITH vQueryop [color= #b1b100;]DO

       BEGIN

           Connection[color= #339933;]:=ConGestCompt[color= #339933;];

           SQL[color= #339933;].Text[color= #339933;]:=

                      [color= #0000ff;]' SELECT ID_OP,DATE_OP,TYPE_OP,VAL_OP'[color= #339933;]+

                      [color= #0000ff;]' FROM operation'[color= #339933;]+

                      [color= #0000ff;]' WHERE ID_OP='[color= #339933;]+iIdop[color= #339933;];

           TRY

           Open[color= #339933;];

           str[color= #339933;]:=[color= #0000ff;]'<TR><td> DATE : </td> <td> <INPUT type="text" name="txtdate" value="'[color= #339933;]+FieldByN
ame[color= #009900;]([color= #0000ff;]'DATE_OP'[color= #009900;])[color= #339933;].AsString[color= #339933;]+[color= #0000ff;]'"> </td> </TR>'[color= #339933;];

 

           [color= #b1b100;]if FieldByName[color= #009900;]([color= #0000ff;]'TYPE_OP'[color= #009900;])[color= #339933;].AsString[color= #339933;]=[color= #0000ff;]'verser' THEN

              str[color= #339933;]:=str [color= #339933;]+

                     [color= #0000ff;]'<TR><td> TYPE : </td> <td>'[color= #339933;]+

                               [color= #0000ff;]'<select name="txttype" style="width:150px;">'[color= #339933;]+

                                   [color= #0000ff;]'<option SELECTED  value="verser">Verser</option>'[color= #339933;]+

                                                    [color= #0000ff;]'<option value="retirer">Retirer</option>'[color= #339933;]+

                              [color= #0000ff;]'</select>'[color= #339933;]+

                               [color= #0000ff;]'</td></TR>'

          [color= #b1b100;]ELSE

              str[color= #339933;]:=str [color= #339933;]+

                     [color= #0000ff;]'<TR><td> TYPE : </td> <td>'[color= #339933;]+

                               [color= #0000ff;]'<select name="txttype" style="width:150px;">'[color= #339933;]+

                                   [color= #0000ff;]'<option value="verser">Verser</option>'[color= #339933;]+

                                                    [color= #0000ff;]'<option SELECTED  value="retirer">Retirer<
/option>'[color= #339933;]+

                              [color= #0000ff;]'</select>'[color= #339933;]+

                               [color= #0000ff;]'</td></TR>'[color= #339933;];

 

            str[color= #339933;]:=str [color= #339933;]+

               [color= #0000ff;]'<TR><td> VAL  : </td> <td> <INPUT type="text" name="txtval" value="'[color= #339933;]+FieldByNam
e[color= #009900;]([color= #0000ff;]'VAL_OP'[color= #009900;]) [color= #339933;].AsString[color= #339933;]+[color= #0000ff;]'"> </td> </TR>'[color= #339933;];

 

           EXCEPT ON E[color= #339933;]:exception [color= #b1b100;]DO

                  Result[color= #339933;]:=[color= #0000ff;]'<TR><td> '[color= #339933;]+E[color= #339933;].Message[color= #339933;]+[color= #0000ff;]'</td> </TR>'[color= #339933;];

           [color= #990000;]END[color= #339933;];

       [color= #990000;]END[color= #339933;];

     FINALLY

     Result[color= #339933;]:=str[color= #339933;];

     vQueryop[color= #339933;].Close[color= #339933;];

     vQueryop[color= #339933;].Free[color= #339933;];

     [color= #990000;]END[color= #339933;];

[color= #990000;]END[color= #339933;];
PROCEDURE TWebM.PgpaddupopHTMLTag(Sender: TObject; Tag: TTag;const TagString: String; TagParams: TStrings; var ReplaceText: String);
 BEGIN
	   IF UpperCase(TagString) = 'CSS' THEN
	   BEGIN
			 ReplaceText:= C_CssPath;
			 EXIT;
	   END;

	   IF UpperCase(TagString) = 'MOD'  THEN
	   BEGIN
		   ReplaceText  := Request.QueryFields.Values['mod'];
		   EXIT;
	   END;

	   IF UpperCase(TagString) = 'IDOP' THEN
	   BEGIN
			ReplaceText  := Request.QueryFields.Values['idop'];
			EXIT;
	   END;

	   IF UpperCase(TagString) = 'FIELDVAL' THEN
	   BEGIN
			ReplaceText  := Get_OpFeldVal(Request.QueryFields.Values['IDOP']);
			EXIT;
	   END;
 END;
<html>
<head>
<link REL="stylesheet" TYPE="text/css" HREF="<#CSS>">
<title></title>
<head>
<body>
<table>
<FORM action="./validop" method="get">
    <INPUT type="hiidden" name="txtmod" value="<#MOD>">
   <TR><td> CODE : </td> <td> <INPUT type="text" name="txtidop" value="<#IDOP>" readonly="non"> </td> </TR>
   <#FIELDVAL>
   <TR>      
       <td><INPUT type="button" value="Retour" name="bretour" onclick="location.href='./listop';"/></td> 
       <td><INPUT type="submit" value="Valide"> </td> 
   </TR>
</FORM>
</body>
</html>
post-1034-1234703904_thumb.jpg

      
تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 15 فبراير 2009 في 16:18

      

      
    

  

    
    

      
#149
        
        

      
بســم الله الـرحمــن الرحيــم
لم يبقي الكثير من العمل اين انتم يا اخوة
- بقيه عمليت تاكيد التغيير
- الاضافة 
-البحث
- صفحت الرءيسية
فقط
allsource.rar

      
      

      
    

  

    
    

      
#150
        
        

      
السلام عليكــم ورحمـة الله وبركاتــه 
اهلا اخي عبد العالي  اتمنى ان تكون في صحة جيدة 
محاولة الاضافة في قاعدة البيانات 
لم يبقى الا البحث والصفحة الرئيسية 
اتمنى ان ننهي البرنامج اليوم
pas.rar

      
تم تعديل هذه المشاركة بواسطة علي .ع في 15 فبراير 2009 في 23:30

      

      
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا 

    

  

    
    
    
 مواضيع مشابهة