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 9 by yamat0jp, Wed Jan 13 11:20:13 2016 UTC revision 10 by yamat0jp, Sat Jan 16 23:06:35 2016 UTC
# Line 49  type Line 49  type
49      IWLink3: TIWLink;      IWLink3: TIWLink;
50      IWLink5: TIWLink;      IWLink5: TIWLink;
51      IWFrame1: TIWFrame1;      IWFrame1: TIWFrame1;
52        IWLink6: TIWLink;
53      procedure IWAppFormRender(Sender: TObject);      procedure IWAppFormRender(Sender: TObject);
54      procedure IWLink2Click(Sender: TObject);      procedure IWLink2Click(Sender: TObject);
55      procedure IWAppFormCreate(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
# Line 60  type Line 61  type
61      procedure IWLink4Click(Sender: TObject);      procedure IWLink4Click(Sender: TObject);
62      procedure IWLink3Click(Sender: TObject);      procedure IWLink3Click(Sender: TObject);
63      procedure IWLink5Click(Sender: TObject);      procedure IWLink5Click(Sender: TObject);
64        procedure IWLink6Click(Sender: TObject);
65    private    private
66      Filter: Boolean;      Filter: Boolean;
67      function GetPage: Boolean;      function GetPage: Boolean;
# Line 69  type Line 71  type
71      function GetThumbnail: Boolean;      function GetThumbnail: Boolean;
72      procedure CallBack(EventParams: TStringList);      procedure CallBack(EventParams: TStringList);
73      procedure SetThumbnail(const Value: Boolean);      procedure SetThumbnail(const Value: Boolean);
     property Thumbnail: Boolean read GetThumbnail write SetThumbnail;  
74    public    public
75      property Page: Boolean read GetPage write SetPage;      property Page: Boolean read GetPage write SetPage;
76        property Thumbnail: Boolean read GetThumbnail write SetThumbnail;
77    end;    end;
78    
79  var  var
# Line 81  implementation Line 83  implementation
83    
84  {$R *.dfm}  {$R *.dfm}
85    
86  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10;  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10, Unit5;
87    
88  procedure TIWForm1.CallBack(EventParams: TStringList);  procedure TIWForm1.CallBack(EventParams: TStringList);
89  begin  begin
# Line 315  begin Line 317  begin
317        VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true then        VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true then
318      begin      begin
319        Page := false;        Page := false;
       UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;  
320        IWEdit2.Text := '';        IWEdit2.Text := '';
321      end;      end;
322      IWEdit3.Text := '';      IWEdit3.Text := '';
323    end    end
324    else    else
   begin  
     UserSession.user_number := 0;  
325      Page := true;      Page := true;
   end;  
326  end;  end;
327    
328  procedure TIWForm1.IWLink3Click(Sender: TObject);  procedure TIWForm1.IWLink3Click(Sender: TObject);
# Line 346  begin Line 344  begin
344    TIWForm10.Create(WebApplication).Show;    TIWForm10.Create(WebApplication).Show;
345  end;  end;
346    
347    procedure TIWForm1.IWLink6Click(Sender: TObject);
348    begin
349      Page:=true;
350      TIWForm3.Create(WebApplication).Show;
351    end;
352    
353  procedure TIWForm1.LoadImage;  procedure TIWForm1.LoadImage;
354  var  var
355    s: TStream;    s: TStream;
# Line 469  begin Line 473  begin
473    begin    begin
474      IWLabel1.Caption := 'ようこそ';      IWLabel1.Caption := 'ようこそ';
475      IWLink2.Caption := 'ログアウト';      IWLink2.Caption := 'ログアウト';
476        UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;
477    end    end
478    else    else
479    begin    begin
# Line 478  begin Line 483  begin
483      IWText1.Text := '';      IWText1.Text := '';
484      DM.FDTable2.Filtered := false;      DM.FDTable2.Filtered := false;
485      Filter := false;      Filter := false;
486        UserSession.user_number:=0;
487    end;    end;
488  end;  end;
489    
Legend:
Removed from v.9  
changed lines
  Added in v.10
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help