- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
bool __fastcall TForm1::ImportFile(AnsiString FName, int Direction)
{
bool StatusUpload;
StatusUpload = true;
TStringList *Inside;
Inside = new TStringList;
Inside->LoadFromFile(FName);
if (Direction == 1)
{
// ...
date_made = StrToSqlDate(Inside->Strings[1]);
ops = Inside->Strings[0];
Inside->Delete(0);
Inside->Delete(0);
Inside->Delete(0);
int Iterations = (Inside->Count/5);
for (int i=0; i<Iterations; i++)
{
AnsiString A, B, C, D, E;
A = Inside->Strings[0].Trim();
B = Inside->Strings[1].Trim();
C = Inside->Strings[2].Trim();
D = Inside->Strings[3].Trim();
E = Inside->Strings[4].Trim();
for (int j=0; j<5;j++)
Inside->Delete(0);
if (A == "1.1.2")
E='1';
if (A == "4.13" || A == "4.13" || A == "4.13")
E='20';
C = RemoveZPT(C);
ADOQuery1->SQL->Text = "INSERT INTO dnevnik_inside (row_id, ops, date_made, code, sign, val, val_init, direction, type) VALUES ("
+ row_id + ", '" + ops + "', '" + date_made + "', '" + A + "', '"
+ B + "', " + C + ", " + C + ", '" + D +"', '"+E+"')";
ADOQuery1->ExecSQL();
}
Trans->CommitRetaining();
}
RemoveZPT -> убрать запятые?
Лучше уж сделать макрос FASTCALL.
???
Возможно, создателю казалось, что этот участок кода не работает
WHERE ((условие)
OR (то же условие)
OR (то же условие))
and ((условие2)
or (условие2)
и т.п.