Diff of /Unit9.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit9.pas




Diff of /Unit9.pas



 Parent Directory

|  Revision Log



|  Patch














revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 UTC




revision 8 by yamat0jp,
Thu Dec 31 08:51:02 2015 UTC






#

Line 6 
 uses


Line 6 
 uses












6
   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,

















7
   Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
   Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,

















8
   IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
   IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,















9


   IWContainerLayout, IWTemplateProcessorHTML;


   IWContainerLayout, IWTemplateProcessorHTML, IWCompEdit;















10
 
 

















11
 type
 type

















12
   TMyPage = class(TIWAppForm)
   TMyPage = class(TIWAppForm)

















13
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;














     IWLink1: TIWLink;
 













14
     IWLink2: TIWLink;
     IWLink2: TIWLink;

















15
     IWButton1: TIWButton;
     IWButton1: TIWButton;

















16
     IWButton2: TIWButton;
     IWButton2: TIWButton;












17
 
     IWEdit1: TIWEdit;







18
 
     IWEdit2: TIWEdit;







19
 
     IWButton3: TIWButton;







20
 
     IWEdit3: TIWEdit;







21
 
     IWEdit4: TIWEdit;







22
 
     IWButton4: TIWButton;







23
 
     IWEdit5: TIWEdit;












24
     procedure IWButton2Click(Sender: TObject);
     procedure IWButton2Click(Sender: TObject);

















25
     procedure IWButton1Click(Sender: TObject);
     procedure IWButton1Click(Sender: TObject);

















26
     procedure IWLink2Click(Sender: TObject);
     procedure IWLink2Click(Sender: TObject);












27
 
     procedure IWButton3Click(Sender: TObject);







28
 
     procedure IWButton4Click(Sender: TObject);







29
 
     procedure IWAppFormCreate(Sender: TObject);












30
   public
   public

















31
     Form: TIWAppForm;
     Form: TIWAppForm;

















32
   end;
   end;











#

Line 28 
 implementation


Line 37 
 implementation












37
 
 

















38
 uses Unit3, ServerController, Unit1;
 uses Unit3, ServerController, Unit1;

















39
 
 












40
 
 procedure TMyPage.IWAppFormCreate(Sender: TObject);







41
 
 begin







42
 
   with DM.FDTable1 do







43
 
   begin







44
 
     IWEdit1.Text := FieldByName('EMAIL').AsString;







45
 
     IWEdit2.Text := FieldByName('ADDRESS').AsString;







46
 
   end;







47
 
 end;







48
 
 












49
 procedure TMyPage.IWButton1Click(Sender: TObject);
 procedure TMyPage.IWButton1Click(Sender: TObject);

















50
 begin
 begin

















