Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Национальный исследовательский технологический университет "МИСиС"

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

DP.doc

Скачиваний:

Добавлен:

23.09.2019

Размер:

3.11 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 1314 / 1514 15 > Следующая >>>

Заключение

Тема дипломного проекта была выбрана в соответствии с заданием, выданном руководителем преддипломной практики.

В первой главе выполнены следующие задачи, а именно: конкретизирована постановка задачи, проведён обзор существующих решений и обоснован выбор языка программирования.

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

В третьей главе выполнены следующие задачи, а именно:

Составленная смета затрат на программный продукт.

Подводя итоги выполненного задания, следует отметить, что в нём были достигнуты поставленная цель и задачи.

Список используемой литературы

1. Галисеев Г. В. Программирование в среде Delphi 7. Самоучитель;

2. Жуков А. В. Изучаем Delphi. г. Санкт-Петербург: издательство «Питер», 2007 г. - 352 с.;

3. Фаронов В. В. Delphi. Программирование на языке высокого уровня г. Санкт-Перетбург: издательство «Питер», 2010 г. - 640 с.;

4. http://delphi-z.ru/tags/MySQL

5. www.delphiexpert.ru/

6. www.delphi.int.ru/

7. www.edelphi.ru/

8. www.cyberforum.ru

9. www.sql.ru

10. www.delphisources.ru

11. www.delphi-z.ru

12. www.delphicode.org

13. www.programmersforum.ru

Приложение. Код программы //Клиентское приложение.

//Авторизация

unit start_prog;

interface // Открытый интерфейс формы

{Список подключаемых модулей}

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,

Vcl.Imaging.GIFImg, Vcl.ComCtrls, Data.DBXMySQL, Data.DB, Data.SqlExpr,

Data.DBXTrace, Data.FMTBcd, Datasnap.DBClient, SimpleDS, DBAccess, MemDS, Vcl.DBCtrls, Vcl.Mask,

IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient;

{Объявление класса формы}

type

Tstart = class(TForm)

Panel1: TPanel;

ProgressBar1: TProgressBar;

Image1: TImage;

Label3: TLabel;

Panel2: TPanel;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

CheckBox1: TCheckBox;

GroupBox2: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

ComboBox1: TComboBox;

DBEdit1: TDBEdit;

Timer1: TTimer;

DBEdit2: TDBEdit;

IdIcmpClient1: TIdIcmpClient;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure ComboBox1DropDown(Sender: TObject);

{Сюда Delphi помещает объявления компонентов,

размещаемых на форме. Не добавляйте сюда ничего вручную}

private// Закрытый раздел класса

{Private declarations}

{Сюда могут помещаться объявления переменных, функций

и процедур, включаемых в класс формы, но не доступных

для других модулей}

public// Открытый раздел класса

{Public declarations}

{Сюда могут помещаться объявления переменных, функций

и процедур, включаемых в класс формы и доступных для

других модулей}

end;

var

start: Tstart;

ip: string = localhost; //Глобальная переменная IP-адреса (примеры) 192.168.116.112, localhost, 127.0.0.1, 192.168.1.29

{Сюда могут помещаться объявления типов, констант,

переменных, функций и процедур, к которым будет

доступ из других модулей, но которые не включаются

в класс формы. Они будут едины для всех объектов

форм}

implementation // Реализация модуля

{$R *.dfm}

uses osn, reg, uni_components;

{Сюда могут помещаться предложения uses, объявления

типов, констант, переменных, к которым не будет

доступа из других модулей. Они будут едины для

всех объектов форм. Тут же должны быть реализации

всех объявленных в разделе interface функций и

процедур, а также могут быть реализации любых

дополнительных, не объявленных ранее функций и процедур}

procedure Tstart.Timer1Timer(Sender: TObject);

Var i: Integer; //назначаем переменную "i" числового типа

begin

i:=ProgressBar1.Position;

i:=i+1; //увеличиваем на один значение переменной

Progressbar1.Position:=i;

//---Проверка соединения с сервером---//

if i=10 then begin

IdIcmpClient1.Host:=ip;

IdIcmpClient1.Ping;

Edit1.Text:=(IntToStr(IdIcmpClient1.ReplyStatus.TimeToLive));

if Edit1.Text= '0' then begin

Progressbar1.Destroy;

Timer1.Destroy;

ShowMessage('Соединение с базой данных отсутствует!');

Label3.Caption:='Disconnected';

end else begin

Edit1.Text:='';

Label3.Caption:='Connected';

end;

//---Проверка соединения с сервером---//

if i=20 then

Label3.Caption:='20 %';

//---Настройка соединения с таблицами---//

if i=30 then begin

U.Connection.ProviderName:='MySQL';

U.Connection.Server:=ip;

U.Connection.Database:='uptrasko';

U.Connection.Username:='root';

U.Connection.Password:='';

U.Connection.Connected:=true;

U.Table_users.Active:=true;

U.Table_transport.Active:=true;

U.Table_drivers.Active:=true;

U.Table_lists.Active:=true;

U.Table_traffic.Active:=true;

U.Table_kontragents.Active:=true;

Label3.Caption:='30 %';

end;

//---Настройка соединения с таблицами---//

if i=40 then

Label3.Caption:='40 %';

if i=50 then

Label3.Caption:='50 %';

if i=60 then

Label3.Caption:='60 %';

if i=70 then

Label3.Caption:='70 %';

if i=80 then

Label3.Caption:='80 %';

if i=90 then

Label3.Caption:='90 %';

if i=97 then

Label3.Caption:='100 %';

if i=98 then

Height:=150;

if i=100 then begin

Panel2.Visible:=True; //Отображение панели с полями ввода логина и пароля

end;

//---Вносим значения Login из таблицы users---//

procedure Tstart.ComboBox1DropDown(Sender: TObject);

begin

U.Table_users.Active:=false;

U.Table_users.SQL.Clear;

ComboBox1.Items.Clear;

U.Table_users.SQL.Text:='SELECT login FROM users order by login ASC';

U.Table_users.Active:=true;

U.Table_users.First; //Укажем на первую запись

While not U.Table_users.EOF do

begin

ComboBox1.Items.Add(U.Table_users.FieldByName('login').AsString); //Заполняем

U.Table_users.Next; //комбобокс значениями

end;

ComboBox1.ItemIndex :=0;

end;

//---Вносим значения Login из таблицы users---//

//---Кнопка "Выход"---//

procedure Tstart.Button1Click(Sender: TObject);

begin

Application.Terminate; //Выход

end;

//---Кнопка "Выход"---//

//---Кнопка "Регистрация"---//

procedure Tstart.Button2Click(Sender: TObject);

begin

U.Table_users.Active:=false;

U.Table_users.SQL.Clear;

U.Table_users.SQL.Text:='SELECT * FROM users';

U.Table_users.Active:=true;

registration.Show;

end;

//---Кнопка "Регистрация"---//

//---Кнопка "Вход"---//

procedure Tstart.Button3Click(Sender: TObject);

begin

U.Table_users.Active:=false;

U.Table_users.SQL.Clear;

U.Table_users.SQL.Text:='SELECT * FROM users where Login="'+ComboBox1.Text+'";';

U.Table_users.Active:=true;

DBEdit1.DataSource:=U.DataSource_users;

DBEdit1.DataField:='Password';

DBEdit2.DataSource:=U.DataSource_users;

DBEdit2.DataField:='Статус регистрации';

if (ComboBox1.Text='') or (Edit1.Text='') then

ShowMessage('Имя пользователя или пароль не могут быть пустыми!')

else begin

if DBEdit2.Text='0' then begin

ShowMessage('Ваша учетная запись зарегистрирована, но не подтверждена системным администратором.');

end else begin

if Edit1.Text=DBEdit1.Text then begin

osnovnaya_forma.Show;

osnovnaya_forma.TrayIcon.Visible:=true;

osnovnaya_forma.TrayIcon.BalloonHint:=

'Пользователь '+ComboBox1.Text+' успешно вошел в систему!';

osnovnaya_forma.TrayIcon.ShowBalloonHint;

DBEdit1.DataField:='';

DBEdit2.DataField:='';

start.Visible:=false;

U.IdTCPClient1.Port:=12345;

U.IdTCPClient1.Host:=ip;

U.IdTCPClient1.Connect;

U.IdTCPClient1.IOHandler.WriteLn(ComboBox1.Text);

U.IdTCPClient1.Disconnect;

U.Query.Active:=false;

U.Query.SQL.Text:=('Update `Users` set `Online`="1" WHERE `Login`="'+ComboBox1.Text+'";');

U.Query.ExecSQL;

end else

ShowMessage('Имя пользователя или пароль не верны!');

end;

//---Кнопка "Вход"---//

//---CheckBox "Показать пароль"---//

procedure Tstart.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then //Если галочка стоит, то

Edit1.PasswordChar:=#0 //символы будут отображаться

else //иначе

Edit1.PasswordChar:='*'; //будут скрыты

end;

//---CheckBox "Показать пароль"---//

end.

//Регистрация

unit reg;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls,

Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.Imaging.jpeg, Vcl.Imaging.pngimage;

type

Tregistration = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button2: TButton;

Label6: TLabel;

Label7: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button3: TButton;

Image1: TImage;

Button4: TButton;

Label5: TLabel;

Edit7: TEdit;

Label8: TLabel;

Edit8: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

registration: Tregistration;

implementation

{$R *.dfm}

uses start_prog, Uni_components;

procedure Tregistration.Button1Click(Sender: TObject);

var tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7, tmp8:string;

begin

if (Edit1.Text='') or (Edit2.Text='') or

(Edit3.Text='') or (Edit4.Text='') or

(Edit5.Text='') or (Edit6.Text='') or

(Edit7.Text='') or (Edit8.Text='')then

ShowMessage('Необходимо заполнить все поля!')

else begin

U.Table_users.Open;

tmp1:=Edit1.Text;

tmp2:=Edit2.Text;

tmp3:=Edit3.Text;

tmp4:=Edit4.Text;

tmp5:=Edit5.Text;

tmp6:=Edit6.Text;

tmp7:=Edit7.Text;

tmp8:=Edit8.Text;// запоминаем значение поля Едит в переменной tmp...

U.Table_users.Insert; // вставили новую запись в таблицу..

//Все... В Edit.Text стало пусто...

U.Table_users.FieldByName('Фамилия').AsString:=tmp1;

U.Table_users.FieldByName('Имя').AsString:=tmp2;

U.Table_users.FieldByName('Отчество').AsString:=tmp3;

U.Table_users.FieldByName('Номер телефона').AsString:=tmp4;

U.Table_users.FieldByName('Подразделение').AsString:=tmp5;

U.Table_users.FieldByName('Должность').AsString:=tmp6;

U.Table_users.FieldByName('Login').AsString:=tmp7;

U.Table_users.FieldByName('Password').AsString:=tmp8;// теперь указываем поле в выделенной записи,

//затем заносим в него значение переменной tmp1.

U.Table_users.Post;// сохраняем изменения в таблице

ShowMessage('Ваша учетная запись успешно зарегистрирована!');

end;

procedure Tregistration.Button2Click(Sender: TObject);

begin

Edit1.Text:='Иванов';

Edit2.Text:='Иван';

Edit3.Text:='Иванович';

Edit4.Text:='8-916-662-87-96';

Edit5.Text:='Отдел перевозок по РФ и СНГ';

Edit6.Text:='Ассистент менеджера по перевозкам';

Edit7.Text:='IvanovI';

Edit8.Text:='g5g4dx65f1';

Button3.Visible:=true;

Button2.Visible:=false;

end;

procedure Tregistration.Button3Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Edit8.Text:='';

Button2.Visible:=true;

Button3.Visible:=false;

end;

procedure Tregistration.Button4Click(Sender: TObject);

var

number, small, big, tmp: Char;

length, i, gen: integer;

begin

Edit8.Clear; //Очищаем edit

Randomize; //делаем 'качественный' рэндом

length := 8; //Задаем длину пароля

for i := 0 to length-1 do begin //цикл по длине пароля

number := char(48+random(10)); //в переменной number хранится цифра

small := Char(65+Random(25));//в переменной small хранится заглавная буква

big := Char(97+Random(25));//в переменной big хранится строчная буква

gen := Random(3);

case gen of //выбираем рэндомно, какой символ будет: цифра, или строчная/заглавная буква

0: tmp := number;

1: tmp := small;

2: tmp := big;

end;

Edit8.text := Edit8.Text + tmp; //добавляем к паролю символ

end;

end.

//Основная форма

unit osn;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.GIFImg, Vcl.ExtCtrls,

Vcl.Menus, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.Imaging.jpeg,

Vcl.Imaging.pngimage, Vcl.ComCtrls, ComObj, Vcl.Buttons, Vcl.OleCtnrs,

Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnPopup, Printers;

type

Tosnovnaya_forma = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N11: TMenuItem;

N7: TMenuItem;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

StaticText2: TStaticText;

StaticText1: TStaticText;

DBGrid1: TDBGrid;

Button11: TButton;

Button1: TButton;

Button23: TButton;

Button24: TButton;

DBGrid2: TDBGrid;

N8: TMenuItem;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

DBNavigator1: TDBNavigator;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBNavigator2: TDBNavigator;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

Word1: TMenuItem;

Exel1: TMenuItem;

HTML1: TMenuItem;

PDF1: TMenuItem;

N12: TMenuItem;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

BitBtn4: TBitBtn;

Button2: TButton;

Button3: TButton;

ComboBox3: TComboBox;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

BitBtn5: TBitBtn;

Button5: TButton;

Button6: TButton;

ComboBox4: TComboBox;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

BitBtn6: TBitBtn;

Button8: TButton;

Button9: TButton;

ComboBox5: TComboBox;

Image1: TImage;

TrayIcon: TTrayIcon;

PopupActionBar: TPopupActionBar;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

procedure N8Click(Sender: TObject);

procedure StaticText1Click(Sender: TObject);

procedure StaticText2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button23Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Word1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure ComboBox4Change(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure ComboBox5Change(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure TrayIconDblClick(Sender: TObject);

procedure TrayIconClick(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

osnovnaya_forma: Tosnovnaya_forma;

implementation

{$R *.dfm}

uses start_prog, cars, uni_components, drivers, cars_filter, drivers_filter, prog_info, find, options,

zakazchiki_filter, zakazchiki, route_filter, route, transportation,

transportation_filter, spravka;

//---Отображение на панели задач(часть2)---//

procedure Tosnovnaya_forma.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent:=0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

//---"Кнопка Начать работу!"---//

procedure Tosnovnaya_forma.Image1Click(Sender: TObject);

begin

//Активируем панель с закладками ..

PageControl1.Visible:=true;

//Выводим таблицу транспорт в DBGrid

U.Table_transport.Active:=false; //Деактивируем

U.Table_transport.SQL.Text:='SELECT * FROM transport';//Делаем запрос на выборку всех записей из таблицы

U.Table_transport.Active:=true; //Активируем

DBGrid1.DataSource:=U.DataSource_transport; //Заносим значения таблицы в соответствующий DBGrid

//---Выводим таблицу транспорт в DBGrid

//Выводим таблицу водители в DBGrid

U.Table_drivers.Active:=false; //Деактивируем

U.Table_drivers.SQL.Text:='SELECT * FROM drivers'; //Делаем запрос на выборку всех записей из таблицы

U.Table_drivers.Active:=true; //Активируем

DBGrid2.DataSource:=U.DataSource_drivers; //Заносим значения таблицы в соответствующий DBGrid

//---Выводим таблицу водители в DBGrid

//Выводим таблицу контрагенты в DBGrid

U.Table_kontragents.Active:=false; //Деактивируем

U.Table_kontragents.SQL.Text:='SELECT * FROM kontragents'; //Делаем запрос на выборку всех записей из таблицы

U.Table_kontragents.Active:=true; //Активируем

DBGrid3.DataSource:=U.DataSource_kontragents; //Заносим значения таблицы в соответствующий DBGrid

//---Выводим таблицу контрагенты в DBGrid

//Выводим таблицу путевые листы в DBGrid

U.Table_lists.Active:=false; //Деактивируем

U.Table_lists.SQL.Text:='SELECT * FROM lists'; //Делаем запрос на выборку всех записей из таблицы

U.Table_lists.Active:=true; //Активируем

DBGrid4.DataSource:=U.DataSource_lists; //Заносим значения таблицы в соответствующий DBGrid

//---Выводим таблицу путевые листы в DBGrid

//Выводим таблицу перевозки в DBGrid

U.Table_traffic.Active:=false; //Деактивируем

U.Table_traffic.SQL.Text:='SELECT * FROM traffic'; //Делаем запрос на выборку всех записей из таблицы

U.Table_traffic.Active:=true; //Активируем

DBGrid5.DataSource:=U.DataSource_traffic; //Заносим значения таблицы в соответствующий DBGrid

//---Выводим таблицу перевозки в DBGrid

end;

//---"Кнопка Начать работу!"---//

///////!!!----Транспорт----!!!///////

//---Печать таблицы "Транспорт"---//

procedure Tosnovnaya_forma.BitBtn2Click(Sender: TObject);

var

printDialog : TPrintDialog;

begin

if opt.CheckBox5.Checked=false then

Print //Обычная печать, без выбора принтера

else begin

// Создание диалога выбора принтера

printDialog := TPrintDialog.Create(osnovnaya_forma);

// Если пользователь выбрал принтер (или значение по умолчанию), то печатаем!

if printDialog.Execute then

begin

//Ориентация печати

if opt.CheckBox6.Checked=false then

Printer.Orientation:=poPortrait

else begin

Printer.Orientation:=poLandscape

end;

//Заголовок

Printer.Title := 'Печать';

if opt.CheckBox4.Checked=true then

PrintScale:=poPrintToFit //подгон размера

else begin

PrintScale:=poProportional

end;

// Начало печати

Printer.BeginDoc;

osnovnaya_forma.Print;

// Конец печати

Printer.EndDoc;

end;

//---Печать таблицы "Транспорт"---//

//---Форма "Транспорт"---//

procedure Tosnovnaya_forma.Button1Click(Sender: TObject);

begin

transport.Show;

transport.DBNavigator1.DataSource:=U.DataSource_transport;

transport.DBEdit1.DataSource:=U.DataSource_transport;

transport.DBEdit1.DataField:='id';

transport.DBEdit6.DataSource:=U.DataSource_transport;

transport.DBEdit6.DataField:='Вид ТС';

transport.DBComboBox1.DataSource:=U.DataSource_transport;

transport.DBComboBox1.DataField:='Вид ТС';

transport.DBEdit3.DataSource:=U.DataSource_transport;

transport.DBEdit3.DataField:='Марка';

transport.DBEdit4.DataSource:=U.DataSource_transport;

transport.DBEdit4.DataField:='Гос номер';

transport.DBEdit5.DataSource:=U.DataSource_transport;

transport.DBEdit5.DataField:='VIN';

transport.DBEdit2.DataSource:=U.DataSource_transport;

transport.DBEdit2.DataField:='Ответственный менеджер';

transport.DBComboBox2.DataSource:=U.DataSource_transport;

transport.DBComboBox2.DataField:='Ответственный менеджер';

transport.DBEdit7.DataSource:=U.DataSource_transport;

transport.DBEdit7.DataField:='Ремни';

transport.DBEdit8.DataSource:=U.DataSource_transport;

transport.DBEdit8.DataField:='Высота';

transport.DBEdit9.DataSource:=U.DataSource_transport;

transport.DBEdit9.DataField:='Ширина';

transport.DBEdit10.DataSource:=U.DataSource_transport;

transport.DBEdit10.DataField:='Длина';

transport.DBEdit11.DataSource:=U.DataSource_transport;

transport.DBEdit11.DataField:='Объём';

transport.DBEdit12.DataSource:=U.DataSource_transport;

transport.DBEdit12.DataField:='Перевозимый вес';

transport.DBCheckBox1.DataSource:=U.DataSource_transport;

transport.DBCheckBox1.DataField:='ADR';

transport.DBCheckBox2.DataSource:=U.DataSource_transport;

transport.DBCheckBox2.DataField:='GPS';

transport.DBCheckBox3.DataSource:=U.DataSource_transport;

transport.DBCheckBox3.DataField:='Go-Box';

transport.DBCheckBox4.DataSource:=U.DataSource_transport;

transport.DBCheckBox4.DataField:='ToolCollect';

transport.DBCheckBox5.DataSource:=U.DataSource_transport;

transport.DBCheckBox5.DataField:='Premid';

transport.DBEdit13.DataSource:=U.DataSource_transport;

transport.DBEdit13.DataField:='Тех осмотр';

transport.DBEdit14.DataSource:=U.DataSource_transport;

transport.DBEdit14.DataField:='Свидетельство о регистрации';

transport.DBEdit15.DataSource:=U.DataSource_transport;

transport.DBEdit15.DataField:='Свидетельство о допущении';

transport.DBEdit16.DataSource:=U.DataSource_transport;

transport.DBEdit16.DataField:='ОСАГО';

transport.DBEdit17.DataSource:=U.DataSource_transport;

transport.DBEdit17.DataField:='Зелёная карта';

transport.DBEdit18.DataSource:=U.DataSource_transport;

transport.DBEdit18.DataField:='ТрансДекра';

transport.DBEdit19.DataSource:=U.DataSource_transport;

transport.DBEdit19.DataField:='Допуск ADR';

transport.DBEdit20.DataSource:=U.DataSource_transport;

transport.DBEdit20.DataField:='МСТО';

end;

//---Форма "Транспорт"---//

//---Фильтр таблицы "Транспорт"---//

procedure Tosnovnaya_forma.Button11Click(Sender: TObject);

begin

transport_filter.Show;

end;

//---Фильтр таблицы "Транспорт"---//

//---Сортировка таблицы "Транспорт"---//

procedure Tosnovnaya_forma.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.ItemIndex=0 then begin

U.Table_transport.Active:=false; //Деактивируем

U.Table_transport.SQL.Text:='SELECT * FROM transport order by `id` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_transport.Active:=true; //Активируем

end;

if ComboBox1.ItemIndex=1 then begin

U.Table_transport.Active:=false; //Деактивируем

U.Table_transport.SQL.Text:='SELECT * FROM transport order by `id` DESC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_transport.Active:=true; //Активируем

end;

if ComboBox1.ItemIndex=2 then begin

U.Table_transport.Active:=false; //Деактивируем

U.Table_transport.SQL.Text:='SELECT * FROM transport order by `Марка` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_transport.Active:=true; //Активируем

end;

if ComboBox1.ItemIndex=3 then begin

U.Table_transport.Active:=false; //Деактивируем

U.Table_transport.SQL.Text:='SELECT * FROM transport order by `Гос номер` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_transport.Active:=true; //Активируем

end;

if ComboBox1.ItemIndex=4 then begin

U.Table_transport.Active:=false; //Деактивируем

U.Table_transport.SQL.Text:='SELECT * FROM transport order by `VIN` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_transport.Active:=true; //Активируем

end;

if ComboBox1.ItemIndex=5 then begin

U.Table_transport.Active:=false; //Деактивируем

U.Table_transport.SQL.Text:='SELECT * FROM transport order by `Ответственный менеджер` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_transport.Active:=true; //Активируем

end;

//---Сортировка таблицы "Транспорт"---//

///////!!!----Транспорт----!!!///////

//---------//----------//----------//--------//---------//---------//---------//--------//--------//

///////!!!----Водители----!!!//////

//---Печать таблицы "Водители"---//

procedure Tosnovnaya_forma.BitBtn3Click(Sender: TObject);

begin

BitBtn2.Click;

end;

//---Печать таблицы "Водители"---//

//---Форма "Водители"---//

procedure Tosnovnaya_forma.Button23Click(Sender: TObject);

begin

D.Show;

D.DBNavigator1.DataSource:=U.DataSource_drivers;

D.DBEdit1.DataSource:=U.DataSource_drivers;

D.DBEdit1.DataField:='id';

D.DBEdit2.DataSource:=U.DataSource_drivers;

D.DBEdit2.DataField:='Фамилия';

D.DBEdit3.DataSource:=U.DataSource_drivers;

D.DBEdit3.DataField:='Имя';

D.DBEdit4.DataSource:=U.DataSource_drivers;

D.DBEdit4.DataField:='Отчество';

D.DBEdit5.DataSource:=U.DataSource_drivers;

D.DBEdit5.DataField:='Дата рождения';

D.DBEdit6.DataSource:=U.DataSource_drivers;

D.DBEdit6.DataField:='Телефон1';

D.DBEdit7.DataSource:=U.DataSource_drivers;

D.DBEdit7.DataField:='Телефон1';

D.DBEdit8.DataSource:=U.DataSource_drivers;

D.DBEdit8.DataField:='Адрес';

D.DBEdit9.DataSource:=U.DataSource_drivers;

D.DBEdit9.DataField:='Номер паспорта';

D.DBEdit10.DataSource:=U.DataSource_drivers;

D.DBEdit10.DataField:='Кем выдан';

D.DBEdit11.DataSource:=U.DataSource_drivers;

D.DBEdit11.DataField:='Когда выдан';

D.DBEdit12.DataSource:=U.DataSource_drivers;

D.DBEdit12.DataField:='Вод удостоверение';

D.DBEdit13.DataSource:=U.DataSource_drivers;

D.DBEdit13.DataField:='Открытые категории';

D.DBEdit14.DataSource:=U.DataSource_drivers;

D.DBEdit14.DataField:='Виза';

D.DBEdit15.DataSource:=U.DataSource_drivers;

D.DBEdit15.DataField:='Мед справка';

D.DBEdit16.DataSource:=U.DataSource_drivers;

D.DBEdit16.DataField:='ADR';

D.DBEdit17.DataSource:=U.DataSource_drivers;

D.DBEdit17.DataField:='Дата принятия на работу';

end;

//---Форма "Водители"---//

//---Фильтр таблицы "Водители"---//

procedure Tosnovnaya_forma.Button24Click(Sender: TObject);

begin

D_filter.Show;

end;

//---Фильтр таблицы "Водители"---//

//---Сортировка таблицы "Водители"---//

procedure Tosnovnaya_forma.ComboBox2Change(Sender: TObject);

begin

if ComboBox2.ItemIndex=0 then begin

U.Table_drivers.Active:=false; //Деактивируем

U.Table_drivers.SQL.Text:='SELECT * FROM drivers order by id ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_drivers.Active:=true; //Активируем

end;

if ComboBox2.ItemIndex=1 then begin

U.Table_drivers.Active:=false; //Деактивируем

U.Table_drivers.SQL.Text:='SELECT * FROM drivers order by id DESC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_drivers.Active:=true; //Активируем

end;

//---Сортировка таблицы "Водители"---//

//////!!!----Водители----!!!//////

//---------//----------//----------//--------//---------//---------//---------//--------//--------//

///////!!!----Контрагенты----!!!//////

//---Форма таблицы "Контрагенты"---//

procedure Tosnovnaya_forma.Button2Click(Sender: TObject);

begin

kontragents.Show;

kontragents.DBNavigator1.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit1.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit1.DataField:='id';

kontragents.DBEdit2.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit2.DataField:='Дата заключения договора';

kontragents.DBEdit3.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit3.DataField:='№ договора';

kontragents.DBEdit4.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit4.DataField:='Дата окончания договора';

kontragents.DBEdit5.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit5.DataField:='Название компании';

kontragents.DBEdit6.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit6.DataField:='Контактное лицо';

kontragents.DBEdit7.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit7.DataField:='Номер телефона';

kontragents.DBEdit8.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit8.DataField:='Страна';

kontragents.DBComboBox2.DataSource:=U.DataSource_kontragents;

kontragents.DBComboBox2.DataField:='Страна';

kontragents.DBEdit9.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit9.DataField:='ИНН';

kontragents.DBEdit10.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit10.DataField:='Адрес';

kontragents.DBComboBox1.DataSource:=U.DataSource_kontragents;

kontragents.DBComboBox1.DataField:='Статус';

kontragents.DBEdit11.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit11.DataField:='Статус';

end;

//---Форма таблицы "Контрагенты"---//

//---Фильтр таблицы "Контрагенты"---//

procedure Tosnovnaya_forma.Button3Click(Sender: TObject);

begin

kontragents_filter.Show;

end;

//---Фильтр таблицы "Контрагенты"---//

//---Сортировка таблицы "Контрагенты"---//

procedure Tosnovnaya_forma.ComboBox3Change(Sender: TObject);

begin

if ComboBox3.ItemIndex=0 then begin

U.Table_kontragents.Active:=false; //Деактивируем

U.Table_kontragents.SQL.Text:='SELECT * FROM kontragents order by id ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_kontragents.Active:=true; //Активируем

end;

if ComboBox3.ItemIndex=1 then begin

U.Table_kontragents.Active:=false; //Деактивируем

U.Table_kontragents.SQL.Text:='SELECT * FROM kontragents order by id DESC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_kontragents.Active:=true; //Активируем

end;

//---Сортировка таблицы "Контрагенты"---//

///////!!!----Контрагенты----!!!//////

//---------//----------//----------//--------//---------//---------//---------//--------//--------//

///////!!!----Путевые листы----!!!//////

//---Форма таблицы "Путевые листы"---//

procedure Tosnovnaya_forma.Button5Click(Sender: TObject);

begin

lists.Show;

lists.DBNavigator1.DataSource:=U.DataSource_lists;

lists.DBEdit1.DataSource:=U.DataSource_lists;

lists.DBEdit1.DataField:='id';

lists.DBEdit2.DataSource:=U.DataSource_lists;

lists.DBEdit2.DataField:='Дата выезда';

lists.DBEdit3.DataSource:=U.DataSource_lists;

lists.DBEdit3.DataField:='Дата возврата';

lists.DBComboBox1.DataSource:=U.DataSource_lists;

lists.DBComboBox1.DataField:='Автомобиль';

lists.DBEdit5.DataSource:=U.DataSource_lists;

lists.DBEdit5.DataField:='Автомобиль';

lists.DBComboBox2.DataSource:=U.DataSource_lists;

lists.DBComboBox2.DataField:='Прицеп';

lists.DBEdit7.DataSource:=U.DataSource_lists;

lists.DBEdit7.DataField:='Прицеп';

lists.DBComboBox3.DataSource:=U.DataSource_lists;

lists.DBComboBox3.DataField:='Авто гос номер';

lists.DBEdit6.DataSource:=U.DataSource_lists;

lists.DBEdit6.DataField:='Авто гос номер';

lists.DBComboBox4.DataSource:=U.DataSource_lists;

lists.DBComboBox4.DataField:='Прицеп гос номер';

lists.DBEdit8.DataSource:=U.DataSource_lists;

lists.DBEdit8.DataField:='Прицеп гос номер';

lists.DBComboBox5.DataSource:=U.DataSource_lists;

lists.DBComboBox5.DataField:='Водитель';

lists.DBEdit9.DataSource:=U.DataSource_lists;

lists.DBEdit9.DataField:='Водитель';

lists.DBComboBox6.DataSource:=U.DataSource_lists;

lists.DBComboBox6.DataField:='Диспетчер';

lists.DBEdit10.DataSource:=U.DataSource_lists;

lists.DBEdit10.DataField:='Диспетчер';

lists.DBComboBox7.DataSource:=U.DataSource_lists;

lists.DBComboBox7.DataField:='Страна';

lists.DBEdit4.DataSource:=U.DataSource_lists;

lists.DBEdit4.DataField:='Страна';

end;

//---Форма таблицы "Путевые листы"---//

//---Фильтр таблицы "Путевые листы"---//

procedure Tosnovnaya_forma.Button6Click(Sender: TObject);

begin

lists_filter.Show;

end;

//---Фильтр таблицы "Путевые листы"---//

//---Сортировка таблицы "Путевые листы"---//

procedure Tosnovnaya_forma.ComboBox4Change(Sender: TObject);

begin

if ComboBox4.ItemIndex=0 then begin

U.Table_lists.Active:=false; //Деактивируем

U.Table_lists.SQL.Text:='SELECT * FROM lists order by `id` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_lists.Active:=true; //Активируем

end;

if ComboBox4.ItemIndex=1 then begin

U.Table_lists.Active:=false; //Деактивируем

U.Table_lists.SQL.Text:='SELECT * FROM lists order by `id` DESC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_lists.Active:=true; //Активируем

end;

if ComboBox4.ItemIndex=2 then begin

U.Table_lists.Active:=false; //Деактивируем

U.Table_lists.SQL.Text:='SELECT * FROM lists order by `Дата выезда` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_lists.Active:=true; //Активируем

end;

if ComboBox4.ItemIndex=3 then begin

U.Table_lists.Active:=false; //Деактивируем

U.Table_lists.SQL.Text:='SELECT * FROM lists order by `Дата возврата` ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_lists.Active:=true; //Активируем

end;

//---Сортировка таблицы "Путевые листы"---//

///////!!!----Путевые листы----!!!//////

//---------//----------//----------//--------//---------//---------//---------//--------//--------//

///////!!!----Перевозки----!!!//////

//---Форма таблицы "Перевозки"---//

procedure Tosnovnaya_forma.Button8Click(Sender: TObject);

begin

traffic.Show;

traffic.DBNavigator1.DataSource:=U.DataSource_traffic;

traffic.DBEdit1.DataSource:=U.DataSource_traffic;

traffic.DBEdit1.DataField:='Номер';

traffic.DBEdit2.DataSource:=U.DataSource_traffic;

traffic.DBEdit2.DataField:='Дата';

traffic.DBComboBox14.DataSource:=U.DataSource_traffic;

traffic.DBComboBox14.DataField:='Статус';

traffic.DBEdit17.DataSource:=U.DataSource_traffic;

traffic.DBEdit17.DataField:='Статус';

traffic.DBComboBox1.DataSource:=U.DataSource_traffic;

traffic.DBComboBox1.DataField:='Заказчик';

traffic.DBEdit18.DataSource:=U.DataSource_traffic;

traffic.DBEdit18.DataField:='Заказчик';

traffic.DBEdit3.DataSource:=U.DataSource_traffic;

traffic.DBEdit3.DataField:='Контактное лицо';

traffic.DBComboBox2.DataSource:=U.DataSource_traffic;

traffic.DBComboBox2.DataField:='Подразделение';

traffic.DBEdit19.DataSource:=U.DataSource_traffic;

traffic.DBEdit19.DataField:='Подразделение';

traffic.DBComboBox3.DataSource:=U.DataSource_traffic;

traffic.DBComboBox3.DataField:='Ответственный';

traffic.DBEdit20.DataSource:=U.DataSource_traffic;

traffic.DBEdit20.DataField:='Ответственный';

traffic.DBComboBox4.DataSource:=U.DataSource_traffic;

traffic.DBComboBox4.DataField:='Отправитель';

traffic.DBEdit23.DataSource:=U.DataSource_traffic;

traffic.DBEdit23.DataField:='Отправитель';

traffic.DBEdit22.DataSource:=U.DataSource_traffic;

traffic.DBEdit22.DataField:='Место отправления';

traffic.DBEdit4.DataSource:=U.DataSource_traffic;

traffic.DBEdit4.DataField:='Адрес загрузки';

traffic.DBEdit5.DataSource:=U.DataSource_traffic;

traffic.DBEdit5.DataField:='Дата отправки груза';

traffic.DBComboBox6.DataSource:=U.DataSource_traffic;

traffic.DBComboBox6.DataField:='Получатель';

traffic.DBEdit24.DataSource:=U.DataSource_traffic;

traffic.DBEdit24.DataField:='Получатель';

traffic.DBEdit21.DataSource:=U.DataSource_traffic;

traffic.DBEdit21.DataField:='Место получения';

traffic.DBEdit7.DataSource:=U.DataSource_traffic;

traffic.DBEdit7.DataField:='Адрес выгрузки';

traffic.DBEdit6.DataSource:=U.DataSource_traffic;

traffic.DBEdit6.DataField:='Дата получения груза';

traffic.DBComboBox9.DataSource:=U.DataSource_traffic;

traffic.DBComboBox9.DataField:='Тип ТС';

traffic.DBEdit27.DataSource:=U.DataSource_traffic;

traffic.DBEdit27.DataField:='Тип ТС';

traffic.DBComboBox10.DataSource:=U.DataSource_traffic;

traffic.DBComboBox10.DataField:='Тягач';

traffic.DBEdit28.DataSource:=U.DataSource_traffic;

traffic.DBEdit28.DataField:='Тягач';

traffic.DBComboBox11.DataSource:=U.DataSource_traffic;

traffic.DBComboBox11.DataField:='Полуприцеп';

traffic.DBEdit29.DataSource:=U.DataSource_traffic;

traffic.DBEdit29.DataField:='Полуприцеп';

traffic.DBComboBox20.DataSource:=U.DataSource_traffic;

traffic.DBComboBox20.DataField:='Авто гос номер';

traffic.DBEdit30.DataSource:=U.DataSource_traffic;

traffic.DBEdit30.DataField:='Авто гос номер';

traffic.DBComboBox21.DataSource:=U.DataSource_traffic;

traffic.DBComboBox21.DataField:='Прицеп гос номер';

traffic.DBEdit31.DataSource:=U.DataSource_traffic;

traffic.DBEdit31.DataField:='Прицеп гос номер';

traffic.DBComboBox12.DataSource:=U.DataSource_traffic;

traffic.DBComboBox12.DataField:='Водитель';

traffic.DBEdit32.DataSource:=U.DataSource_traffic;

traffic.DBEdit32.DataField:='Водитель';

traffic.DBComboBox13.DataSource:=U.DataSource_traffic;

traffic.DBComboBox13.DataField:='Форма оплаты';

traffic.DBEdit34.DataSource:=U.DataSource_traffic;

traffic.DBEdit34.DataField:='Форма оплаты';

traffic.DBEdit8.DataSource:=U.DataSource_traffic;

traffic.DBEdit8.DataField:='Сроки оплаты';

traffic.DBComboBox15.DataSource:=U.DataSource_traffic;

traffic.DBComboBox15.DataField:='Валюта расчетов';

traffic.DBEdit33.DataSource:=U.DataSource_traffic;

traffic.DBEdit33.DataField:='Валюта расчетов';

traffic.DBEdit9.DataSource:=U.DataSource_traffic;

traffic.DBEdit9.DataField:='Стоимость перевозки';

traffic.DBEdit12.DataSource:=U.DataSource_traffic;

traffic.DBEdit12.DataField:='Описание груза';

traffic.DBComboBox16.DataSource:=U.DataSource_traffic;

traffic.DBComboBox16.DataField:='Вид груза';

traffic.DBEdit25.DataSource:=U.DataSource_traffic;

traffic.DBEdit25.DataField:='Вид груза';

traffic.DBEdit13.DataSource:=U.DataSource_traffic;

traffic.DBEdit13.DataField:='Вес нетто';

traffic.DBEdit14.DataSource:=U.DataSource_traffic;

traffic.DBEdit14.DataField:='Вес брутто';

traffic.DBEdit15.DataSource:=U.DataSource_traffic;

traffic.DBEdit15.DataField:='Место отправления';

traffic.DBEdit16.DataSource:=U.DataSource_traffic;

traffic.DBEdit16.DataField:='Место получения';

traffic.DBComboBox19.DataSource:=U.DataSource_traffic;

traffic.DBComboBox19.DataField:='Направление перевозки';

traffic.DBEdit26.DataSource:=U.DataSource_traffic;

traffic.DBEdit26.DataField:='Направление перевозки';

traffic.DBEdit10.DataSource:=U.DataSource_traffic;

traffic.DBEdit10.DataField:='Комментарий';

traffic.DBEdit11.DataSource:=U.DataSource_traffic;

traffic.DBEdit11.DataField:='Автор';

end;

//---Форма таблицы "Перевозки"---//

//---Фильтр таблицы "Перевозки"---//

procedure Tosnovnaya_forma.Button9Click(Sender: TObject);

begin

traffic_filter.Show;

end;

//---Фильтр таблицы "Перевозки"---//

//---Сортировка таблицы "Перевозки"---//

procedure Tosnovnaya_forma.ComboBox5Change(Sender: TObject);

begin

if ComboBox5.ItemIndex=0 then begin

U.Table_traffic.Active:=false; //Деактивируем

U.Table_traffic.SQL.Text:='SELECT * FROM traffic order by id ASC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_traffic.Active:=true; //Активируем

end;

if ComboBox5.ItemIndex=1 then begin

U.Table_traffic.Active:=false; //Деактивируем

U.Table_traffic.SQL.Text:='SELECT * FROM traffic order by id DESC';//Делаем запрос на сортировку всех записей из таблицы

U.Table_traffic.Active:=true; //Активируем

end;

//---Сортировка таблицы "Перевозки"---//

///////!!!----Перевозки----!!!//////

//---------//----------//----------//--------//---------//---------//---------//--------//--------//

//---Блокировка---//

procedure Tosnovnaya_forma.N8Click(Sender: TObject);

begin

osnovnaya_forma.Hide;

transport.Hide;

D.Hide;

transport_filter.Hide;

D_filter.Hide;

about.Hide;

search.Hide;

opt.Hide;

kontragents_filter.Hide;

kontragents.Hide;

lists_filter.Hide;

lists.Hide;

traffic.Hide;

traffic_filter.Hide;

help.Hide;

start.Edit1.Text:='';

TrayIcon.Visible:=false;

start.Show;

U.IdTCPClient1.Port:=12345;

U.IdTCPClient1.Host:=ip;

U.IdTCPClient1.Connect;

U.IdTCPClient1.IOHandler.WriteLn(start.ComboBox1.Text);

U.IdTCPClient1.Disconnect;

U.Query.Active:=false;

U.Query.SQL.Text:=('Update `Users` set `Online`="0" WHERE `Login`="'+start.ComboBox1.Text+'";');

U.Query.ExecSQL;

end;

procedure Tosnovnaya_forma.N14Click(Sender: TObject);

begin

N8.Click; //Tray

end;

//---Блокировка---//

//---Закрыть все окна (панель с закладками)---//

procedure Tosnovnaya_forma.N11Click(Sender: TObject);

begin

//Деактивируем панель с закладками ..

PageControl1.Visible:=false;

end;

//---Закрыть все окна (панель с закладками)---//

//---Данные---//

//---Поиск---//

procedure Tosnovnaya_forma.N6Click(Sender: TObject);

begin

search.Show;

end;

//---Поиск---//

//---Обновление данных---//

procedure Tosnovnaya_forma.N9Click(Sender: TObject);

begin

//Deactivation all tables

U.Connection.Connected:=false;

U.Table_users.Active:=false;

U.Table_users.SQL.Clear;

U.Table_transport.Active:=false;

U.Table_transport.SQL.Clear;

U.Table_drivers.Active:=false;

U.Table_drivers.SQL.Clear;

U.Table_lists.Active:=false;

U.Table_lists.SQL.Clear;

U.Table_traffic.Active:=false;

U.Table_traffic.SQL.Clear;

U.Table_kontragents.Active:=false;

U.Table_kontragents.SQL.Clear;

U.Query.SQL.Clear;

sleep (200);

//Activation all tables

U.Connection.Connected:=true;

U.Table_users.Active:=true;

U.Table_transport.Active:=true;

U.Table_drivers.Active:=true;

U.Table_lists.Active:=true;

U.Table_traffic.Active:=true;

U.Table_kontragents.Active:=true;

end;

procedure Tosnovnaya_forma.N15Click(Sender: TObject);

begin

N9.Click; //Tray

end;

//---Обновление данных---//

//---Данные---//

//---Опции---//

procedure Tosnovnaya_forma.N2Click(Sender: TObject);

begin

opt.Show;

end;

//---Опции---//

//---О программе---//

procedure Tosnovnaya_forma.N7Click(Sender: TObject);

begin

about.Show;

end;

procedure Tosnovnaya_forma.N16Click(Sender: TObject);

begin

N7.Click; //Tray

end;

//---О программе---//

//---Справка---//

procedure Tosnovnaya_forma.N12Click(Sender: TObject);

begin

help.Show;

end;

procedure Tosnovnaya_forma.N17Click(Sender: TObject);

begin

N12.Click; //Tray

end;

//---Справка---//

//---Выйти---//

procedure Tosnovnaya_forma.N4Click(Sender: TObject);

begin

Application.Terminate;

U.IdTCPClient1.Port:=12345;

U.IdTCPClient1.Host:=ip;

U.IdTCPClient1.Connect;

U.IdTCPClient1.IOHandler.WriteLn(start.ComboBox1.Text);

U.IdTCPClient1.Disconnect;

U.Query.Active:=false;

U.Query.SQL.Text:=('Update `Users` set `Online`="0" WHERE `Login`="'+start.ComboBox1.Text+'";');

U.Query.ExecSQL;

end;

procedure Tosnovnaya_forma.N13Click(Sender: TObject);

begin

N4.Click; //Tray

end;

procedure Tosnovnaya_forma.FormClose(Sender: TObject; var Action: TCloseAction);

begin

N4.Click;

end;

//---Выйти---//

///////-----Отчет Word----////////////

procedure Tosnovnaya_forma.Word1Click(Sender: TObject);

var

WordApp, Table: OleVariant; //Присваиваем переменные

i, j: Integer;

begin

try

WordApp := CreateOleObject('Word.Application'); //Запускаем Word

except

MessageDlg('Нестрашное сообщение что нет Word или не та версия', mtWarning, [mbOK], 0);

end;

WordApp.Documents.Add; //Создаем Word документ

WordApp.ActiveDocument.Tables.Add(WordApp.ActiveDocument.Range,

DBGrid1.DataSource.DataSet.RecordCount, DBGrid1.DataSource.DataSet.FieldCount);

Table := WordApp.ActiveDocument.Tables.Item(1);

Table.Style := 'Сетка таблицы';

DBGrid1.DataSource.DataSet.First;

for i := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do

begin

for j := 0 to DBGrid1.DataSource.DataSet.FieldCount - 1 do

Table.Cell(i+1,j+1).Range.InsertBefore(DBGrid1.DataSource.DataSet.Fields[j].AsString);

DBGrid1.DataSource.DataSet.Next;

end;

WordApp.Visible:=true; //Запускаем Word документ

end;

///////-----Отчет Word----////////////

//---Поверх всех окон---//

procedure Tosnovnaya_forma.StaticText1Click(Sender: TObject);

begin

StaticText2.Visible:=true;

with osnovnaya_forma do

SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

StaticText1.Visible:=false;

end;

procedure Tosnovnaya_forma.StaticText2Click(Sender: TObject);

begin

StaticText1.Visible:=true;

with osnovnaya_forma do

SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

StaticText2.Visible:=false;

end;

//---Поверх всех окон---//

//---TrayIcon---//

procedure Tosnovnaya_forma.TrayIconClick(Sender: TObject);

begin

N19.Click;

end;

procedure Tosnovnaya_forma.TrayIconDblClick(Sender: TObject);

begin

N18.Click;

end;

procedure Tosnovnaya_forma.N18Click(Sender: TObject);

begin

if opt.CheckBox2.Checked=true then begin

osnovnaya_forma.Hide;

N19.Visible:=true;

N18.Visible:=false;

if opt.CheckBox3.Checked=true then begin

TrayIcon.BalloonHint:='Программа свернута!';

TrayIcon.ShowBalloonHint; //всплывающее сообщение

end else

end;

procedure Tosnovnaya_forma.N19Click(Sender: TObject);

begin

osnovnaya_forma.Show;

Application.BringToFront; //показать поверх всех окон

N19.Visible:=false;

N18.Visible:=true;

end;

//---TrayIcon---//

end.

//Настройки

unit options;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

Topt = class(TForm)

Button1: TButton;

Memo1: TMemo;

GroupBox1: TGroupBox;

Edit1: TEdit;

Button2: TButton;

GroupBox2: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

GroupBox3: TGroupBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

opt: Topt;

implementation

{$R *.dfm}

uses start_prog, osn;

//---Отображение на панели задач(часть2)---//

procedure Topt.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

//---Ping---//

procedure Topt.Button1Click(Sender: TObject);

begin

start.IdIcmpClient1.Host:=ip;

start.IdIcmpClient1.Ping;

if start.IdIcmpClient1.ReplyStatus.TimeToLive <> 0

then Memo1.Lines.Add('Связь с сервером установлена!')

else Memo1.Lines.Add('Сервер не доступен!');

end;

procedure Topt.Button2Click(Sender: TObject);

begin

if Edit1.Text='' then begin

ShowMessage('Введите IP-адрес!');

end else begin

start.IdIcmpClient1.Host:=Edit1.Text;

start.IdIcmpClient1.Ping;

if start.IdIcmpClient1.ReplyStatus.TimeToLive <> 0

then Memo1.Lines.Add('IP '+Edit1.Text+' Активен')

else Memo1.Lines.Add('IP '+Edit1.Text+' Не активен');

end;

//---Ping---//

//---Tray---//

procedure Topt.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=true then

osnovnaya_forma.TrayIcon.Visible:=true

else

osnovnaya_forma.TrayIcon.Visible:=false

end;

//---Tray---//

end.

//Поиск

unit find;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids;

type

Tsearch = class(TForm)

ComboBox1: TComboBox;

Edit2: TEdit;

Button2: TButton;

CheckBox1: TCheckBox;

ComboBox2: TComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBGrid1: TDBGrid;

Button1: TButton;

Button3: TButton;

procedure Button2Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

search: Tsearch;

b:string;

implementation

{$R *.dfm}

uses uni_components, osn, cars, drivers, route, zakazchiki, transportation;

//---Отображение на панели задач(часть2)---//

procedure Tsearch.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

procedure Tsearch.Button1Click(Sender: TObject);

begin

height:=160;

//Deactivation all tables

U.Connection.Connected:=false;

U.Table_users.Active:=false;

U.Table_users.SQL.Clear;

U.Table_transport.Active:=false;

U.Table_transport.SQL.Clear;

U.Table_drivers.Active:=false;

U.Table_drivers.SQL.Clear;

U.Table_lists.Active:=false;

U.Table_lists.SQL.Clear;

U.Table_traffic.Active:=false;

U.Table_traffic.SQL.Clear;

U.Table_kontragents.Active:=false;

U.Table_kontragents.SQL.Clear;

U.Query.SQL.Clear;

sleep (500);

//Activation all tables

U.Connection.Connected:=true;

U.Table_users.Active:=true;

U.Table_transport.Active:=true;

U.Table_drivers.Active:=true;

U.Table_lists.Active:=true;

U.Table_traffic.Active:=true;

U.Table_kontragents.Active:=true;

end;

procedure Tsearch.Button2Click(Sender: TObject);

var a:string;

begin

height:=300;

A:=edit2.Text; // присваиваем переменной «а» значение текста из Edit2

if CheckBox1.Checked=false then begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='select * From `'+b+'` where '+b+'.`'+ComboBox1.Text+'` like upper("%'+a+'%")';

U.Query.ExecSQL;

U.Query.Active:=true;

end else begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='select * From `'+b+'` where '+b+'.`'+ComboBox1.Text+'`=`'+a+'`';

U.Query.ExecSQL;

U.Query.Active:=true;

end;

{Переход на форму по поиску}

procedure Tsearch.Button3Click(Sender: TObject);

begin

//---Форма таблицы "Транспорт"---//

if b='transport' then begin

transport.Show;

transport.DBNavigator1.DataSource:=U.DataSource_transport;

transport.DBEdit1.DataSource:=U.DataSource_transport;

transport.DBEdit1.DataField:='id';

transport.DBEdit6.DataSource:=U.DataSource_transport;

transport.DBEdit6.DataField:='Вид ТС';

transport.DBComboBox1.DataSource:=U.DataSource_transport;

transport.DBComboBox1.DataField:='Вид ТС';

transport.DBEdit3.DataSource:=U.DataSource_transport;

transport.DBEdit3.DataField:='Марка';

transport.DBEdit4.DataSource:=U.DataSource_transport;

transport.DBEdit4.DataField:='Гос номер';

transport.DBEdit5.DataSource:=U.DataSource_transport;

transport.DBEdit5.DataField:='VIN';

transport.DBEdit2.DataSource:=U.DataSource_transport;

transport.DBEdit2.DataField:='Ответственный менеджер';

transport.DBComboBox2.DataSource:=U.DataSource_transport;

transport.DBComboBox2.DataField:='Ответственный менеджер';

transport.DBEdit7.DataSource:=U.DataSource_transport;

transport.DBEdit7.DataField:='Ремни';

transport.DBEdit8.DataSource:=U.DataSource_transport;

transport.DBEdit8.DataField:='Высота';

transport.DBEdit9.DataSource:=U.DataSource_transport;

transport.DBEdit9.DataField:='Ширина';

transport.DBEdit10.DataSource:=U.DataSource_transport;

transport.DBEdit10.DataField:='Длина';

transport.DBEdit11.DataSource:=U.DataSource_transport;

transport.DBEdit11.DataField:='Объём';

transport.DBEdit12.DataSource:=U.DataSource_transport;

transport.DBEdit12.DataField:='Перевозимый вес';

transport.DBCheckBox1.DataSource:=U.DataSource_transport;

transport.DBCheckBox1.DataField:='ADR';

transport.DBCheckBox2.DataSource:=U.DataSource_transport;

transport.DBCheckBox2.DataField:='GPS';

transport.DBCheckBox3.DataSource:=U.DataSource_transport;

transport.DBCheckBox3.DataField:='Go-Box';

transport.DBCheckBox4.DataSource:=U.DataSource_transport;

transport.DBCheckBox4.DataField:='ToolCollect';

transport.DBCheckBox5.DataSource:=U.DataSource_transport;

transport.DBCheckBox5.DataField:='Premid';

transport.DBEdit13.DataSource:=U.DataSource_transport;

transport.DBEdit13.DataField:='Тех осмотр';

transport.DBEdit14.DataSource:=U.DataSource_transport;

transport.DBEdit14.DataField:='Свидетельство о регистрации';

transport.DBEdit15.DataSource:=U.DataSource_transport;

transport.DBEdit15.DataField:='Свидетельство о допущении';

transport.DBEdit16.DataSource:=U.DataSource_transport;

transport.DBEdit16.DataField:='ОСАГО';

transport.DBEdit17.DataSource:=U.DataSource_transport;

transport.DBEdit17.DataField:='Зелёная карта';

transport.DBEdit18.DataSource:=U.DataSource_transport;

transport.DBEdit18.DataField:='ТрансДекра';

transport.DBEdit19.DataSource:=U.DataSource_transport;

transport.DBEdit19.DataField:='Допуск ADR';

transport.DBEdit20.DataSource:=U.DataSource_transport;

transport.DBEdit20.DataField:='МСТО';

//---Форма таблицы "Транспорт"---//

end;

//---Форма таблицы "Водители"---//

if b='drivers' then begin

D.Show;

D.DBNavigator1.DataSource:=U.DataSource_drivers;

D.DBEdit1.DataSource:=U.DataSource_drivers;

D.DBEdit1.DataField:='id';

D.DBEdit2.DataSource:=U.DataSource_drivers;

D.DBEdit2.DataField:='Фамилия';

D.DBEdit3.DataSource:=U.DataSource_drivers;

D.DBEdit3.DataField:='Имя';

D.DBEdit4.DataSource:=U.DataSource_drivers;

D.DBEdit4.DataField:='Отчество';

D.DBEdit5.DataSource:=U.DataSource_drivers;

D.DBEdit5.DataField:='Дата рождения';

D.DBEdit6.DataSource:=U.DataSource_drivers;

D.DBEdit6.DataField:='Телефон1';

D.DBEdit7.DataSource:=U.DataSource_drivers;

D.DBEdit7.DataField:='Телефон1';

D.DBEdit8.DataSource:=U.DataSource_drivers;

D.DBEdit8.DataField:='Адрес';

D.DBEdit9.DataSource:=U.DataSource_drivers;

D.DBEdit9.DataField:='Номер паспорта';

D.DBEdit10.DataSource:=U.DataSource_drivers;

D.DBEdit10.DataField:='Кем выдан';

D.DBEdit11.DataSource:=U.DataSource_drivers;

D.DBEdit11.DataField:='Когда выдан';

D.DBEdit12.DataSource:=U.DataSource_drivers;

D.DBEdit12.DataField:='Вод удостоверение';

D.DBEdit13.DataSource:=U.DataSource_drivers;

D.DBEdit13.DataField:='Открытые категории';

D.DBEdit14.DataSource:=U.DataSource_drivers;

D.DBEdit14.DataField:='Виза';

D.DBEdit15.DataSource:=U.DataSource_drivers;

D.DBEdit15.DataField:='Мед справка';

D.DBEdit16.DataSource:=U.DataSource_drivers;

D.DBEdit16.DataField:='ADR';

D.DBEdit17.DataSource:=U.DataSource_drivers;

D.DBEdit17.DataField:='Дата принятия на работу';

//---Форма таблицы "Водители"---//

end;

//---Форма таблицы "Контрагенты"---//

if b='kontragents' then begin

kontragents.Show;

kontragents.DBNavigator1.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit1.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit1.DataField:='id';

kontragents.DBEdit2.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit2.DataField:='Дата заключения договора';

kontragents.DBEdit3.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit3.DataField:='№ договора';

kontragents.DBEdit4.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit4.DataField:='Дата окончания договора';

kontragents.DBEdit5.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit5.DataField:='Название компании';

kontragents.DBEdit6.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit6.DataField:='Контактное лицо';

kontragents.DBEdit7.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit7.DataField:='Номер телефона';

kontragents.DBEdit8.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit8.DataField:='Страна';

kontragents.DBComboBox2.DataSource:=U.DataSource_kontragents;

kontragents.DBComboBox2.DataField:='Страна';

kontragents.DBEdit9.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit9.DataField:='ИНН';

kontragents.DBEdit10.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit10.DataField:='Адрес';

kontragents.DBComboBox1.DataSource:=U.DataSource_kontragents;

kontragents.DBComboBox1.DataField:='Статус';

kontragents.DBEdit11.DataSource:=U.DataSource_kontragents;

kontragents.DBEdit11.DataField:='Статус';

//---Форма таблицы "Контрагенты"---//

end;

//---Форма таблицы "Путевые листы"---//

if b='lists' then begin

lists.Show;

lists.DBNavigator1.DataSource:=U.DataSource_lists;

lists.DBEdit1.DataSource:=U.DataSource_lists;

lists.DBEdit1.DataField:='id';

lists.DBEdit2.DataSource:=U.DataSource_lists;

lists.DBEdit2.DataField:='Дата выезда';

lists.DBEdit3.DataSource:=U.DataSource_lists;

lists.DBEdit3.DataField:='Дата возврата';

lists.DBComboBox1.DataSource:=U.DataSource_lists;

lists.DBComboBox1.DataField:='Автомобиль';

lists.DBEdit5.DataSource:=U.DataSource_lists;

lists.DBEdit5.DataField:='Автомобиль';

lists.DBComboBox2.DataSource:=U.DataSource_lists;

lists.DBComboBox2.DataField:='Прицеп';

lists.DBEdit7.DataSource:=U.DataSource_lists;

lists.DBEdit7.DataField:='Прицеп';

lists.DBComboBox3.DataSource:=U.DataSource_lists;

lists.DBComboBox3.DataField:='Авто гос номер';

lists.DBEdit6.DataSource:=U.DataSource_lists;

lists.DBEdit6.DataField:='Авто гос номер';

lists.DBComboBox4.DataSource:=U.DataSource_lists;

lists.DBComboBox4.DataField:='Прицеп гос номер';

lists.DBEdit8.DataSource:=U.DataSource_lists;

lists.DBEdit8.DataField:='Прицеп гос номер';

lists.DBComboBox5.DataSource:=U.DataSource_lists;

lists.DBComboBox5.DataField:='Водитель';

lists.DBEdit9.DataSource:=U.DataSource_lists;

lists.DBEdit9.DataField:='Водитель';

lists.DBComboBox6.DataSource:=U.DataSource_lists;

lists.DBComboBox6.DataField:='Диспетчер';

lists.DBEdit10.DataSource:=U.DataSource_lists;

lists.DBEdit10.DataField:='Диспетчер';

lists.DBComboBox7.DataSource:=U.DataSource_lists;

lists.DBComboBox7.DataField:='Страна';

lists.DBEdit4.DataSource:=U.DataSource_lists;

lists.DBEdit4.DataField:='Страна';

//---Форма таблицы "Путевые листы"---//

end;

//---Форма таблицы "Перевозки"---//

if b='traffic' then begin

traffic.Show;

traffic.DBNavigator1.DataSource:=U.DataSource_traffic;

traffic.DBEdit1.DataSource:=U.DataSource_traffic;

traffic.DBEdit1.DataField:='Номер';

traffic.DBEdit2.DataSource:=U.DataSource_traffic;

traffic.DBEdit2.DataField:='Дата';

traffic.DBComboBox14.DataSource:=U.DataSource_traffic;

traffic.DBComboBox14.DataField:='Статус';

traffic.DBEdit17.DataSource:=U.DataSource_traffic;

traffic.DBEdit17.DataField:='Статус';

traffic.DBComboBox1.DataSource:=U.DataSource_traffic;

traffic.DBComboBox1.DataField:='Заказчик';

traffic.DBEdit18.DataSource:=U.DataSource_traffic;

traffic.DBEdit18.DataField:='Заказчик';

traffic.DBEdit3.DataSource:=U.DataSource_traffic;

traffic.DBEdit3.DataField:='Контактное лицо';

traffic.DBComboBox2.DataSource:=U.DataSource_traffic;

traffic.DBComboBox2.DataField:='Подразделение';

traffic.DBEdit19.DataSource:=U.DataSource_traffic;

traffic.DBEdit19.DataField:='Подразделение';

traffic.DBComboBox3.DataSource:=U.DataSource_traffic;

traffic.DBComboBox3.DataField:='Ответственный';

traffic.DBEdit20.DataSource:=U.DataSource_traffic;

traffic.DBEdit20.DataField:='Ответственный';

traffic.DBComboBox4.DataSource:=U.DataSource_traffic;

traffic.DBComboBox4.DataField:='Отправитель';

traffic.DBEdit23.DataSource:=U.DataSource_traffic;

traffic.DBEdit23.DataField:='Отправитель';

traffic.DBEdit22.DataSource:=U.DataSource_traffic;

traffic.DBEdit22.DataField:='Место отправления';

traffic.DBEdit4.DataSource:=U.DataSource_traffic;

traffic.DBEdit4.DataField:='Адрес загрузки';

traffic.DBEdit5.DataSource:=U.DataSource_traffic;

traffic.DBEdit5.DataField:='Дата отправки груза';

traffic.DBComboBox6.DataSource:=U.DataSource_traffic;

traffic.DBComboBox6.DataField:='Получатель';

traffic.DBEdit24.DataSource:=U.DataSource_traffic;

traffic.DBEdit24.DataField:='Получатель';

traffic.DBEdit21.DataSource:=U.DataSource_traffic;

traffic.DBEdit21.DataField:='Место получения';

traffic.DBEdit7.DataSource:=U.DataSource_traffic;

traffic.DBEdit7.DataField:='Адрес выгрузки';

traffic.DBEdit6.DataSource:=U.DataSource_traffic;

traffic.DBEdit6.DataField:='Дата получения груза';

traffic.DBComboBox9.DataSource:=U.DataSource_traffic;

traffic.DBComboBox9.DataField:='Тип ТС';

traffic.DBEdit27.DataSource:=U.DataSource_traffic;

traffic.DBEdit27.DataField:='Тип ТС';

traffic.DBComboBox10.DataSource:=U.DataSource_traffic;

traffic.DBComboBox10.DataField:='Тягач';

traffic.DBEdit28.DataSource:=U.DataSource_traffic;

traffic.DBEdit28.DataField:='Тягач';

traffic.DBComboBox11.DataSource:=U.DataSource_traffic;

traffic.DBComboBox11.DataField:='Полуприцеп';

traffic.DBEdit29.DataSource:=U.DataSource_traffic;

traffic.DBEdit29.DataField:='Полуприцеп';

traffic.DBComboBox20.DataSource:=U.DataSource_traffic;

traffic.DBComboBox20.DataField:='Авто гос номер';

traffic.DBEdit30.DataSource:=U.DataSource_traffic;

traffic.DBEdit30.DataField:='Авто гос номер';

traffic.DBComboBox21.DataSource:=U.DataSource_traffic;

traffic.DBComboBox21.DataField:='Прицеп гос номер';

traffic.DBEdit31.DataSource:=U.DataSource_traffic;

traffic.DBEdit31.DataField:='Прицеп гос номер';

traffic.DBComboBox12.DataSource:=U.DataSource_traffic;

traffic.DBComboBox12.DataField:='Водитель';

traffic.DBEdit32.DataSource:=U.DataSource_traffic;

traffic.DBEdit32.DataField:='Водитель';

traffic.DBComboBox13.DataSource:=U.DataSource_traffic;

traffic.DBComboBox13.DataField:='Форма оплаты';

traffic.DBEdit34.DataSource:=U.DataSource_traffic;

traffic.DBEdit34.DataField:='Форма оплаты';

traffic.DBEdit8.DataSource:=U.DataSource_traffic;

traffic.DBEdit8.DataField:='Сроки оплаты';

traffic.DBComboBox15.DataSource:=U.DataSource_traffic;

traffic.DBComboBox15.DataField:='Валюта расчетов';

traffic.DBEdit33.DataSource:=U.DataSource_traffic;

traffic.DBEdit33.DataField:='Валюта расчетов';

traffic.DBEdit9.DataSource:=U.DataSource_traffic;

traffic.DBEdit9.DataField:='Стоимость перевозки';

traffic.DBEdit12.DataSource:=U.DataSource_traffic;

traffic.DBEdit12.DataField:='Описание груза';

traffic.DBComboBox16.DataSource:=U.DataSource_traffic;

traffic.DBComboBox16.DataField:='Вид груза';

traffic.DBEdit25.DataSource:=U.DataSource_traffic;

traffic.DBEdit25.DataField:='Вид груза';

traffic.DBEdit13.DataSource:=U.DataSource_traffic;

traffic.DBEdit13.DataField:='Вес нетто';

traffic.DBEdit14.DataSource:=U.DataSource_traffic;

traffic.DBEdit14.DataField:='Вес брутто';

traffic.DBEdit15.DataSource:=U.DataSource_traffic;

traffic.DBEdit15.DataField:='Место отправления';

traffic.DBEdit16.DataSource:=U.DataSource_traffic;

traffic.DBEdit16.DataField:='Место получения';

traffic.DBComboBox19.DataSource:=U.DataSource_traffic;

traffic.DBComboBox19.DataField:='Направление перевозки';

traffic.DBEdit26.DataSource:=U.DataSource_traffic;

traffic.DBEdit26.DataField:='Направление перевозки';

traffic.DBEdit10.DataSource:=U.DataSource_traffic;

traffic.DBEdit10.DataField:='Комментарий';

traffic.DBEdit11.DataSource:=U.DataSource_traffic;

traffic.DBEdit11.DataField:='Автор';

end;

//---Форма таблицы "Перевозки"---//

end;

procedure Tsearch.ComboBox2Change(Sender: TObject);

begin

ComboBox1.Text:='Выберите поле..';

if ComboBox2.ItemIndex=0 then begin

U.Table_transport.First; //Укажем на первую запись

ComboBox1.Items.Clear; //Очищаем значения ComboBox

While not U.Table_transport.EOF do //Выполнять пока не будет конец таблицы

begin

U.Table_transport.Fields.GetFieldNames(ComboBox1.Items); //Заполняем комбобокс значениями

U.Table_transport.Next;

end;

b:='transport';

end;

if ComboBox2.ItemIndex=1 then begin

U.Table_drivers.First; //Укажем на первую запись

ComboBox1.Items.Clear; //Очищаем значения ComboBox

While not U.Table_drivers.EOF do //Выполнять пока не будет конец таблицы

begin

U.Table_drivers.Fields.GetFieldNames(ComboBox1.Items); //Заполняем комбобокс значениями

U.Table_drivers.Next;

end;

b:='drivers';

end;

if ComboBox2.ItemIndex=2 then begin

U.Table_kontragents.First; //Укажем на первую запись

ComboBox1.Items.Clear; //Очищаем значения ComboBox

While not U.Table_kontragents.EOF do //Выполнять пока не будет конец таблицы

begin

U.Table_kontragents.Fields.GetFieldNames(ComboBox1.Items); //Заполняем комбобокс значениями

U.Table_kontragents.Next;

end;

b:='kontragents';

end;

if ComboBox2.ItemIndex=3 then begin

U.Table_lists.First; //Укажем на первую запись

ComboBox1.Items.Clear; //Очищаем значения ComboBox

While not U.Table_lists.EOF do //Выполнять пока не будет конец таблицы

begin

U.Table_lists.Fields.GetFieldNames(ComboBox1.Items); //Заполняем комбобокс значениями

U.Table_lists.Next;

end;

b:='lists';

end;

if ComboBox2.ItemIndex=4 then begin

U.Table_traffic.First; //Укажем на первую запись

ComboBox1.Items.Clear; //Очищаем значения ComboBox

While not U.Table_traffic.EOF do //Выполнять пока не будет конец таблицы

begin

U.Table_traffic.Fields.GetFieldNames(ComboBox1.Items); //Заполняем комбобокс значениями

U.Table_traffic.Next;

end;

b:='traffic';

end;

end.

//О программе

unit prog_info;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,

Vcl.Imaging.pngimage;

type

Tabout = class(TForm)

GroupBox1: TGroupBox;

Panel1: TPanel;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Image2: TImage;

Label7: TLabel;

Label6: TLabel;

procedure Image2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

about: Tabout;

implementation

{$R *.dfm}

procedure Tabout.Image2Click(Sender: TObject);

begin

Close;

end;

end.

//Форма «Транспорт»

unit cars;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids,

Vcl.ExtCtrls, Vcl.Buttons, Vcl.ComCtrls;

type

Ttransport = class(TForm)

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBCheckBox4: TDBCheckBox;

DBCheckBox5: TDBCheckBox;

DBEdit7: TDBEdit;

Label7: TLabel;

DBEdit8: TDBEdit;

Label8: TLabel;

DBEdit9: TDBEdit;

Label9: TLabel;

DBEdit10: TDBEdit;

Label10: TLabel;

DBEdit11: TDBEdit;

Label11: TLabel;

DBEdit12: TDBEdit;

Label12: TLabel;

DBEdit13: TDBEdit;

Label13: TLabel;

DBEdit14: TDBEdit;

Label14: TLabel;

DBEdit15: TDBEdit;

Label15: TLabel;

DBEdit16: TDBEdit;

Label16: TLabel;

DBEdit17: TDBEdit;

Label17: TLabel;

DBEdit18: TDBEdit;

Label18: TLabel;

DBEdit19: TDBEdit;

Label19: TLabel;

DBEdit20: TDBEdit;

Label20: TLabel;

DBComboBox1: TDBComboBox;

Image1: TImage;

BitBtn1: TBitBtn;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

DateTimePicker3: TDateTimePicker;

DateTimePicker4: TDateTimePicker;

DateTimePicker5: TDateTimePicker;

DateTimePicker6: TDateTimePicker;

DateTimePicker7: TDateTimePicker;

Label22: TLabel;

DBComboBox2: TDBComboBox;

DBEdit2: TDBEdit;

DBEdit6: TDBEdit;

procedure BitBtn1Click(Sender: TObject);

procedure DateTimePicker1Change(Sender: TObject);

procedure DateTimePicker1Click(Sender: TObject);

procedure DateTimePicker1MouseEnter(Sender: TObject);

procedure DateTimePicker2Change(Sender: TObject);

procedure DateTimePicker2Click(Sender: TObject);

procedure DateTimePicker2MouseEnter(Sender: TObject);

procedure DateTimePicker3Change(Sender: TObject);

procedure DateTimePicker3Click(Sender: TObject);

procedure DateTimePicker3MouseEnter(Sender: TObject);

procedure DateTimePicker4Change(Sender: TObject);

procedure DateTimePicker4Click(Sender: TObject);

procedure DateTimePicker4MouseEnter(Sender: TObject);

procedure DateTimePicker5Change(Sender: TObject);

procedure DateTimePicker5Click(Sender: TObject);

procedure DateTimePicker5MouseEnter(Sender: TObject);

procedure DateTimePicker6Change(Sender: TObject);

procedure DateTimePicker6Click(Sender: TObject);

procedure DateTimePicker6MouseEnter(Sender: TObject);

procedure DateTimePicker7Change(Sender: TObject);

procedure DateTimePicker7Click(Sender: TObject);

procedure DateTimePicker7MouseEnter(Sender: TObject);

procedure DBComboBox2DropDown(Sender: TObject);

procedure DBComboBox2Change(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure DBComboBox1DropDown(Sender: TObject);

procedure DBComboBox1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

transport: Ttransport;

implementation

{$R *.dfm}

uses start_prog, uni_components, osn, options;

//---Печать---//

procedure Ttransport.BitBtn1Click(Sender: TObject);

begin

dbNavigator1.Visible:=false;

BitBtn1.Visible:=false;

DateTimePicker1.Visible:=false;

DateTimePicker2.Visible:=false;

DateTimePicker3.Visible:=false;

DateTimePicker4.Visible:=false;

DateTimePicker5.Visible:=false;

DateTimePicker6.Visible:=false;

DateTimePicker7.Visible:=false;

DBComboBox1.Visible:=false;

DBComboBox2.Visible:=false;

if opt.CheckBox7.Checked=true then begin

Label22.Caption:='Напечатано пользователем: '+start.ComboBox1.Text+'';

Label22.Visible:=true;

end else begin

end;

Print;

sleep(200);

Label22.Visible:=false;

dbNavigator1.Visible:=true;

BitBtn1.Visible:=true;

DateTimePicker1.Visible:=true;

DateTimePicker2.Visible:=true;

DateTimePicker3.Visible:=true;

DateTimePicker4.Visible:=true;

DateTimePicker5.Visible:=true;

DateTimePicker6.Visible:=true;

DateTimePicker7.Visible:=true;

DBComboBox1.Visible:=true;

DBComboBox2.Visible:=true;

end;

//---Печать---//

//---Отображение на панели задач(часть2)---//

procedure Ttransport.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

//---Выбор даты---//

//Тех осмотр

procedure Ttransport.DateTimePicker1Change(Sender: TObject);

begin

DBEdit13.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure Ttransport.DateTimePicker1Click(Sender: TObject);

begin

U.Table_transport.Edit;

end;

procedure Ttransport.DateTimePicker1MouseEnter(Sender: TObject);

begin

if DBEdit13.Text='' then begin

DateTimePicker1.Date:=StrToDate('01.01.2001');

end else

DateTimePicker1.Date:=StrToDate(DBEdit13.Text);

end;

//Свидетельство о регистрации

procedure Ttransport.DateTimePicker2Change(Sender: TObject);

begin

DBEdit14.Text:=DateToStr(DateTimePicker2.Date);

end;

procedure Ttransport.DateTimePicker2Click(Sender: TObject);

begin

U.Table_transport.Edit;

end;

procedure Ttransport.DateTimePicker2MouseEnter(Sender: TObject);

begin

if DBEdit14.Text='' then begin

DateTimePicker2.Date:=StrToDate('01.01.2001');

end else

DateTimePicker2.Date:=StrToDate(DBEdit14.Text);

end;

//Свидетельство о допущении

procedure Ttransport.DateTimePicker3Change(Sender: TObject);

begin

DBEdit15.Text:=DateToStr(DateTimePicker3.Date);

end;

procedure Ttransport.DateTimePicker3Click(Sender: TObject);

begin

U.Table_transport.Edit;

end;

procedure Ttransport.DateTimePicker3MouseEnter(Sender: TObject);

begin

if DBEdit15.Text='' then begin

DateTimePicker3.Date:=StrToDate('01.01.2001');

end else

DateTimePicker3.Date:=StrToDate(DBEdit15.Text);

end;

//ОСАГО

procedure Ttransport.DateTimePicker4Change(Sender: TObject);

begin

DBEdit16.Text:=DateToStr(DateTimePicker4.Date);

end;

procedure Ttransport.DateTimePicker4Click(Sender: TObject);

begin

U.Table_transport.Edit;

end;

procedure Ttransport.DateTimePicker4MouseEnter(Sender: TObject);

begin

if DBEdit16.Text='' then begin

DateTimePicker4.Date:=StrToDate('01.01.2001');

end else

DateTimePicker4.Date:=StrToDate(DBEdit16.Text);

end;

//Зеленая карта

procedure Ttransport.DateTimePicker5Change(Sender: TObject);

begin

DBEdit17.Text:=DateToStr(DateTimePicker5.Date);

end;

procedure Ttransport.DateTimePicker5Click(Sender: TObject);

begin

U.Table_transport.Edit;

end;

procedure Ttransport.DateTimePicker5MouseEnter(Sender: TObject);

begin

if DBEdit17.Text='' then begin

DateTimePicker5.Date:=StrToDate('01.01.2001');

end else

DateTimePicker5.Date:=StrToDate(DBEdit17.Text);

end;

//Допуск ADR

procedure Ttransport.DateTimePicker6Change(Sender: TObject);

begin

DBEdit19.Text:=DateToStr(DateTimePicker6.Date);

end;

procedure Ttransport.DateTimePicker6Click(Sender: TObject);

begin

U.Table_transport.Edit;

end;

procedure Ttransport.DateTimePicker6MouseEnter(Sender: TObject);

begin

if DBEdit19.Text='' then begin

DateTimePicker6.Date:=StrToDate('01.01.2001');

end else

DateTimePicker6.Date:=StrToDate(DBEdit19.Text);

end;

//МСТО

procedure Ttransport.DateTimePicker7Change(Sender: TObject);

begin

DBEdit20.Text:=DateToStr(DateTimePicker7.Date);

end;

procedure Ttransport.DateTimePicker7Click(Sender: TObject);

begin

U.Table_transport.Edit;

end;

procedure Ttransport.DateTimePicker7MouseEnter(Sender: TObject);

begin

if DBEdit20.Text='' then begin

DateTimePicker7.Date:=StrToDate('01.01.2001');

end else

DateTimePicker7.Date:=StrToDate(DBEdit20.Text);

end;

//---Выбор даты---//

//---Выбор менеджера---//

procedure Ttransport.DBComboBox2Change(Sender: TObject);

begin

DBEdit2.Text:=DBComboBox2.Text;

DBComboBox2.Width:=20;

DBComboBox2.Left:=232;

end;

procedure Ttransport.DBComboBox2DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Фамилия`, `Имя`, `Отчество` FROM users where `Подразделение`="Транспортный отдел" or `Подразделение`="Отдел управления транспортом" order by `Фамилия` ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox2.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox2.Items.Add

(U.Query.Fields.Fields[0].DisplayText

+' '+U.Query.Fields.Fields[1].DisplayText

+' '+U.Query.Fields.Fields[2].DisplayText); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox2.ItemIndex :=0;

DBComboBox2.Width:=245;

DBComboBox2.Left:=8;

U.Table_transport.Edit;

end;

//---Выбор менеджера---//

//---Выбор типа ТС---//

procedure Ttransport.DBComboBox1Change(Sender: TObject);

begin

DBEdit6.Text:=DBComboBox1.Text;

DBComboBox1.Width:=20;

DBComboBox1.Left:=112;

end;

procedure Ttransport.DBComboBox1DropDown(Sender: TObject);

begin

DBComboBox1.Width:=124;

DBComboBox1.Left:=8;

U.Table_transport.Edit;

end;

//---Выбор типа ТС---//

//---Приведение ComboBox'ов к нормальному виду---//

procedure Ttransport.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox1.Width:=20;

DBComboBox1.Left:=112;

DBComboBox2.Width:=20;

DBComboBox2.Left:=232;

end;

//---Приведение ComboBox'ов к нормальному виду---//

end.

//Фильтры для таблицы «Транспорт»

unit cars_filter;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

Ttransport_filter = class(TForm)

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

Label1: TLabel;

CheckBox13: TCheckBox;

CheckBox14: TCheckBox;

CheckBox15: TCheckBox;

CheckBox16: TCheckBox;

CheckBox17: TCheckBox;

CheckBox18: TCheckBox;

CheckBox19: TCheckBox;

CheckBox20: TCheckBox;

CheckBox22: TCheckBox;

CheckBox23: TCheckBox;

CheckBox24: TCheckBox;

CheckBox25: TCheckBox;

CheckBox26: TCheckBox;

Button3: TButton;

Button4: TButton;

Button1: TButton;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

transport_filter: Ttransport_filter;

implementation

{$R *.dfm}

uses osn;

procedure Ttransport_filter.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked then begin

osnovnaya_forma.DBGrid1.Columns[0].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[0].Visible:=false;

if CheckBox2.Checked then begin

osnovnaya_forma.DBGrid1.Columns[1].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[1].Visible:=false;

if CheckBox3.Checked then begin

osnovnaya_forma.DBGrid1.Columns[2].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[2].Visible:=false;

if CheckBox4.Checked then begin

osnovnaya_forma.DBGrid1.Columns[3].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[3].Visible:=false;

if CheckBox5.Checked then begin

osnovnaya_forma.DBGrid1.Columns[4].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[4].Visible:=false;

if CheckBox6.Checked then begin

osnovnaya_forma.DBGrid1.Columns[5].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[5].Visible:=false;

if CheckBox7.Checked then begin

osnovnaya_forma.DBGrid1.Columns[6].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[6].Visible:=false;

if CheckBox8.Checked then begin

osnovnaya_forma.DBGrid1.Columns[7].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[7].Visible:=false;

if CheckBox9.Checked then begin

osnovnaya_forma.DBGrid1.Columns[8].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[8].Visible:=false;

if CheckBox10.Checked then begin

osnovnaya_forma.DBGrid1.Columns[9].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[9].Visible:=false;

if CheckBox11.Checked then begin

osnovnaya_forma.DBGrid1.Columns[10].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[10].Visible:=false;

if CheckBox12.Checked then begin

osnovnaya_forma.DBGrid1.Columns[11].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[11].Visible:=false;

if CheckBox13.Checked then begin

osnovnaya_forma.DBGrid1.Columns[12].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[12].Visible:=false;

if CheckBox14.Checked then begin

osnovnaya_forma.DBGrid1.Columns[13].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[13].Visible:=false;

if CheckBox15.Checked then begin

osnovnaya_forma.DBGrid1.Columns[14].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[14].Visible:=false;

if CheckBox16.Checked then begin

osnovnaya_forma.DBGrid1.Columns[15].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[15].Visible:=false;

if CheckBox17.Checked then begin

osnovnaya_forma.DBGrid1.Columns[16].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[16].Visible:=false;

if CheckBox18.Checked then begin

osnovnaya_forma.DBGrid1.Columns[17].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[17].Visible:=false;

if CheckBox19.Checked then begin

osnovnaya_forma.DBGrid1.Columns[18].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[18].Visible:=false;

if CheckBox20.Checked then begin

osnovnaya_forma.DBGrid1.Columns[19].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[19].Visible:=false;

if CheckBox22.Checked then begin

osnovnaya_forma.DBGrid1.Columns[20].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[20].Visible:=false;

if CheckBox23.Checked then begin

osnovnaya_forma.DBGrid1.Columns[21].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[21].Visible:=false;

if CheckBox24.Checked then begin

osnovnaya_forma.DBGrid1.Columns[22].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[22].Visible:=false;

if CheckBox25.Checked then begin

osnovnaya_forma.DBGrid1.Columns[23].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[23].Visible:=false;

if CheckBox26.Checked then begin

osnovnaya_forma.DBGrid1.Columns[24].Visible:=true;

end else

osnovnaya_forma.DBGrid1.Columns[24].Visible:=false;

end;

procedure Ttransport_filter.Button3Click(Sender: TObject);

begin

CheckBox1.Checked:=true;

CheckBox2.Checked:=true;

CheckBox3.Checked:=true;

CheckBox4.Checked:=true;

CheckBox5.Checked:=true;

CheckBox6.Checked:=true;

CheckBox7.Checked:=true;

CheckBox8.Checked:=true;

CheckBox9.Checked:=true;

CheckBox10.Checked:=true;

CheckBox11.Checked:=true;

CheckBox12.Checked:=true;

CheckBox13.Checked:=true;

CheckBox14.Checked:=true;

CheckBox15.Checked:=true;

CheckBox16.Checked:=true;

CheckBox17.Checked:=true;

CheckBox18.Checked:=true;

CheckBox19.Checked:=true;

CheckBox20.Checked:=true;

CheckBox22.Checked:=true;

CheckBox23.Checked:=true;

CheckBox24.Checked:=true;

CheckBox25.Checked:=true;

CheckBox26.Checked:=true;

end;

procedure Ttransport_filter.Button4Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox6.Checked:=false;

CheckBox7.Checked:=false;

CheckBox8.Checked:=false;

CheckBox9.Checked:=false;

CheckBox10.Checked:=false;

CheckBox11.Checked:=false;

CheckBox12.Checked:=false;

CheckBox13.Checked:=false;

CheckBox14.Checked:=false;

CheckBox15.Checked:=false;

CheckBox16.Checked:=false;

CheckBox17.Checked:=false;

CheckBox18.Checked:=false;

CheckBox19.Checked:=false;

CheckBox20.Checked:=false;

CheckBox22.Checked:=false;

CheckBox23.Checked:=false;

CheckBox24.Checked:=false;

CheckBox25.Checked:=false;

CheckBox26.Checked:=false;

end;

end.

Таблица «Водители».

unit drivers;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Grids,

Vcl.DBGrids, Vcl.Mask, Vcl.ExtCtrls, Vcl.Buttons, Vcl.ComCtrls;

type

TD = class(TForm)

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

BitBtn1: TBitBtn;

Image1: TImage;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

GroupBox1: TGroupBox;

Label9: TLabel;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

Label10: TLabel;

DBEdit11: TDBEdit;

Label11: TLabel;

Label12: TLabel;

DBEdit12: TDBEdit;

Label13: TLabel;

DBEdit13: TDBEdit;

Label14: TLabel;

DBEdit14: TDBEdit;

Label15: TLabel;

DBEdit15: TDBEdit;

Label16: TLabel;

DBEdit16: TDBEdit;

Label17: TLabel;

DBEdit17: TDBEdit;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

DateTimePicker3: TDateTimePicker;

DateTimePicker4: TDateTimePicker;

DateTimePicker5: TDateTimePicker;

DateTimePicker6: TDateTimePicker;

Label18: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure DateTimePicker1Change(Sender: TObject);

procedure DateTimePicker1Click(Sender: TObject);

procedure DateTimePicker1MouseEnter(Sender: TObject);

procedure DateTimePicker2Change(Sender: TObject);

procedure DateTimePicker2Click(Sender: TObject);

procedure DateTimePicker2MouseEnter(Sender: TObject);

procedure DateTimePicker3Change(Sender: TObject);

procedure DateTimePicker3Click(Sender: TObject);

procedure DateTimePicker3MouseEnter(Sender: TObject);

procedure DateTimePicker4Change(Sender: TObject);

procedure DateTimePicker4Click(Sender: TObject);

procedure DateTimePicker4MouseEnter(Sender: TObject);

procedure DateTimePicker5Change(Sender: TObject);

procedure DateTimePicker5Click(Sender: TObject);

procedure DateTimePicker5MouseEnter(Sender: TObject);

procedure DateTimePicker6Change(Sender: TObject);

procedure DateTimePicker6Click(Sender: TObject);

procedure DateTimePicker6MouseEnter(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

D: TD;

implementation

{$R *.dfm}

uses start_prog, uni_components, osn, options;

//---Отображение на панели задач(часть2)---//

procedure TD.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

//---Выбор даты---//

//Когда выдан паспорт

procedure TD.DateTimePicker1Change(Sender: TObject);

begin

DBEdit11.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure TD.DateTimePicker1Click(Sender: TObject);

begin

U.Table_drivers.Edit;

end;

procedure TD.DateTimePicker1MouseEnter(Sender: TObject);

begin

if DBEdit11.Text='' then begin

DateTimePicker1.Date:=StrToDate('01.01.2001');

end else

DateTimePicker1.Date:=StrToDate(DBEdit11.Text);

end;

//Дата рождения

procedure TD.DateTimePicker2Change(Sender: TObject);

begin

DBEdit5.Text:=DateToStr(DateTimePicker2.Date);

end;

procedure TD.DateTimePicker2Click(Sender: TObject);

begin

U.Table_drivers.Edit;

end;

procedure TD.DateTimePicker2MouseEnter(Sender: TObject);

begin

if DBEdit5.Text='' then begin

DateTimePicker2.Date:=StrToDate('01.01.2001');

end else

DateTimePicker2.Date:=StrToDate(DBEdit5.Text);

end;

//Виза

procedure TD.DateTimePicker3Change(Sender: TObject);

begin

DBEdit14.Text:=DateToStr(DateTimePicker3.Date);

end;

procedure TD.DateTimePicker3Click(Sender: TObject);

begin

U.Table_drivers.Edit;

end;

procedure TD.DateTimePicker3MouseEnter(Sender: TObject);

begin

if DBEdit14.Text='' then begin

DateTimePicker3.Date:=StrToDate('01.01.2001');

end else

DateTimePicker3.Date:=StrToDate(DBEdit14.Text);

end;

//Мед справка

procedure TD.DateTimePicker4Change(Sender: TObject);

begin

DBEdit15.Text:=DateToStr(DateTimePicker4.Date);

end;

procedure TD.DateTimePicker4Click(Sender: TObject);

begin

U.Table_drivers.Edit;

end;

procedure TD.DateTimePicker4MouseEnter(Sender: TObject);

begin

if DBEdit15.Text='' then begin

DateTimePicker4.Date:=StrToDate('01.01.2001');

end else

DateTimePicker4.Date:=StrToDate(DBEdit15.Text);

end;

//ADR

procedure TD.DateTimePicker5Change(Sender: TObject);

begin

DBEdit16.Text:=DateToStr(DateTimePicker5.Date);

end;

procedure TD.DateTimePicker5Click(Sender: TObject);

begin

U.Table_drivers.Edit;

end;

procedure TD.DateTimePicker5MouseEnter(Sender: TObject);

begin

if DBEdit16.Text='' then begin

DateTimePicker5.Date:=StrToDate('01.01.2001');

end else

DateTimePicker5.Date:=StrToDate(DBEdit16.Text);

end;

//Дата принятия на работу

procedure TD.DateTimePicker6Change(Sender: TObject);

begin

DBEdit17.Text:=DateToStr(DateTimePicker6.Date);

end;

procedure TD.DateTimePicker6Click(Sender: TObject);

begin

U.Table_drivers.Edit;

end;

procedure TD.DateTimePicker6MouseEnter(Sender: TObject);

begin

if DBEdit17.Text='' then begin

DateTimePicker6.Date:=StrToDate('01.01.2001');

end else

DateTimePicker6.Date:=StrToDate(DBEdit17.Text);

end;

//---Выбор даты---//

//---Печать---//

procedure TD.BitBtn1Click(Sender: TObject);

begin

dbNavigator1.Visible:=false;

BitBtn1.Visible:=false;

DateTimePicker1.Visible:=false;

DateTimePicker2.Visible:=false;

DateTimePicker3.Visible:=false;

DateTimePicker4.Visible:=false;

DateTimePicker5.Visible:=false;

DateTimePicker6.Visible:=false;

if opt.CheckBox7.Checked=true then begin

Label18.Caption:='Напечатано пользователем: '+start.ComboBox1.Text+'';

Label18.Visible:=true;

end else begin

end;

Print; //печать

sleep(100);

Label18.Visible:=false;

dbNavigator1.Visible:=true;

BitBtn1.Visible:=true;

DateTimePicker1.Visible:=true;

DateTimePicker2.Visible:=true;

DateTimePicker3.Visible:=true;

DateTimePicker4.Visible:=true;

DateTimePicker5.Visible:=true;

DateTimePicker6.Visible:=true;

end;

//---Печать---//

end.

//Фильтр для таблицы «Водители»

unit drivers_filter;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TD_filter = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

CheckBox13: TCheckBox;

CheckBox14: TCheckBox;

CheckBox15: TCheckBox;

CheckBox16: TCheckBox;

CheckBox17: TCheckBox;

Button3: TButton;

Button4: TButton;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

D_filter: TD_filter;

implementation

{$R *.dfm}

uses osn;

procedure TD_filter.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked then begin

osnovnaya_forma.DBGrid2.Columns[0].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[0].Visible:=false;

if CheckBox2.Checked then begin

osnovnaya_forma.DBGrid2.Columns[1].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[1].Visible:=false;

if CheckBox3.Checked then begin

osnovnaya_forma.DBGrid2.Columns[2].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[2].Visible:=false;

if CheckBox4.Checked then begin

osnovnaya_forma.DBGrid2.Columns[3].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[3].Visible:=false;

if CheckBox5.Checked then begin

osnovnaya_forma.DBGrid2.Columns[4].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[4].Visible:=false;

if CheckBox6.Checked then begin

osnovnaya_forma.DBGrid2.Columns[5].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[5].Visible:=false;

if CheckBox7.Checked then begin

osnovnaya_forma.DBGrid2.Columns[6].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[6].Visible:=false;

if CheckBox8.Checked then begin

osnovnaya_forma.DBGrid2.Columns[7].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[7].Visible:=false;

if CheckBox9.Checked then begin

osnovnaya_forma.DBGrid2.Columns[8].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[8].Visible:=false;

if CheckBox10.Checked then begin

osnovnaya_forma.DBGrid2.Columns[9].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[9].Visible:=false;

if CheckBox11.Checked then begin

osnovnaya_forma.DBGrid2.Columns[10].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[10].Visible:=false;

if CheckBox12.Checked then begin

osnovnaya_forma.DBGrid2.Columns[11].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[11].Visible:=false;

if CheckBox13.Checked then begin

osnovnaya_forma.DBGrid2.Columns[12].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[12].Visible:=false;

if CheckBox14.Checked then begin

osnovnaya_forma.DBGrid2.Columns[13].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[13].Visible:=false;

if CheckBox15.Checked then begin

osnovnaya_forma.DBGrid2.Columns[14].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[14].Visible:=false;

if CheckBox16.Checked then begin

osnovnaya_forma.DBGrid2.Columns[15].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[15].Visible:=false;

if CheckBox17.Checked then begin

osnovnaya_forma.DBGrid2.Columns[16].Visible:=true;

end else

osnovnaya_forma.DBGrid2.Columns[16].Visible:=false;

end;

procedure TD_filter.Button3Click(Sender: TObject);

begin

CheckBox1.Checked:=true;

CheckBox2.Checked:=true;

CheckBox3.Checked:=true;

CheckBox4.Checked:=true;

CheckBox5.Checked:=true;

CheckBox6.Checked:=true;

CheckBox7.Checked:=true;

CheckBox8.Checked:=true;

CheckBox9.Checked:=true;

CheckBox10.Checked:=true;

CheckBox11.Checked:=true;

CheckBox12.Checked:=true;

CheckBox13.Checked:=true;

CheckBox14.Checked:=true;

CheckBox15.Checked:=true;

CheckBox16.Checked:=true;

CheckBox17.Checked:=true;

end;

procedure TD_filter.Button4Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox6.Checked:=false;

CheckBox7.Checked:=false;

CheckBox8.Checked:=false;

CheckBox9.Checked:=false;

CheckBox10.Checked:=false;

CheckBox11.Checked:=false;

CheckBox12.Checked:=false;

CheckBox13.Checked:=false;

CheckBox14.Checked:=false;

CheckBox15.Checked:=false;

CheckBox16.Checked:=false;

CheckBox17.Checked:=false;

end;

end.

//Таблица «Путевые листы»

unit route;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls,

Vcl.DBCtrls, Vcl.ComCtrls, Vcl.Mask, Vcl.Grids, Vcl.DBGrids;

type

Tlists = class(TForm)

Image1: TImage;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

DBEdit1: TDBEdit;

Label1: TLabel;

Label5: TLabel;

Label2: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label3: TLabel;

DBEdit2: TDBEdit;

DateTimePicker2: TDateTimePicker;

DateTimePicker1: TDateTimePicker;

DBEdit3: TDBEdit;

Label4: TLabel;

Label9: TLabel;

Label10: TLabel;

DBComboBox1: TDBComboBox;

DBComboBox2: TDBComboBox;

DBComboBox3: TDBComboBox;

DBComboBox4: TDBComboBox;

DBComboBox5: TDBComboBox;

DBComboBox6: TDBComboBox;

DBComboBox7: TDBComboBox;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Label18: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

procedure BitBtn1Click(Sender: TObject);

procedure DateTimePicker1Change(Sender: TObject);

procedure DateTimePicker1Click(Sender: TObject);

procedure DateTimePicker1MouseEnter(Sender: TObject);

procedure DateTimePicker2Change(Sender: TObject);

procedure DateTimePicker2Click(Sender: TObject);

procedure DateTimePicker2MouseEnter(Sender: TObject);

procedure DBComboBox1DropDown(Sender: TObject);

procedure DBComboBox2DropDown(Sender: TObject);

procedure DBComboBox3DropDown(Sender: TObject);

procedure DBComboBox4DropDown(Sender: TObject);

procedure DBComboBox5DropDown(Sender: TObject);

procedure DBComboBox6DropDown(Sender: TObject);

procedure DBComboBox7DropDown(Sender: TObject);

procedure DBComboBox7Change(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure DBComboBox5Change(Sender: TObject);

procedure DBComboBox6Change(Sender: TObject);

procedure DBComboBox4Change(Sender: TObject);

procedure DBComboBox3Change(Sender: TObject);

procedure DBComboBox2Change(Sender: TObject);

procedure DBComboBox1Change(Sender: TObject);

procedure GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

lists: Tlists;

implementation

{$R *.dfm}

uses start_prog, uni_components, osn, options;

//---Отображение на панели задач(часть2)---//

procedure Tlists.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

//---Печать---//

procedure Tlists.BitBtn1Click(Sender: TObject);

begin

dbNavigator1.Visible:=false;

BitBtn1.Visible:=false;

DateTimePicker1.Visible:=false;

DateTimePicker2.Visible:=false;

DBComboBox1.Visible:=false;

DBComboBox2.Visible:=false;

DBComboBox3.Visible:=false;

DBComboBox4.Visible:=false;

DBComboBox5.Visible:=false;

DBComboBox6.Visible:=false;

DBComboBox7.Visible:=false;

if opt.CheckBox7.Checked=true then begin

Label18.Caption:='Напечатано пользователем: '+start.ComboBox1.Text+'';

Label18.Visible:=true;

end else begin

end;

Print; //печать

sleep(100);

Label18.Visible:=false;

dbNavigator1.Visible:=true;

BitBtn1.Visible:=true;

DateTimePicker1.Visible:=true;

DateTimePicker2.Visible:=true;

DBComboBox1.Visible:=true;

DBComboBox2.Visible:=true;

DBComboBox3.Visible:=true;

DBComboBox4.Visible:=true;

DBComboBox5.Visible:=true;

DBComboBox6.Visible:=true;

DBComboBox7.Visible:=true;

end;

//---Печать---//

//---Выбор даты---//

//Дата выезда

procedure Tlists.DateTimePicker1Change(Sender: TObject);

begin

DBEdit2.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure Tlists.DateTimePicker1Click(Sender: TObject);

begin

U.Table_lists.Edit;

end;

procedure Tlists.DateTimePicker1MouseEnter(Sender: TObject);

begin

if DBEdit2.Text='' then begin

DateTimePicker1.Date:=StrToDate('01.01.2001');

end else

DateTimePicker1.Date:=StrToDate(DBEdit2.Text);

end;

//Дата приезда

procedure Tlists.DateTimePicker2Change(Sender: TObject);

begin

DBEdit3.Text:=DateToStr(DateTimePicker2.Date);

end;

procedure Tlists.DateTimePicker2Click(Sender: TObject);

begin

U.Table_lists.Edit;

end;

procedure Tlists.DateTimePicker2MouseEnter(Sender: TObject);

begin

if DBEdit3.Text='' then begin

DateTimePicker2.Date:=StrToDate('01.01.2001');

end else

DateTimePicker2.Date:=StrToDate(DBEdit3.Text);

end;

//---Выбор даты---//

//---Выбор марки авто---//

procedure Tlists.DBComboBox1Change(Sender: TObject);

begin

DBEdit5.Text:=DBComboBox1.Text;

DBComboBox1.Width:=20;

DBComboBox1.Left:=120;

end;

procedure Tlists.DBComboBox1DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT DISTINCT Марка FROM transport where `Вид ТС`="тягач";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox1.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox1.Items.Add(U.Query.FieldByName('Марка').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox1.ItemIndex:=0;

DBComboBox1.Width:=122;

DBComboBox1.Left:=18;

U.Table_lists.Edit;

end;

//---Выбор марки авто---//

//---Выбор марки прицепа---//

procedure Tlists.DBComboBox2Change(Sender: TObject);

begin

DBEdit7.Text:=DBComboBox2.Text;

DBComboBox2.Width:=20;

DBComboBox2.Left:=120;

end;

procedure Tlists.DBComboBox2DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT DISTINCT Марка FROM transport where `Вид ТС`="полуприцеп";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox2.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox2.Items.Add(U.Query.FieldByName('Марка').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox2.ItemIndex:=0;

DBComboBox2.Width:=122;

DBComboBox2.Left:=18;

U.Table_lists.Edit;

end;

//---Выбор марки прицепа---//

//---Выбор гос номера авто---//

procedure Tlists.DBComboBox3Change(Sender: TObject);

begin

DBEdit6.Text:=DBComboBox3.Text;

DBComboBox3.Width:=20;

DBComboBox3.Left:=301;

end;

procedure Tlists.DBComboBox3DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Гос номер` FROM transport where `Марка`="'+DBComboBox1.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox3.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox3.Items.Add(U.Query.FieldByName('Гос номер').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox3.ItemIndex :=0;

DBComboBox3.Width:=121;

DBComboBox3.Left:=200;

U.Table_lists.Edit;

end;

//---Выбор гос номера авто---//

//---Выбор гос номера прицепа---//

procedure Tlists.DBComboBox4Change(Sender: TObject);

begin

DBEdit8.Text:=DBComboBox4.Text;

DBComboBox4.Width:=20;

DBComboBox4.Left:=301;

end;

procedure Tlists.DBComboBox4DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Гос номер` FROM transport where `Марка`="'+DBComboBox2.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox4.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox4.Items.Add(U.Query.FieldByName('Гос номер').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox4.ItemIndex :=0;

DBComboBox4.Width:=121;

DBComboBox4.Left:=200;

U.Table_lists.Edit;

end;

//---Выбор гос номера прицепа---//

//---Выбор водителя---//

procedure Tlists.DBComboBox5Change(Sender: TObject);

begin

DBEdit9.Text:=DBComboBox5.Text;

DBComboBox5.Width:=20;

DBComboBox5.Left:=248;

end;

procedure Tlists.DBComboBox5DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Фамилия`, `Имя`, `Отчество` FROM drivers order by Фамилия ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox5.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox5.Items.Add

(U.Query.FieldByName('Фамилия').AsString

+' '+U.Query.FieldByName('Имя').AsString

+' '+U.Query.FieldByName('Отчество').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox5.ItemIndex :=0;

DBComboBox5.Width:=260;

DBComboBox5.Left:=8;

U.Table_lists.Edit;

end;

//---Выбор водителя---//

//---Выбор диспетчера---//

procedure Tlists.DBComboBox6Change(Sender: TObject);

begin

DBEdit10.Text:=DBComboBox6.Text;

DBComboBox6.Width:=20;

DBComboBox6.Left:=248;

end;

procedure Tlists.DBComboBox6DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Фамилия`, `Имя`, `Отчество` FROM users order by Фамилия ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox6.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox6.Items.Add

(U.Query.Fields.Fields[0].DisplayText

+' '+U.Query.Fields.Fields[1].DisplayText

+' '+U.Query.Fields.Fields[2].DisplayText); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox6.ItemIndex :=0;

DBComboBox6.Width:=260;

DBComboBox6.Left:=8;

U.Table_lists.Edit;

end;

//---Выбор диспетчера---//

//---Выбор страны---//

procedure Tlists.DBComboBox7Change(Sender: TObject);

begin

DBEdit4.Text:=DBComboBox7.Text;

DBComboBox7.Width:=20;

DBComboBox7.Left:=310;

end;

procedure Tlists.DBComboBox7DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Страна` FROM country order by Страна ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox7.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox7.Items.Add(U.Query.FieldByName('Страна').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox7.ItemIndex :=0;

DBComboBox7.Width:=116;

DBComboBox7.Left:=214;

U.Table_lists.Edit;

end;

//---Выбор страны---//

//---Приведение ComboBox'ов к нормальному виду---//

procedure Tlists.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox1.Width:=20;DBComboBox1.Left:=120;

DBComboBox2.Width:=20;DBComboBox2.Left:=120;

DBComboBox3.Width:=20;DBComboBox3.Left:=301;

DBComboBox4.Width:=20;DBComboBox4.Left:=301;

DBComboBox5.Width:=20;DBComboBox5.Left:=248;

DBComboBox6.Width:=20;DBComboBox6.Left:=248;

DBComboBox7.Width:=20;DBComboBox7.Left:=310;

end;

procedure Tlists.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox1.Width:=20;DBComboBox1.Left:=120;

DBComboBox3.Width:=20;DBComboBox3.Left:=301;

end;

procedure Tlists.GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox2.Width:=20;DBComboBox2.Left:=120;

DBComboBox4.Width:=20;DBComboBox4.Left:=301;

end;

//---Приведение ComboBox'ов к нормальному виду---//

end.

//Фильтры для таблицы «Путевые листы»

unit route_filter;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

Tlists_filter = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

Button3: TButton;

Button4: TButton;

Button1: TButton;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

lists_filter: Tlists_filter;

implementation

{$R *.dfm}

uses osn;

procedure Tlists_filter.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked then begin

osnovnaya_forma.DBGrid4.Columns[0].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[0].Visible:=false;

if CheckBox2.Checked then begin

osnovnaya_forma.DBGrid4.Columns[1].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[1].Visible:=false;

if CheckBox3.Checked then begin

osnovnaya_forma.DBGrid4.Columns[2].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[2].Visible:=false;

if CheckBox4.Checked then begin

osnovnaya_forma.DBGrid4.Columns[3].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[3].Visible:=false;

if CheckBox5.Checked then begin

osnovnaya_forma.DBGrid4.Columns[4].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[4].Visible:=false;

if CheckBox6.Checked then begin

osnovnaya_forma.DBGrid4.Columns[5].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[5].Visible:=false;

if CheckBox7.Checked then begin

osnovnaya_forma.DBGrid4.Columns[6].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[6].Visible:=false;

if CheckBox8.Checked then begin

osnovnaya_forma.DBGrid4.Columns[7].Visible:=true;

end else

osnovnaya_forma.DBGrid4.Columns[7].Visible:=false;

end;

procedure Tlists_filter.Button3Click(Sender: TObject);

begin

CheckBox1.Checked:=true;

CheckBox2.Checked:=true;

CheckBox3.Checked:=true;

CheckBox4.Checked:=true;

CheckBox5.Checked:=true;

CheckBox6.Checked:=true;

CheckBox7.Checked:=true;

CheckBox8.Checked:=true;

end;

procedure Tlists_filter.Button4Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox6.Checked:=false;

CheckBox7.Checked:=false;

CheckBox8.Checked:=false;

end;

end.

//Форма для таблицы «Перевозки»

unit transportation;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls,

Vcl.Buttons, Vcl.Imaging.pngimage, Vcl.ComCtrls, Vcl.Mask;

type

Ttraffic = class(TForm)

Image1: TImage;

BitBtn1: TBitBtn;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBComboBox1: TDBComboBox;

Label1: TLabel;

Label2: TLabel;

DBEdit2: TDBEdit;

DateTimePicker1: TDateTimePicker;

Label3: TLabel;

Label4: TLabel;

DBEdit3: TDBEdit;

DBComboBox2: TDBComboBox;

Label5: TLabel;

DBComboBox3: TDBComboBox;

Label6: TLabel;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox4: TGroupBox;

Label7: TLabel;

DBComboBox4: TDBComboBox;

Label8: TLabel;

Label9: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label10: TLabel;

DateTimePicker2: TDateTimePicker;

GroupBox3: TGroupBox;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

DBComboBox6: TDBComboBox;

DBEdit7: TDBEdit;

DateTimePicker3: TDateTimePicker;

DBEdit6: TDBEdit;

Label16: TLabel;

DBComboBox9: TDBComboBox;

Label17: TLabel;

DBComboBox10: TDBComboBox;

Label18: TLabel;

DBComboBox11: TDBComboBox;

Label19: TLabel;

DBComboBox12: TDBComboBox;

Label20: TLabel;

DBComboBox13: TDBComboBox;

Label21: TLabel;

DBEdit8: TDBEdit;

Label22: TLabel;

DBComboBox14: TDBComboBox;

Label23: TLabel;

DBComboBox15: TDBComboBox;

DBEdit9: TDBEdit;

Label24: TLabel;

DBEdit11: TDBEdit;

Label26: TLabel;

GroupBox5: TGroupBox;

DBEdit10: TDBEdit;

Label25: TLabel;

DBEdit12: TDBEdit;

Label27: TLabel;

Label28: TLabel;

DBComboBox16: TDBComboBox;

Label29: TLabel;

DBEdit13: TDBEdit;

Label30: TLabel;

DBEdit14: TDBEdit;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

DBComboBox19: TDBComboBox;

DBComboBox20: TDBComboBox;

DBComboBox21: TDBComboBox;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

DBEdit32: TDBEdit;

DBEdit33: TDBEdit;

DBEdit34: TDBEdit;

procedure BitBtn1Click(Sender: TObject);

procedure DateTimePicker1Change(Sender: TObject);

procedure DateTimePicker1Click(Sender: TObject);

procedure DateTimePicker1MouseEnter(Sender: TObject);

procedure DateTimePicker2Change(Sender: TObject);

procedure DateTimePicker2Click(Sender: TObject);

procedure DateTimePicker2MouseEnter(Sender: TObject);

procedure DateTimePicker3Change(Sender: TObject);

procedure DateTimePicker3Click(Sender: TObject);

procedure DateTimePicker3MouseEnter(Sender: TObject);

procedure DBComboBox2DropDown(Sender: TObject);

procedure DBComboBox3DropDown(Sender: TObject);

procedure DBComboBox1DropDown(Sender: TObject);

procedure DBEdit3Click(Sender: TObject);

procedure DBComboBox4DropDown(Sender: TObject);

procedure DBComboBox6DropDown(Sender: TObject);

procedure DBComboBox10DropDown(Sender: TObject);

procedure DBComboBox11DropDown(Sender: TObject);

procedure DBComboBox12DropDown(Sender: TObject);

procedure DBEdit11Click(Sender: TObject);

procedure DBComboBox20DropDown(Sender: TObject);

procedure DBComboBox21DropDown(Sender: TObject);

procedure DBComboBox14Change(Sender: TObject);

procedure DBComboBox14DropDown(Sender: TObject);

procedure DBComboBox1Change(Sender: TObject);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBComboBox2Change(Sender: TObject);

procedure DBComboBox3Change(Sender: TObject);

procedure DBComboBox4Change(Sender: TObject);

procedure DBComboBox6Change(Sender: TObject);

procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure GroupBox3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBComboBox16DropDown(Sender: TObject);

procedure GroupBox5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBComboBox19DropDown(Sender: TObject);

procedure DBComboBox19Change(Sender: TObject);

procedure DBComboBox9Change(Sender: TObject);

procedure DBComboBox9DropDown(Sender: TObject);

procedure DBComboBox10Change(Sender: TObject);

procedure DBComboBox11Change(Sender: TObject);

procedure DBComboBox20Change(Sender: TObject);

procedure DBComboBox21Change(Sender: TObject);

procedure DBComboBox12Change(Sender: TObject);

procedure DBComboBox13Change(Sender: TObject);

procedure DBComboBox13DropDown(Sender: TObject);

procedure DBComboBox16Change(Sender: TObject);

procedure DBComboBox15Change(Sender: TObject);

procedure DBComboBox15DropDown(Sender: TObject);

procedure GroupBox4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

traffic: Ttraffic;

implementation

{$R *.dfm}

uses start_prog, uni_components, osn;

//---Отображение на панели задач(часть2)---//

procedure Ttraffic.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

//---Печать---//

procedure Ttraffic.BitBtn1Click(Sender: TObject);

begin

dbNavigator1.Visible:=false;

BitBtn1.Visible:=false;

DateTimePicker1.Visible:=false;

DateTimePicker2.Visible:=false;

DateTimePicker3.Visible:=false;

DBComboBox1.Visible:=false;

DBComboBox2.Visible:=false;

DBComboBox3.Visible:=false;

DBComboBox4.Visible:=false;

DBComboBox6.Visible:=false;

DBComboBox9.Visible:=false;

DBComboBox10.Visible:=false;

DBComboBox11.Visible:=false;

DBComboBox12.Visible:=false;

DBComboBox13.Visible:=false;

DBComboBox14.Visible:=false;

DBComboBox15.Visible:=false;

DBComboBox16.Visible:=false;

DBComboBox19.Visible:=false;

DBComboBox20.Visible:=false;

DBComboBox21.Visible:=false;

DBEdit4.Enabled:=true;

DBEdit7.Enabled:=true;

DBEdit21.Enabled:=true;

DBEdit22.Enabled:=true;

DBEdit15.Enabled:=true;

DBEdit16.Enabled:=true;

Print; //печать

sleep(100);

dbNavigator1.Visible:=true;

BitBtn1.Visible:=true;

DateTimePicker1.Visible:=true;

DateTimePicker2.Visible:=true;

DateTimePicker3.Visible:=true;

DBComboBox1.Visible:=true;

DBComboBox2.Visible:=true;

DBComboBox3.Visible:=true;

DBComboBox4.Visible:=true;

DBComboBox6.Visible:=true;

DBComboBox9.Visible:=true;

DBComboBox10.Visible:=true;

DBComboBox11.Visible:=true;

DBComboBox12.Visible:=true;

DBComboBox13.Visible:=true;

DBComboBox14.Visible:=true;

DBComboBox15.Visible:=true;

DBComboBox16.Visible:=true;

DBComboBox19.Visible:=true;

DBComboBox20.Visible:=true;

DBComboBox21.Visible:=true;

DBEdit4.Enabled:=false;

DBEdit7.Enabled:=false;

DBEdit21.Enabled:=false;

DBEdit22.Enabled:=false;

DBEdit15.Enabled:=false;

DBEdit16.Enabled:=false;

end;

//---Печать---//

//---Статус---//

procedure Ttraffic.DBComboBox14Change(Sender: TObject);

begin

DBEdit17.Text:=DBComboBox14.Text;

DBComboBox14.Width:=20;

DBComboBox14.Left:=501;

end;

procedure Ttraffic.DBComboBox14DropDown(Sender: TObject);

begin

DBComboBox14.Width:=121;

DBComboBox14.Left:=400;

U.Table_traffic.Edit;

end;

//---Статус---//

//---Заказчик---//

procedure Ttraffic.DBComboBox1Change(Sender: TObject);

begin

DBEdit18.Text:=DBComboBox1.Text;

DBComboBox1.Width:=20;

DBComboBox1.Left:=300;

end;

procedure Ttraffic.DBComboBox1DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Название компании` FROM kontragents order by `Название компании` ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox1.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox1.Items.Add

(U.Query.FieldByName('Название компании').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox1.ItemIndex :=0;

DBComboBox1.Width:=198;

DBComboBox1.Left:=122;

U.Table_traffic.Edit;

end;

//---Заказчик---//

//---Выбор подразделения---//

procedure Ttraffic.DBComboBox2Change(Sender: TObject);

begin

DBEdit19.Text:=DBComboBox2.Text;

DBComboBox2.Width:=20;

DBComboBox2.Left:=696;

end;

procedure Ttraffic.DBComboBox2DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT DISTINCT`Подразделение` FROM users order by `Подразделение` ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox2.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox2.Items.Add

(U.Query.FieldByName('Подразделение').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox2.ItemIndex :=0;

DBComboBox2.Width:=226;

DBComboBox2.Left:=490;

U.Table_traffic.Edit;

end;

//---Выбор подразделения---//

//---Выбор ответственного менеджера---//

procedure Ttraffic.DBComboBox3Change(Sender: TObject);

begin

DBEdit20.Text:=DBComboBox3.Text;

DBComboBox3.Width:=20;

DBComboBox3.Left:=696;

end;

procedure Ttraffic.DBComboBox3DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Фамилия`, `Имя`, `Отчество` FROM users where `Подразделение`="'+DBComboBox2.Text+'" order by Фамилия ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox3.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox3.Items.Add

(U.Query.FieldByName('Фамилия').AsString

+' '+U.Query.FieldByName('Имя').AsString

+' '+U.Query.FieldByName('Отчество').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox3.ItemIndex :=0;

DBComboBox3.Width:=226;

DBComboBox3.Left:=490;

U.Table_traffic.Edit;

end;

//---Выбор ответственного менеджера---//

//---Приведение ComboBox'ов шапки к нормальному виду---//

procedure Ttraffic.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox14.Width:=20;DBComboBox14.Left:=501;

DBComboBox1.Width:=20;DBComboBox1.Left:=300;

DBComboBox2.Width:=20;DBComboBox2.Left:=696;

DBComboBox3.Width:=20;DBComboBox3.Left:=696;

end;

//---Приведение ComboBox'ов шапки к нормальному виду---//

//---Дата заказа на перевозку---//

procedure Ttraffic.DateTimePicker1Change(Sender: TObject);

begin

DBEdit2.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure Ttraffic.DateTimePicker1Click(Sender: TObject);

begin

U.Table_traffic.Edit;

end;

procedure Ttraffic.DateTimePicker1MouseEnter(Sender: TObject);

begin

if DBEdit2.Text='' then begin

DateTimePicker1.Date:=StrToDate('01.01.2001');

end else

DateTimePicker1.Date:=StrToDate(DBEdit2.Text);

end;

//---Дата заказа на перевозку---//

//---Дата отправки груза---//

procedure Ttraffic.DateTimePicker2Change(Sender: TObject);

begin

DBEdit5.Text:=DateToStr(DateTimePicker2.Date);

end;

procedure Ttraffic.DateTimePicker2Click(Sender: TObject);

begin

U.Table_traffic.Edit;

end;

procedure Ttraffic.DateTimePicker2MouseEnter(Sender: TObject);

begin

if DBEdit5.Text='' then begin

DateTimePicker2.Date:=StrToDate('01.01.2001');

end else

DateTimePicker2.Date:=StrToDate(DBEdit5.Text);

end;

//---Дата отправки груза---//

//---Дата получения груза---//

procedure Ttraffic.DateTimePicker3Change(Sender: TObject);

begin

DBEdit6.Text:=DateToStr(DateTimePicker3.Date);

end;

procedure Ttraffic.DateTimePicker3Click(Sender: TObject);

begin

U.Table_traffic.Edit;

end;

procedure Ttraffic.DateTimePicker3MouseEnter(Sender: TObject);

begin

if DBEdit6.Text='' then begin

DateTimePicker3.Date:=StrToDate('01.01.2001');

end else

DateTimePicker3.Date:=StrToDate(DBEdit6.Text);

end;

//---Дата получения груза---//

//---Контактное лицо---//

procedure Ttraffic.DBEdit3Click(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Контактное лицо` FROM kontragents where `Название компании`="'+DBComboBox1.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBEdit3.Text:=U.Query.FieldByName('Контактное лицо').AsString; //Заполняем

end;

//---Контактное лицо---//

//!!Маршрут!!//

//-------//Отправление//------//

//---Отправитель---//

procedure Ttraffic.DBComboBox4Change(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Страна` FROM kontragents where `Название компании`="'+DBComboBox4.Text+'";';

U.Query.Active:=true;

DBEdit22.Text:=U.Query.FieldByName('Страна').AsString; //Заполняем

DBEdit15.Text:=U.Query.FieldByName('Страна').AsString; //Заполняем

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Адрес` FROM kontragents where `Название компании`="'+DBComboBox4.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBEdit4.Text:=U.Query.FieldByName('Адрес').AsString; //Заполняем

DBEdit23.Text:=DBComboBox4.Text;

DBComboBox4.Width:=20;

DBComboBox4.Left:=317;

end;

procedure Ttraffic.DBComboBox4DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Название компании` FROM kontragents order by `Название компании` ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox4.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox4.Items.Add

(U.Query.FieldByName('Название компании').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox4.ItemIndex :=0;

DBComboBox4.Width:=200;

DBComboBox4.Left:=137;

U.Table_traffic.Edit;

end;

//---Отправитель---//

//---Приведение ComboBox'а к нормальному виду---//

procedure Ttraffic.GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox4.Width:=20;DBComboBox4.Left:=317;

end;

//---Приведение ComboBox'а к нормальному виду---//

//-------//Отправление//------//

//-------//Получение//------//

//---Получатель---//

procedure Ttraffic.DBComboBox6Change(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Страна` FROM kontragents where `Название компании`="'+DBComboBox6.Text+'";';

U.Query.Active:=true;

DBEdit21.Text:=U.Query.FieldByName('Страна').AsString; //Заполняем

DBEdit16.Text:=U.Query.FieldByName('Страна').AsString; //Заполняем

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Адрес` FROM kontragents where `Название компании`="'+DBComboBox6.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBEdit7.Text:=U.Query.FieldByName('Адрес').AsString; //Заполняем

DBEdit24.Text:=DBComboBox6.Text;

DBComboBox6.Width:=20;

DBComboBox6.Left:=317;

end;

procedure Ttraffic.DBComboBox6DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Clear;

U.Query.SQL.Text:='SELECT `Название компании` FROM kontragents order by `Название компании` ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox6.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox6.Items.Add

(U.Query.FieldByName('Название компании').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox6.ItemIndex :=0;

DBComboBox6.Width:=201;

DBComboBox6.Left:=136;

U.Table_traffic.Edit;

end;

//---Получатель---//

//---Приведение ComboBox'а к нормальному виду---//

procedure Ttraffic.GroupBox3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox6.Width:=20;DBComboBox6.Left:=317;

end;

//---Приведение ComboBox'а к нормальному виду---//

//-------//Получение//------//

//-------//Перевозка//------//

//---Тип ТС---//

procedure Ttraffic.DBComboBox9Change(Sender: TObject);

begin

DBEdit27.Text:=DBComboBox9.Text;

DBComboBox9.Width:=20;

DBComboBox9.Left:=216;

end;

procedure Ttraffic.DBComboBox9DropDown(Sender: TObject);

begin

DBComboBox9.Width:=156;

DBComboBox9.Left:=80;

U.Table_traffic.Edit;

end;

//---Тип ТС---//

//---Тягач---//

procedure Ttraffic.DBComboBox10Change(Sender: TObject);

begin

DBEdit28.Text:=DBComboBox10.Text;

DBComboBox10.Width:=20;

DBComboBox10.Left:=216;

end;

procedure Ttraffic.DBComboBox10DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT DISTINCT Марка FROM transport where `Вид ТС`="тягач";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox10.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox10.Items.Add(U.Query.FieldByName('Марка').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox10.ItemIndex :=0;

DBComboBox10.Width:=156;

DBComboBox10.Left:=80;

U.Table_traffic.Edit;

end;

//---Тягач---//

//---Тягач гос номер---//

procedure Ttraffic.DBComboBox20Change(Sender: TObject);

begin

DBEdit30.Text:=DBComboBox20.Text;

DBComboBox20.Width:=20;

DBComboBox20.Left:=328;

end;

procedure Ttraffic.DBComboBox20DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Гос номер` FROM transport where `Марка`="'+DBComboBox10.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox20.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox20.Items.Add(U.Query.FieldByName('Гос номер').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox20.ItemIndex :=0;

DBComboBox20.Width:=105;

DBComboBox20.Left:=242;

U.Table_traffic.Edit;

end;

//---Тягач гос номер---//

//---Полуприцеп---//

procedure Ttraffic.DBComboBox11Change(Sender: TObject);

begin

DBEdit29.Text:=DBComboBox11.Text;

DBComboBox11.Width:=20;

DBComboBox11.Left:=216;

end;

procedure Ttraffic.DBComboBox11DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT DISTINCT Марка FROM transport where `Вид ТС`="полуприцеп";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox11.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox11.Items.Add(U.Query.FieldByName('Марка').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox11.ItemIndex :=0;

DBComboBox11.Width:=140;

DBComboBox11.Left:=96;

U.Table_traffic.Edit;

end;

//---Полуприцеп---//

//---Полуприцеп гос номер---//

procedure Ttraffic.DBComboBox21Change(Sender: TObject);

begin

DBEdit31.Text:=DBComboBox21.Text;

DBComboBox21.Width:=20;

DBComboBox21.Left:=328;

end;

procedure Ttraffic.DBComboBox21DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Гос номер` FROM transport where `Марка`="'+DBComboBox11.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox21.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox21.Items.Add(U.Query.FieldByName('Гос номер').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox21.ItemIndex :=0;

DBComboBox21.Width:=105;

DBComboBox21.Left:=242;

U.Table_traffic.Edit;

end;

//---Полуприцеп гос номер---//

//---Выбор водителя---//

procedure Ttraffic.DBComboBox12Change(Sender: TObject);

begin

DBEdit32.Text:=DBComboBox12.Text;

DBComboBox12.Width:=20;

DBComboBox12.Left:=526;

end;

procedure Ttraffic.DBComboBox12DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Фамилия`, `Имя`, `Отчество` FROM drivers order by Фамилия ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox12.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox12.Items.Add

(U.Query.FieldByName('Фамилия').AsString

+' '+U.Query.FieldByName('Имя').AsString

+' '+U.Query.FieldByName('Отчество').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox12.ItemIndex :=0;

DBComboBox12.Width:=191;

DBComboBox12.Left:=353;

U.Table_traffic.Edit;

end;

//---Выбор водителя---//

//---Валюта---//

procedure Ttraffic.DBComboBox15Change(Sender: TObject);

begin

DBEdit33.Text:=DBComboBox15.Text;

DBComboBox15.Width:=20;

DBComboBox15.Left:=190;

end;

procedure Ttraffic.DBComboBox15DropDown(Sender: TObject);

begin

DBComboBox15.Width:=86;

DBComboBox15.Left:=124;

U.Table_traffic.Edit;

end;

//---Валюта---//

//---Форма оплаты---//

procedure Ttraffic.DBComboBox13Change(Sender: TObject);

begin

DBEdit34.Text:=DBComboBox13.Text;

DBComboBox13.Width:=20;

DBComboBox13.Left:=493;

end;

procedure Ttraffic.DBComboBox13DropDown(Sender: TObject);

begin

DBComboBox13.Width:=145;

DBComboBox13.Left:=368;

U.Table_traffic.Edit;

end;

//---Форма оплаты---//

//---Приведение ComboBox'ов шапки к нормальному виду---//

procedure Ttraffic.GroupBox4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox9.Width:=20;DBComboBox9.Left:=216;

DBComboBox10.Width:=20;DBComboBox10.Left:=216;

DBComboBox11.Width:=20;DBComboBox11.Left:=216;

DBComboBox12.Width:=20;DBComboBox12.Left:=526;

DBComboBox13.Width:=20;DBComboBox13.Left:=493;

DBComboBox15.Width:=20;DBComboBox15.Left:=190;

DBComboBox20.Width:=20;DBComboBox20.Left:=328;

DBComboBox21.Width:=20;DBComboBox21.Left:=328;

end;

//---Приведение ComboBox'ов шапки к нормальному виду---//

//-------//Перевозка//------//

//!!Маршрут!!//

//-------//Параметры груза//------//

//---Вид груза---//

procedure Ttraffic.DBComboBox16Change(Sender: TObject);

begin

DBEdit25.Text:=DBComboBox16.Text;

DBComboBox16.Width:=20;

DBComboBox16.Left:=224;

end;

procedure Ttraffic.DBComboBox16DropDown(Sender: TObject);

begin

DBComboBox16.Width:=130;

DBComboBox16.Left:=114;

U.Table_traffic.Edit;

end;

//---Вид груза---//

//---Направление перевозки---//

procedure Ttraffic.DBComboBox19Change(Sender: TObject);

begin

DBEdit26.Text:=DBComboBox19.Text;

DBComboBox19.Width:=20;

DBComboBox19.Left:=621;

end;

procedure Ttraffic.DBComboBox19DropDown(Sender: TObject);

begin

DBComboBox19.Width:=114;

DBComboBox19.Left:=527;

U.Table_traffic.Edit;

end;

//---Направление перевозки---//

//---Приведение ComboBox'ов к нормальному виду---//

procedure Ttraffic.GroupBox5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox16.Width:=20;DBComboBox16.Left:=224;

DBComboBox19.Width:=20;DBComboBox19.Left:=621;

end;

//---Приведение ComboBox'ов к нормальному виду---//

//-------//Параметры груза//------//

//---Автор---//

procedure Ttraffic.DBEdit11Click(Sender: TObject);

begin

U.Table_traffic.Edit;

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Фамилия`, `Имя`, `Отчество` FROM users where Login="'+start.ComboBox1.Text+'";';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBEdit11.Text:=U.Query.FieldByName('Фамилия').AsString

+' '+U.Query.FieldByName('Имя').AsString

+' '+U.Query.FieldByName('Отчество').AsString; //Заполняем

end;

//---Автор---//

end.

//Фильтр для таблицы «Первозки»

unit transportation_filter;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

Ttraffic_filter = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

CheckBox13: TCheckBox;

CheckBox14: TCheckBox;

CheckBox15: TCheckBox;

CheckBox16: TCheckBox;

CheckBox17: TCheckBox;

CheckBox18: TCheckBox;

CheckBox19: TCheckBox;

CheckBox20: TCheckBox;

Button3: TButton;

Button4: TButton;

Button1: TButton;

CheckBox21: TCheckBox;

CheckBox22: TCheckBox;

CheckBox23: TCheckBox;

CheckBox24: TCheckBox;

CheckBox25: TCheckBox;

CheckBox26: TCheckBox;

CheckBox27: TCheckBox;

CheckBox28: TCheckBox;

CheckBox29: TCheckBox;

CheckBox30: TCheckBox;

CheckBox31: TCheckBox;

CheckBox32: TCheckBox;

CheckBox33: TCheckBox;

CheckBox34: TCheckBox;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

traffic_filter: Ttraffic_filter;

implementation

{$R *.dfm}

uses osn;

procedure Ttraffic_filter.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked then begin

osnovnaya_forma.DBGrid5.Columns[0].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[0].Visible:=false;

if CheckBox2.Checked then begin

osnovnaya_forma.DBGrid5.Columns[1].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[1].Visible:=false;

if CheckBox3.Checked then begin

osnovnaya_forma.DBGrid5.Columns[2].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[2].Visible:=false;

if CheckBox4.Checked then begin

osnovnaya_forma.DBGrid5.Columns[3].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[3].Visible:=false;

if CheckBox5.Checked then begin

osnovnaya_forma.DBGrid5.Columns[4].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[4].Visible:=false;

if CheckBox6.Checked then begin

osnovnaya_forma.DBGrid5.Columns[5].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[5].Visible:=false;

if CheckBox7.Checked then begin

osnovnaya_forma.DBGrid5.Columns[6].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[6].Visible:=false;

if CheckBox8.Checked then begin

osnovnaya_forma.DBGrid5.Columns[7].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[7].Visible:=false;

if CheckBox9.Checked then begin

osnovnaya_forma.DBGrid5.Columns[8].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[8].Visible:=false;

if CheckBox10.Checked then begin

osnovnaya_forma.DBGrid5.Columns[9].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[9].Visible:=false;

if CheckBox11.Checked then begin

osnovnaya_forma.DBGrid5.Columns[10].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[10].Visible:=false;

if CheckBox12.Checked then begin

osnovnaya_forma.DBGrid5.Columns[11].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[11].Visible:=false;

if CheckBox13.Checked then begin

osnovnaya_forma.DBGrid5.Columns[12].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[12].Visible:=false;

if CheckBox14.Checked then begin

osnovnaya_forma.DBGrid5.Columns[13].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[13].Visible:=false;

if CheckBox15.Checked then begin

osnovnaya_forma.DBGrid5.Columns[14].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[14].Visible:=false;

if CheckBox16.Checked then begin

osnovnaya_forma.DBGrid5.Columns[15].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[15].Visible:=false;

if CheckBox17.Checked then begin

osnovnaya_forma.DBGrid5.Columns[16].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[16].Visible:=false;

if CheckBox18.Checked then begin

osnovnaya_forma.DBGrid5.Columns[17].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[17].Visible:=false;

if CheckBox19.Checked then begin

osnovnaya_forma.DBGrid5.Columns[18].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[18].Visible:=false;

if CheckBox20.Checked then begin

osnovnaya_forma.DBGrid5.Columns[19].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[19].Visible:=false;

if CheckBox21.Checked then begin

osnovnaya_forma.DBGrid5.Columns[20].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[20].Visible:=false;

if CheckBox22.Checked then begin

osnovnaya_forma.DBGrid5.Columns[21].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[21].Visible:=false;

if CheckBox23.Checked then begin

osnovnaya_forma.DBGrid5.Columns[22].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[22].Visible:=false;

if CheckBox24.Checked then begin

osnovnaya_forma.DBGrid5.Columns[23].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[23].Visible:=false;

if CheckBox25.Checked then begin

osnovnaya_forma.DBGrid5.Columns[24].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[24].Visible:=false;

if CheckBox26.Checked then begin

osnovnaya_forma.DBGrid5.Columns[25].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[25].Visible:=false;

if CheckBox27.Checked then begin

osnovnaya_forma.DBGrid5.Columns[26].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[26].Visible:=false;

if CheckBox28.Checked then begin

osnovnaya_forma.DBGrid5.Columns[27].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[27].Visible:=false;

if CheckBox29.Checked then begin

osnovnaya_forma.DBGrid5.Columns[28].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[28].Visible:=false;

if CheckBox30.Checked then begin

osnovnaya_forma.DBGrid5.Columns[29].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[29].Visible:=false;

if CheckBox31.Checked then begin

osnovnaya_forma.DBGrid5.Columns[30].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[30].Visible:=false;

if CheckBox32.Checked then begin

osnovnaya_forma.DBGrid5.Columns[31].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[31].Visible:=false;

if CheckBox33.Checked then begin

osnovnaya_forma.DBGrid5.Columns[32].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[32].Visible:=false;

if CheckBox34.Checked then begin

osnovnaya_forma.DBGrid5.Columns[33].Visible:=true;

end else

osnovnaya_forma.DBGrid5.Columns[33].Visible:=false;

end;

procedure Ttraffic_filter.Button3Click(Sender: TObject);

begin

CheckBox1.Checked:=true;

CheckBox2.Checked:=true;

CheckBox3.Checked:=true;

CheckBox4.Checked:=true;

CheckBox5.Checked:=true;

CheckBox6.Checked:=true;

CheckBox7.Checked:=true;

CheckBox8.Checked:=true;

CheckBox9.Checked:=true;

CheckBox10.Checked:=true;

CheckBox11.Checked:=true;

CheckBox12.Checked:=true;

CheckBox13.Checked:=true;

CheckBox14.Checked:=true;

CheckBox15.Checked:=true;

CheckBox16.Checked:=true;

CheckBox17.Checked:=true;

CheckBox18.Checked:=true;

CheckBox19.Checked:=true;

CheckBox20.Checked:=true;

CheckBox21.Checked:=true;

CheckBox22.Checked:=true;

CheckBox23.Checked:=true;

CheckBox24.Checked:=true;

CheckBox25.Checked:=true;

CheckBox26.Checked:=true;

CheckBox27.Checked:=true;

CheckBox28.Checked:=true;

CheckBox29.Checked:=true;

CheckBox30.Checked:=true;

CheckBox31.Checked:=true;

CheckBox32.Checked:=true;

CheckBox33.Checked:=true;

CheckBox34.Checked:=true;

end;

procedure Ttraffic_filter.Button4Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox6.Checked:=false;

CheckBox7.Checked:=false;

CheckBox8.Checked:=false;

CheckBox9.Checked:=false;

CheckBox10.Checked:=false;

CheckBox11.Checked:=false;

CheckBox12.Checked:=false;

CheckBox13.Checked:=false;

CheckBox14.Checked:=false;

CheckBox15.Checked:=false;

CheckBox16.Checked:=false;

CheckBox17.Checked:=false;

CheckBox18.Checked:=false;

CheckBox19.Checked:=false;

CheckBox20.Checked:=false;

CheckBox21.Checked:=false;

CheckBox22.Checked:=false;

CheckBox23.Checked:=false;

CheckBox24.Checked:=false;

CheckBox25.Checked:=false;

CheckBox26.Checked:=false;

CheckBox27.Checked:=false;

CheckBox28.Checked:=false;

CheckBox29.Checked:=false;

CheckBox30.Checked:=false;

CheckBox31.Checked:=false;

CheckBox32.Checked:=false;

CheckBox33.Checked:=false;

CheckBox34.Checked:=false;

end;

end.

//Форма с компонентами

unit Uni_components;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UniProvider, MySQLUniProvider, Data.DB,

DBAccess, Uni, MemDS, Vcl.ExtCtrls, IdBaseComponent, IdComponent,

IdTCPConnection, IdTCPClient;

type

TU = class(TForm)

Query: TUniQuery;

Table_users: TUniTable;

DataSource_users: TUniDataSource;

Connection: TUniConnection;

MySQLUniProvider1: TMySQLUniProvider;

DataSource_transport: TUniDataSource;

Table_transport: TUniTable;

Table_drivers: TUniTable;

DataSource_drivers: TUniDataSource;

DataSource_lists: TUniDataSource;

Table_lists: TUniTable;

Table_traffic: TUniTable;

DataSource_traffic: TUniDataSource;

DataSource_kontragents: TUniDataSource;

Table_kontragents: TUniTable;

DataSource_Query: TUniDataSource;

IdTCPClient1: TIdTCPClient;

private

{ Private declarations }

public

{ Public declarations }

end;

var

U: TU;

implementation

{$R *.dfm}

end.

//Форма для таблицы «Заказчики»

unit zakazchiki;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls,

Vcl.Buttons, Vcl.ComCtrls, Vcl.Mask;

type

Tkontragents = class(TForm)

BitBtn1: TBitBtn;

Image1: TImage;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DateTimePicker2: TDateTimePicker;

DateTimePicker1: TDateTimePicker;

Label8: TLabel;

Label9: TLabel;

DBEdit9: TDBEdit;

Label10: TLabel;

DBEdit10: TDBEdit;

Label11: TLabel;

GroupBox1: TGroupBox;

DBComboBox1: TDBComboBox;

DBComboBox2: TDBComboBox;

Label18: TLabel;

DBEdit8: TDBEdit;

DBEdit11: TDBEdit;

procedure BitBtn1Click(Sender: TObject);

procedure DateTimePicker2Change(Sender: TObject);

procedure DateTimePicker2Click(Sender: TObject);

procedure DateTimePicker2MouseEnter(Sender: TObject);

procedure DateTimePicker1Change(Sender: TObject);

procedure DateTimePicker1Click(Sender: TObject);

procedure DateTimePicker1MouseEnter(Sender: TObject);

procedure DBComboBox2DropDown(Sender: TObject);

procedure DBComboBox2Change(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure DBComboBox1Change(Sender: TObject);

procedure DBComboBox1DropDown(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

kontragents: Tkontragents;

implementation

{$R *.dfm}

uses start_prog, uni_components, osn, options;

//---Отображение на панели задач(часть2)---//

procedure Tkontragents.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

//---Печать---//

procedure Tkontragents.BitBtn1Click(Sender: TObject);

begin

dbNavigator1.Visible:=false;

BitBtn1.Visible:=false;

DateTimePicker1.Visible:=false;

DateTimePicker2.Visible:=false;

DBComboBox1.Visible:=false;

DBComboBox2.Visible:=false;

if opt.CheckBox7.Checked=true then begin

Label18.Caption:='Напечатано пользователем: '+start.ComboBox1.Text+'';

Label18.Visible:=true;

end else begin

end;

Print; //печать

sleep(100);

Label18.Visible:=false;

DBComboBox1.Visible:=true;

DBComboBox2.Visible:=true;

dbNavigator1.Visible:=true;

BitBtn1.Visible:=true;

DateTimePicker1.Visible:=true;

DateTimePicker2.Visible:=true;

end;

//---Печать---//

//---Выбор даты---//

//Дата заключения договора

procedure Tkontragents.DateTimePicker2Change(Sender: TObject);

begin

DBEdit2.Text:=DateToStr(DateTimePicker2.Date);

end;

procedure Tkontragents.DateTimePicker2Click(Sender: TObject);

begin

U.Table_kontragents.Edit;

end;

procedure Tkontragents.DateTimePicker2MouseEnter(Sender: TObject);

begin

if DBEdit2.Text='' then begin

DateTimePicker2.Date:=StrToDate('01.01.2001');

end else

DateTimePicker2.Date:=StrToDate(DBEdit2.Text);

end;

//Дата окончания договора

procedure Tkontragents.DateTimePicker1Change(Sender: TObject);

begin

DBEdit4.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure Tkontragents.DateTimePicker1Click(Sender: TObject);

begin

U.Table_kontragents.Edit;

end;

procedure Tkontragents.DateTimePicker1MouseEnter(Sender: TObject);

begin

if DBEdit4.Text='' then begin

DateTimePicker1.Date:=StrToDate('01.01.2001');

end else

DateTimePicker1.Date:=StrToDate(DBEdit4.Text);

end;

//---Выбор даты---//

//---Выбор страны---//

procedure Tkontragents.DBComboBox2Change(Sender: TObject);

begin

DBEdit8.Text:=DBComboBox2.Text;

DBComboBox2.Width:=20;

DBComboBox2.Left:=109;

end;

procedure Tkontragents.DBComboBox2DropDown(Sender: TObject);

begin

U.Query.Active:=false;

U.Query.SQL.Text:='SELECT `Страна` FROM country order by Страна ASC;';

U.Query.Active:=true;

U.Query.First; //Укажем на первую запись

DBComboBox2.Items.Clear; //Очищаем

While not U.Query.EOF do

begin

DBComboBox2.Items.Add(U.Query.FieldByName('Страна').AsString); //Заполняем

U.Query.Next; //комбобокс значениями

end;

DBComboBox2.ItemIndex :=0;

DBComboBox2.Width:=121;

DBComboBox2.Left:=8;

U.Table_kontragents.Edit;

end;

//---Выбор страны---//

//---Статус---//

procedure Tkontragents.DBComboBox1Change(Sender: TObject);

begin

DBEdit11.Text:=DBComboBox1.Text;

DBComboBox1.Width:=20;

DBComboBox1.Left:=120;

end;

procedure Tkontragents.DBComboBox1DropDown(Sender: TObject);

begin

DBComboBox1.Width:=122;

DBComboBox1.Left:=16;

U.Table_kontragents.Edit;

end;

//---Статус---//

//---Приведение ComboBox'ов к нормальному виду---//

procedure Tkontragents.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DBComboBox1.Width:=20;

DBComboBox1.Left:=120;

DBComboBox2.Width:=20;

DBComboBox2.Left:=109;

end;

//---Приведение ComboBox'ов к нормальному виду---//

end.

//Фильтры для таблицы «Заказчики»

unit zakazchiki_filter;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

Tkontragents_filter = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

Button3: TButton;

Button4: TButton;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

kontragents_filter: Tkontragents_filter;

implementation

{$R *.dfm}

uses osn;

procedure Tkontragents_filter.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked then begin

osnovnaya_forma.DBGrid3.Columns[0].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[0].Visible:=false;

if CheckBox2.Checked then begin

osnovnaya_forma.DBGrid3.Columns[1].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[1].Visible:=false;

if CheckBox3.Checked then begin

osnovnaya_forma.DBGrid3.Columns[2].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[2].Visible:=false;

if CheckBox4.Checked then begin

osnovnaya_forma.DBGrid3.Columns[3].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[3].Visible:=false;

if CheckBox5.Checked then begin

osnovnaya_forma.DBGrid3.Columns[4].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[4].Visible:=false;

if CheckBox6.Checked then begin

osnovnaya_forma.DBGrid3.Columns[5].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[5].Visible:=false;

if CheckBox7.Checked then begin

osnovnaya_forma.DBGrid3.Columns[6].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[6].Visible:=false;

if CheckBox8.Checked then begin

osnovnaya_forma.DBGrid3.Columns[7].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[7].Visible:=false;

if CheckBox9.Checked then begin

osnovnaya_forma.DBGrid3.Columns[8].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[8].Visible:=false;

if CheckBox10.Checked then begin

osnovnaya_forma.DBGrid3.Columns[9].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[9].Visible:=false;

if CheckBox11.Checked then begin

osnovnaya_forma.DBGrid3.Columns[10].Visible:=true;

end else

osnovnaya_forma.DBGrid3.Columns[10].Visible:=false;

end;

procedure Tkontragents_filter.Button3Click(Sender: TObject);

begin

CheckBox1.Checked:=true;

CheckBox2.Checked:=true;

CheckBox3.Checked:=true;

CheckBox4.Checked:=true;

CheckBox5.Checked:=true;

CheckBox6.Checked:=true;

CheckBox7.Checked:=true;

CheckBox8.Checked:=true;

CheckBox9.Checked:=true;

CheckBox10.Checked:=true;

CheckBox11.Checked:=true;

end;

procedure Tkontragents_filter.Button4Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox6.Checked:=false;

CheckBox7.Checked:=false;

CheckBox8.Checked:=false;

CheckBox9.Checked:=false;

CheckBox10.Checked:=false;

CheckBox11.Checked:=false;

end;

end.

//Справка

unit spravka;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.OleCtnrs;

type

Thelp = class(TForm)

TreeView1: TTreeView;

Button1: TButton;

OleContainer1: TOleContainer;

OleContainer2: TOleContainer;

OleContainer3: TOleContainer;

OleContainer4: TOleContainer;

OleContainer5: TOleContainer;

OleContainer6: TOleContainer;

OleContainer7: TOleContainer;

OleContainer8: TOleContainer;

OleContainer9: TOleContainer;

OleContainer10: TOleContainer;

procedure Button1Click(Sender: TObject);

procedure TreeView1Change(Sender: TObject; Node: TTreeNode);

private

{ Private declarations }

public

{ Public declarations }

//---Отображение на панели задач(часть1)---//

protected

procedure CreateParams(var Params: TCreateParams); override;

//---Отображение на панели задач(часть1)---//

end;

var

help: Thelp;

implementation

{$R *.dfm}

//---Отображение на панели задач(часть2)---//

procedure Thelp.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.WndParent := 0; //отображение на панели задач

end;

//---Отображение на панели задач(часть2)---//

procedure Thelp.Button1Click(Sender: TObject);

begin

if TreeView1.Visible=true then begin

TreeView1.Visible:=false;

Button1.Caption:='>';

end else begin

TreeView1.Visible:=true;

Button1.Caption:='<';

end;

procedure Thelp.TreeView1Change(Sender: TObject; Node: TTreeNode);

begin

if TreeView1.Selected.Text='Описание' then begin

OleContainer1.Align:=alClient;

OleContainer1.Visible:=true;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Авторизация' then begin

OleContainer2.Align:=alClient;

OleContainer2.Visible:=true;

OleContainer1.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Регистрация' then begin

OleContainer3.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=true;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Главное окно' then begin

OleContainer4.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=true;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Настройки' then begin

OleContainer5.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=true;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Поиск' then begin

OleContainer6.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=true;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Формы' then begin

OleContainer7.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=true;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Фильтры' then begin

OleContainer8.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=true;

OleContainer9.Visible:=false;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='О программе' then begin

OleContainer9.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=true;

OleContainer10.Visible:=false;

end else begin

end;

if TreeView1.Selected.Text='Резерв' then begin

OleContainer10.Align:=alClient;

OleContainer1.Visible:=false;

OleContainer2.Visible:=false;

OleContainer3.Visible:=false;

OleContainer4.Visible:=false;

OleContainer5.Visible:=false;

OleContainer6.Visible:=false;

OleContainer7.Visible:=false;

OleContainer8.Visible:=false;

OleContainer9.Visible:=false;

OleContainer10.Visible:=true;

end else begin

end;

end.

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 1314 / 1514 15 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
28.08.2019272.38 Кб5Crack the Case.doc
#
25.08.2019148.48 Кб4Dengin_A_O_ME-10-4_Stepanova_M_A_Kursovaya_P.doc
#
23.08.2019386.56 Кб4Doc1.doc
#
21.07.201939.26 Кб4Dokument_Microsoft_Office_Word_3.docx
#
03.12.2018137.73 Кб8Domashnie_i_kontrolnye_raboty_I_semestra_inform....doc
#
23.09.20193.11 Mб10DP.doc
#
24.05.2015715.1 Кб10dp1 2.docx
#
24.05.20151.04 Mб7dp1.docx
#
20.04.2015459.76 Кб75DZ_po_fizike.pdf
#
20.04.201551.06 Кб66DZ_po_fizkhimu.docx
#
12.09.2019153.09 Кб1dz_v-17 Сид.doc