БД в делфи на основе Access

[water_]

p.s. вопрос был риторическим да, собственно я и ответил на него в предыдущем посте...

[trojan218]

water_
переименовал таблицы и дата модули, из Unit1 при сохранение возникла окно с некорректными данными, после подтверждения оно удалило строки:

Purchases: TGroupBox;
Books: TGroupBox;
Deliveries: TGroupBox;
Authors: TGroupBox;
Publishing_house: TGroupBox;

т.к. делфи их не знает, возникли перечисленные ошибки.
Где можно посмотреть текущее имя для записи, чтобы привести его к виду:

Purchases: TADOTable;
Books: TADOTable;
Authors: TADOTable;
Deliveries: TADOTable;
Publishing_house: TADOTable;

P.S. спасибо что помогаете мне

такая ошибка возникает при создание записей

tblPurchases: TADOTable;
tblBooks: TADOTable;
tblAuthors: TADOTable;
tblDeliveries: TADOTable;
tblPublishing_house: TADOTable;

и в событии

begin
if FirstShow then
begin
FirstShow:=False;
tblPurchases.Active:=true;
tblBooks.Active:=true;
tblAuthors.Active:=true;
tblDeliveries.Active:=true;
tblPublishing_house.Active:=true;
end;


end;

Помогите пожалуйста разобраться..

[water_]

Сообщение от trojan218

эта ошибка говорит о том что для объявленных компонентов нет соответствий на форме, а раз их нет значит нужно удалить

компоненты, созданные в design-time, в частности TGroupBox и TADOTable, которые здесь используются, необходимо переименовывать в свойстве name каждого компонента, а не в самом коде

хмм... таблицы объявлены в другом модуле
...лучше сделать так

  with DataModule2 do begin
    tblPurchases.Active:=true;
    tblBooks.Active:=true;
    tblAuthors.Active:=true;
    tblDeliveries.Active:=true;
    tblPublishing_house.Active:=true;
  end;

[trojan218]

Сообщение от water_

эта ошибка говорит о том что для объявленных компонентов нет соответствий на форме, а раз их нет значит нужно удалить

компоненты, созданные в design-time, в частности TGroupBox и TADOTable, которые здесь используются, необходимо переименовывать в свойстве name каждого компонента, а не в самом коде

хмм... таблицы объявлены в другом модуле
...лучше сделать так

  with DataModule2 do begin
    tblPurchases.Active:=true;
    tblBooks.Active:=true;
    tblAuthors.Active:=true;
    tblDeliveries.Active:=true;
    tblPublishing_house.Active:=true;
  end;

то есть мне нужно каждый раз указывать "with DataModule2 do begin" чтобы переменые запрашивались из 2 таблицы?
если так то
подойдёт ли мне запрос для кнопки удаления выделенной ячейки?

procedureTForm1.Button2Click(Sender : TObject);
begin
try
if Application.MessageBox('Delete?','A DO',MB_YESNO)=IDYES then
begin
ADOQuery1.Delete;
end;
except
on e:Exception do
end;
end;

и не возникнет ли конфликта в уже существующих записях?
в таком виде

implementation

uses
Unit3;

{$R *.dfm}
var
FirstShow: Boolean=true;




procedure TForm1.FormShow(Sender: TObject);


begin
if FirstShow then
FirstShow:=False;
with DM do begin
tblPurchases.Active:=true;
tblBooks.Active:=true;
tblAuthors.Active:=true;
tblDeliveries.Active:=true;
tblPublishing_house.Active:=true;
end;

end;

не запустилась программа возникли следующие ошибки:

[Error] Unit1.pas(53): Undeclared identifier: 'tblPurchases'
[Error] Unit1.pas(53): Missing operator or semicolon
[Error] Unit1.pas(54): Undeclared identifier: 'tblBooks'
[Error] Unit1.pas(54): Cannot assign to a read-only property
[Error] Unit1.pas(55): Undeclared identifier: 'tblAuthors'
[Error] Unit1.pas(55): Missing operator or semicolon
[Error] Unit1.pas(56): Undeclared identifier: 'tblDeliveries'
[Error] Unit1.pas(56): Missing operator or semicolon
[Error] Unit1.pas(57): Undeclared identifier: 'tblPublishing_house'
[Error] Unit1.pas(57): Missing operator or semicolon
[Fatal Error] pp.dpr(7): Could not compile used unit 'Unit1.pas'

не удивляйтесь, задачу уже переписал, подумав что где-то накосячил.
как указать переменные из другого юнита?

[water_]

каждый раз указывать "with DataModule2 do begin" чтобы переменые запрашивались из 2 таблицы?

хороший вопрос.

нужно разделить "роли" между модулями, в данном примере на модуль работы с БД и модуль "внешнего вида"

