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

@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 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .