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 10 by yamat0jp, Sat Jan 16 23:06:35 2016 UTC revision 17 by yamat0jp, Wed Aug 24 12:31:07 2016 UTC
# Line 7  uses Line 7  uses
7    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
8    IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,    IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
9    IWBaseHTMLControl, IWControl, IWCompButton, IWCompGrids, IWCompListbox,    IWBaseHTMLControl, IWControl, IWCompButton, IWCompGrids, IWCompListbox,
10    IWCompLabel, IWDBStdCtrls;    IWCompLabel, IWDBStdCtrls, IWCompCheckbox, System.Variants, IWDBGrids,
11      FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
12      FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
13      FireDAC.Stan.Async, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
14      FireDAC.Comp.Client, UITypes;
15    
16  type  type
17    TIWForm3 = class(TIWAppForm)    TAdminPage = class(TIWAppForm)
18      IWButton1: TIWButton;      IWButton1: TIWButton;
19      IWButton2: TIWButton;      IWButton2: TIWButton;
20      IWButton3: TIWButton;      IWButton3: TIWButton;
21      IWButton4: TIWButton;      IWButton4: TIWButton;
     IWGrid1: TIWGrid;  
     IWComboBox1: TIWComboBox;  
22      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
23      IWLabel1: TIWLabel;      IWCheckBox1: TIWCheckBox;
24      IWLabel2: TIWLabel;      IWDBLabel1: TIWDBLabel;
25        IWDBLabel2: TIWDBLabel;
26        IWDBGrid1: TIWDBGrid;
27        IWDBNavigator1: TIWDBNavigator;
28        IWButton5: TIWButton;
29        IWDBGrid2: TIWDBGrid;
30        FDQuery1: TFDQuery;
31        user_info: TDataSource;
32      procedure IWButton1Click(Sender: TObject);      procedure IWButton1Click(Sender: TObject);
     procedure IWAppFormRender(Sender: TObject);  
