مشروع واب Isapi

1- افتح مشروع جديد

1- سمي الواب مودبل باسم

WebM

2-اضف الاكشن التالية

*- Login => /

الاكشن 1 يفتح لنا صفحة واب يطلب فيها ادخال اسم المستخدم و كلمة السر

------------------------------------

*- Admin_OP => /listop

*-AddUpdateOP => /addupop

*-ValidAdupOP =>/validop

2 نعرض فيها قائمة العمليات مرتبة حسب التاريخ

3 اكشن يقوم بعرض صفحة الاضافة و التغيير للعملية الواحدة

4اكشن ياكد التغيير على مستوى القاعدة.

------------------------------------

*-Admin_C => /listc

*-AddUpdateC=>/addupc

*-ValidAdUpc =>/validc

-قاءمت المؤسسات او اي فاعل حدث سحب او ادخال مال الى الرصيد

عرض صفحه الاضافة و التغيير

تاكيد الحفظ

-------------------------------------

3-صفحات الاشتمل HTML

login.html

فيها نجد اسم المستخدم و كلمت السر و زر المزافقه

listop.html

فيه نجد جدول به جميع حقول جدول العمليات في شكل قاءمة

addupop.html

فيه نجد به جميع حقول جدول العمليات في شكل عناصر ادخال

txtbox

listc.html

//

addupc.html

//

-------------------------------------

3-المكونات

ضع مكون الاتصال مع قاعدة اليانات و اجري الربط

SQLConnection1

ضع 5 مكونات ربط صفحات الاشتمل

PageProducer1

تغير الاسم

PgP...... مثال PgPlistc

و اجري الربط

------------------------------------

ملاحظ

نترك CSS et js في الاخير

 

[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= #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;];

    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;];

 

[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= #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;]}

[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;];

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

BEGIN

   str[color= #339933;]:=[color= #0000ff;]''[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

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

                      [color= #0000ff;]'<TR> ' [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> ' [color= #339933;]+ FieldByName[color= #009900;]([color= #0000ff;]'LIB_C'[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         [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;].Close[color= #339933;];

   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= #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;]'LISTECOMPTE' THEN

      BEGIN

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

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

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

 

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

[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= #990000;]END[color= #339933;].