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 14 by yamat0jp, Fri Jul 29 10:50:16 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;
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    public    public
42    end;    end;
43    
# Line 34  implementation Line 47  implementation
47    
48  uses Unit3;  uses Unit3;
49    
50  procedure TIWForm3.IWAppFormCreate(Sender: TObject);  procedure TAdminPage.FDQuery1AfterScroll(DataSet: TDataSet);
 var  
   s: string;  
51  begin  begin
52    IWComboBox1.Items.Clear;    IWDBGrid1.RowCurrentColor := 200;
   IWComboBox1.Items.Add(' -- All -- ');  
   IWComboBox1.ItemIndex := 0;  
   DM.FDQuery1.Open('select * from order_data order by email;');  
   while DM.FDQuery1.Eof = false do  
   begin  
     s := DM.FDQuery1.FieldByName('USER').AsString + '=' +  
       DM.FDQuery1.FieldByName('EMAIL').AsString;  
     if IWComboBox1.Items.IndexOf(s) = -1 then  
       IWComboBox1.Items.Add(s);  
     DM.FDQuery1.Next;  
   end;  
53  end;  end;
54    
55  procedure TIWForm3.IWAppFormRender(Sender: TObject);  procedure TAdminPage.IWAppFormCreate(Sender: TObject);
 var  
   i: integer;  
   j: integer;  
56  begin  begin
57    IWGrid1.RowCount := DM.FDQuery1.RecordCount + 1;    FDQuery1.Open;
58    with IWGrid1 do    IWDBLabel1.DataField := 'ID';
59    begin    IWDBLabel2.DataField := 'ADDRESS';
     Cell[0, 0].Text := '日付';  
     Cell[0, 1].Text := 'ご注文';  
     Cell[0, 2].Text := 'メーカー';  
     Cell[0, 3].Text := '個数';  
   end;  
   DM.FDQuery1.First;  
   for i := 1 to IWGrid1.RowCount - 1 do  
   begin  
     for j := 0 to IWGrid1.ColumnCount - 1 do  
       IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields.Fields[j + 4].AsString;  
     DM.FDQuery1.Next;  
   end;  
60  end;  end;
61    
62  procedure TIWForm3.IWButton1Click(Sender: TObject);  procedure TAdminPage.IWButton1Click(Sender: TObject);
63  begin  begin
64    IWAppFormCreate(Sender);    if DM.FDTable5.MasterSource = DM.order then
65    IWAppFormRender(Sender);      DM.FDTable5.MasterSource := nil
66      else
67        DM.FDTable5.MasterSource := DM.order;
68  end;  end;
69    
70  procedure TIWForm3.IWButton4Click(Sender: TObject);  procedure TAdminPage.IWButton4Click(Sender: TObject);
71  begin  begin
72    Release;    Release;
73  end;  end;
74    
75  procedure TIWForm3.IWComboBox1Change(Sender: TObject);  procedure TAdminPage.IWButton5Click(Sender: TObject);
76    var
77      x: Boolean;
78  begin  begin
79    if IWComboBox1.ItemIndex = 0 then    DM.FDTable5.MasterSource := DM.order;
80    begin    DM.FDTable6.First;
81      DM.FDQuery1.Filtered := false;    while DM.FDTable6.Eof = false do
     IWLabel1.Text := '';  
     IWLabel2.Text := '';  
   end  
   else  
82    begin    begin
83      DM.FDQuery1.Filter := 'EMAIL = ' +      DM.FDTable5.First;
84        QuotedStr(IWComboBox1.Items.ValueFromIndex[IWComboBox1.ItemIndex]);      x := true;
85      DM.FDQuery1.Filtered := true;;      while DM.FDTable5.Eof = false do
86      IWLabel1.Text := DM.FDQuery1.FieldByName('ADDRESS').AsString;      begin
87      IWLabel2.Text := DM.FDQuery1.FieldByName('USER').AsString;        if DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean = false then
88          begin
89            x := false;
90            break;
91          end;
92          DM.FDTable5.Next;
93        end;
94        if x = true then
95        begin
96          DM.FDTable5.First;
97          while DM.FDTable5.Eof = false do
98            DM.FDTable5.Delete;
99          DM.FDTable4.Delete;
100          DM.FDTable6.Delete;
101        end
102        else
103          DM.FDTable6.Next;
104    end;    end;
105    IWAppFormRender(Sender);    DM.FDTable6.First;
106      FDQuery1.Close;
107      FDQuery1.Open;
108      FDQuery1AfterScroll(nil);
109    end;
110    
111    procedure TAdminPage.IWDBNavigator1First(Sender: TObject);
112    begin
113      Dm.FDTable6.First;
114    end;
115    
116    procedure TAdminPage.IWDBNavigator1Last(Sender: TObject);
117    begin
118      DM.FDTable6.Last;
119    end;
120    
121    procedure TAdminPage.IWDBNavigator1Next(Sender: TObject);
122    begin
123      DM.FDTable6.Next;
124    end;
125    
126    procedure TAdminPage.IWDBNavigator1Prior(Sender: TObject);
127    begin
128      DM.FDTable6.Prior;
129  end;  end;
130    
131  end.  end.
Legend:
Removed from v.10  
changed lines
  Added in v.14
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help