Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit13.pas

Diff of /Unit13.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by yamat0jp, Sat Aug 27 11:00:30 2016 UTC revision 19 by yamat0jp, Sat Aug 27 13:22:00 2016 UTC
# Line 32  type Line 32  type
32      procedure IWRadioGroup2Click(Sender: TObject);      procedure IWRadioGroup2Click(Sender: TObject);
33      procedure IWButton2Click(Sender: TObject);      procedure IWButton2Click(Sender: TObject);
34    private    private
35        str: string;
36      dummy: TComponent;      dummy: TComponent;
37      procedure Agree(Sender: TObject);      procedure Agree(Sender: TObject);
38    public    public
# Line 45  uses Unit3, ServerController; Line 46  uses Unit3, ServerController;
46    
47  procedure TMasterForm.Agree(Sender: TObject);  procedure TMasterForm.Agree(Sender: TObject);
48  begin  begin
49    if FDQuery1.Locate('SERIAL', (Sender as TIWButton).Tag) = true then    if (IWRadioGroup1.ItemIndex = 1) and
50        (FDQuery1.Locate('SERIAL', (Sender as TIWButton).Tag) = true) then
51    begin    begin
52      if FDQuery1.FieldByName('SERIAL').AsInteger = -1 then      if FDQuery1.FieldByName('SERIAL').AsInteger = -1 then
53        FDQuery1.Delete        FDQuery1.Delete
# Line 62  end; Line 64  end;
64  procedure TMasterForm.IWAppFormCreate(Sender: TObject);  procedure TMasterForm.IWAppFormCreate(Sender: TObject);
65  begin  begin
66    FDQuery1.Open;    FDQuery1.Open;
67      if DM.FDTable3.FieldByName('ENABLE').AsBoolean = true then
68        IWRadioGroup1.ItemIndex := 0
69      else
70        IWRadioGroup1.ItemIndex := 1;
71    IWRadioGroup1Click(Sender);    IWRadioGroup1Click(Sender);
72  end;  end;
73    
# Line 157  var Line 163  var
163  begin  begin
164    if (ARow = 0) or (IWRadioGroup2.ItemIndex <> 0) then    if (ARow = 0) or (IWRadioGroup2.ItemIndex <> 0) then
165      Exit;      Exit;
166    if AColumn = FDQuery1.FieldByName('THUMBNAIL').Index then    case AColumn of
167    begin      0:
168      s := TIWImage.Create(dummy);        if FDQuery1.FieldByName('SERIAL').AsInteger = -1 then
169      UserSession.FieldToImg(s.Picture, FDQuery1.FieldByName('THUMBNAIL'));          str := '削除'
170      ACell.Control := s;        else
171    end          str := '追加';
172    else if AColumn = FDQuery1.FieldByName('AGREE').Index then      3:
173    begin        begin
174      t := TIWButton.Create(dummy);          s := TIWImage.Create(dummy);
175      t.Tag := FDQuery1.FieldByName('SERIAL').AsInteger;          UserSession.FieldToImg(s.Picture, FDQuery1.FieldByName('THUMBNAIL'));
176      t.OnClick := Agree;          ACell.Control := s;
177      ACell.Control := t;        end;
178        9:
179          begin
180            t := TIWButton.Create(dummy);
181            t.Tag := FDQuery1.FieldByName('SERIAL').AsInteger;
182            t.Caption := str;
183            t.OnClick := Agree;
184            ACell.Control := t;
185          end;
186    end;    end;
187  end;  end;
188    
189  procedure TMasterForm.IWRadioGroup1Click(Sender: TObject);  procedure TMasterForm.IWRadioGroup1Click(Sender: TObject);
190    var
191      x: Boolean;
192  begin  begin
193    IWButton1.Enabled := IWRadioGroup1.ItemIndex = 1;    x := IWRadioGroup1.ItemIndex = 0;
194      IWButton1.Enabled := not x;
195      if Sender <> Self then
196        with DM.FDTable3 do
197        begin
198          Edit;
199          FieldByName('ENABLE').AsBoolean := x;
200          Post;
201        end;
202  end;  end;
203    
204  procedure TMasterForm.IWRadioGroup2Click(Sender: TObject);  procedure TMasterForm.IWRadioGroup2Click(Sender: TObject);
Legend:
Removed from v.18  
changed lines
  Added in v.19
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help