Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit5.pas

Diff of /Unit5.pas

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

revision 14 by yamat0jp, Fri Jul 29 10:50:16 2016 UTC revision 17 by yamat0jp, Wed Aug 24 12:31:07 2016 UTC
# Line 11  uses Line 11  uses
11    FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,    FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
12    FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,    FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
13    FireDAC.Stan.Async, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,    FireDAC.Stan.Async, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
14    FireDAC.Comp.Client;    FireDAC.Comp.Client, UITypes;
15    
16  type  type
17    TAdminPage = class(TIWAppForm)    TAdminPage = class(TIWAppForm)
# Line 38  type Line 38  type
38      procedure IWDBNavigator1Last(Sender: TObject);      procedure IWDBNavigator1Last(Sender: TObject);
39      procedure IWDBNavigator1Next(Sender: TObject);      procedure IWDBNavigator1Next(Sender: TObject);
40      procedure IWDBNavigator1Prior(Sender: TObject);      procedure IWDBNavigator1Prior(Sender: TObject);
41        procedure IWDBGrid2RenderCell(ACell: TIWGridCell;
42          const ARow, AColumn: Integer);
43        procedure IWDBGrid2Render(Sender: TObject);
44        procedure IWCheckBox1Change(Sender: TObject);
45      private
46        dummy: TComponent;
47    public    public
48    end;    end;
49    
# Line 49  uses Unit3; Line 55  uses Unit3;
55    
56  procedure TAdminPage.FDQuery1AfterScroll(DataSet: TDataSet);  procedure TAdminPage.FDQuery1AfterScroll(DataSet: TDataSet);
57  begin  begin
58    IWDBGrid1.RowCurrentColor := 200;    if DM.FDTable5.MasterSource = DM.order then
59        IWDBGrid1.RowCurrentColor := TColorRec.Red
60      else
61        IWDBGrid1.RowCurrentColor := TColorRec.White;
62  end;  end;
63    
64  procedure TAdminPage.IWAppFormCreate(Sender: TObject);  procedure TAdminPage.IWAppFormCreate(Sender: TObject);
65  begin  begin
66      if DM.FDTable5.MasterSource = nil then
67        DM.FDTable5.MasterSource := DM.order;
68      DM.FDTable6.First;
69    FDQuery1.Open;    FDQuery1.Open;
   IWDBLabel1.DataField := 'ID';  
   IWDBLabel2.DataField := 'ADDRESS';  
70  end;  end;
71    
72  procedure TAdminPage.IWButton1Click(Sender: TObject);  procedure TAdminPage.IWButton1Click(Sender: TObject);
# Line 108  begin Line 118  begin
118    FDQuery1AfterScroll(nil);    FDQuery1AfterScroll(nil);
119  end;  end;
120    
121    procedure TAdminPage.IWCheckBox1Change(Sender: TObject);
122    begin
123      with Sender as TIWCheckBox do
124      begin
125        Checked := true;
126        if DM.FDTable5.Locate('KEYFIELD', Tag) = true then
127        begin
128          DM.FDTable5.Edit;
129          DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;
130          DM.FDTable5.Post;
131        end;
132      end;
133    end;
134    
135    procedure TAdminPage.IWDBGrid2Render(Sender: TObject);
136    begin
137      dummy.Free;
138      dummy := TComponent.Create(IWDBGrid2);
139      DM.FDTable5.First;
140    end;
141    
142    procedure TAdminPage.IWDBGrid2RenderCell(ACell: TIWGridCell;
143      const ARow, AColumn: Integer);
144    var
145      s: TIWCheckBox;
146    begin
147      if (ARow > 0) and (AColumn = 4) then
148      begin
149        s := TIWCheckBox.Create(dummy);
150        s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
151        s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;
152        s.OnChange := IWCheckBox1Change;
153        s.Caption := s.Tag.ToString;
154        ACell.Control := s;
155      end;
156    end;
157    
158  procedure TAdminPage.IWDBNavigator1First(Sender: TObject);  procedure TAdminPage.IWDBNavigator1First(Sender: TObject);
159  begin  begin
160    Dm.FDTable6.First;    DM.FDTable6.First;
161  end;  end;
162    
163  procedure TAdminPage.IWDBNavigator1Last(Sender: TObject);  procedure TAdminPage.IWDBNavigator1Last(Sender: TObject);
Legend:
Removed from v.14  
changed lines
  Added in v.17
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help