Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка "Grid index is out of range" 
:(
    Опции темы
Severyanin
Дата 24.12.2008, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Исследователь
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 31.7.2007
Где: Россия, Омск

Репутация: нет
Всего: 9
добрый день. моя программа работает с аксесом через ADO. Считывает массив структур, потом ег складывает в базу. Первым запросом проверяет, была ли такая запись в базе, а вторым уже кладет. Так вот после нескольких таких циклов, олна падает с ошибкой "Grid index out of bounds". Подскажите, как это исправить, пожалуйста. но такая ошибка возникает не всегда. иногда может и 20 циклов прокрутить правильно. Связка стандартнная - DOCOnnection->AdoQuery->DataSource->DBGrid 


--------------------
"Звонким вереском скроются наши следы, и не вспомнят о них. Кто поверит нам, рыцарям павшей звезды из отвергнутых книг? Пусть в узоре времен ни стихов. ни имен, но напомнит забывшим их полуночный крик." Тэм Гринхилл
"Ужели суслик твоего коварства нагадит в плов доверья моего?". Л.Филатов 
PM MAIL WWW ICQ   Вверх
Dmi3ev
Дата 24.12.2008, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Severyanin, давай код посмотрим, просто скорее всего напутал что-то с grid, пытаешься обратится к строке с номером больше, чем в нем есть...


--------------------
PM MAIL   Вверх
Severyanin
Дата 25.12.2008, 05:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Исследователь
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 31.7.2007
Где: Россия, Омск

Репутация: нет
Всего: 9
Вот функция-итератор. которая проверяет наличие в базе:
Код

DWORD WINAPI Iteration(HANDLE num){
    AnsiString name_buf,type_buf,num_buf;
    unsigned int iter_count;
     //Application->MessageBox(IntToStr(num_blocks).c_str(),"Системное сообщение",MB_OK);
    //if(iterator_count+1<sizeof(measures)/sizeof(TOporaMeasures)){
    //Form3->Button1->Enabled = false;
    iterator_count = 0;
    for(iter_count=0;iter_count<num_blocks*64;iter_count++){
        Form3->ModalResult = mrOk;
        name_buf = convert_char_to_str(measures[iter_count].UserName,24);
        type_buf = convert_char_to_str(measures[iter_count].OporaType,24);
        type_buf = type_buf.SetLength(9);
        num_buf  = convert_char_to_str(measures[iter_count].OporaNumber,24);
        //if((measure.UserName == NULL)||(measure.R_Zemli ==0)||(measure.OporaType == NULL)||(measure.UstanovkaYear == 0)||(measure.cur_year == 0)||(measure.cur_month == 0)||(measure.cur_day == 0)){
        Form3->Edit1->Text = name_buf;
        if(Form3->Edit1->Text.Length()>24){
           Form3->Edit1->Text = Form3->Edit1->Text.SetLength(24);
        }
        Form3->Edit2->Text = IntToStr((unsigned short)measures[iter_count].cur_day)+"."+IntToStr((unsigned short)measures[iter_count].cur_month)+"."+IntToStr(measures[iter_count].cur_year);
        Form3->Edit3->Text = FloatToStr(measures[iter_count].R_Zemli);
        Form3->Edit4->Text = IntToStr(measures[iter_count].UstanovkaYear);
        //Form3->Edit5->Text = IntToStr((unsigned short)measures[iterator_count]->cur_day)+"."+IntToStr((unsigned short)measures[iterator_count]->cur_month)+"."+IntToStr(measures[iterator_count]->cur_year);
        Form3->Edit5->Text = type_buf;
        if(Form3->Edit5->Text.Length()>24){
          Form3->Edit5->Text = Form3->Edit5->Text.SetLength(24);
        }
        Form3->Edit6->Text = "";
        Form3->Edit7->Text = "";
        Form3->Edit8->Text = "";
        if((field_structs[iter_count].transfer == 0x01)||(field_structs[iter_count].umd == 0)||(field_structs[iter_count].available != 0x01)){
                iterator_count++;
                continue;
        }
        if((StrPos(Form3->Edit1->Text.c_str(),"ФФФФ") != NULL) || (StrPos(Form3->Edit3->Text.c_str(),"ФФФ") != NULL)){
                continue;
        } 
        if((Form3->Edit1->Text.Length() == 0)&&(Form3->Edit3->Text == "0")&&(Form3->Edit4->Text == "0")&&(Form3->Edit2->Text == "0.0.0")){
                iterator_count++;
                continue;
        }
        //Form3->ModalResult = mrOk;
        Form3->ShowModal();
        //Form6->ShowModal();
        //Form3->Button1->Show();
        //Form3->Label1->Visible = true;
        //Form3->Edit1->Visible =  true;
        //Form3->Button1->Enabled = true;
                //iterator_count++;
        /*} else{
                iterator_count = 0;
                return;
        }  */
     }
     DbMutex = OpenMutex(SYNCHRONIZE,false,"DbMutex");
     Form1->ADOQuery1->Close();
     Form1->ADOQuery1->SQL->Clear();
     Form1->ADOQuery1->SQL->Add("SELECT Num_op AS Номер_опоры,Risk_group AS Категория_дефектности,Meas_date AS Дата_измерения,Next_date AS Дата_след_проверки,Peregon AS Перегон,ECHK AS ЭЧК,Dist AS Дистанция,Device_id AS Номер_устройства,FIO_OPER AS ФИО_оператора,U0,I1,U1,I2,U2,I1o,U1o,I2o,U2o,Uote,Ute,Ite,U0op,Uop,Iop FROM params");
     Form1->ADOQuery1->Open();
     ReleaseMutex(DbMutex);
     Form1->Label6->Caption = "Данные занесены в базу";
     return 0;
}

А вот код функции-обработчика, которая вставляет запрос в базу. находится на форме, которую вызывает предыдущая функция
Код

 AnsiString name_buf,type_buf,num_buf;
    //DWORD WINAPI res = 0;
    //name_buf = convert_char_to_str(measures[iterator_count].UserName,24);
    //type_buf = convert_char_to_str(measures[iterator_count].OporaType,24);
    num_buf  = convert_char_to_str(measures[iterator_count].OporaNumber,24);
    num_buf = num_buf.SetLength(4);
    num_buf = num_buf.Trim();
    Edit1->Text = Edit1->Text.Trim();
    Edit5->Text = Edit5->Text.Trim();
    //ShowMessage(name_buf);
    //ShowMessage(StrToInt(name_buf.Length()));
    //ShowMessage(type_buf);
    //ShowMessage(StrToInt(type_buf.Length()));
    //ShowMessage(num_buf);
    //ShowMessage(StrToInt(num_buf.Length()));
    if((Edit1->Text == "")||(Edit2->Text == "")||(Edit3->Text == "")||(Edit4->Text == "")||(Edit5->Text == "")){
        ShowMessage("Заполните, пожалуйста, все обязательные поля формы");
        return;
    } else{
        Form3->Visible = false;
        //Form3->Close();
        Form3->ModalResult = mrOk;
        Form1->Visible = true;
        if(measures[iterator_count].next_day >31){
           measures[iterator_count].next_day = measures[iterator_count].next_day & 0x1F;
        }
        if(measures[iterator_count].next_month >12){
           measures[iterator_count].next_month = measures[iterator_count].next_month & 0x0F;
        }
        /*if(measures[iterator_count].next_year >4096){
           measures[iterator_count].next_year = measures[iterator_count].next_year & 0x0FFF;
        }    */
        do
                Result = WaitForSingleObject(DbMutex,10);
        while(Result == WAIT_TIMEOUT);
        DbMutex = OpenMutex(SYNCHRONIZE,false,"DbMutex");
        int query_res;
        AnsiString query_buf;
        TReplaceFlags Flags;
        Flags << rfReplaceAll;
        query_buf = "INSERT INTO params(U0,I1,U1,I2,U2,Uc,I1o,U1o,I2o,U2o,Uco,Ute,Ite,U0op,Uop,Roz,Ust_year,Num_op,Type,Meas_date,FIO_OPER,Rb,Rgr,C1,C2,Tau1,Tau2,DeltaU,Rbo,Rgro,C1o,C2o,Tau1o,Tau2o,DeltaUo,Rrast,Rte,Istek,Risk_group,Peregon,ECHK,Dist,Device_id,Uote,R_Zemli,skoU0,Tau1u,C1u0,K3,UC5,Next_date,UMD) VALUES("\
        +StringReplace(FloatToStrF(measures[iterator_count].U0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].I1,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U1,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].I2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uc,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].I10,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U10,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].I20,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U20,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uc,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uate,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Ite,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U0op,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].Uop,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_Zemli,ffFixed,7,2),",",".",Flags)+",'"+Form3->Edit4->Text+"',"+num_buf+",'"+Form3->Edit5->Text+"','"+Form3->Edit2->Text+"','"+Form3->Edit1->Text+"',"+StringReplace(FloatToStrF(measures[iterator_count].R_beton,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].R_gran,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].C1i,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].C2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Tau1i,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Tau2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].DeltaU,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_beton0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_gran0,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].C1i0,ffFixed,7,2),",",".",Flags)+",0,"+StringReplace(FloatToStrF(measures[iterator_count].Tau1i0,ffFixed,7,2),",",".",Flags)+",0,"+StringReplace(FloatToStrF(measures[iterator_count].DeltaU0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Rrast,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Rte,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Istek,ffFixed,7,2),",",".",Flags)+","+IntToStr((unsigned short)measures[iterator_count].K)+",'"+Form3->Edit7->Text\
        +"','"+Form3->Edit6->Text+"','"+Form3->Edit8->Text+"',1,"+StringReplace(FloatToStrF(measures[iterator_count].U0te,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_Zemli,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].skoU0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Tau1u,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].C1u0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].K3,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uc5,ffFixed,7,2),",",".",Flags)+",'"+IntToStr((unsigned short)measures[iterator_count].next_day)+"."+IntToStr((unsigned short)measures[iterator_count].next_month)+"."+IntToStr(measures[iterator_count].next_year)+"',"+IntToStr(measures[iterator_count].umd)+")";
        //query_buf = StringReplace(query_buf,",",".",Flags);
        //Application->MessageBox(query_buf.c_str(),"Системное сообщение",MB_OK);
        if(measures[iterator_count].next_day == 0){
           measures[iterator_count].next_day = 1;
        }
        if(measures[iterator_count].next_month == 0){
           measures[iterator_count].next_month = 1;
        }
        if(((Form3->Edit1->Text).Pos("@")!=0)||((Form3->Edit1->Text).Pos("|")!=0)){
            if(iterator_count+1 < num_blocks*64){
                                //iterator_count++;
                                //Form3->Close();
                                Form3->ModalResult = mrOk;
                                Form3->Visible = false;
                                //Iteration();
                        } else{
                                //iterator_count = 0;
                                Form3->Hide();
                                Form3->ModalResult = mrOk;
                               // Form3->Close();
                                //Iteration();
                                //Form3->Visible = false
            }
            //Form3->Hide();

            //Form3->Visible = false;
            return;
        }
        if(((Form3->Edit5->Text).Pos("@")!=0)||((Form3->Edit5->Text).Pos("|")!=0)){
            if(iterator_count+1 < num_blocks*64){
                                //iterator_count++;
                                Form3->Hide();
                                //Form3->Close();
                                Form3->ModalResult = mrOk;
                                //Form3->Visible = false;
                //Iteration();
            }           else{
                                iterator_count = 0;
            }
            Form3->Hide();
                        //Form3->Close();
            //Form3->Visible = false;
                        Form3->ModalResult = mrOk;
                        //Form3->Visible = false;
            return;
        }
        /*Form1->ADOQuery1->Close();
        Form1->ADOQuery1->SQL->Clear();
        Form1->ADOQuery1->SQL->Add("SELECT * FROM params WHERE UMD="+IntToStr(measures[iterator_count].umd));
        Form1->ADOQuery1->Open();
        /*if(Form1->ADOQuery1->RowsAffected != 0){
            ReleaseMutex(DbMutex);
            Form3->ModalResult = mrOk;
            Form3->Visible = false;
        } */
       /* if(Form1->ADOQuery1->RecordCount != 0){
            ReleaseMutex(DbMutex);
            Form3->ModalResult = mrOk;
            Form3->Visible = false;
            iterator_count++;
            return;
        }*/
        Form1->ADOQuery1->Close();
        Form1->ADOQuery1->SQL->Clear();
        Form1->ADOQuery1->SQL->Add("INSERT INTO params(U0,I1,U1,I2,U2,Uc,I1o,U1o,I2o,U2o,Uco,Ute,Ite,U0op,Uop,Roz,Ust_year,Num_op,Type,Meas_date,FIO_OPER,Rb,Rgr,C1,C2,Tau1,Tau2,DeltaU,Rbo,Rgro,C1o,C2o,Tau1o,Tau2o,DeltaUo,Rrast,Rte,Istek,Risk_group,Peregon,ECHK,Dist,Device_id,Uote,R_Zemli,skoU0,Tau1u,C1u0,K3,UC5,Next_date,UMD) VALUES("\
        +StringReplace(FloatToStrF(measures[iterator_count].U0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].I1,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U1,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].I2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uc,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].I10,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U10,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].I20,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U20,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uc,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uate,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Ite,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].U0op,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].Uop,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_Zemli,ffFixed,7,2),",",".",Flags)+",'"+Form3->Edit4->Text+"',"+num_buf+",'"+Form3->Edit5->Text+"','"+Form3->Edit2->Text+"','"+Form3->Edit1->Text+"',"+StringReplace(FloatToStrF(measures[iterator_count].R_beton,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].R_gran,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].C1i,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].C2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Tau1i,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Tau2,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].DeltaU,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_beton0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_gran0,ffFixed,7,2),",",".",Flags)\
        +","+StringReplace(FloatToStrF(measures[iterator_count].C1i0,ffFixed,7,2),",",".",Flags)+",0,"+StringReplace(FloatToStrF(measures[iterator_count].Tau1i0,ffFixed,7,2),",",".",Flags)+",0,"+StringReplace(FloatToStrF(measures[iterator_count].DeltaU0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Rrast,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Rte,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Istek,ffFixed,7,2),",",".",Flags)+","+IntToStr((unsigned short)measures[iterator_count].K)+",'"+Form3->Edit7->Text\
        +"','"+Form3->Edit6->Text+"','"+Form3->Edit8->Text+"',1,"+StringReplace(FloatToStrF(measures[iterator_count].U0te,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].R_Zemli,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].skoU0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Tau1u,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].C1u0,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].K3,ffFixed,7,2),",",".",Flags)+","+StringReplace(FloatToStrF(measures[iterator_count].Uc5,ffFixed,7,2),",",".",Flags)+",'"+IntToStr((unsigned short)measures[iterator_count].next_day)+"."+IntToStr((unsigned short)measures[iterator_count].next_month)+"."+IntToStr(measures[iterator_count].next_year)+"',"+IntToStr(measures[iterator_count].umd)+")");
        /*Form1->ADOQuery1->SQL->Add("INSERT INTO params(U0,I1,U1,I2,U2,Uc,I1o,U1o,I2o,U2o,Uco,Ute,Ite,U0op,Uop,Roz,Ust_year,Num_op,Type,Meas_date,FIO_OPER,Rb,Rgr,C1,C2,Tau1,Tau2,DeltaU,Rbo,Rgro,C1o,C2o,Tau1o,Tau2o,DeltaUo,Rrast,Rte,Istek,Risk_group,Peregon,ECHK,Dist,Device_id,Uote,R_Zemli,skoU0,Tau1u,C1u0,K3,UC5,Next_date,UMD) VALUES("\
        +FloatToStr(measures[iterator_count].U0)+","+FloatToStr(measures[iterator_count].I1)+","+FloatToStr(measures[iterator_count].U1)+","+FloatToStr(measures[iterator_count].I2)+","+FloatToStr(measures[iterator_count].U2)+","+FloatToStr(measures[iterator_count].Uc)\
        +","+FloatToStr(measures[iterator_count].I10)+","+FloatToStr(measures[iterator_count].U10)+","+FloatToStr(measures[iterator_count].I20)+","+FloatToStr(measures[iterator_count].U20)+","+FloatToStr(measures[iterator_count].Uc)+","+FloatToStr(measures[iterator_count].Uate)+","+FloatToStr(measures[iterator_count].Ite)+","+FloatToStr(measures[iterator_count].U0op)\
        +","+FloatToStr(measures[iterator_count].Uop)+","+FloatToStr(measures[iterator_count].R_Zemli)+",'"+Form3->Edit4->Text+"','"+num_buf+"','"+Form3->Edit5->Text+"','"+Form3->Edit2->Text+"','"+Form3->Edit1->Text+"',"+FloatToStr(measures[iterator_count].R_beton)\
        +","+FloatToStr(measures[iterator_count].R_gran)+","+FloatToStr(measures[iterator_count].C1i)+","+FloatToStr(measures[iterator_count].C2)+","+FloatToStr(measures[iterator_count].Tau1i)+","+FloatToStr(measures[iterator_count].Tau2)+","+FloatToStr(measures[iterator_count].DeltaU)+","+FloatToStr(measures[iterator_count].R_beton0)+","+FloatToStr(measures[iterator_count].R_gran0)\
        +","+FloatToStr(measures[iterator_count].C1i0)+",0,"+FloatToStr(measures[iterator_count].Tau1i0)+",0,"+FloatToStr(measures[iterator_count].DeltaU0)+","+FloatToStr(measures[iterator_count].Rrast)+","+FloatToStr(measures[iterator_count].Rte)+","+FloatToStr(measures[iterator_count].Istek)+","+IntToStr((unsigned short)measures[iterator_count].K)+",'"+Form3->Edit7->Text\
        +",'"+Form3->Edit6->Text+"','"+Form3->Edit8->Text+"',1,"+FloatToStr(measures[iterator_count].U0te)+","+FloatToStr(measures[iterator_count].R_Zemli)+","+FloatToStr(measures[iterator_count].skoU0)+","+FloatToStr(measures[iterator_count].Tau1u)+","+FloatToStr(measures[iterator_count].C1u0)+","+FloatToStr(measures[iterator_count].K3)+","+FloatToStr(measures[iterator_count].Uc5)+",'"+IntToStr((unsigned short)measures[iterator_count].next_day)+"."+IntToStr((unsigned short)measures[iterator_count].next_month)+"."+IntToStr(measures[iterator_count].next_year)+"',"+IntToStr(measures[iterator_count].umd)+")"); */
        //Form1->ADOQuery1->SQL->Add("INSERT INTO params(U0,I1,U1,I2,U2,Uc,I1o,U1o,I2o,U2o,Uco,Ute,Ite,U0op,Uop,Roz,Ust_year,Num_op,Type,Meas_date,FIO_OPER,Rb,Rgr,C1,C2,Tau1,Tau2,DeltaU,Rbo,Rgro,C1o,C2o,Tau1o,Tau2o,DeltaUo,Rrast,Rte,Istek,Risk_group,Peregon,ECHK,Dist,Device_id,Uote,R_Zemli,skoU0,Tau1u,C1u0,K3,UC5,Next_date,UMD) VALUES(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,'1994','11','11','10.05.2005','1111',1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,'1111','1111','1111',1,1,1,1,1,1,1,1,'10.12.2009',1)");
       // Application->MessageBox("query begin","Системное сообщение",MB_OK);
        //Form1->ADOQuery1->Open();
        query_res = Form1->ADOQuery1->ExecSQL();
        Form1->ADOQuery1->Close();
        Form1->ADOQuery1->SQL->Clear();
        Form1->ADOQuery1->SQL->Add("SELECT Num_op AS Номер_опоры,Risk_group AS Категория_дефектности,Meas_date AS Дата_измерения,Next_date AS Дата_след_проверки,Peregon AS Перегон,ECHK AS ЭЧК,Dist AS Дистанция,Device_id AS Номер_устройства,FIO_OPER AS ФИО_оператора,U0,I1,U1,I2,U2,I1o,U1o,I2o,U2o,Uote,Ute,Ite,U0op,Uop,Iop FROM params");
        Form1->ADOQuery1->Open();
        ReleaseMutex(DbMutex);
        //Application->MessageBox(IntToStr(query_res).c_str(),"Системное сообщение",MB_OK);
        if(iterator_count+1 < num_blocks*64){
                //iterator_count++;
                Form3->Hide();
                //Form3->Close();
                Form3->ModalResult = mrOk;
                Form3->Visible = false;
                //Iteration();
        } else{
                iterator_count = 0;
        }
    }
        //this->Hide();
    //Form3->Close();
    iterator_count++;
    Form3->ModalResult = mrOk;
    Form3->Visible = false;
}



--------------------
"Звонким вереском скроются наши следы, и не вспомнят о них. Кто поверит нам, рыцарям павшей звезды из отвергнутых книг? Пусть в узоре времен ни стихов. ни имен, но напомнит забывшим их полуночный крик." Тэм Гринхилл
"Ужели суслик твоего коварства нагадит в плов доверья моего?". Л.Филатов 
PM MAIL WWW ICQ   Вверх
Dmi3ev
Дата 25.12.2008, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
http://www.sql.ru/forum/actualthread.aspx?tid=539130
еще вот такие компоненты можно использовать...
http://microolap.com/products/connectivity/postgresdac/
http://xayam.kilkennycat.ru/view.php?folde...le=1-1157278541

Добавлено через 15 секунд
и последнюю глянь


--------------------
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1080 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.