33      procedure IWButton4Click(Sender: TObject);      procedure IWButton4Click(Sender: TObject);
34      procedure IWAppFormCreate(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
35      procedure IWComboBox1Change(Sender: TObject);      procedure IWButton5Click(Sender: TObject);
36        procedure FDQuery1AfterScroll(DataSet: TDataSet);
37        procedure IWDBNavigator1First(Sender: TObject);
38        procedure IWDBNavigator1Last(Sender: TObject);
39        procedure IWDBNavigator1Next(Sender: TObject);
40        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 34  implementation Line 53  implementation
53    
54  uses Unit3;  uses Unit3;
55    
56  procedure TIWForm3.IWAppFormCreate(Sender: TObject);  procedure TAdminPage.FDQuery1AfterScroll(DataSet: TDataSet);
57    begin
58      if DM.FDTable5.MasterSource = DM.order then
59        IWDBGrid1.RowCurrentColor := TColorRec.Red
60      else
61        IWDBGrid1.RowCurrentColor := TColorRec.White;
62    end;
63    
64    procedure TAdminPage.IWAppFormCreate(Sender: TObject);
65    begin
66      if DM.FDTable5.MasterSource = nil then
67        DM.FDTable5.MasterSource := DM.order;
68      DM.FDTable6.First;
69      FDQuery1.Open;
70    end;
71    
72    procedure TAdminPage.IWButton1Click(Sender: TObject);
73    begin
74      if DM.FDTable5.MasterSource = DM.order then
75        DM.FDTable5.MasterSource := nil
76      else
77        DM.FDTable5.MasterSource := DM.order;
78    end;
79    
80    procedure TAdminPage.IWButton4Click(Sender: TObject);
81    begin
82      Release;
83    end;
84    
85    procedure TAdminPage.IWButton5Click(Sender: TObject);
86  var  var
87    s: string;    x: Boolean;
88  begin  begin
89    IWComboBox1.Items.Clear;    DM.FDTable5.MasterSource := DM.order;
90    IWComboBox1.Items.Add(' -- All -- ');    DM.FDTable6.First;
91    IWComboBox1.ItemIndex := 0;    while DM.FDTable6.Eof = false do
   DM.FDQuery1.Open('select * from order_data order by email;');  
   while DM.FDQuery1.Eof = false do  
92    begin    begin
93      s := DM.FDQuery1.FieldByName('USER').AsString + '=' +      DM.FDTable5.First;
94        DM.FDQuery1.FieldByName('EMAIL').AsString;      x := true;
95      if IWComboBox1.Items.IndexOf(s) = -1 then      while DM.FDTable5.Eof = false do
96        IWComboBox1.Items.Add(s);      begin
97      DM.FDQuery1.Next;        if DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean = false then
98          begin
99            x := false;
100            break;
101          end;
102          DM.FDTable5.Next;
103        end;
104        if x = true then
105        begin
106          DM.FDTable5.First;
107          while DM.FDTable5.Eof = false do
108            DM.FDTable5.Delete;
109          DM.FDTable4.Delete;
110          DM.FDTable6.Delete;
111        end
112        else
113          DM.FDTable6.Next;
114    end;    end;
115      DM.FDTable6.First;
116      FDQuery1.Close;
117      FDQuery1.Open;
118      FDQuery1AfterScroll(nil);
119  end;  end;
120    
121  procedure TIWForm3.IWAppFormRender(Sender: TObject);  procedure TAdminPage.IWCheckBox1Change(Sender: TObject);
 var  
   i: integer;  
   j: integer;  
122  begin  begin
123    IWGrid1.RowCount := DM.FDQuery1.RecordCount + 1;    with Sender as TIWCheckBox do
   with IWGrid1 do  
124    begin    begin
125      Cell[0, 0].Text := '日付';      Checked := true;
126      Cell[0, 1].Text := 'ご注文';      if DM.FDTable5.Locate('KEYFIELD', Tag) = true then
127      Cell[0, 2].Text := 'メーカー';      begin
128      Cell[0, 3].Text := '個数';        DM.FDTable5.Edit;
129          DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;
130          DM.FDTable5.Post;
131        end;
132    end;    end;
133    DM.FDQuery1.First;  end;
134    for i := 1 to IWGrid1.RowCount - 1 do  
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    begin
149      for j := 0 to IWGrid1.ColumnCount - 1 do      s := TIWCheckBox.Create(dummy);
150        IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields.Fields[j + 4].AsString;      s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
151      DM.FDQuery1.Next;      s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;
152        s.OnChange := IWCheckBox1Change;
153        s.Caption := s.Tag.ToString;
154        ACell.Control := s;
155    end;    end;
156  end;  end;
157    
158  procedure TIWForm3.IWButton1Click(Sender: TObject);  procedure TAdminPage.IWDBNavigator1First(Sender: TObject);
159  begin  begin
160    IWAppFormCreate(Sender);    DM.FDTable6.First;
   IWAppFormRender(Sender);  
161  end;  end;
162    
163  procedure TIWForm3.IWButton4Click(Sender: TObject);  procedure TAdminPage.IWDBNavigator1Last(Sender: TObject);
164  begin  begin
165    Release;    DM.FDTable6.Last;
166  end;  end;
167    
168  procedure TIWForm3.IWComboBox1Change(Sender: TObject);  procedure TAdminPage.IWDBNavigator1Next(Sender: TObject);
169  begin  begin
170    if IWComboBox1.ItemIndex = 0 then    DM.FDTable6.Next;
171    begin  end;
172      DM.FDQuery1.Filtered := false;  
173      IWLabel1.Text := '';  procedure TAdminPage.IWDBNavigator1Prior(Sender: TObject);
174      IWLabel2.Text := '';  begin
175    end    DM.FDTable6.Prior;
   else  
   begin  
     DM.FDQuery1.Filter := 'EMAIL = ' +  
       QuotedStr(IWComboBox1.Items.ValueFromIndex[IWComboBox1.ItemIndex]);  
     DM.FDQuery1.Filtered := true;;  
     IWLabel1.Text := DM.FDQuery1.FieldByName('ADDRESS').AsString;  
     IWLabel2.Text := DM.FDQuery1.FieldByName('USER').AsString;  
   end;  
   IWAppFormRender(Sender);  
176  end;  end;
177    
178  end.  end.
Legend:
Removed from v.10  
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