powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поогите....
8 сообщений из 8, страница 1 из 1
Поогите....
    #32066728
Liza
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте!
Я начинающий программист, очень и очень начинающий, и настолько неопытная что не могу понять различие между SQL? Interbase и IBExpert. Пожалуйста если кто сможет объясните мне. А еще мне дали задание сделать "справочник" по двум таблицам которые находятся в SQL. По этим таблицам нужно сделать поиск, добавлять в них данные, корректировать, удалять, а также сделать отчет. С первым я справилась, поиск у меня получается, а дальше ничего не идет. Если сможете, пожалуйста помогите мне. Заранее благодарна. Да кстати забыла сказать что программирую (пытаюсь) я на Delphi.
...
Рейтинг: 0 / 0
Поогите....
    #32066885
korkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
наверно про ibexpress имеете ввиду dbexpress ?
Просто dbexpress и interbase разные закладки одной и той же темы для interbase.
Разница в interbase и SQL сервере (и то субд и то субд если очень грубо) По созданию баз SQL server более радует чем interbase проще понятней итд и менее гемо.

но помойму interbase можно юзать на халяву или он дешевле вот его и юзают мелкие фирмы.
Не надо описывать автоинкременты через тригеры итд

Девушка, если вам это просто демонстрашка.
Создайте базу в accese 2 таблици, ADO, Query компонент с кнопками управления, и все. Для запросов SQL AdoQuery.
и все, если для sql servera, запускаете мастер конвертирования и база ацесса в sql servere, меняете строку соединения ado и работаете с серваком
...
Рейтинг: 0 / 0
Поогите....
    #32066903
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Книжку хоть одну купите, ну пожалуйста :(((
Там все написано......

А для чего демонстрашка???
...
Рейтинг: 0 / 0
Поогите....
    #32066956
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте! Liza

Опишите конкретней что делаете и что не получется??..
На что ругается??
...
Рейтинг: 0 / 0
Поогите....
    #32066969
Liza
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Заранее извиняюсь за возможно примитивные объяснения.
В базе данных SQL содержаться 2 таблицы book и book_detail.
Первая содержит такие столбцы: code, name, tariff, address, data, вторая:
code, contract, tlp, type_yst, avttotv, prim, data, sprint. Вот данные из
этих таблиц выводятся при нажатии кнопки поиск в DBGrid1.
Для этой кнопки "поиск" я написала вот это:
form1.IBQuery1.sql.Clear;

if length(trim(Form1.Edit1.Text))>0
then Form1.IBQuery1.sql.Add('select * from book,book_detail where
book.code=book_detail.code and book.code like
'''+trim(Form1.Edit1.Text)+'%''');

if length(trim(Form1.Edit2.Text))>0
then Form1.IBQuery1.sql.Add('select * from book,book_detail where
book.code=book_detail.code and book_detail.contract like
'''+trim(Form1.Edit2.Text)+'''');

if length(trim(Form1.Edit3.Text))>0
then Form1.IBQuery1.sql.Add('select * from book where tariff like
'''+trim(Form1.Edit3.Text)+'%''');

if length(trim(Form1.Edit4.Text))>0
then Form1.IBQuery1.sql.Add('select * from book where address like
''%'+trim(Form1.Edit4.Text)+'%''');

if length(trim(Form1.Edit5.Text))>0
then Form1.IBQuery1.sql.Add('select * from book where name like
''%'+trim(Form1.Edit5.Text)+'%''');

if length(trim(Form1.Edit6.Text))>0
then Form1.IBQuery1.sql.Add('select * from book,book_detail where
book.code=book_detail.code and book_detail.type_ust like
''%'+trim(Form1.Edit6.Text)+'%''');

if length(trim(Form1.Edit7.Text))>0
then Form1.IBQuery1.sql.Add('select * from book,book_detail where
book.code=book_detail.code AND avttotv like
'''+trim(Form1.Edit7.Text)+'%''');

if length(trim(Form1.Edit8.Text))>0
then Form1.IBQuery1.sql.Add('select * from book,book_detail where
book.code=book_detail.code and book_detail.tlp like
'''+trim(Form1.Edit8.Text)+'%''');

Form1.IBQuery1.sql.SaveToFile('sql');
Form1.IBQuery1.Active:=True;
Form1.Edit1.Text:='';
Form1.Edit2.Text:='';
Form1.Edit3.Text:='';
Form1.Edit4.Text:='';
form1.Edit5.Text:='';
Form1.Edit6.Text:='';
Form1.Edit7.Text:='';
Form1.Edit8.Text:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IBQuery1.Insert;
form2.showmodal;
end;
Все это работает. Т. е. при вводе в какой-нибудь из Edit-ов какого-либо значения программка находит нужное.
Теперь нужно коректировать, добавить и удалить значения. Для корректировки и добавления я создала новую формочку с DBEdit-ами. В них по моим задумкам должны вводиться данные, ну или корректироваться. И при нажатии кнопки ОК формочка закрывается, а введенные данные заносятся в БД. Вот вроде и все что могу сказать...
...
Рейтинг: 0 / 0
Поогите....
    #32067130
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На сколько я понял постоянной связи с базой (таблицы book и book_detail) у Вас нет....
т.е. Вы с помощью компонентов Delphi устанавливаете временное соединение с book и book_detail
Код: plaintext
form1.IBQuery1.sql.Clear; 

и выбрав из них нужные значения
Код: plaintext
1.
2.
'select * from book,book_detail where 
book.code=book_detail.code and book.code like 
'''+trim(Form1.Edit1.Text)+'%'''); 

сохраняете в создаваемом файле
Код: plaintext
Form1.IBQuery1.sql.SaveToFile('sql'); 

из которого уже и выводите даннее в форму........
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Form1.IBQuery1.Active:=True; 
Form1.Edit1.Text:=''; 
Form1.Edit2.Text:=''; 
Form1.Edit3.Text:=''; 
Form1.Edit4.Text:=''; 
form1.Edit5.Text:=''; 
Form1.Edit6.Text:=''; 
Form1.Edit7.Text:=''; 
Form1.Edit8.Text:=''; 


Поправьте если не так........

Вот вы пишите о 2 форме с DBEdit-ами.
сявжите её с базой (т.е. с book и book_detail)....

Как Вы собираетесь коректировать таблицу не видя её содержимого???.......

Или я, что-то не понял???.....
...
Рейтинг: 0 / 0
Поогите....
    #32067377
Liza
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А для чего нужно видеть содержимое таблицы? По моему и так корретируется. Для одной таблицы все получается, а вот как связать две и занести в БД - вот этот проблема:((
...
Рейтинг: 0 / 0
Поогите....
    #32067682
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Liza

Это не проблема........
Если тебя скулевские (SQL) команды интересуют то тебе на соседний форум SQL server зайти надо.... там тебе быстро все запросы выдадут.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поогите....
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]