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 13 by yamat0jp, Tue Jul 26 09:17:38 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, IWCompCheckbox, System.Variants, IWDBGrids;    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    TAdminPage = class(TIWAppForm)    TAdminPage = class(TIWAppForm)
# Line 15  type Line 19  type
19      IWButton2: TIWButton;      IWButton2: TIWButton;
20      IWButton3: TIWButton;      IWButton3: TIWButton;
21      IWButton4: TIWButton;      IWButton4: TIWButton;
     IWGrid1: TIWGrid;  
22      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
23      IWCheckBox1: TIWCheckBox;      IWCheckBox1: TIWCheckBox;
24      IWDBLabel1: TIWDBLabel;      IWDBLabel1: TIWDBLabel;
# Line 23  type Line 26  type
26      IWDBGrid1: TIWDBGrid;      IWDBGrid1: TIWDBGrid;
27      IWDBNavigator1: TIWDBNavigator;      IWDBNavigator1: TIWDBNavigator;
28      IWButton5: TIWButton;      IWButton5: TIWButton;
29        IWDBGrid2: TIWDBGrid;
30        FDQuery1: TFDQuery;
31        user_info: TDataSource;
32      procedure IWButton1Click(Sender: TObject);      procedure IWButton1Click(Sender: TObject);
33      procedure IWButton4Click(Sender: TObject);      procedure IWButton4Click(Sender: TObject);
     procedure IWGrid1Render(Sender: TObject);  
     procedure IWCheckBox1Change(Sender: TObject);  
34      procedure IWAppFormCreate(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
35      procedure IWButton5Click(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 38  implementation Line 47  implementation
47    
48  uses Unit3;  uses Unit3;
49    
50    procedure TAdminPage.FDQuery1AfterScroll(DataSet: TDataSet);
51    begin
52      IWDBGrid1.RowCurrentColor := 200;
53    end;
54    
55  procedure TAdminPage.IWAppFormCreate(Sender: TObject);  procedure TAdminPage.IWAppFormCreate(Sender: TObject);
56  begin  begin
57    with DM.FDQuery1 do    FDQuery1.Open;
58    begin    IWDBLabel1.DataField := 'ID';
59      SQL.Clear;    IWDBLabel2.DataField := 'ADDRESS';
     SQL.Add('select id,address,email from order_data,user_info');  
     SQL.Add(' where order_data.number = user_info.number;');  
     Open;  
   end;  
60  end;  end;
61    
62  procedure TAdminPage.IWButton1Click(Sender: TObject);  procedure TAdminPage.IWButton1Click(Sender: TObject);
# Line 88  begin Line 98  begin
98          DM.FDTable5.Delete;          DM.FDTable5.Delete;
99        DM.FDTable4.Delete;        DM.FDTable4.Delete;
100        DM.FDTable6.Delete;        DM.FDTable6.Delete;
       DM.FDQuery1.Close;  
       DM.FDQuery1.Open;  
101      end      end
102      else      else
103        DM.FDTable6.Next;        DM.FDTable6.Next;
104    end;    end;
105      DM.FDTable6.First;
106      FDQuery1.Close;
107      FDQuery1.Open;
108      FDQuery1AfterScroll(nil);
109  end;  end;
110    
111  procedure TAdminPage.IWCheckBox1Change(Sender: TObject);  procedure TAdminPage.IWDBNavigator1First(Sender: TObject);
112  begin  begin
113    with Sender as TIWCheckBox do    Dm.FDTable6.First;
     if (Checked = true) and (DM.FDTable5.Locate('KEYFIELD', Tag, []) = true)  
     then  
     begin  
       DM.FDTable5.Edit;  
       DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;  
       DM.FDTable5.Post;  
     end;  
114  end;  end;
115    
116  procedure TAdminPage.IWGrid1Render(Sender: TObject);  procedure TAdminPage.IWDBNavigator1Last(Sender: TObject);
 var  
   i: integer;  
   s: TIWCheckBox;  
117  begin  begin
118    for i := 1 to IWGrid1.RowCount - 1 do    DM.FDTable6.Last;
119      IWGrid1.Cell[i, 4].Control.Free;  end;
120    IWGrid1.RowCount := DM.FDTable5.RecordCount + 1;  
121    with IWGrid1 do  procedure TAdminPage.IWDBNavigator1Next(Sender: TObject);
122    begin  begin
123      Cell[0, 0].Text := '日付';    DM.FDTable6.Next;
124      Cell[0, 1].Text := 'ご注文';  end;
125      Cell[0, 2].Text := 'メーカー';  
126      Cell[0, 3].Text := '個数';  procedure TAdminPage.IWDBNavigator1Prior(Sender: TObject);
127      Cell[0, 4].Text := '発送済み';  begin
128    end;    DM.FDTable6.Prior;
   DM.FDTable5.First;  
   i := 1;  
   while DM.FDTable5.Eof = false do  
   begin  
     IWGrid1.Cell[i, 0].Text := DM.FDTable6.FieldByName('DATE').AsString;  
     IWGrid1.Cell[i, 1].Text := DM.FDTable5.FieldByName('NAME').AsString;  
     IWGrid1.Cell[i, 2].Text := DM.FDTable5.FieldByName('MAKER').AsString;  
     IWGrid1.Cell[i, 3].Text := DM.FDTable5.FieldByName('VOLUME').AsString;  
     s := TIWCheckBox.Create(IWGrid1);  
     s.Text := '発送済み';  
     s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;  
     s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;  
     s.OnChange := IWCheckBox1Change;  
     IWGrid1.Cell[i, 4].Control := s;  
     DM.FDTable5.Next;  
     inc(i);  
   end;  
129  end;  end;
130    
131  end.  end.
Legend:
Removed from v.13  
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