Diff of /Unit6.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit6.pas




Diff of /Unit6.pas



 Parent Directory

|  Revision Log



|  Patch














revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC




revision 3 by yamat0jp,
Sat Dec 26 07:30:17 2015 UTC






#

Line 7 
 uses


Line 7 
 uses












7
   IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,
   IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,

















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

















9
   IWContainerLayout, IWTemplateProcessorHTML, IWCompButton, Vcl.Forms, Unit2,
   IWContainerLayout, IWTemplateProcessorHTML, IWCompButton, Vcl.Forms, Unit2,















10


   IWCompGrids, IWCompCalendar;


   IWCompGrids, IWCompCalendar, IWCompLabel;















11
 
 

















12
 type
 type

















13
   TUserForm = class(TIWAppForm)
   TUserForm = class(TIWAppForm)











#

Line 20 
 type


Line 20 
 type












20
     IWButton1: TIWButton;
     IWButton1: TIWButton;

















21
     IWEdit6: TIWEdit;
     IWEdit6: TIWEdit;

















22
     IWFrame1: TIWFrame1;
     IWFrame1: TIWFrame1;












23
 
     IWButton2: TIWButton;












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















25


     procedure IWFrame1IWImageFile1Click(Sender: TObject);


     procedure IWButton2Click(Sender: TObject);















26
   public
   public

















27
   private
   private

















28
     function Check: Boolean;
     function Check: Boolean;











#

Line 43 
 begin


Line 44 
 begin












44
   end;
   end;

















45
   if IWEdit5.Text <> IWEdit6.Text then
   if IWEdit5.Text <> IWEdit6.Text then

















46
     WebApplication.ShowMessage('パスワード入力が一致しません')
     WebApplication.ShowMessage('パスワード入力が一致しません')















47


   else if DM.FDTable1.Locate('EMAIL', DM.FDTable1.FieldByName('EMAIL').AsString,


   else if DM.FDTable1.Locate('EMAIL', IWEdit3.Text, []) = false then
















     []) = false then


 















48
   begin
   begin

















49
     result := (IWEdit1.Text <> '') and (IWEdit2.Text <> '') and
     result := (IWEdit1.Text <> '') and (IWEdit2.Text <> '') and

















50
       (IWEdit3.Text <> '') and (IWEdit4.Text <> '');
       (IWEdit3.Text <> '') and (IWEdit4.Text <> '');











#

Line 63 
 procedure TUserForm.IWButton1Click(Sende


Line 63 
 procedure TUserForm.IWButton1Click(Sende












63
 begin
 begin

















64
   if Check = true then
   if Check = true then

















65
   begin
   begin















66


     DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit2.Text, IWEdit3.Text,


     DM.FDTable1.Last;













67


       IWEdit4.Text, IWEdit5.Text]);


     DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,













68


 


       IWEdit4.Text, IWEdit5.Text, DM.FDTable1.FieldByName('NUMBER').AsInteger + 1]);















69
     Release;
     Release;

















70
   end;
   end;

















71
 end;
 end;

















72
 
 















73


 procedure TUserForm.IWFrame1IWImageFile1Click(Sender: TObject);


 procedure TUserForm.IWButton2Click(Sender: TObject);















74
 begin
 begin

















75
   Release;
   Release;

















76
 end;
 end;





























Legend:



Removed from v.2
 


changed lines


 
Added in v.3













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit6.pas
-revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC
+revision 3 by yamat0jp,
Sat Dec 26 07:30:17 2015 UTC
 Line 7 
 uses
    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,
    IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
    IWContainerLayout, IWTemplateProcessorHTML, IWCompButton, Vcl.Forms, Unit2,
-   IWCompGrids, IWCompCalendar;
+   IWCompGrids, IWCompCalendar, IWCompLabel;
  type
    TUserForm = class(TIWAppForm)
 Line 20 
 type
      IWButton1: TIWButton;
      IWEdit6: TIWEdit;
      IWFrame1: TIWFrame1;
+     IWButton2: TIWButton;
      procedure IWButton1Click(Sender: TObject);
-     procedure IWFrame1IWImageFile1Click(Sender: TObject);
+     procedure IWButton2Click(Sender: TObject);
    public
    private
      function Check: Boolean;
-Line 43 
 begin
+Line 44 
 begin
    end;
    if IWEdit5.Text <> IWEdit6.Text then
      WebApplication.ShowMessage('パスワード入力が一致しません')
-   else if DM.FDTable1.Locate('EMAIL', DM.FDTable1.FieldByName('EMAIL').AsString,
+   else if DM.FDTable1.Locate('EMAIL', IWEdit3.Text, []) = false then
-     []) = false then
    begin
      result := (IWEdit1.Text <> '') and (IWEdit2.Text <> '') and
        (IWEdit3.Text <> '') and (IWEdit4.Text <> '');
 Line 63 
 procedure TUserForm.IWButton1Click(Sende
  begin
    if Check = true then
    begin
-     DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit2.Text, IWEdit3.Text,
+     DM.FDTable1.Last;
-       IWEdit4.Text, IWEdit5.Text]);
+     DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,
+       IWEdit4.Text, IWEdit5.Text, DM.FDTable1.FieldByName('NUMBER').AsInteger + 1]);
      Release;
    end;
  end;
- procedure TUserForm.IWFrame1IWImageFile1Click(Sender: TObject);
+ procedure TUserForm.IWButton2Click(Sender: TObject);
  begin
    Release;
  end;
 Legend:



Removed from v.2
 


changed lines


 
Added in v.3
 Legend:



Removed from v.2
 


changed lines


 
Added in v.3
-Removed from v.2
+Added in v.3
-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