Автор: Пользователь скрыл имя, 26 Декабря 2011 в 16:13, курсовая работа
Данная работа посвящена разработке базы данных и подключение её к Delphi для Таксомоторного парка. Она должна помочь решить проблемы , со скоростью обработки информации , заполнения заказов и удобностью пользованием данными.
Введение……………………………………………………………………...3
Глава 1. Описание ПО ……………………………………………………...4
Глава 2. Компоненты для подключения БД……………………………….5
Глава 3. Настройка компонентов
3.1 Настройка ADOConnectiona…………………………………..10
3.2 Настройка ADODataSet……………………………………....12
3.3 Настройка DataSource…………………………………………13
3.4 Настройка ADOQuer……………………………………………14
3.5 Настройка DBGrid……………………………………………..15
Глава 4. Оформление………………………………………………………16
Глава 5. Код программы…………………………………………………..18
Заключение………………………………………………………………….21
Список литературы…………………………………………………………22
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
ADOQuery1: TADOQuery;
DBNavigator1: TDBNavigator;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
Public
{ Public declarations }
end;
var
Form1:
TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin// Тело программы
ADOQuery1.Active:=False; // Выключает активность ADOQuery
DataSource1.DataSet:= ADOQuery1; //Ставит в свойстве DataSource1 DataSet ADOQuery
ADOQuery1.SQL.Clear; // Чистит SQL запрос
ADOQuery1.SQL.Add('Select * from Mashini');// Подключается к таблицы Mashini
ADOQuery1.ExecSQL;
ADOQuery1.Active:=True; // Включает активность ADOQuery
end;
procedure TForm1.Button2Click(Sender: TObject);
begin// Тело программы
ADOQuery1.Active:=False; ; // Выключает активность ADOQuery
DataSource1.DataSet:= ADOQuery1; //Ставит в свойстве DataSource1 DataSet ADOQuery
ADOQuery1.SQL.Clear; // Чистит SQL запрос
ADOQuery1.SQL.Add('Select * from Tarif'); // Подключается к таблицы Tarif
ADOQuery1.ExecSQL;
ADOQuery1.Active:=True; // Включает активность ADOQuery
end;
procedure TForm1.Button3Click(Sender: TObject);
begin// Тело программы
ADOQuery1.Active:=False; ; // Выключает активность ADOQuery
DataSource1.DataSet:= ADOQuery1; //Ставит в свойстве DataSource1 DataSet ADOQuery
ADOQuery1.SQL.Clear; // Чистит SQL запрос
ADOQuery1.SQL.Add('Select * from Voditeli'); // Подключается к таблицы Voditeli
ADOQuery1.ExecSQL;
ADOQuery1.Active:=True; // Включает активность ADOQuery
end;
procedure TForm1.Button4Click(Sender: TObject);
begin // Тело программы
ADOQuery1.Active:=False; ; // Выключает активность ADOQuery
DataSource1.DataSet:= ADOQuery1; //Ставит в свойстве DataSource1 DataSet ADOQuery
ADOQuery1.SQL.Clear; // Чистит SQL запрос
ADOQuery1.SQL.Add('Select * from Zakazi'); // Подключается к таблицы Zakazi
ADOQuery1.ExecSQL;
ADOQuery1.Active:=True; // Включает активность ADOQuery
end;
end.
База данных таксопарка , помогает облегчить жизнь рабочим
и заказчикам . Создание такой базы облегчает нахождение
нужной информации , позволяет быстро манипулировать данными .
Так же вы сразу видите все расценки , машины и маршруты ,
что вам позволяет
Список литературы