Грузовые перевозки

@Nikita110001 · Регистрация: 22.03.2018

Студворк — интернет-сервис помощи студентам

Вы работаете в компании, занимающейся перевозками грузов. Вашей задачей является отслеживание стоимости перевозок с учетом заработной платы водителей. Ваша компания осуществляет перевозки по различным маршрутам. Для каждого маршрута Вы определили некоторое название, вычислили примерное расстояние и установили некоторую оплату для водителя. Информация о водителях включает фамилию, имя, отчество и стаж. Для проведения расчетов Вы храните полную информацию о перевозках (маршрут, водитель, даты отправки и прибытия ). По факту некоторых перевозок водителям выплачивается премия. Таблицы

Маршруты (Код маршрурта, Название, Дальность, Количество дней в пути, Оплата ).

Водители (Код водителя, Фамилия, Имя, Отчество, Стаж ).

Проделанная работа (Код маршрута, Код водителя, Дата отправки, Дата возвращения, Премия ).

Развитие постановки задачи

Теперь ситуация изменилась. Ваша фирма решила ввести гибкую систему оплаты. Так, оплата водителям должна теперь зависеть не только от маршрута, но и от стажа водителя. Кроме того, нужно учесть, что перевозку могут осуществлять два водителя.Внести в структуру таблиц изменения, учитывающие эти факты, и изменить существующие запросы. Добавить новые запросы.

Добавлено через 4 минуты
2.4 Разработка запросов базы данных

Первая форма:
Запрограммируем кнопку «Выход»:

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer2.Enabled:=false;
Gauge1.Visible:=false;
Form7.Show;
close;
end;

Запрограммируем «Timer1», который будет отображать время:

Delphi
1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;

И «Timer2», который будет вести отсчет времени в пробной версии:

Delphi
1
2
3
4
5
6
7
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer2.Interval:=200;
Gauge1.Progress:=Gauge1.Progress-1;
if Gauge1.Progress=0 then (close);
if Gauge1.Progress=0 then Form7.close;
end;

Запрограммируем «Автопарк»:

