Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit6.pas

Diff of /Unit6.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 8 by yamat0jp, Thu Dec 31 08:51:02 2015 UTC revision 11 by yamat0jp, Fri Jul 22 23:40:03 2016 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, IWCompLabel;    IWCompGrids, IWCompCalendar, IWCompLabel, IWDBGrids;
11    
12  type  type
13    TUserForm = class(TIWAppForm)    TUserForm = class(TIWAppForm)
# Line 37  uses Unit3, Unit1, ServerController; Line 37  uses Unit3, Unit1, ServerController;
37  function TUserForm.Check: Boolean;  function TUserForm.Check: Boolean;
38  begin  begin
39    result := false;    result := false;
40      if IWEdit1.Text = '' then
41      begin
42        WebApplication.ShowMessage('お名前を入力してください');
43        Exit;
44      end;
45    if Length(IWEdit5.Text) < 5 then    if Length(IWEdit5.Text) < 5 then
46    begin    begin
47      WebApplication.ShowMessage('５文字以上のパスワードを使用してください');      WebApplication.ShowMessage('５文字以上のパスワードを使用してください');
# Line 53  begin Line 58  begin
58    end    end
59    else if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then    else if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
60      WebApplication.ShowMessage('e-mailが既に登録されています');      WebApplication.ShowMessage('e-mailが既に登録されています');
61    IWEdit5.Text := '';    if result = false then
62    IWEdit6.Text := '';    begin
63        IWEdit5.Text := '';
64        IWEdit6.Text := '';
65      end;
66  end;  end;
67    
68  procedure TUserForm.IWButton1Click(Sender: TObject);  procedure TUserForm.IWButton1Click(Sender: TObject);
69  begin  begin
70    if Check = true then    if Check = true then
71    begin    begin
72        if UserSession.user_number = 0 then
73        begin
74      DM.FDTable1.Last;      DM.FDTable1.Last;
75      UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;      UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
76      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,
77        IWEdit4.Text, IWEdit5.Text, UserSession.user_number]);        IWEdit4.Text, UserSession.hash(IWEdit5.Text), UserSession.user_number, Date]);
78        end
79        else
80        begin
81          DM.FDTable1.Edit;
82          with DM.FDTable1.Fields do
83          begin
84            Fields[0].AsString:=IWEdit1.Text;
85            Fields[1].AsString:=IWEdit3.Text;
86            Fields[2].AsString:=IWEdit2.Text;
87            Fields[3].AsString:=IWEdit4.Text;
88            Fields[4].AsString:=UserSession.hash(IWEdit5.Text);
89          end;
90          DM.FDTable1.Post;
91        end;
92        WebApplication.Response.Cookies.AddCookie('user_cookie',UserSession.user_number.ToString,'/',Date+10);
93      Release;      Release;
94      IWForm1.Page := false;      IWForm1.Page := false;
95    end;    end;
Legend:
Removed from v.8  
changed lines
  Added in v.11
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help