Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.09.2008, 12:23   #11
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

Определил, что ошибка возникает как только я трону код Form3 или вызову ее в Project manager .. Если после этого выйти и зайти в delphi то ошибка пропадает. Я так понял, что при вызове Form3 из Project manager подгружается ее код выполняемый при загрузке формы. И где-то там что-то занимает таблицу и не отпускает ее. Решил закрыть все table в конце, но это не помогает, вот код:
Код:
/ ïîïûòêà èñïðàâèòü îøèáêó çàíÿòîñòè òàáëèöû
//Form3.Table1.Active:=False;
//Form3.Table2.Active:=False;
// Çàïîëíåíèå ñïèñêà ÏÓÃ äëÿ  Form3.ComboBox1
Form3.ComboBox1.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='pug.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox1.Items.Add(form3.Table1.FieldByName('NOMER_PUG').AsString );
Form3.Table1.Next ;
end;
// Çàïîëíåíèå ñïèñêà îïèñàíèÿ ÏÓÃ äëÿ  Form3.ComboBox4
Form3.ComboBox4.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='pug.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox4.Items.Add(form3.Table1.FieldByName('OPIS_PUG').AsString );
Form3.Table1.Next ;
end;
// Çàïîëíåíèå ñïèñêà Òåõ. êîìïëåêòîâ äëÿ  Form3.ComboBox2
Form3.ComboBox2.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='tech.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox2.Items.Add(form3.Table1.FieldByName('NOMER_TECH').AsString );
Form3.Table1.Next ;
end;
// Çàïîëíåíèå ñïèñêà îïèñàíèÿ Òåõ. êîìïëåêòîâ äëÿ  Form3.ComboBox5
Form3.ComboBox5.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='tech.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox5.Items.Add(form3.Table1.FieldByName('OPIS_TECH').AsString );
Form3.Table1.Next ;
end;
// Çàïîëíåíèå ñïèñêà Ïîäêîìïëåêòîâ äëÿ  Form3.ComboBox3
Form3.ComboBox3.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='kod.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox3.Items.Add(form3.Table1.FieldByName('NOMER_KOD').AsString );
Form3.Table1.Next ;
end;
// Çàïîëíåíèå ñïèñêà îïèñàíèÿ Ïîäêîìïëåêòîâ äëÿ  Form3.ComboBox6
Form3.ComboBox6.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='kod.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox6.Items.Add(form3.Table1.FieldByName('OPIS_KOD').AsString );
Form3.Table1.Next ;
end;
// Âîçâðàùåíèå Form3.Table1.TableName:='massiv.dbf';
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='massiv.dbf';
Form3.Table1.Active:=true;
//Form3.Table1.First ;
// Äåëàåì íåâèäèìûè íå íóæíûå ïîëÿ â  Form3.DBGrid1
Form3.DBGrid1.Columns[0].Visible:=False;
Form3.DBGrid1.Columns[4].Visible:=False;
Form3.DBGrid1.Columns[6].Visible:=False;

// Äåëàåì íåâèäèìûè íå íóæíûå ïîëÿ â  Form3.DBGrid2
Form3.DBGrid2.Columns[0].Visible:=False;
Form3.DBGrid2.Columns[1].Visible:=False;
Form3.DBGrid2.Columns[2].Visible:=False;
Form3.DBGrid2.Columns[3].Visible:=False;
Form3.DBGrid2.Columns[4].Visible:=False;
Form3.DBGrid2.Columns[6].Visible:=False;

Form3.Table1.Active:=False;
Form3.Table1.Close;
end;
Не могу работать с этой ошибкой .. после каждого просмотра кода надо перегружатся...
sergey113 вне форума Ответить с цитированием
Старый 13.09.2008, 16:03   #12
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от sergey113 Посмотреть сообщение
спасибо... поправлю код
но ошибка возникает сразу после
Form3.Table1.EmptyTable;
даже если я пишу так
Form3.Table1.Close;
Form3.Table1.EmptyTable;
Form3.Table1.Close;
Form3.Table1.Open;

Что-то не так ...
Значит, какая-то другая форма тоже использует эту саму Table1.
И для вас тоже повторюсь (посмотрите на свое сообщение - как вам комментарии?) - перед копированием кода, который вы хотите вставить в сообщение, перейдите на русскую раскладку - тогда комменты не будут выглядеть как крякозябры...
mihali4 вне форума Ответить с цитированием
Старый 13.09.2008, 17:09   #13
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