Delphi
1
2
3
4
5
procedure TForm1.N5Click(Sender: TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource1;
DBNavigator1.DataSource:=DataModule2.DataSource1;
end;

Запрограммируем «Перевозки»:

Delphi
1
2
3
4
5
procedure TForm1.N6Click(Sender: TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource2;
DBNavigator1.DataSource:=DataModule2.DataSource2;
end;

Запрограммируем «Заработки »:

Delphi
1
2
3
4
5
procedure TForm1.N7Click(Sender: TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource3;
DBNavigator1.DataSource:=DataModule2.DataSource3;
end;

Запрограммируем «Сортировка»:

Delphi
1
2
3
4
5
procedure TForm1.N14Click(Sender: TObject);
begin
Form3.Show;
Form1.Visible:=false;
end;

Запрограммируем «О программе»:

Delphi
1
2
3
4
procedure TForm1.N3Click(Sender: TObject);
begin
AboutBox.Visible:=True;
end;

Запрограммируем «Экспорт в Excel»:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TForm1.N18Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i, j:Integer;
 
[size="1"][color="grey"][I]Добавлено через 15 секунд[/I][/color][/size]
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Грузоперевозки';
Colum:=XLApp.Workbooks[1].WorkSheets['Грузоперевозки'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
 
Colum:=XLApp.Workbooks[1].WorkSheets['Грузоперевозки'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Грузоперевозки'];
Sheet.Cells[1,2]:='Автопарк';
Sheet.Cells[2,1]:='Гос.номер';
Sheet.Cells[2,2]:='Марка';
Sheet.Cells[2,3]:='Водитель';
Sheet.Cells[2,4]:='Грузоподъемность';
Sheet.Cells[2,5]:='Длина';
Sheet.Cells[2,6]:='Ширина';
Sheet.Cells[2,7]:='Высота';
 
index:=3;
DBGrid1.DataSource.DataSet.First;
for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do
begin
for j:=1 to DBGrid1.FieldCount do
sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring;
inc(index);
DBGrid1.DataSource.DataSet.Next;
end;
end;

Запрограммируем «Печать таблицы»:

Delphi
1
2
3
4
procedure TForm1.N9Click(Sender: TObject);
begin
Form8.Show;
Form1.Visible:=false;

Запрограммируем «Поиск»:

Delphi
1
2
3
4
5
procedure TForm1.N16Click(Sender: TObject);
begin
Form5.Show;
Form1.Visible:=false;
end;

Вторая форма:
Запрограммируем кнопку «Выход»:

Delphi
1
2
3
4
5
procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Show;
close;
end;

Запрограммируем «Справка»:

Delphi
1
2
3
4
procedure TForm3.N1Click(Sender: TObject);
begin
AboutBox1.Show;
end;

Запрограммируем «О программе»:

Delphi
1
2
3
4
procedure TForm3.N2Click(Sender: TObject);
begin
AboutBox.Visible:=True;
end;

Запрограммируем «Автопарк»:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm3.RadioButton1Click(Sender:
 
[size="1"][color="grey"][I]Добавлено через 31 секунду[/I][/color][/size]
TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource1;
DBNavigator1.DataSource:=DataModule2.DataSource1;
RadioButton4.Visible:=True;
RadioButton5.Visible:=True;
RadioButton2.Visible:=True;
RadioButton6.Visible:=False;
RadioButton8.Visible:=False;
RadioButton9.Visible:=False;
end;

Запрограммируем «Гос.номер»:

Delphi
1
2
3
4
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
DataModule2.Table1.IndexFieldNames:='N:Avto';
end;

Запрограммируем «Заработки»:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource3;
DBNavigator1.DataSource:=DataModule2.DataSource3;
RadioButton4.Visible:=False;
RadioButton5.Visible:=False;
RadioButton2.Visible:=False;
RadioButton6.Visible:=True;
RadioButton8.Visible:=True;
RadioButton9.Visible:=True;
end;

Запрограммируем « Гос.номер »:

Delphi
1
2
3
4
procedure TForm3.RadioButton6Click(Sender: TObject);
begin
DataModule2.Table3.IndexFieldNames:='N:Avto';
end;

Запрограммируем «Километры»:

Delphi
1
2
3
4
procedure TForm3.RadioButton8Click(Sender: TObject);
begin
DataModule2.Table3.IndexFieldNames:='Kilometras,km';
end;

Запрограммируем «Тонны»:

Delphi
1
2
3
4
procedure TForm3.RadioButton9Click(Sender: TObject);
begin
DataModule2.Table3.IndexFieldNames:='Tonnas,t';
end;

Запрограммируем «Марка»:

Delphi
1
2
3
4
procedure TForm3.RadioButton4Click(Sender: TObject);
begin
DataModule2.Table1.IndexFieldNames:='Marka';
end;

Запрограммируем «Водитель»:

Delphi
1
2
3
4
procedure TForm3.RadioButton5Click(Sender: TObject);
begin
DataModule2.Table1.IndexFieldNames:='Voditel';
end;

Третья форма:
Запрограммируем кнопку «Выход»:

Delphi
1
2
3
4
5
procedure TForm5.Button2Click(Sender: TObject);
begin
Form1.Show;
close;
end;

и кнопку «Печать»:

Delphi
1
2
3
4
5
procedure TForm5.Button1Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
PrintDialog1.Execute;
end;

Запрограммируем кнопку «Поиск водителя»:

procedure

Добавлено через 31 секунду

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
TForm5.RadioButton2Click(Sender: TObject);
var voditel:string [20];
begin
voditel:=InputBox('Поиск информации из БД','Введите водителя :', '');
if voditel '' then
begin
with DataModule2.Query1 do begin
Close;
SQL.Clear;
SQL.Add('select * ');
SQL.Add(' from AvtoPark1');
SQL.Add('where ( voditel = "'+ Voditel + '")');
Open;
end;
if DataModule2.Query1.RecordCount 0 then
DBgrid1.DataSource:=DataModule2.DataSource4
else begin
ShowMessage('В базе данных нет');
DBGrid1.DataSource:=dataModule2.dataSource4 end;
end;
RadioButton2.Checked:=False;
end;

Запрограммируем кнопку «Поиск по длине кузова»:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm5.RadioButton3Click(Sender: TObject);
var Dlina:string [20];
begin
Dlina:=InputBox('Поиск информации из БД','Введите длину :', '');
if Dlina '' then
begin
with DataModule2.Query1 do begin
Close;
SQL.Clear;
SQL.Add('select * ');
SQL.Add(' from AvtoPark1');
SQL.Add('where ( Dlina = "'+ Dlina + '")');
Open;
end;
if DataModule2.Query1.RecordCount 0 then
DBgrid1.DataSource:=DataModule2.DataSource4
else begin
ShowMessage('В базе данных нет ');
DBGrid1.DataSource:=dataModule2.dataSource4 end;
end;
RadioButton3.Checked:=False;
end;

Четвертая форма:
Запрограммируем кнопку «Вход»:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm7.Button1Click(Sender: TObject);
begin
If(Edit2.Text='111')then
begin
Image2.Show;
Form1.show;
Edit2.Clear;
Form7.Visible:=false;
Image2.Visible:=false;
End;else
begin
MessageDlg('Ключ не верный!',mterror,[mbOk],0);
Edit2.Clear;
end;
end;

и кнопку «Бета»:

Delphi
1
2
3
4
5
6
procedure TForm7.Button2Click(Sender: TObject);
begin
Form1.Gauge1.Visible:=True;
form1.Timer2.Enabled:=true;
Form1.show;
end;

При нажатии рисунка 1 запускается процедура:

Delphi
1
2
3
4
procedure TForm7.Image1Click(Sender: TObject);
begin
Close;
end;

При вводе в поле Edit2 рисунок Image2 становится видимым

Delphi
1
2
3
4
5
procedure TForm7.Edit2Change(Sender: TObject);
begin
If(Edit2.Text='111')then
Image2.Show;
end;

Пятая форма:
Запрограммируем кнопку «Выход»:

Delphi
1
2
3
4
5
procedure TForm8.Button2Click(Sender: TObject);
begin
Form1.Show;
close;
end;

и кнопку «Печать»:

Delphi
1
2
3
4
5
procedure TForm8.Button1Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
PrintDialog1.Execute;
end;

Запрограммируем «Автопарк»:

Delphi
1
2
3
4
procedure TForm8.RadioButton1Click(Sender: TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource1;
end;

Запрограммируем «Перевозки»:

Delphi
1
2
3
4
procedure TForm8.RadioButton2Click(Sender: TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource2;
end;

Запрограммируем «Заработки »:

Delphi
1
2
3
4
procedure TForm8.RadioButton3Click(Sender: TObject);
begin
DbGrid1.DataSource:=DataModule2.DataSource3;
end;

Добавлено через 2 минуты
Помогите пожалуйста собрать код в одно целое и сделать программу по теме База данных "Грузоперевозки" в Делфи 7 если можно то пришлите исходник программы умоляю вас очень надо сам код нашел в интернете как собрать в одно целое и сделать программу рабочую из него не получается ?

Добавлено через 1 минуту
Вот Лекция по теме код был взят от суда кому надо помогите пожалуйста мне (https://www.skachatreferat.ru/... 29417.html)!!!

Добавлено через 10 минут
В этой теме нет исходника от Delphi а только база данных (База данных перевозки)

Добавлено через 9 минут
Кому надо ещё могу дать базу данных в sql-формате только прощу сделайте напишите а то я не могу у меня не получается я всё вам дал что мог помогите мне пожалуйста сделать из Кода +Отчёта+Базы Данных исходник Курсового проекта который должен быть написан на Delphi умоляю вас за ранние спасибо и как обещал база данных на sql формате (https://www.cyberforum.ru/atta... 1301248041)

@drvolodko · 12.10.2018, 16:39

а что не получается конкретно? если надо полностью ПО разработать - то это на фриланс. Так как за вас работу целиком просто так никто делать не будет. [del].

Комментарий модератора

drvolodko, п. 4.6 Правил форума!!!

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.