Среда, 22.11.2017, 01:48
Приветствую Вас Гость

Не ошибается тот, кто ничего не делает.
Но и ничего не делать - ошибка.

Эмиль Кроткий

Меню сайта
Категории раздела
База данных "Склад" [14]
Статьи, связанные с программированием баз данных
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


















Тиц
Главная » Статьи » Базы данных » База данных "Склад"

Delphi. Урок 1.2. Программирование баз данных в Delphi - создаем главную форму программы склад.
Содержание

Урок 1.1. Пишем программу складского учета.
Будем писать программу учета продуктов на складе по средней цене прихода. А для этого нам нужно научиться работать с базами данных. Начнем работу с создания базы в MS Access 2007.

Урок 1.2. Создаем главную форму программы склад.
На этом уроке мы создадим главную форму для нашего склада. Создадим подключение, к базе, используя компонент TADOConnection. Используемые компоненты ( TADOConnection ).

Урок 1.3. Создаем главную форму программы склад.
На этом уроке мы продолжим создание главной формы для нашего склада. Разместим основные компоненты, создадим меню... Используемые компоненты (TADOTable, TMainMenu).

Урок 1.4. Создаем подчиненные формы для справочников программы склад.
На этом уроке мы создадим форму для справочника "Единицы измерения"  нашего склада. Используемые компоненты (TButton, TDBGrid, TDataSource ).

Урок 1.5. Создаем подчиненные формы для справочников программы склад.
На этом уроке мы создадим форму для справочника «Категории продуктов» и «Поставщики»  нашего склада. Используемые компоненты (TButton, TDBGrid, TDataSource ).

Урок 1.6. Создаем подчиненные формы для справочников программы склад.
На этом уроке мы создадим форму для справочника «Продукты»  нашего склада c использованием поле Lookup  из других таблиц. Используемые компоненты (TButton, TDBGrid, TDataSource ).

Урок 1.7. Создаем формы прихода продуктов на склад.
На этом уроке мы создадим формы прихода продуктов на склад. Приход продуктов будет состоять из трех форм. В первой мы будем хранить данные о приходе. Во второй, данные о продуктах для каждого прихода. Третья – форма для выбора продуктов. Используемые компоненты (TButton, TDBGrid, TADOTable, TADOQuery, DataModule).

Урок 1.8. Создаем формы прихода продуктов на склад.
На этом уроке мы создадим вторую форму,  в которой будут отражаться данные о продуктах для каждого прихода. Используемые компоненты (TButton, TDBGrid, TADOTable, TADOQuery, DataModule, TDateTimePicker, TDBLookupComboBox).

Урок 1.9. Создаем формы прихода продуктов на склад.
На этом уроке мы создадим последнюю форму для прихода продуктов. В  ней  будет происходить   выбор продуктов прихода. Используемые компоненты (TButton, TDataSource, TDateTimePicker, TDBLookupComboBox, TDBEdit).

Урок 1.10. Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.
На этом уроке мы напишем процедуры для обработки событий для наших форм прихода, созданных на уроках 1.7. – 1.9.

Урок 1.13. Программирование баз данных в Delphi (Создаем модуль печати данных о приходе и расходе).
На этом уроке мы реализуем  печать данных прихода, расхода и состояния склада.  Печать будем реализовывать через MS Excel, то есть это будет не совсем печать, а экспорт данных в MS Excel, а там пользователь может сам выбрать, печатать или сохранить отчет. В начале приготовим шаблоны  MS Excel, в которые будем выводить отчеты

Урок 1.14. Программирование баз данных в Delphi (Создаем модуль для сжатия и восстановления базы данных).


Урок 1.2.
Программирование баз данных в Delphi - создаем главную форму программы склад

На этом уроке мы создадим главную форму для нашего склада. Создадим подключение, к базе, используя компонент TADOConnection.

Начнем

Запускаем Delphi,  выбираем File -> New-> VCL Forms Application - Delphi


Программирование баз данных в Delphi - создаем главную форму программы склад

и получаем на экране

Программирование баз данных в Delphi - создаем главную форму программы склад

Теперь сохраним наш проект в нужную нам папку (у меня папка sclad) и назовем файл (модуля pas) как  general, а файл проекта storage. Для этого выбираем File->Save Project As


Программирование баз данных в Delphi - создаем главную форму программы склад





Программирование баз данных в Delphi - создаем главную форму программы склад

Программирование баз данных в Delphi - создаем главную форму программы склад

Далее размещаем на форме  компонент TADOConnection вкладки dbGo (старое название ADO).


Программирование баз данных в Delphi - создаем главную форму программы склад



Перед настройкой подключения к базе, необходимо скопировать файл базы данных (storage.mdb), созданный на прошлом уроке в папку с проектом.

Начинаем подключение…

Выделяем компонент TADOConnection и в свойстве LoginPromt ставим на False. Это делаем для того, чтобы при подключении к БД пароль у нас не запрашивался, дальше в свойстве ConnectionString нажимаем на кнопку с «…» и видим:

Программирование баз данных в Delphi - создаем главную форму программы склад

В окне нажимаем на кнопку «Build…» и появляется следующее окно:


Программирование баз данных в Delphi - создаем главную форму программы склад



Выбираем провайдера, а именно Microsoft Jet 4.0 OLE DB Provaider и нажимаем кнопку «Далее».


Программирование баз данных в Delphi - создаем главную форму программы склад

В данном окне мы указываем путь к нашей БД и имя пользователя по умолчанию Admin , жмем кнопку «Ок». Если ваша БД находится в корневом каталоге с программой, то в данном поле достаточно указать ее имя с расширением, примерно так storage.mdb. Обратите внимание, если вы укажите полный путь к базе, то при переносе на другой компьютер путь к БД будет не найден!!!

В свойстве компонента TADOConnection – Mode выбрать из выпадающего списка cmShareDenyNone, а  свойство TADOConnection – Connected ставим True. Все подключение к базе активировано.

Сохраняем наш проект.  Скачать исходники для урока можно здесь.

Категория: База данных "Склад" | Добавил: xaramamburu (16.06.2011)
Просмотров: 26337 | Комментарии: 8 | Рейтинг: 3.9/8
Всего комментариев: 8
8  

1  
u menya ne polu4aetsya sdelat connected true! 4to mojno sdelat?

2  
Попробуйте вначале выбрать полный путь к базе, затем проверьте подключение. Если все нормально, удалите путь к базе и оставьте только имя. smile

3  
Вот я как раз столкнулся с такой проблемой, если пытаюсь открыть прогармму на другом компьютере, то у меня не видит базу, а если оставляю только имя базу, сразу не находит, может есть какой нибуть другой способ..может спомощью кода, подскажите пожалуйста

4  
По идее такого быть не должно. Delphi по умолчанию ищет данные в каталоге с программой, если конечно вы там в настройка чего нибудь не поменяли. Поэтому выбираете в начале полный путь к базе. Нажимаете проверить подключение и если все ОК удаляете путь к базе, оставив только имя и расширение файла, например storage.mdb, далее снова нажимаете проверить подключение, должно быть все ОК.
Можно загружать базу программно, например при создании главной формы просить пользователя выбрать базу:

Код
procedure TForm_general.FormCreate(Sender: TObject);
   var File1:string;
begin
      ShowMessage('Сейчас необходимо будет выбрать файл базы данных.');
      OpenDialog1.Filter := 'Базы данных|*.mdb';
      if Not(OpenDialog1.Execute) then
         begin
             ShowMessage('База данных не выбрана. Работа будет продолжена с текущей базой.');
         exit;
end;
File1:=OpenDialog1.FileName;
try
if ADOConnection1.Connected then
     ADOConnection1.Connected := False;
     ADOConnection1.ConnectionString :=   
Format('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data   
Source=%s;Persist Security Info=False',[File1]);
     ADOConnection1.Connected:=true;
Except
        ShowMessage('Не обнаружена База Данных!.');
        Application.Terminate;
end;
end;

Или сделать через выпадающее меню Файл->Открыть, но при этом вам придется прописать код для активации всех таблиц, что то типа ADOtable1.Active:=True; это можно сделать сразу после подключения к базе или в самих модулях с формами. Иначе у вас все таблицы окажутся закрытыми, потому что в этих примерах таблицы открываются при создании форм в в свойствах компонентов, путем присвоения  Active:=True, а без подключения к базе это свойство установится Active:=False.)))))))

5  
Спасибо большое, код заработал!!)))))) В настройках то я ничего не менял, у меня просто делфи 2011, наверное из-за этого у меня не получается и первый способ))))

6  
Ну значит у вас по умолчанию стоит другой каталог, а не каталог с программой. Кстати получить текущий каталог можно командой Edit1.Text:=GetCurrentDir();,  а задать SetCurrentDir('../../../');. Дело в том, что каждый раз заставлять пользователя выбирать базу при загрузке не очень хорошо. Попробуйте в коде, который приведен выше заменить строчку:
File1:=OpenDialog1.FileName;
на:
File1:=ExtractFilePath(Application.ExeName)+'имя базы.mdb'; , а строки выше с OpenDialog за комментировать. Здесь первая команда извлекает путь до вашего приложения, а затем прибавляется имя базы. База должна находится в папке с приложением.))))

7  
Поменял все заработало)))))Так и в правду удобнее)))Спасибо вам за все, у вас очень хороший сайт, а вы настоящий професссионал..не то что я)))))Спасибо правдо очень помогли smile

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Наш опрос
Оцените мой сайт
Всего ответов: 532
Уголок общения



Copyright MyCorp © 2017Конструктор сайтов - uCoz