Цитата:
Сообщение от mihali4 Посмотреть сообщение
Значит, какая-то другая форма тоже использует эту саму Table1.
И для вас тоже повторюсь (посмотрите на свое сообщение - как вам комментарии?) - перед копированием кода, который вы хотите вставить в сообщение, перейдите на русскую раскладку - тогда комменты не будут выглядеть как крякозябры...
у меня только одна форма использует form3.table1. при загрузке именно 3 форма ... с нажатия кнопки в Form2 я запускаю
emptyTable в форме 3 и тут выскакаивает table is busy .. я пробовал закрывать ее и в 2 и 3 форме не помогает ....

А коментарии с крюкозябрами я не стал удалять так как они ламерские для себя писал .... так они вставились с delphi
sergey113 вне форума Ответить с цитированием
Старый 13.09.2008, 17:17   #14
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

Как такое может быть... Если я просто захожу в delphi и по f9 прогоняю проект, то нет никаких ошибок ... прогрммаработает нормально... а вот если я просто просмотрел в delphi form3 и опять запускаю по f9 то все ошибка возникает ...
sergey113 вне форума Ответить с цитированием
Старый 13.09.2008, 17:46   #15
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

ругается на любую команду после
Form3.Table1.EmptyTable;
даже если это
Form3.Table1.Active:=False;
sergey113 вне форума Ответить с цитированием
Старый 13.09.2008, 17:53   #16
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Приведите нормальные полные листинги всех юнит.
По приведенным "огрызкам" судить очень сложно...
Вы утверждаете, что таблица используется только в 3-й форме. Простите, я вам не верю...
mihali4 вне форума Ответить с цитированием
Старый 13.09.2008, 18:26   #17
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

Вот листинг Unit1
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button6: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBNavigator1: TDBNavigator;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cer: integer;
  strvl: integer;
  i: integer;
implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
form2.show;
Form2.Table1.Active:=False;
Form2.Table1.DatabaseName:='yantary';
Form2.Table1.TableName:='pug.dbf';
Form2.Table1.Active:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
form2.show;
Form2.Table1.Active:=False;
Form2.Table1.DatabaseName:='yantary';
Form2.Table1.TableName:='tech.dbf';
Form2.Table1.Active:=true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
form2.show;
Form2.Table1.Active:=False;
Form2.Table1.DatabaseName:='yantary';
Form2.Table1.TableName:='kod.dbf';
Form2.Table1.Active:=true;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
form1.ComboBox4.ItemIndex:=form1.ComboBox1.ItemIndex;
end;

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
form1.ComboBox1.ItemIndex:=form1.ComboBox4.ItemIndex;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
form1.ComboBox5.ItemIndex:=form1.ComboBox2.ItemIndex;
end;

procedure TForm1.ComboBox5Change(Sender: TObject);
begin
form1.ComboBox2.ItemIndex:=form1.ComboBox5.ItemIndex;
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
form1.ComboBox6.ItemIndex:=form1.ComboBox3.ItemIndex;
end;

procedure TForm1.ComboBox6Change(Sender: TObject);
begin
form1.ComboBox3.ItemIndex:=form1.ComboBox6.ItemIndex;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Table1.Append;
Form1.Table1.FieldByName('pug').Value:=Form1.ComboBox1.Text;
Form1.Table1.FieldByName('tech').Value:=Form1.ComboBox2.Text;
Form1.Table1.FieldByName('podkom').Value:=Form1.ComboBox3.Text;
Form1.Table1.Post;
end;
sergey113 вне форума Ответить с цитированием
Старый 13.09.2008, 18:27   #18
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

Вот продолжение
Код:


procedure TForm1.Button2Click(Sender: TObject);
begin
//Очистка ранее введеных данных в massiv.dbf
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='massiv.dbf';
Form3.Table1.Active:=true;
//strvl:=form3.Table1.RecordCount;
//Form3.Table1.First ;
//Form3.Table1.Edit;
//for i:=0 to strvl-1 do begin
//Form3.Table1.Edit;
//Form3.Table1.Delete;
//Form3.Table1.Post;
//end;
Form3.Table1.Close;
Form3.Table1.EmptyTable;
Form3.Table1.Active:=False;

//Очистка данных ранее введеных в massiv2.dbf
Form3.Table2.Active:=False;
Form3.Table2.DatabaseName:='yantary';
Form3.Table2.TableName:='massiv2.dbf';
Form3.Table2.Active:=true;
Form3.Table2.Close;
Form3.Table2.EmptyTable;


//Загрузка form3
form3.show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

// Зполнение списка ПУГ для  Form1.ComboBox1
Form1.ComboBox1.Items.Clear;
Form1.Table1.Active:=False;
Form1.Table1.DatabaseName:='yantary';
Form1.Table1.TableName:='pug.dbf';
Form1.Table1.Active:=true;
strvl:=form1.Table1.RecordCount;
Form1.Table1.First ;
for i:=0 to strvl-1 do begin
Form1.ComboBox1.Items.Add(form1.Table1.FieldByName('NOMER_PUG').AsString );
Form1.Table1.Next ;
end;
// Заполниение списка описания ПУГ для Form1.ComboBox4
Form1.ComboBox4.Items.Clear;
Form1.Table1.Active:=False;
Form1.Table1.DatabaseName:='yantary';
Form1.Table1.TableName:='pug.dbf';
Form1.Table1.Active:=true;
strvl:=form1.Table1.RecordCount;
Form1.Table1.First ;
for i:=0 to strvl-1 do begin
Form1.ComboBox4.Items.Add(form1.Table1.FieldByName('OPIS_PUG').AsString );
Form1.Table1.Next ;
end;
// Заполниение списка тех комплектов для Form1.ComboBox2
Form1.ComboBox2.Items.Clear;
Form1.Table1.Active:=False;
Form1.Table1.DatabaseName:='yantary';
Form1.Table1.TableName:='tech.dbf';
Form1.Table1.Active:=true;
strvl:=form1.Table1.RecordCount;
Form1.Table1.First ;
for i:=0 to strvl-1 do begin
Form1.ComboBox2.Items.Add(form1.Table1.FieldByName('NOMER_TECH').AsString );
Form1.Table1.Next ;
end;
// Заполнение списко описаний Тех комплектов для  Form1.ComboBox5
Form1.ComboBox5.Items.Clear;
Form1.Table1.Active:=False;
Form1.Table1.DatabaseName:='yantary';
Form1.Table1.TableName:='tech.dbf';
Form1.Table1.Active:=true;
strvl:=form1.Table1.RecordCount;
Form1.Table1.First ;
for i:=0 to strvl-1 do begin
Form1.ComboBox5.Items.Add(form1.Table1.FieldByName('OPIS_TECH').AsString );
Form1.Table1.Next ;
end;
// Заполнение списка Подкомплектов  для  Form1.ComboBox3
Form1.ComboBox3.Items.Clear;
Form1.Table1.Active:=False;
Form1.Table1.DatabaseName:='yantary';
Form1.Table1.TableName:='kod.dbf';
Form1.Table1.Active:=true;
strvl:=form1.Table1.RecordCount;
Form1.Table1.First ;
for i:=0 to strvl-1 do begin
Form1.ComboBox3.Items.Add(form1.Table1.FieldByName('NOMER_KOD').AsString );
Form1.Table1.Next ;
end;
// Заполниение списка описаний Подкомплектов для Form1.ComboBox6
Form1.ComboBox6.Items.Clear;
Form1.Table1.Active:=False;
Form1.Table1.DatabaseName:='yantary';
Form1.Table1.TableName:='kod.dbf';
Form1.Table1.Active:=true;
strvl:=form1.Table1.RecordCount;
Form1.Table1.First ;
for i:=0 to strvl-1 do begin
Form1.ComboBox6.Items.Add(form1.Table1.FieldByName('OPIS_KOD').AsString );
Form1.Table1.Next ;
end;
// Возвращение Form1.Table1.TableName:='osn.dbf';
Form1.Table1.Active:=False;
Form1.Table1.DatabaseName:='yantary';
Form1.Table1.TableName:='osn.dbf';
Form1.Table1.Active:=true;
Form1.Table1.First ;
// Делаем невидимыми не нужные поля в  Form1.DBGrid1
//Form1.DBGrid1.Columns[0].Visible:=False;
//Form1.DBGrid1.Columns[4].Visible:=False;
//Form1.DBGrid1.Columns[6].Visible:=False;
//form2.Label4.Caption:=IntToSTr(form2.Table1.RecordCount)

end;

end.
sergey113 вне форума Ответить с цитированием
Старый 13.09.2008, 18:28   #19
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

вот листинг Unit 3

Код:
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Button2: TButton;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Button3: TButton;
    ComboBox6: TComboBox;
    Button4: TButton;
    Edit1: TEdit;
    Label7: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Button5: TButton;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    Table2: TTable;
    DataSource2: TDataSource;
    Button6: TButton;
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  strvl: integer;
  i: Integer;
  a: String;
  b: String;
  c: String;
  d: String;
  v: String;
  x: String;
  y: String;
  z: String;
implementation

uses Unit1;

{$R *.dfm}




procedure TForm3.Button4Click(Sender: TObject);
begin
//Заносим данные в набор ПУГов
Form3.Table1.Active:=True;
Form3.Table1.Append;
Form3.Table1.FieldByName('pug').Value:=Form3.ComboBox1.Text;
Form3.Table1.FieldByName('tech').Value:=Form3.ComboBox2.Text;
Form3.Table1.FieldByName('podkom').Value:=Form3.ComboBox3.Text;
Form3.Table1.Post;
Form3.Table1.Active:=False;
end;                                           

procedure TForm3.FormCreate(Sender: TObject);
begin
// Попытка исправить проблемму занятости таблицы
//Form3.Table1.Active:=False;
//Form3.Table2.Active:=False;
// Заполнение списка ПУГ для  Form3.ComboBox1
Form3.ComboBox1.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='pug.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox1.Items.Add(form3.Table1.FieldByName('NOMER_PUG').AsString );
Form3.Table1.Next ;
end;
// Заполнение списка описания для ПГУ Form3.ComboBox4
Form3.ComboBox4.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='pug.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox4.Items.Add(form3.Table1.FieldByName('OPIS_PUG').AsString );
Form3.Table1.Next ;
end;
// Заполнение списка Тех комплектов  Form3.ComboBox2
Form3.ComboBox2.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='tech.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox2.Items.Add(form3.Table1.FieldByName('NOMER_TECH').AsString );
Form3.Table1.Next ;
end;
// Заполнение списка описания Тех Комплектов для   Form3.ComboBox5
Form3.ComboBox5.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='tech.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox5.Items.Add(form3.Table1.FieldByName('OPIS_TECH').AsString );
Form3.Table1.Next ;
end;
sergey113 вне форума Ответить с цитированием
Старый 13.09.2008, 18:28   #20
sergey113
Форумчанин
 
Регистрация: 12.12.2007
Сообщений: 104
По умолчанию

Вот продолжение
Код:
// Заполнение списка Подкомплектов для  Form3.ComboBox3
Form3.ComboBox3.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='kod.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox3.Items.Add(form3.Table1.FieldByName('NOMER_KOD').AsString );
Form3.Table1.Next ;
end;
// Заполнение списка описания Подкомплектов для   Form3.ComboBox6
Form3.ComboBox6.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='kod.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox6.Items.Add(form3.Table1.FieldByName('OPIS_KOD').AsString );
Form3.Table1.Next ;
end;
// Возврашение  Form3.Table1.TableName:='massiv.dbf';
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='massiv.dbf';
Form3.Table1.Active:=true;

// Делаем невидимыми ненужные поля в   Form3.DBGrid1
Form3.DBGrid1.Columns[0].Visible:=False;
Form3.DBGrid1.Columns[4].Visible:=False;
Form3.DBGrid1.Columns[6].Visible:=False;

// Делаем невидимыми ненужные поля в Form3.DBGrid2
Form3.DBGrid2.Columns[0].Visible:=False;
Form3.DBGrid2.Columns[1].Visible:=False;
Form3.DBGrid2.Columns[2].Visible:=False;
Form3.DBGrid2.Columns[3].Visible:=False;
Form3.DBGrid2.Columns[4].Visible:=False;
Form3.DBGrid2.Columns[6].Visible:=False;
Form3.Table1.Active:=False;
end;

procedure TForm3.ComboBox1Change(Sender: TObject);
begin
form3.ComboBox4.ItemIndex:=form3.ComboBox1.ItemIndex;
end;

procedure TForm3.ComboBox4Change(Sender: TObject);
begin
form3.ComboBox1.ItemIndex:=form3.ComboBox4.ItemIndex;
end;

procedure TForm3.ComboBox3Change(Sender: TObject);
begin
form3.ComboBox6.ItemIndex:=form3.ComboBox3.ItemIndex;
end;

procedure TForm3.ComboBox6Change(Sender: TObject);
begin
form3.ComboBox3.ItemIndex:=form3.ComboBox6.ItemIndex;
end;

procedure TForm3.ComboBox2Change(Sender: TObject);
begin
form3.ComboBox5.ItemIndex:=form3.ComboBox2.ItemIndex;
end;

procedure TForm3.ComboBox5Change(Sender: TObject);
begin
form3.ComboBox2.ItemIndex:=form3.ComboBox5.ItemIndex;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
// Заносим данные в набор ПУГов
Form3.Table2.Append;
Form3.Table2.FieldByName('certeg').Value:=Form3.Edit1.Text;
Form3.Table2.Post;
end;

end.
Вот листинги того что использую unit2 пока не использую там есть элементы но код не написанн еще

Тут еще один момент есть, я назначал свойства для table1 и других не только программно а в начале их задал через property Object Inspector это играет роль ?
sergey113 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу сделать цифровые часы sid Общие вопросы Delphi 25 16.12.2009 05:06
Не могу сделать выборку с нужными полями, помогите чайнику! kadet.rus Microsoft Office Access 2 26.04.2008 14:12
Excel max 256 строк VS user надо 300 строк Exo Microsoft Office Excel 3 10.01.2008 17:14
Сортировка в таблице... Gektor Паскаль, Turbo Pascal, PascalABC.NET 2 23.09.2007 12:10
Как сделать, чтобы один элемент списка в ComboBox писался в несколько строк? Andr Общие вопросы Delphi 5 15.08.2007 22:24