и все действия, которые происходят с таблицами и запросами (да и со всем что находится в DataModule2), выполни в отдельных процедурах DataModule2

procedure TDataModule2.DeleteFromTbl1;
begin
  //выполнение запроса удаления
end;

function TDataModule2.getBooksCount(author: string): integer;
begin
  //выполнение запроса на получение количества книг конкретного автора
end;

а в модуле ("внешнего вида" твоей программы) с формой и гридами вызывай эти процедуры

procedure TForm1.btndeleteClick(Sender: TObject);
begin
  DataModule2.DeleteFromTbl1;
end;

помимо того что это улучшит читабельность кода а значит легче будет его править, так и в случае необходимости особенно удачные модули можно использовать в других программах...

[trojan218]

то есть с formshow также в Unit 3 создать процедуру и за тем запросить её в юнит1?

[water_]

то есть с formshow также в Unit 3 создать процедуру и за тем запросить её в юнит1?

у тебя TDataModule2 в unit3? тогда да в нем и создавай

не запустилась программа возникли следующие ошибки

опять не объявленный идентификатор... закинь сюда программу посмотрим...

[trojan218]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
grp1: TGroupBox;
grp2: TGroupBox;
grp3: TGroupBox;
grp4: TGroupBox;
grp5: TGroupBox;
dbgrd2: TDBGrid;
dbgrd3: TDBGrid;
dbgrd4: TDBGrid;
dbgrd5: TDBGrid;
btn1: TButton;
btn2: TButton;
dbgrd1: TDBGrid;


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

var
Form1: TForm1;

implementation

uses
Unit3;

{$R *.dfm}
var
FirstShow: Boolean=true;
end.

unit Unit3;

interface

uses
SysUtils, Classes, ADODB, DB;

type
TDM = class(TDataModule)
con1: TADOConnection;
qry1: TADOQuery;
tblPokupki: TADOTable;
tblSpravBook: TADOTable;
tblSpravAvtor: TADOTable;
tblSpravIzdat: TADOTable;
dsPokupki: TDataSource;
dsSpravBook: TDataSource;
tblSpravPostav: TADOTable;
dsSpravPostav: TDataSource;
dsSpravAvtor: TDataSource;
dsSpravIzdat: TDataSource;
intgrfldSpravBookCode_book: TIntegerField;
wdstrngfldSpravBookTitle_book: TWideStringField;
intgrfldSpravBookCode_author: TIntegerField;
intgrfldSpravBookPages: TIntegerField;
intgrfldSpravBookCode_publish: TIntegerField;
intgrfldSpravPostavCode_delivery: TIntegerField;
wdstrngfldSpravPostavName_delivery: TWideStringField;
wdstrngfldSpravPostavName_company: TWideStringField;
wdstrngfldSpravPostavAddress: TWideStringField;
wdstrngfldSpravPostavPhone: TWideStringField;
wdstrngfldSpravPostavINN: TWideStringField;
intgrfldSpravAvtorCode_author: TIntegerField;
wdstrngfldSpravAvtorName_author: TWideStringField;
dtmfldSpravAvtorBirthday: TDateTimeField;
intgrfldSpravIzdatCode_publish: TIntegerField;
wdstrngfldSpravIzdatPublish: TWideStringField;
wdstrngfldSpravIzdatCity: TWideStringField;
atncfldPokupkiDSDesigner: TAutoIncField;
intgrfldPokupkiCode_book: TIntegerField;
dtmfldPokupkiDate_order: TDateTimeField;
intgrfldPokupkiCode_delvery: TIntegerField;
blnfldPokupkiTaype_purchases: TBooleanField;
bcdfldPokupkiCost: TBCDField;
intgrfldPokupkiAmaunt: TIntegerField;
intgrfldPokupkiCode_Purchases: TIntegerField;

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

var
DM: TDM;

implementation

{$R *.dfm}


end.

сама программа https://yadi.sk/d/Ghij2l8Hf6AjM
в программе нужно будет сделать 10 запросов различных:
типо Выбрать из таблицы Deliveries список поставщиков (поля Name_delivery, Phone и INN), отсортировать результат по полю INN (по убыванию).
посмотрите саму программу пожалуйста и подскажите как реализовать запросы идеи были насчёт меню и кнопки. В меню номера запросов и по нажатию результат, а кнопка, как новая форма со стрелками перехода по запросам. Думаю вариант с меню будет проще реализовать На основе вашего примера (работающего) буду хотя бы иметь предстовления. Некоторые поля адаптировал для себя

[trojan218]

water_ поможете?

[water_]

судя по описанной задаче, нет необходимости выводить все таблицы с данными разом, возможно стоит использовать один query и в зависимости от запроса выводить в одной и той же таблице выборку данных

p.s. пример программы в лс