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 12 by yamat0jp, Sun Jul 24 06:09:44 2016 UTC revision 13 by yamat0jp, Tue Jul 26 09:17:38 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, IWCompCheckbox, System.Variants;    IWCompLabel, IWDBStdCtrls, IWCompCheckbox, System.Variants, IWDBGrids;
11    
12  type  type
13    TAdminPage = class(TIWAppForm)    TAdminPage = class(TIWAppForm)
# Line 17  type Line 17  type
17      IWButton4: TIWButton;      IWButton4: TIWButton;
18      IWGrid1: TIWGrid;      IWGrid1: TIWGrid;
19      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
     IWLabel1: TIWLabel;  
     IWLabel2: TIWLabel;  
20      IWCheckBox1: TIWCheckBox;      IWCheckBox1: TIWCheckBox;
21      IWListbox1: TIWListbox;      IWDBLabel1: TIWDBLabel;
22        IWDBLabel2: TIWDBLabel;
23        IWDBGrid1: TIWDBGrid;
24        IWDBNavigator1: TIWDBNavigator;
25        IWButton5: TIWButton;
26      procedure IWButton1Click(Sender: TObject);      procedure IWButton1Click(Sender: TObject);
27      procedure IWButton4Click(Sender: TObject);      procedure IWButton4Click(Sender: TObject);
     procedure IWAppFormCreate(Sender: TObject);  
28      procedure IWGrid1Render(Sender: TObject);      procedure IWGrid1Render(Sender: TObject);
29      procedure IWCheckBox1Change(Sender: TObject);      procedure IWCheckBox1Change(Sender: TObject);
30      procedure IWListbox1Change(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
31        procedure IWButton5Click(Sender: TObject);
32    public    public
33    end;    end;
34    
# Line 38  uses Unit3; Line 40  uses Unit3;
40    
41  procedure TAdminPage.IWAppFormCreate(Sender: TObject);  procedure TAdminPage.IWAppFormCreate(Sender: TObject);
42  begin  begin
43    IWListbox1.Items.Clear;    with DM.FDQuery1 do
   IWListbox1.Items.Add(' -- ALL --');  
   IWListbox1.ItemIndex := 0;  
   DM.FDTable6.First;  
   while DM.FDTable6.Eof = false do  
44    begin    begin
45      IWListbox1.Items.Add('注文 '+DM.FDTable6.FieldByName('ORDER').AsString);      SQL.Clear;
46      DM.FDTable6.Next;      SQL.Add('select id,address,email from order_data,user_info');
47        SQL.Add(' where order_data.number = user_info.number;');
48        Open;
49    end;    end;
50  end;  end;
51    
52  procedure TAdminPage.IWButton1Click(Sender: TObject);  procedure TAdminPage.IWButton1Click(Sender: TObject);
53  begin  begin
54    IWGrid1Render(nil);    if DM.FDTable5.MasterSource = DM.order then
55        DM.FDTable5.MasterSource := nil
56      else
57        DM.FDTable5.MasterSource := DM.order;
58  end;  end;
59    
60  procedure TAdminPage.IWButton4Click(Sender: TObject);  procedure TAdminPage.IWButton4Click(Sender: TObject);
# Line 59  begin Line 62  begin
62    Release;    Release;
63  end;  end;
64    
65    procedure TAdminPage.IWButton5Click(Sender: TObject);
66    var
67      x: Boolean;
68    begin
69      DM.FDTable5.MasterSource := DM.order;
70      DM.FDTable6.First;
71      while DM.FDTable6.Eof = false do
72      begin
73        DM.FDTable5.First;
74        x := true;
75        while DM.FDTable5.Eof = false do
76        begin
77          if DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean = false then
78          begin
79            x := false;
80            break;
81          end;
82          DM.FDTable5.Next;
83        end;
84        if x = true then
85        begin
86          DM.FDTable5.First;
87          while DM.FDTable5.Eof = false do
88            DM.FDTable5.Delete;
89          DM.FDTable4.Delete;
90          DM.FDTable6.Delete;
91          DM.FDQuery1.Close;
92          DM.FDQuery1.Open;
93        end
94        else
95          DM.FDTable6.Next;
96      end;
97    end;
98    
99  procedure TAdminPage.IWCheckBox1Change(Sender: TObject);  procedure TAdminPage.IWCheckBox1Change(Sender: TObject);
100  begin  begin
101    with Sender as TIWCheckBox do    with Sender as TIWCheckBox do
# Line 67  begin Line 104  begin
104      begin      begin
105        DM.FDTable5.Edit;        DM.FDTable5.Edit;
106        DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;        DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;
       // DM.FDTable6.FieldByName('DATE').AsDateTime := Date;  
107        DM.FDTable5.Post;        DM.FDTable5.Post;
108      end;      end;
109  end;  end;
# Line 75  end; Line 111  end;
111  procedure TAdminPage.IWGrid1Render(Sender: TObject);  procedure TAdminPage.IWGrid1Render(Sender: TObject);
112  var  var
113    i: integer;    i: integer;
   j: integer;  
114    s: TIWCheckBox;    s: TIWCheckBox;
115  begin  begin
116    for i := 1 to IWGrid1.RowCount - 1 do    for i := 1 to IWGrid1.RowCount - 1 do
117      IWGrid1.Cell[i, 4].Control.Free;      IWGrid1.Cell[i, 4].Control.Free;
118    IWGrid1.RowCount := DM.FDQuery1.RecordCount + 1;    IWGrid1.RowCount := DM.FDTable5.RecordCount + 1;
119    with IWGrid1 do    with IWGrid1 do
120    begin    begin
121      Cell[0, 0].Text := '日付';      Cell[0, 0].Text := '日付';
# Line 89  begin Line 124  begin
124      Cell[0, 3].Text := '個数';      Cell[0, 3].Text := '個数';
125      Cell[0, 4].Text := '発送済み';      Cell[0, 4].Text := '発送済み';
126    end;    end;
127    DM.FDTable6.First;    DM.FDTable5.First;
128    while DM.FDTable6.Eof = false do    i := 1;
129      while DM.FDTable5.Eof = false do
130    begin    begin
131      DM.FDTable5.First;      IWGrid1.Cell[i, 0].Text := DM.FDTable6.FieldByName('DATE').AsString;
132      while DM.FDTable5.Eof = false do      IWGrid1.Cell[i, 1].Text := DM.FDTable5.FieldByName('NAME').AsString;
133      begin      IWGrid1.Cell[i, 2].Text := DM.FDTable5.FieldByName('MAKER').AsString;
134        IWGrid1.Cell[i, 0].Text := DM.FDTable6.FieldByName('DATE').AsString;      IWGrid1.Cell[i, 3].Text := DM.FDTable5.FieldByName('VOLUME').AsString;
135        IWGrid1.Cell[i, 1].Text := DM.FDTable5.FieldByName('NAME').AsString;      s := TIWCheckBox.Create(IWGrid1);
136        IWGrid1.Cell[i, 2].Text := DM.FDTable5.FieldByName('MAKER').AsString;      s.Text := '発送済み';
137        IWGrid1.Cell[i, 3].Text := DM.FDTable5.FieldByName('VOLUME').AsString;      s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;
138        s := TIWCheckBox.Create(IWGrid1);      s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
139        s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;      s.OnChange := IWCheckBox1Change;
140        s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;      IWGrid1.Cell[i, 4].Control := s;
141        s.OnChange := IWCheckBox1Change;      DM.FDTable5.Next;
142        IWGrid1.Cell[i, 4].Control := s;      inc(i);
       DM.FDTable5.Next;  
     end;  
     DM.FDTable6.Next;  
   end;  
 end;  
   
 procedure TAdminPage.IWListbox1Change(Sender: TObject);  
 var  
   s: string;  
 begin  
   if IWListbox1.ItemIndex = 0 then  
   begin  
     DM.FDQuery1.Filtered := false;  
     IWLabel1.Text := '';  
     IWLabel2.Text := '';  
   end  
   else  
   begin  
     s := IWListbox1.Items.ValueFromIndex[IWListbox1.ItemIndex];  
   
     DM.FDQuery1.Filtered := true;;  
     IWLabel1.Text := DM.FDQuery1.FieldByName('ADDRESS').AsString;  
     IWLabel2.Text := DM.FDQuery1.FieldByName('ID').AsString;  
143    end;    end;
   IWGrid1Render(nil);  
144  end;  end;
145    
146  end.  end.
Legend:
Removed from v.12  
changed lines
  Added in v.13
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help