| リビジョン | e73b9295560f4a51513dc7494a00763f33bfae61 (tree) |
|---|---|
| 日時 | 2020-03-14 08:15:46 |
| 作者 | yamat0jp <terukohietori@gmai...> |
| コミッター | yamat0jp |
エラーが一か所 テストしたら結構動いている感じです
| @@ -165,12 +165,10 @@ procedure TDataModule1.createMagId(id: integer; out Data: TJSONObject); | ||
| 165 | 165 | var |
| 166 | 166 | i: integer; |
| 167 | 167 | begin |
| 168 | - FDQuery1.SQL.Clear; | |
| 169 | - FDQuery1.SQL.Add('select MAX(magId) as count from mag;'); | |
| 170 | - FDQuery1.Open; | |
| 171 | - i := FDQuery1.FieldByName('count').AsInteger + 1; | |
| 168 | + mag.Last; | |
| 169 | + i:=mag.FieldByName('magid').AsInteger+1; | |
| 172 | 170 | mag.Append; |
| 173 | - mag.FieldByName('magId').AsInteger := id; | |
| 171 | + mag.FieldByName('magId').AsInteger := i; | |
| 174 | 172 | mag.FieldByName('magNum').AsString := 'MAG' + i.ToString; |
| 175 | 173 | mag.FieldByName('day').AsDateTime := Date; |
| 176 | 174 | mag.FieldByName('lastDay').AsDateTime := Date; |
| @@ -178,7 +176,8 @@ begin | ||
| 178 | 176 | mag.FieldByName('comment').AsString := Data.Values['comment'].Value; |
| 179 | 177 | mag.FieldByName('enable').AsString := Data.Values['enable'].Value; |
| 180 | 178 | mag.Post; |
| 181 | - DB.AppendRecord([id, i, 0]); | |
| 179 | + db.Last; | |
| 180 | + DB.AppendRecord([db.FieldByName('serial').AsInteger+1, id, i, 0]); | |
| 182 | 181 | end; |
| 183 | 182 | |
| 184 | 183 | function TDataModule1.createReaderId(Data: TJSONObject): integer; |
Fork
Unit1.pas