51
   DM.FDQuery1.Open('select * from recent_data where number = :num;',
   DM.FDQuery1.Open('select * from recent_data where number = :num;',











#

Line 58 
 begin


Line 76 
 begin












76
   WebApplication.ShowMessage('退会が完了しました');
   WebApplication.ShowMessage('退会が完了しました');

















77
 end;
 end;

















78
 
 












79
 
 procedure TMyPage.IWButton3Click(Sender: TObject);







80
 
 begin







81
 
   with DM.FDTable1 do







82
 
     if IWEdit1.Text <> FieldByName('EMAIL').AsString then







83
 
     begin







84
 
       if IWEdit1.Text = IWEdit3.Text then







85
 
       begin







86
 
         Edit;







87
 
         FieldByName('EMAIL').AsString := IWEdit1.Text;







88
 
         FieldByName('ADDRESS').AsString := IWEdit2.Text;







89
 
         Post;







90
 
       end







91
 
       else







92
 
       begin







93
 
         WebApplication.ShowMessage('入力が一致しません');







94
 
         IWEdit1.Text := FieldByName('EMAIL').AsString;







95
 
         IWEdit3.Text := '';







96
 
       end;







97
 
     end







98
 
     else







99
 
     begin







100
 
       Edit;







101
 
       FieldByName('ADDRESS').AsString := IWEdit2.Text;







102
 
       Post;







103
 
     end;







104
 
 end;







105
 
 







106
 
 procedure TMyPage.IWButton4Click(Sender: TObject);







107
 
 begin







108
 
   if IWEdit4.Text <> IWEdit5.Text then







109
 
   begin







110
 
     WebApplication.ShowMessage('入力が一致しません');







111
 
     Exit;







112
 
   end







113
 
   else if Length(IWEdit4.Text) < 5 then







114
 
     WebApplication.ShowMessage('パスワードわ５文字以上が必要です')







115
 
   else







116
 
     with DM.FDTable1 do







117
 
     begin







118
 
       Edit;







119
 
       FieldByName('PASSWORD').AsString := IWEdit4.Text;







120
 
       Post;







121
 
     end;







122
 
 end;







123
 
 












124
 procedure TMyPage.IWLink2Click(Sender: TObject);
 procedure TMyPage.IWLink2Click(Sender: TObject);

















125
 begin
 begin

















126
   Release;
   Release;





























Legend:



Removed from v.7
 


changed lines


 
Added in v.8













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit9.pas
-revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 UTC
+revision 8 by yamat0jp,
Thu Dec 31 08:51:02 2015 UTC
 Line 6 
 uses
    Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
    Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
    IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
-   IWContainerLayout, IWTemplateProcessorHTML;
+   IWContainerLayout, IWTemplateProcessorHTML, IWCompEdit;
  type
    TMyPage = class(TIWAppForm)
      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
-     IWLink1: TIWLink;
      IWLink2: TIWLink;
      IWButton1: TIWButton;
      IWButton2: TIWButton;
+     IWEdit1: TIWEdit;
+     IWEdit2: TIWEdit;
+     IWButton3: TIWButton;
+     IWEdit3: TIWEdit;
+     IWEdit4: TIWEdit;
+     IWButton4: TIWButton;
+     IWEdit5: TIWEdit;
      procedure IWButton2Click(Sender: TObject);
      procedure IWButton1Click(Sender: TObject);
      procedure IWLink2Click(Sender: TObject);
+     procedure IWButton3Click(Sender: TObject);
+     procedure IWButton4Click(Sender: TObject);
+     procedure IWAppFormCreate(Sender: TObject);
    public
      Form: TIWAppForm;
    end;
-Line 28 
 implementation
+Line 37 
 implementation
  uses Unit3, ServerController, Unit1;
+ procedure TMyPage.IWAppFormCreate(Sender: TObject);
+ begin
+   with DM.FDTable1 do
+   begin
+     IWEdit1.Text := FieldByName('EMAIL').AsString;
+     IWEdit2.Text := FieldByName('ADDRESS').AsString;
+   end;
+ end;
  procedure TMyPage.IWButton1Click(Sender: TObject);
  begin
    DM.FDQuery1.Open('select * from recent_data where number = :num;',
-Line 58 
 begin
+Line 76 
 begin
    WebApplication.ShowMessage('退会が完了しました');
  end;
+ procedure TMyPage.IWButton3Click(Sender: TObject);
+ begin
+   with DM.FDTable1 do
+     if IWEdit1.Text <> FieldByName('EMAIL').AsString then
+     begin
+       if IWEdit1.Text = IWEdit3.Text then
+       begin
+         Edit;
+         FieldByName('EMAIL').AsString := IWEdit1.Text;
+         FieldByName('ADDRESS').AsString := IWEdit2.Text;
+         Post;
+       end
+       else
+       begin
+         WebApplication.ShowMessage('入力が一致しません');
+         IWEdit1.Text := FieldByName('EMAIL').AsString;
+         IWEdit3.Text := '';
+       end;
+     end
+     else
+     begin
+       Edit;
+       FieldByName('ADDRESS').AsString := IWEdit2.Text;
+       Post;
+     end;
+ end;
+ procedure TMyPage.IWButton4Click(Sender: TObject);
+ begin
+   if IWEdit4.Text <> IWEdit5.Text then
+   begin
+     WebApplication.ShowMessage('入力が一致しません');
+     Exit;
+   end
+   else if Length(IWEdit4.Text) < 5 then
+     WebApplication.ShowMessage('パスワードわ５文字以上が必要です')
+   else
+     with DM.FDTable1 do
+     begin
+       Edit;
+       FieldByName('PASSWORD').AsString := IWEdit4.Text;
+       Post;
+     end;
+ end;
  procedure TMyPage.IWLink2Click(Sender: TObject);
  begin
    Release;
 Legend:



Removed from v.7
 


changed lines


 
Added in v.8
 Legend:



Removed from v.7
 


changed lines


 
Added in v.8
-Removed from v.7
+Added in v.8
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository