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 12 by yamat0jp, Sun Jul 24 06:09:44 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;
11    
12  type  type
13    TIWForm3 = class(TIWAppForm)    TAdminPage = class(TIWAppForm)
14      IWButton1: TIWButton;      IWButton1: TIWButton;
15      IWButton2: TIWButton;      IWButton2: TIWButton;
16      IWButton3: TIWButton;      IWButton3: TIWButton;
17      IWButton4: TIWButton;      IWButton4: TIWButton;
18      IWGrid1: TIWGrid;      IWGrid1: TIWGrid;
     IWComboBox1: TIWComboBox;  
19      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
20      IWLabel1: TIWLabel;      IWLabel1: TIWLabel;
21      IWLabel2: TIWLabel;      IWLabel2: TIWLabel;
22        IWCheckBox1: TIWCheckBox;
23        IWListbox1: TIWListbox;
24      procedure IWButton1Click(Sender: TObject);      procedure IWButton1Click(Sender: TObject);
     procedure IWAppFormRender(Sender: TObject);  
25      procedure IWButton4Click(Sender: TObject);      procedure IWButton4Click(Sender: TObject);
26      procedure IWAppFormCreate(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
27      procedure IWComboBox1Change(Sender: TObject);      procedure IWGrid1Render(Sender: TObject);
28        procedure IWCheckBox1Change(Sender: TObject);
29        procedure IWListbox1Change(Sender: TObject);
30    public    public
31    end;    end;
32    
# Line 34  implementation Line 36  implementation
36    
37  uses Unit3;  uses Unit3;
38    
39  procedure TIWForm3.IWAppFormCreate(Sender: TObject);  procedure TAdminPage.IWAppFormCreate(Sender: TObject);
 var  
   s: string;  
40  begin  begin
41    IWComboBox1.Items.Clear;    IWListbox1.Items.Clear;
42    IWComboBox1.Items.Add(' -- All -- ');    IWListbox1.Items.Add(' -- ALL --');
43    IWComboBox1.ItemIndex := 0;    IWListbox1.ItemIndex := 0;
44    DM.FDQuery1.Open('select * from order_data order by email;');    DM.FDTable6.First;
45    while DM.FDQuery1.Eof = false do    while DM.FDTable6.Eof = false do
46    begin    begin
47      s := DM.FDQuery1.FieldByName('USER').AsString + '=' +      IWListbox1.Items.Add('注文 '+DM.FDTable6.FieldByName('ORDER').AsString);
48        DM.FDQuery1.FieldByName('EMAIL').AsString;      DM.FDTable6.Next;
     if IWComboBox1.Items.IndexOf(s) = -1 then  
       IWComboBox1.Items.Add(s);  
     DM.FDQuery1.Next;  
49    end;    end;
50  end;  end;
51    
52  procedure TIWForm3.IWAppFormRender(Sender: TObject);  procedure TAdminPage.IWButton1Click(Sender: TObject);
53    begin
54      IWGrid1Render(nil);
55    end;
56    
57    procedure TAdminPage.IWButton4Click(Sender: TObject);
58    begin
59      Release;
60    end;
61    
62    procedure TAdminPage.IWCheckBox1Change(Sender: TObject);
63    begin
64      with Sender as TIWCheckBox do
65        if (Checked = true) and (DM.FDTable5.Locate('KEYFIELD', Tag, []) = true)
66        then
67        begin
68          DM.FDTable5.Edit;
69          DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;
70          // DM.FDTable6.FieldByName('DATE').AsDateTime := Date;
71          DM.FDTable5.Post;
72        end;
73    end;
74    
75    procedure TAdminPage.IWGrid1Render(Sender: TObject);
76  var  var
77    i: integer;    i: integer;
78    j: integer;    j: integer;
79      s: TIWCheckBox;
80  begin  begin
81      for i := 1 to IWGrid1.RowCount - 1 do
82        IWGrid1.Cell[i, 4].Control.Free;
83    IWGrid1.RowCount := DM.FDQuery1.RecordCount + 1;    IWGrid1.RowCount := DM.FDQuery1.RecordCount + 1;
84    with IWGrid1 do    with IWGrid1 do
85    begin    begin
# Line 64  begin Line 87  begin
87      Cell[0, 1].Text := 'ご注文';      Cell[0, 1].Text := 'ご注文';
88      Cell[0, 2].Text := 'メーカー';      Cell[0, 2].Text := 'メーカー';
89      Cell[0, 3].Text := '個数';      Cell[0, 3].Text := '個数';
90        Cell[0, 4].Text := '発送済み';
91    end;    end;
92    DM.FDQuery1.First;    DM.FDTable6.First;
93    for i := 1 to IWGrid1.RowCount - 1 do    while DM.FDTable6.Eof = false do
94    begin    begin
95      for j := 0 to IWGrid1.ColumnCount - 1 do      DM.FDTable5.First;
96        IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields.Fields[j + 4].AsString;      while DM.FDTable5.Eof = false do
97      DM.FDQuery1.Next;      begin
98          IWGrid1.Cell[i, 0].Text := DM.FDTable6.FieldByName('DATE').AsString;
99          IWGrid1.Cell[i, 1].Text := DM.FDTable5.FieldByName('NAME').AsString;
100          IWGrid1.Cell[i, 2].Text := DM.FDTable5.FieldByName('MAKER').AsString;
101          IWGrid1.Cell[i, 3].Text := DM.FDTable5.FieldByName('VOLUME').AsString;
102          s := TIWCheckBox.Create(IWGrid1);
103          s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;
104          s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
105          s.OnChange := IWCheckBox1Change;
106          IWGrid1.Cell[i, 4].Control := s;
107          DM.FDTable5.Next;
108        end;
109        DM.FDTable6.Next;
110    end;    end;
111  end;  end;
112    
113  procedure TIWForm3.IWButton1Click(Sender: TObject);  procedure TAdminPage.IWListbox1Change(Sender: TObject);
114  begin  var
115    IWAppFormCreate(Sender);    s: string;
   IWAppFormRender(Sender);  
 end;  
   
 procedure TIWForm3.IWButton4Click(Sender: TObject);  
 begin  
   Release;  
 end;  
   
 procedure TIWForm3.IWComboBox1Change(Sender: TObject);  
116  begin  begin
117    if IWComboBox1.ItemIndex = 0 then    if IWListbox1.ItemIndex = 0 then
118    begin    begin
119      DM.FDQuery1.Filtered := false;      DM.FDQuery1.Filtered := false;
120      IWLabel1.Text := '';      IWLabel1.Text := '';
# Line 95  begin Line 122  begin
122    end    end
123    else    else
124    begin    begin
125      DM.FDQuery1.Filter := 'EMAIL = ' +      s := IWListbox1.Items.ValueFromIndex[IWListbox1.ItemIndex];
126        QuotedStr(IWComboBox1.Items.ValueFromIndex[IWComboBox1.ItemIndex]);  
127      DM.FDQuery1.Filtered := true;;      DM.FDQuery1.Filtered := true;;
128      IWLabel1.Text := DM.FDQuery1.FieldByName('ADDRESS').AsString;      IWLabel1.Text := DM.FDQuery1.FieldByName('ADDRESS').AsString;
129      IWLabel2.Text := DM.FDQuery1.FieldByName('USER').AsString;      IWLabel2.Text := DM.FDQuery1.FieldByName('ID').AsString;
130    end;    end;
131    IWAppFormRender(Sender);    IWGrid1Render(nil);
132  end;  end;
133    
134  end.  end.
Legend:
Removed from v.10  
changed lines
  Added in v.12
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help