- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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();
}
OlgaWolga 05.09.2009 09:48 # 0
RemoveZPT -> убрать запятые?
labutinpa 05.09.2009 11:26 # 0
labutinpa 05.09.2009 11:27 # 0
inkanus-gray 05.06.2016 18:55 # 0
guest 05.09.2009 13:43 # 0
Лучше уж сделать макрос FASTCALL.
guest 10.09.2009 01:10 # 0
labutinpa 10.09.2009 05:18 # 0
guest 10.09.2009 20:46 # 0
guest 10.09.2009 20:47 # 0
gecko 05.09.2009 14:14 # 0
???
guest 05.09.2009 14:57 # 0
guest 05.09.2009 15:56 # 0
labutinpa 07.09.2009 00:05 # 0
Возможно, создателю казалось, что этот участок кода не работает
guest 08.09.2009 09:11 # 0
labutinpa 30.11.2011 02:45 # 0
WHERE ((условие)
OR (то же условие)
OR (то же условие))
and ((условие2)
or (условие2)
и т.п.