Browse Subversion Repository
Diff of /Unit3.pas
 Parent Directory
|  Revision Log
|  Patch
| 91 |
FDTableViewSERIAL: TIntegerField; |
FDTableViewSERIAL: TIntegerField; |
| 92 |
view: TDataSource; |
view: TDataSource; |
| 93 |
FDTable5SERIAL: TIntegerField; |
FDTable5SERIAL: TIntegerField; |
| 94 |
|
FDTableViewACTIVATE: TBooleanField; |
| 95 |
|
FDTableViewAGREE: TBooleanField; |
| 96 |
|
FDTable2AGREE: TBooleanField; |
| 97 |
|
procedure FDTableViewAfterInsert(DataSet: TDataSet); |
| 98 |
private |
private |
| 99 |
{ Private 宣言 } |
{ Private 宣言 } |
| 100 |
public |
public |
| 116 |
result:=UserSession.DM; |
result:=UserSession.DM; |
| 117 |
end; |
end; |
| 118 |
|
|
| 119 |
|
procedure TDataModule3.FDTableViewAfterInsert(DataSet: TDataSet); |
| 120 |
|
begin |
| 121 |
|
FDTableView.FieldByName('AGREE').AsBoolean := true; |
| 122 |
|
FDTableView.FieldByName('ACTIVATE').AsBoolean := true; |
| 123 |
|
end; |
| 124 |
|
|
| 125 |
end. |
end. |
|
|
Legend:
| Removed from v.17 |
|
| changed lines |
| |
Added in v.18 |
|
|
| 
Parent Directory
Revision Log
Patch