Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit1.pas

Diff of /Unit1.pas

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

revision 6 by yamat0jp, Tue Dec 29 10:58:29 2015 UTC revision 7 by yamat0jp, Wed Dec 30 09:56:24 2015 UTC
# Line 46  type Line 46  type
46      IWList3: TIWList;      IWList3: TIWList;
47      IWImage1: TIWImage;      IWImage1: TIWImage;
48      IWFrame8: TIWFrame8;      IWFrame8: TIWFrame8;
     IWLink3: TIWLink;  
49      IWLink4: TIWLink;      IWLink4: TIWLink;
50        IWLink3: TIWLink;
51      procedure IWAppFormRender(Sender: TObject);      procedure IWAppFormRender(Sender: TObject);
52      procedure IWLink2Click(Sender: TObject);      procedure IWLink2Click(Sender: TObject);
53      procedure IWAppFormCreate(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
# Line 56  type Line 56  type
56      procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);      procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);
57      procedure IWFrame8IWButton1Click(Sender: TObject);      procedure IWFrame8IWButton1Click(Sender: TObject);
58      procedure IWFrame8IWLink1Click(Sender: TObject);      procedure IWFrame8IWLink1Click(Sender: TObject);
     procedure IWLink3Click(Sender: TObject);  
59      procedure IWLink4Click(Sender: TObject);      procedure IWLink4Click(Sender: TObject);
60        procedure IWLink3Click(Sender: TObject);
61    private    private
62      Filter: Boolean;      Filter: Boolean;
63      function GetPage: TPage;      function GetPage: Boolean;
64      procedure SetPage(const Value: TPage);      procedure SetPage(const Value: Boolean);
65      procedure LoadImage;      procedure LoadImage;
66      procedure ClearImage;      procedure ClearImage;
67    public    public
68      property Page: TPage read GetPage write SetPage;      property Page: Boolean read GetPage write SetPage;
69    end;    end;
70    
71  implementation  implementation
72    
73  {$R *.dfm}  {$R *.dfm}
74    
75  uses Unit3, ServerController, Unit6, Unit4;  uses Unit3, ServerController, Unit6, Unit4, Unit9;
76    
77  procedure TIWForm1.ClearImage;  procedure TIWForm1.ClearImage;
78  var  var
# Line 85  begin Line 85  begin
85    IWGrid1.RowCount := 0;    IWGrid1.RowCount := 0;
86  end;  end;
87    
88  function TIWForm1.GetPage: TPage;  function TIWForm1.GetPage: Boolean;
89  begin  begin
90    result := UserSession.FPage;    result := UserSession.FPage;
91  end;  end;
# Line 169  begin Line 169  begin
169          IWList1.Items[i] := IWList1.Items.Names[i] + '(' + s + ')';          IWList1.Items[i] := IWList1.Items.Names[i] + '(' + s + ')';
170      end;      end;
171    IWList2.Items.Clear;    IWList2.Items.Clear;
172    if Page = TPage.Info then    if Page = false then
173    begin    begin
174      with DM.FDQuery1 do      with DM.FDQuery1 do
175      begin      begin
# Line 296  end; Line 296  end;
296    
297  procedure TIWForm1.IWLink2Click(Sender: TObject);  procedure TIWForm1.IWLink2Click(Sender: TObject);
298  begin  begin
299    case Page of    if Page = true then
     Main:  
300        begin        begin
301          if DM.FDTable1.Locate('EMAIL;PASSWORD',          if DM.FDTable1.Locate('EMAIL;PASSWORD',
302            VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true            VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true
303          then          then
304          begin          begin
305            Page := Info;            Page := false;
306            UserSession.user_number := DM.FDTable1.FieldByName('NUMBER')            UserSession.user_number := DM.FDTable1.FieldByName('NUMBER')
307              .AsInteger;              .AsInteger;
308            IWEdit2.Text := '';            IWEdit2.Text := '';
309          end;          end;
310          IWEdit3.Text := '';          IWEdit3.Text := '';
311        end;        end
312      Info:        else
313        begin        begin
314          DM.FDTable1.Filtered := false;          DM.FDTable1.Filtered := false;
315          Page := Main;          Page := true;
316          UserSession.user_number := 0;          UserSession.user_number := 0;
317        end;        end;
   end;  
318  end;  end;
319    
320  procedure TIWForm1.IWLink3Click(Sender: TObject);  procedure TIWForm1.IWLink3Click(Sender: TObject);
321  begin  begin
322    WebApplication.ShowMessage('ＯＫをクリックすると退会します');    with TMyPage.Create(WebApplication) do
323    Page := Main;    begin
324    DM.FDTable1.Delete;      Form := Self;
325        Show;
326      end;
327  end;  end;
328    
329  procedure TIWForm1.IWLink4Click(Sender: TObject);  procedure TIWForm1.IWLink4Click(Sender: TObject);
# Line 442  begin Line 442  begin
442    IWLabel4.Caption := DM.FDTable2.FieldByName('NAME').AsString;    IWLabel4.Caption := DM.FDTable2.FieldByName('NAME').AsString;
443  end;  end;
444    
445  procedure TIWForm1.SetPage(const Value: TPage);  procedure TIWForm1.SetPage(const Value: Boolean);
 var  
   x: Boolean;  
446  begin  begin
447    UserSession.FPage := Value;    UserSession.FPage := Value;
448    x := Value = Info;    IWRegion7.Visible := not Value;
449    IWRegion7.Visible := x;    IWDBLabel1.Visible := not Value;
450    IWDBLabel1.Visible := x;    IWLink3.Visible := not Value;
451    IWLink3.Visible := x;    IWLink1.Visible := Value;
452    IWLink1.Visible := not x;    IWText1.Visible := Value;
453    IWText1.Visible := not x;    if Value = false then
   if x = true then  
454    begin    begin
455      IWLabel1.Caption := 'ようこそ';      IWLabel1.Caption := 'ようこそ';
456      IWLink2.Caption := 'ログアウト';      IWLink2.Caption := 'ログアウト';
Legend:
Removed from v.6  
changed lines
  Added in v.7
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help