|
#46
|
||||
|
||||
ну так щас он нормально открывает их ... ошибок нету ... исправляй грехи в проекте и всё
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#47
|
|||
|
|||
Не могу понять почему виснет проект. У вас все нормально работает?
|
#48
|
||||
|
||||
а как же я проверю его зависание на пустых то таблицах? ))))) ...
скорее всего играет роль объем данных или где-то цыкл в коде зы. я больше к первому вар-ту склоняюсь зы2. рассмотри вариант перехода на сетевую субд (firebird, ms sql) Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#49
|
|||
|
|||
А как может влиять объем? Файл sbor.dbf я делал такого же объема как и самый большой из моих файлов. Тем более что пока я не использую этот файл, а остальные меньше чем sbor.dbf
|
#50
|
||||
|
||||
вопрос в кол-ве записей в каждой из таблиц с которыми проводятся операции + в структуре самих запросов - если они не оптимизированы - это тоже скажется на скорости
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#51
|
|||
|
|||
Сможите взглянуть, а то от меня требуют, а я боюсь не успеть. Только если можно мыло, а то не хотелось бы выкладывать файлики сюда.
При трасировке f7 виснет на Код:
Query1.Open; Последний раз редактировалось Andrej-zhe, 07.09.2012 в 09:57. |
#52
|
|||
|
|||
Посмотрите пожалуйста добавляю данные из др таблицы. Правильно код будет выглядеть теперь?!
Код:
Query1.SQL.Text:='SELECT d.kodn, d.name, o.n, fio, date_wz, dp, dw FROM duh.dbf d, oper.dbf o, oper_ozo.dbf z, mklh.dbf m WHERE (d.type = o.type and d.subtype = o.subtype and d.kod = o.kod) AND (d.type = z.type and d.subtype = z.subtype and d.kod = z.kod) AND (o.n = m.nk)'; Query1.Open; if Query1.RecordCount>0 then begin tblSbor.TableName:='sbor.dbf'; tblSbor.Open; while not Query1.Eof do begin tblSbor.Insert; //tblSbor.FieldByName('n').Value:=Query1.FieldByName('n').Value; tblSbor.FieldByName('kodn').Value:=Query1.FieldByName('kodn').Value; tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value; tblSbor.FieldByName('fio').Value:=Query1.FieldByName('fio').Value; tblSbor.FieldByName('date_wz').Value:=Query1.FieldByName('date_wz').Value; tblSbor.FieldByName('dp').Value:=Query1.FieldByName('dp').Value; tblSbor.FieldByName('dw').Value:=Query1.FieldByName('dw').Value; tblSbor.Post; Query1.Next; |
#53
|
||||
|
||||
Вопрос
Ребят, подскажите пжл, как в Delphi7 при добавлении файла DBF указать нужные поля для отображения в Grid (т.е. в файлике DBF много столбцов, а мне нужно чтобы выводились 4: ФИО и д.р.)
|
#54
|
||||
|
||||
Цитата:
И ещё в самом DataSet-е можно добавить только нужные поля (DataSet.Fields.Add() ). А ещё если открывать DBF не через TTable, а через TQuery, то в запросе можно выбрать только нужные колонки. |
#55
|
||||
|
||||
Цитата:
|
#56
|
||||
|
||||
Цитата:
Код:
grdTable.Columns.Clear; // Удаляем из DBGrid всё ранее добавленные колонки Clm := grdTable.Columns.Add; // Добавляем новую колонку Clm.FieldName := 'RKL'; // Привязываем эту колонку к полю с именем "RKL" Clm.Title.Caption := 'Ф.И.О.'; // Если нужно задаём заголовок колонки Clm.Width := 300; // ширину, и другие параметры Clm := grdTable.Columns.Add; // Добавляем ещё одну колонку Clm.FieldName := 'R069'; // Привязываем эту колонку к другому полю // и так далее Цитата:
PHP код:
|
#57
|
||||
|
||||
Цитата:
Table is bussy. Share violation. File: C:\KADRY_.DBF |
#58
|
||||
|
||||
Цитата:
|
#59
|
||||
|
||||
Цитата:
Последний раз редактировалось spawn-1212, 06.12.2012 в 12:47. |
#60
|
||||
|
||||
Цитата:
|