7. Дата создания

30.05.2011 г.

ПРИЛОЖЕНИЕ 6

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ImgList, Menus, ExtCtrls, ComCtrls, DBCtrls, Grids, DBGrids,

StdCtrls, Buttons, ShellAPI, Mask, DB;

type

TForma_Glavnaya = class(TForm)

PrinterSetupDialog1: TPrinterSetupDialog;

PrintDialog1: TPrintDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N42: TMenuItem;

N40: TMenuItem;

N39: TMenuItem;

N6: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

ImageList1: TImageList;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Panel1: TPanel;

PageControl2: TPageControl;

TabSheet3: TTabSheet;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit8: TEdit;

TabSheet4: TTabSheet;

TabSheet6: TTabSheet;

Panel2: TPanel;

Image2: TImage;

DBImage1: TDBImage;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

TabSheet5: TTabSheet;

TabSheet7: TTabSheet;

Label13: TLabel;

BitBtn15: TBitBtn;

BitBtn16: TBitBtn;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ComboBox2: TComboBox;

Edit7: TEdit;

Label14: TLabel;

ПРИЛОЖЕНИЕ 6(Продолжение)

ComboBox3: TComboBox;

Label15: TLabel;

Image3: TImage;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Image5: TImage;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Panel3: TPanel;

PageControl3: TPageControl;

TabSheet8: TTabSheet;

Image4: TImage;

Label35: TLabel;

Edit20: TEdit;

Edit23: TEdit;

Edit24: TEdit;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

Edit25: TEdit;

TabSheet9: TTabSheet;

Image6: TImage;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

TabSheet10: TTabSheet;

Image7: TImage;

Panel4: TPanel;

Image8: TImage;

Label58: TLabel;

DBImage2: TDBImage;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Edit21: TEdit;

Edit22: TEdit;

Label30: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label42: TLabel;

DateTimePicker3: TDateTimePicker;

ПРИЛОЖЕНИЕ 6(Продолжение)

Edit26: TEdit;

Edit27: TEdit;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

DBEdit30: TDBEdit;

Label44: TLabel;

DBEdit23: TDBEdit;

Label45: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label36: TLabel;

Label37: TLabel;

Label43: TLabel;

Label46: TLabel;

DateTimePicker4: TDateTimePicker;

DateTimePicker5: TDateTimePicker;

DateTimePicker6: TDateTimePicker;

DateTimePicker7: TDateTimePicker;

Label47: TLabel;

ComboBox4: TComboBox;

ComboBox5: TComboBox;

ComboBox6: TComboBox;

N2: TMenuItem;

Label48: TLabel;

N11: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

DBGrid3: TDBGrid;

Panel5: TPanel;

PageControl4: TPageControl;

TabSheet12: TTabSheet;

Image9: TImage;

Label49: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

Label57: TLabel;

Label60: TLabel;

Edit30: TEdit;

Edit33: TEdit;

Edit34: TEdit;

BitBtn11: TBitBtn;

BitBtn12: TBitBtn;

Edit35: TEdit;

Edit31: TEdit;

Edit32: TEdit;

DateTimePicker8: TDateTimePicker;

DateTimePicker9: TDateTimePicker;

TabSheet13: TTabSheet;

Image10: TImage;

Label62: TLabel;

Label63: TLabel;

Label64: TLabel;

Label65: TLabel;

Label66: TLabel;

Label69: TLabel;

DBEdit1: TDBEdit;

DBEdit4: TDBEdit;

DBEdit9: TDBEdit;

ПРИЛОЖЕНИЕ 6(Продолжение)

DBEdit17: TDBEdit;

BitBtn13: TBitBtn;

BitBtn14: TBitBtn;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DateTimePicker11: TDateTimePicker;

DateTimePicker12: TDateTimePicker;

TabSheet14: TTabSheet;

Image11: TImage;

Panel6: TPanel;

Image12: TImage;

Label71: TLabel;

DBImage3: TDBImage;

BitBtn17: TBitBtn;

BitBtn18: TBitBtn;

DBNavigator3: TDBNavigator;

ComboBox7: TComboBox;

Label61: TLabel;

DateTimePicker10: TDateTimePicker;

Label59: TLabel;

Label67: TLabel;

DateTimePicker13: TDateTimePicker;

ComboBox8: TComboBox;

Label68: TLabel;

ComboBox9: TComboBox;

Label70: TLabel;

Label72: TLabel;

Label73: TLabel;

ComboBox10: TComboBox;

Label9: TLabel;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

Label74: TLabel;

ComboBox11: TComboBox;

Edit19: TEdit;

Button5: TButton;

Label75: TLabel;

Label76: TLabel;

ComboBox12: TComboBox;

Edit3: TEdit;

Button1: TButton;

Label77: TLabel;

DateTimePicker14: TDateTimePicker;

Label78: TLabel;

ComboBox13: TComboBox;

Edit13: TEdit;

Button2: TButton;

Label79: TLabel;

N19: TMenuItem;

DBGrid4: TDBGrid;

Panel7: TPanel;

PageControl5: TPageControl;

TabSheet11: TTabSheet;

Image13: TImage;

Label85: TLabel;

Label86: TLabel;

BitBtn19: TBitBtn;

BitBtn20: TBitBtn;

DateTimePicker16: TDateTimePicker;

ComboBox14: TComboBox;

TabSheet15: TTabSheet;

Image14: TImage;

BitBtn21: TBitBtn;

BitBtn22: TBitBtn;

TabSheet16: TTabSheet;

Image15: TImage;

Label96: TLabel;

Label97: TLabel;

ComboBox16: TComboBox;

Edit29: TEdit;

Button3: TButton;

DBNavigator4: TDBNavigator;

Label81: TLabel;

Label98: TLabel;

ComboBox17: TComboBox;

Label84: TLabel;

Memo1: TMemo;

Label80: TLabel;

Label99: TLabel;

ComboBox18: TComboBox;

Label82: TLabel;

Label83: TLabel;

DateTimePicker15: TDateTimePicker;

ComboBox15: TComboBox;

Label87: TLabel;

Label88: TLabel;

ComboBox19: TComboBox;

Label89: TLabel;

Label90: TLabel;

Label91: TLabel;

ComboBox20: TComboBox;

DBMemo1: TDBMemo;

BitBtn23: TBitBtn;

BitBtn24: TBitBtn;

N20: TMenuItem;

N21: TMenuItem;

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn16Click(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N39Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure N42Click(Sender: TObject);

procedure DBGrid1Enter(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure Edit27KeyPress(Sender: TObject; var Key: Char);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure DBGrid2Enter(Sender: TObject);

procedure DBGrid2TitleClick(Column: TColumn);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure PageControl2Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox4Change(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure PageControl1Change(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure BitBtn17Click(Sender: TObject);

procedure BitBtn18Click(Sender: TObject);

procedure PageControl3Change(Sender: TObject);

procedure DBGrid3Enter(Sender: TObject);

procedure DBGrid3TitleClick(Column: TColumn);

procedure BitBtn11Click(Sender: TObject);

ПРИЛОЖЕНИЕ 6(Продолжение)

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure BitBtn14Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure ComboBox5Change(Sender: TObject);

procedure ComboBox9Change(Sender: TObject);

procedure ComboBox10Change(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure Edit19KeyPress(Sender: TObject; var Key: Char);

procedure Button5Click(Sender: TObject);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Edit13KeyPress(Sender: TObject; var Key: Char);

procedure Button2Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure ComboBox14Change(Sender: TObject);

procedure DBGrid4Enter(Sender: TObject);

procedure DBGrid4TitleClick(Column: TColumn);

procedure PageControl5Change(Sender: TObject);

procedure ComboBox17Change(Sender: TObject);

procedure ComboBox18Change(Sender: TObject);

procedure ComboBox19Change(Sender: TObject);

procedure ComboBox20Change(Sender: TObject);

procedure BitBtn19Click(Sender: TObject);

procedure ComboBox15Change(Sender: TObject);

procedure BitBtn20Click(Sender: TObject);

procedure BitBtn23Click(Sender: TObject);

procedure BitBtn24Click(Sender: TObject);

procedure Edit29KeyPress(Sender: TObject; var Key: Char);

procedure Button3Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

procedure WMActivateApp(var Msg: TWMActivateApp); message WM_ACTIVATEAPP; // для сворачивания всего приложения при сворачивании этой формы

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; // для сворачивания всего приложения при сворачивании этой формы

procedure MyHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); // собственные всплывающие подсказки

procedure Obn_Sotrudnikov; // обновление сотрудников - для заполнения раскрывающихся списков

procedure Obn_RegNum; // обновление сотрудников - для заполнения раскрывающихся списков

public

procedure Obn_Vladelcev; // обновление владельцев ТС - для заполнения раскрывающихся списков

{ Public declarations }

end;

var

Forma_Glavnaya: TForma_Glavnaya;

implementation

uses Unit3, Unit4, Unit1, ADODB, Unit5, Unit6, Unit7, Unit8, Unit10, Unit11, Unit12, Unit13, Unit15, Unit16, Unit14;

{$R *.dfm}

{Книжная процедура для сворачивания всего приложения при сворачивании этой формы}

procedure TForma_Glavnaya.WMActivateApp(var Msg: TWMActivateApp);

begin

if IsIconic(Application.Handle) then begin

ShowWindow(Application.Handle, SW_RESTORE);

ПРИЛОЖЕНИЕ 6(Продолжение)

SetActiveWindow(Handle);

end;

inherited;

end;

{Книжная процедура для сворачивания всего приложения при сворачивании этой формы}

procedure TForma_Glavnaya.WMSysCommand(var Msg: TWMSysCommand);

begin

if (Msg.CmdType = SC_Minimize) then

ShowWindow(Application.Handle, SW_MINIMIZE)

else

inherited;

end;

{Процедура отображения собственных всплывающих подсказок}

procedure TForma_Glavnaya.MyHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);

var

i: integer; // параметр цикла

begin

for i := 0 to Application.ComponentCount - 1 do

if Application.Components[i] is THintWindow then

with THintWindow(Application.Components[i]).Canvas do

begin // устанавливаем ..

Font.name := 'Arial'; // шрифт

Font.Size := 10; // размер

Font.Style := [fsBold]; // стиль - жирный

HintInfo.HintColor := $00A6DBFE; // цвет

end;

end;

{Процедура заполнения раскрывающихся списков владельцев ТС}

procedure TForma_Glavnaya.Obn_Vladelcev;

begin

try

Datamodule1.ADO_Vladelcu.Refresh; // обновляем таблицу

Datamodule1.ADO_Vladelcu.First; // переходим к первой записи

ComboBox1.Clear; // очищаем список сотрудников

while not(Datamodule1.ADO_Vladelcu.EOF) do // до конца таблицы делаем...

begin

ComboBox1.Items.add(string(Datamodule1.ADO_Vladelcu.FieldValues['Fam']+' '+Datamodule1.ADO_Vladelcu.FieldValues['Imya']+' '+Datamodule1.ADO_Vladelcu.FieldValues['Otch']));

Datamodule1.ADO_Vladelcu.Next; // к следующей записи

end;

ComboBox1.ItemIndex:=0; // на первую запись в списке

ComboBox4.Items:=ComboBox1.Items; // присваиваем все значения другому раскрывающемуся списку

F_VU.ComboBox1.Items:=ComboBox1.Items; // переприсваиваем все значения другому раскрывающемуся списку

F_VU.ComboBox1.ItemIndex:=0; // на первую запись в списке

ComboBox4.ItemIndex:=0; // на первую запись в списке

ComboBox1Change(Self); // процедура изменения раскрывающегося списка, в которой по ФИО берется его код

ComboBox4Change(Self); // процедура изменения раскрывающегося списка, в которой по ФИО берется его код

Datamodule1.ADO_Vladelcu.First; // на первую запись в таблице ВЛАДЕЛЬЦЫ

except

end;

end;

{Процедура заполнения раскрывающихся списков Сотрудников}

procedure TForma_Glavnaya.Obn_Sotrudnikov;

begin

try

Datamodule1.ADO_Sotrudniki.Refresh; // обновляем таблицу сотрудников

Datamodule1.ADO_Sotrudniki.First; // переходим к первой записи

ComboBox9.Clear; // очищаем список сотрудников

while not(Datamodule1.ADO_Sotrudniki.EOF) do // до конца таблицы делаем...

begin

ComboBox9.Items.add(string(Datamodule1.ADO_Sotrudniki.FieldValues['Fam']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Imya']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Otch']));

Datamodule1.ADO_Sotrudniki.Next; // к следующей записи

end;

ComboBox9.ItemIndex:=0; // на первого сотрудника в списке

ComboBox10.Items:=ComboBox9.Items; // присваиваем все значения другому раскрывающемуся списку

ComboBox17.Items:=ComboBox9.Items; // присваиваем все значения другому раскрывающемуся списку

ComboBox19.Items:=ComboBox9.Items; // присваиваем все значения другому раскрывающемуся списку

ComboBox10.ItemIndex:=0; // на первого сотрудника в списке

ComboBox17.ItemIndex:=0;

ComboBox19.ItemIndex:=0;

ComboBox9Change(Self); // процедуры изменения раскрывающихся списков, по ФИО выводят код сотрудника в метку

ComboBox19Change(Self); // тож самое

ComboBox10Change(Self);

ComboBox17Change(Self);

Datamodule1.ADO_Sotrudniki.First; // на первую запись в таблице сотрудников

except

end;

end;

{Процедура заполнения раскрывающихся списков Регистрационных номеров ТС}

procedure TForma_Glavnaya.Obn_RegNum;

begin

try

Datamodule1.ADO_TC.Refresh; // обновляем таблицу

Datamodule1.ADO_TC.First; // переходим к первой записи

ComboBox18.Clear; // очищаем список сотрудников

while not(Datamodule1.ADO_TC.EOF) do // до конца таблицы делаем...

begin

ComboBox18.Items.add(string(Datamodule1.ADO_TC.FieldValues['RegNum'])); // добавляем в раскр. список рег номер

Datamodule1.ADO_TC.Next; // к следующей записи

end;

ComboBox20.Items:=ComboBox18.Items; // присваиваем все значения другому раскрывающемуся списку

ComboBox18.ItemIndex:=0; // на первого клиента в списке

ComboBox20.ItemIndex:=0; // на первую запись в списке

ComboBox18Change(Self); // выводим в метку по рег номеру его код

ComboBox20Change(Self);

Datamodule1.ADO_TC.First; // на первую запись в таблице Клиенты

except

end;

end;

procedure TForma_Glavnaya.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

key:=#0; // запрет ввода символов

end;

procedure TForma_Glavnaya.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

if not(key in ['0'..'9']) and (key<>#8) then key:=#0; // разрешить вводить только цифры

end;

procedure TForma_Glavnaya.BitBtn1Click(Sender: TObject);

begin

edit1.Clear; // очистка элементов формы ввода

edit2.Clear;

edit4.Clear;

edit5.Clear;

edit6.Clear;

edit7.Clear;

edit8.Clear;

edit9.Clear;

edit10.Clear;

edit11.Clear;

edit12.Clear;

ComboBox3.ItemIndex:=0;

ComboBox2.ItemIndex:=0;

Obn_Vladelcev; // перезагружаем список

//Obn_Sotrudnikov;

end;

procedure TForma_Glavnaya.BitBtn2Click(Sender: TObject);

begin

{проверка на заполнение полей}

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

(Edit6.Text='') or (Edit7.Text='') or (Edit10.Text='')or (Edit11.Text='')or (Edit12.Text='') then

begin

MessageDlg('Ошибка - Для добавления записи заполните форму.', mtError, [mbOK], 0);

exit;

end;

if MessageDlg('Вы действительно хотите добавить новую запись?', mtConfirmation, [mbOK,mbCancel],0)= mrok then

begin

DataModule1.ADO_TC.Insert; // вставляем новую запись

DataModule1.ADO_TC.FieldByName('vladelec').Value := Label47.Caption; // присваиваем поля

DataModule1.ADO_TC.FieldByName('regnum').Value := Edit1.Text;

DataModule1.ADO_TC.FieldByName('marka').Value := Edit2.Text;

DataModule1.ADO_TC.FieldByName('kategoriya').Value := ComboBox3.Text;

DataModule1.ADO_TC.FieldByName('god').Value := Edit4.Text;

DataModule1.ADO_TC.FieldByName('n_dvig').Value := Edit5.Text;

DataModule1.ADO_TC.FieldByName('n_shassi').Value := Edit6.Text;

DataModule1.ADO_TC.FieldByName('n_kuzov').Value := Edit7.Text;

DataModule1.ADO_TC.FieldByName('cvet').Value := ComboBox2.Text;

DataModule1.ADO_TC.FieldByName('moshn').Value := Edit8.Text;

DataModule1.ADO_TC.FieldByName('rab_ob').Value := Edit9.Text;

DataModule1.ADO_TC.FieldByName('tip_dv').Value := Edit10.Text;

DataModule1.ADO_TC.FieldByName('raz_massa').Value := Edit11.Text;

DataModule1.ADO_TC.FieldByName('Datareg').Value := DateToStr(DateTimePicker1.date);

DataModule1.ADO_TC.FieldByName('massa').Value := Edit12.Text;

DataModule1.ADO_TC.FieldByName('sotrudnik').Value := Label70.Caption;

BitBtn1Click(Sender); // очищаем поля ввода

DataModule1.ADO_TC.Last; // на последнюю запись

end;

end;

procedure TForma_Glavnaya.BitBtn16Click(Sender: TObject);

begin

DBImage1.PasteFromClipboard; // вставляем картинку из буфера

end;

procedure TForma_Glavnaya.BitBtn15Click(Sender: TObject);

begin

DBImage1.CutToClipboard; // вырезаем картинку в буфер

end;

procedure TForma_Glavnaya.FormCreate(Sender: TObject);

begin

Forma_Glavnaya.DoubleBuffered:=true; // для лучшей прорисовки формы

{Загружаем картинки при создании формы.. красота требует жертв, в нашем случае оперативной памяти :) }

Image1.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image2.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image3.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image4.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image5.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image6.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image7.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image8.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image9.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image10.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image11.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image12.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image13.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image14.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

Image15.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pictures\fon.bmp');

{Во всех таблицах поле код красное, ибо по нему по умолчанию сортировка, потом красным стоновится то по которому кликает пользователь}

DBGrid1.Columns[0].Title.Font.Color:=clRed;

DBGrid2.Columns[0].Title.Font.Color:=clRed;

DBGrid3.Columns[0].Title.Font.Color:=clRed;

DBGrid4.Columns[0].Title.Font.Color:=clRed;

{Устанавливаем даты на текущие}

DateTimePicker1.Date:=now;

DateTimePicker2.Date:=now;

DateTimePicker3.Date:=now;

DateTimePicker4.Date:=now;

DateTimePicker8.Date:=now;

DateTimePicker9.Date:=now;

DateTimePicker10.Date:=now;

DateTimePicker16.Date:=now;

Application.OnShowHint := MyHint; // наши всплывающие подсказки описанные в процедуре MyHint

Application.HintPause:=100; // 100 милисек

Application.HintShortPause:=100;

end;

procedure TForma_Glavnaya.N23Click(Sender: TObject);

begin

{запуск справки}

ShellExecute(Handle, 'open',pchar(ExtractFileDir(ParamStr(0))+'\help.html'), nil, nil, SW_SHOWNORMAL);

end;

procedure TForma_Glavnaya.N24Click(Sender: TObject);

begin

aboutbox.showmodal; // Показать информацию о программе

end;

procedure TForma_Glavnaya.N39Click(Sender: TObject);

begin

Forma_Glavnaya.Hide; // скрыть основную форму

F_intro.show; // Показать стартовую форму ввода пароля

end;

procedure TForma_Glavnaya.N6Click(Sender: TObject);

begin

close; // закрыть программу

end;

{процедура сортировки таблицы}

procedure TForma_Glavnaya.DBGrid1TitleClick(Column: TColumn);

var i:integer; // параметр цикла

begin

with DataModule1.ADO_TC do

begin

DisableControls;

IndexFieldNames := Column.FieldName; // индексируемое поле - то по которому сортировка

// Восстанавливаем настройки заголовка

for i:=0 to DBGrid1.Columns.Count-1 do

DBGrid1.Columns[i].Title.Font.Color:=clblack; // цвет черный

Column.Title.Font.Color := clred; // цвет красный тому - по которому сортировка

EnableControls;

end;

end;

procedure TForma_Glavnaya.N42Click(Sender: TObject);

begin

PrinterSetupDialog1.Execute; // Настройки принтера.

end;

procedure TForma_Glavnaya.DBGrid1Enter(Sender: TObject);

begin

DataModule1.ADO_TC.Cancel; // отмена редактирования

end;

procedure TForma_Glavnaya.BitBtn3Click(Sender: TObject);

begin

DataModule1.ADO_TC.Cancel; // отмена редактирования

end;

procedure TForma_Glavnaya.BitBtn4Click(Sender: TObject);

begin

DataModule1.ADO_TC.edit;

DataModule1.ADO_TC.FieldByName('vladelec').Value := Label48.Caption;

DataModule1.ADO_TC.FieldByName('kategoriya').Value := ComboBox5.text;

DataModule1.ADO_TC.FieldByName('cvet').Value := ComboBox6.Text;

DataModule1.ADO_TC.FieldByName('Datareg').Value := DateToStr(DateTimePicker14.date);

DataModule1.ADO_TC.FieldByName('sotrudnik').Value := Label73.Caption;

DataModule1.ADO_TC.Post;

end;

procedure TForma_Glavnaya.Edit27KeyPress(Sender: TObject; var Key: Char);

begin

if not(key in ['A'..'E']) and (key<>#8) then key:=#0; // разрешить вводить только цифры

end;

procedure TForma_Glavnaya.BitBtn5Click(Sender: TObject);

begin

edit20.Clear; // очистить поля ввода

edit21.Clear;

edit22.Clear;

edit23.Clear;

edit24.Clear;

edit25.Clear;

edit26.Clear;

edit27.Clear;

end;

procedure TForma_Glavnaya.BitBtn9Click(Sender: TObject);

begin

DBImage2.CutToClipboard;

end;

procedure TForma_Glavnaya.BitBtn10Click(Sender: TObject);

begin

DBImage2.PasteFromClipboard;

end;

procedure TForma_Glavnaya.BitBtn7Click(Sender: TObject);

begin

DataModule1.ADO_Vladelcu.Cancel; // отмена редактирования

end;

procedure TForma_Glavnaya.DBGrid2Enter(Sender: TObject);

begin

DataModule1.ADO_Vladelcu.Cancel; // отмена редактирования

end;

procedure TForma_Glavnaya.DBGrid2TitleClick(Column: TColumn);

var i:integer;

begin

with DataModule1.ADO_Vladelcu do

begin

DisableControls;

IndexFieldNames := Column.FieldName;

// Восстанавливаем настройки заголовка

for i:=0 to DBGrid2.Columns.Count-1 do

DBGrid2.Columns[i].Title.Font.Color:=clblack;

Column.Title.Font.Color := clred;

EnableControls;

end;

end;

procedure TForma_Glavnaya.BitBtn6Click(Sender: TObject);

begin

{проверка на заполнение полей}

if (Edit20.Text='') or (Edit21.Text='') or (Edit22.Text='') or

(Edit23.Text='') or (Edit23.Text='') or (Edit25.Text='')or (Edit26.Text='') or (Edit27.Text='') then

begin

MessageDlg('Ошибка - Для добавления записи заполните форму.', mtError, [mbOK], 0);

exit;

end;

if MessageDlg('Вы действительно хотите добавить новую запись?', mtConfirmation, [mbOK,mbCancel],0)= mrok then

begin

DataModule1.ADO_Vladelcu.Insert; // вставляем новую запись

DataModule1.ADO_Vladelcu.FieldByName('Fam').Value := Edit20.Text;

DataModule1.ADO_Vladelcu.FieldByName('Imya').Value := Edit21.Text;

DataModule1.ADO_Vladelcu.FieldByName('Otch').Value := Edit22.Text;

DataModule1.ADO_Vladelcu.FieldByName('Data_rog').Value := DateToStr(DateTimePicker2.Date);

DataModule1.ADO_Vladelcu.FieldByName('MestoGit').Value := Edit23.Text;

DataModule1.ADO_Vladelcu.FieldByName('PaspSer').Value := Edit24.Text;

DataModule1.ADO_Vladelcu.FieldByName('PaspNum').Value := Edit25.Text;

DataModule1.ADO_Vladelcu.FieldByName('Data_vyd').Value := DateToStr(DateTimePicker3.Date);

DataModule1.ADO_Vladelcu.FieldByName('Num_vod_udost').Value := Edit26.Text;

DataModule1.ADO_Vladelcu.FieldByName('Data_vud_vu').Value := DateToStr(DateTimePicker4.Date);

DataModule1.ADO_Vladelcu.FieldByName('Kategorii').Value := Edit27.Text;

BitBtn5Click(Sender); // очищаем поля ввода

DataModule1.ADO_Vladelcu.Last; // на последнюю запись

end;

end;

procedure TForma_Glavnaya.BitBtn8Click(Sender: TObject);

begin

DataModule1.ADO_Vladelcu.Edit;

DataModule1.ADO_Vladelcu.fieldbyname('Data_rog').value:=DateToStr(DateTimePicker5.Date);

DataModule1.ADO_Vladelcu.fieldbyname('Data_vyd').value:=DateToStr(DateTimePicker6.Date);

DataModule1.ADO_Vladelcu.fieldbyname('Data_vud_vu').value:=DateToStr(DateTimePicker7.Date);

DataModule1.ADO_Vladelcu.Post;

end;

procedure TForma_Glavnaya.PageControl2Change(Sender: TObject);

begin

Obn_Vladelcev;

Obn_Sotrudnikov;

if PageControl2.ActivePageIndex=1 then

DataModule1.ADO_TC.Refresh;

end;

procedure TForma_Glavnaya.ComboBox1Change(Sender: TObject);

begin

Datamodule1.ADO_Vladelcu.Refresh; // обновляем таблицу Клиентов

Datamodule1.ADO_Vladelcu.First; // переходим к первой записи

while not(Datamodule1.ADO_Vladelcu.EOF) do // до конца таблицы делаем...

begin

if ComboBox1.Text = string(Datamodule1.ADO_Vladelcu.FieldValues['Fam']+' '+Datamodule1.ADO_Vladelcu.FieldValues['Imya']+' '+Datamodule1.ADO_Vladelcu.FieldValues['Otch']) then

Label47.Caption:=Datamodule1.ADO_Vladelcu.Fieldbyname('id').asstring;

Datamodule1.ADO_Vladelcu.Next; // к следующей записи

end;

end;

procedure TForma_Glavnaya.ComboBox4Change(Sender: TObject);

begin

Datamodule1.ADO_Vladelcu.Refresh; // обновляем таблицу Клиентов

Datamodule1.ADO_Vladelcu.First; // переходим к первой записи

while not(Datamodule1.ADO_Vladelcu.EOF) do // до конца таблицы делаем...

begin

if ComboBox4.Text = string(Datamodule1.ADO_Vladelcu.FieldValues['Fam']+' '+Datamodule1.ADO_Vladelcu.FieldValues['Imya']+' '+Datamodule1.ADO_Vladelcu.FieldValues['Otch']) then

begin

Label48.Caption:=Datamodule1.ADO_Vladelcu.Fieldbyname('id').asstring;

break;

end;

Datamodule1.ADO_Vladelcu.Next; // к следующей записи

end;

end;

procedure TForma_Glavnaya.FormActivate(Sender: TObject);

begin

PageControl2Change(Sender);

end;

procedure TForma_Glavnaya.PageControl1Change(Sender: TObject);

begin

if PageControl1.ActivePageIndex=0 then

Obn_Vladelcev

else if PageControl1.ActivePageIndex=3 then

begin

Obn_Vladelcev;

Obn_RegNum;

end;

end;

procedure TForma_Glavnaya.N2Click(Sender: TObject);

begin

F_VU.show;

end;

procedure TForma_Glavnaya.N4Click(Sender: TObject);

begin

F_PTC.show;

end;

procedure TForma_Glavnaya.N10Click(Sender: TObject);

begin

F_SRG.show;

end;

procedure TForma_Glavnaya.BitBtn17Click(Sender: TObject);

begin

DBImage3.CutToClipboard;

end;

procedure TForma_Glavnaya.BitBtn18Click(Sender: TObject);

begin

DBImage3.PasteFromClipboard;

end;

procedure TForma_Glavnaya.PageControl3Change(Sender: TObject);

begin

DataModule1.ADO_Vladelcu.Refresh; // обновляем таблицу

end;

procedure TForma_Glavnaya.DBGrid3Enter(Sender: TObject);

begin

DataModule1.ADO_Sotrudniki.Cancel; // отмена редактирования

end;

procedure TForma_Glavnaya.DBGrid3TitleClick(Column: TColumn);

var i:integer;

begin

with DataModule1.ADO_Sotrudniki do // сортируем таблицу по клику в заголовке столбца DBGrid3

begin

DisableControls;

IndexFieldNames := Column.FieldName;

// Восстанавливаем настройки заголовка

for i:=0 to DBGrid3.Columns.Count-1 do

DBGrid3.Columns[i].Title.Font.Color:=clblack;

Column.Title.Font.Color := clred;

EnableControls;

end;

end;

procedure TForma_Glavnaya.BitBtn11Click(Sender: TObject);

begin

edit30.Clear; // очищаем поля

edit31.Clear;

edit32.Clear;

edit33.Clear;

edit34.Clear;

edit35.Clear;

end;

procedure TForma_Glavnaya.BitBtn12Click(Sender: TObject);

begin

{проверка на заполнение полей}

if (Edit30.Text='') or (Edit31.Text='') or (Edit32.Text='') or

(Edit33.Text='') or (Edit34.Text='') or (Edit35.Text='')or (ComboBox7.Text='') then

begin

MessageDlg('Ошибка - Для добавления записи заполните форму.', mtError, [mbOK], 0);

exit;

end;

if MessageDlg('Вы действительно хотите добавить новую запись?', mtConfirmation, [mbOK,mbCancel],0)= mrok then

begin

DataModule1.ADO_Sotrudniki.Insert; // вставляем новую запись

DataModule1.ADO_Sotrudniki.FieldByName('Fam').Value := Edit30.Text;

DataModule1.ADO_Sotrudniki.FieldByName('Imya').Value := Edit31.Text;

DataModule1.ADO_Sotrudniki.FieldByName('Otch').Value := Edit32.Text;

DataModule1.ADO_Sotrudniki.FieldByName('Data_rog').Value := DateToStr(DateTimePicker8.Date);

DataModule1.ADO_Sotrudniki.FieldByName('MestoGit').Value := Edit33.Text;

DataModule1.ADO_Sotrudniki.FieldByName('PaspSer').Value := Edit34.Text;

DataModule1.ADO_Sotrudniki.FieldByName('PaspNum').Value := Edit35.Text;

DataModule1.ADO_Sotrudniki.FieldByName('Data_vyd').Value := DateToStr(DateTimePicker9.Date);

DataModule1.ADO_Sotrudniki.FieldByName('Dolgnost').Value := ComboBox7.Text;

DataModule1.ADO_Sotrudniki.FieldByName('DataPost').Value := DateToStr(DateTimePicker10.Date);

BitBtn11Click(Sender); // очищаем поля ввода

DataModule1.ADO_Sotrudniki.Last; // на последнюю запись

end;

end;

procedure TForma_Glavnaya.BitBtn13Click(Sender: TObject);

begin

DataModule1.ADO_Sotrudniki.Cancel; // отмена редактирвоания

end;

procedure TForma_Glavnaya.BitBtn14Click(Sender: TObject);

begin

DataModule1.ADO_Sotrudniki.Edit; // изменить запись

DataModule1.ADO_Sotrudniki.fieldbyname('Data_rog').value:=DateToStr(DateTimePicker11.Date);

DataModule1.ADO_Sotrudniki.fieldbyname('Data_vyd').value:=DateToStr(DateTimePicker12.Date);

DataModule1.ADO_Sotrudniki.fieldbyname('DataPost').value:=DateToStr(DateTimePicker13.Date);

DataModule1.ADO_Sotrudniki.Post; // подтвердить изменения

end;

procedure TForma_Glavnaya.N3Click(Sender: TObject);

begin

F_LKS.show; // показать форму печати личной карточки сотрудника

end;

procedure TForma_Glavnaya.ComboBox3Change(Sender: TObject);

begin

edit5.Visible:=(ComboBox3.Text<>'E') ; // если категория Е - прицеп - скрыть элементы

edit8.Visible:=(ComboBox3.Text<>'E') ;

edit9.Visible:=(ComboBox3.Text<>'E') ;

Label4.Visible:=(ComboBox3.Text<>'E') ;

Label8.Visible:=(ComboBox3.Text<>'E') ;

Label9.Visible:=(ComboBox3.Text<>'E') ;

end;

procedure TForma_Glavnaya.ComboBox5Change(Sender: TObject);

begin

DBEdit6.Visible:=(ComboBox5.Text<>'E') ; // если категория Е - прицеп - скрыть элементы

DBEdit10.Visible:=(ComboBox5.Text<>'E') ;

DBEdit11.Visible:=(ComboBox5.Text<>'E') ;

Label24.Visible:=(ComboBox5.Text<>'E') ;

Label17.Visible:=(ComboBox5.Text<>'E') ;

Label18.Visible:=(ComboBox5.Text<>'E') ;

end;

procedure TForma_Glavnaya.ComboBox9Change(Sender: TObject);

begin

Datamodule1.ADO_Sotrudniki.Refresh; // обновляем таблицу

Datamodule1.ADO_Sotrudniki.First; // переходим к первой записи

while not(Datamodule1.ADO_Sotrudniki.EOF) do // до конца таблицы делаем...

begin

if ComboBox9.Text = string(Datamodule1.ADO_Sotrudniki.FieldValues['Fam']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Imya']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Otch']) then

Label70.Caption:=Datamodule1.ADO_Sotrudniki.Fieldbyname('id').asstring;

Datamodule1.ADO_Sotrudniki.Next; // к следующей записи

end;

end;

ПРИЛОЖЕНИЕ 6(Продолжение)

procedure TForma_Glavnaya.ComboBox10Change(Sender: TObject);

begin

Datamodule1.ADO_Sotrudniki.Refresh; // обновляем таблицу

Datamodule1.ADO_Sotrudniki.First; // переходим к первой записи

while not(Datamodule1.ADO_Sotrudniki.EOF) do // до конца таблицы делаем...

begin

if ComboBox10.Text = string(Datamodule1.ADO_Sotrudniki.FieldValues['Fam']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Imya']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Otch']) then

Label73.Caption:=Datamodule1.ADO_Sotrudniki.Fieldbyname('id').asstring;

Datamodule1.ADO_Sotrudniki.Next; // к следующей записи

end;

end;

procedure TForma_Glavnaya.N15Click(Sender: TObject);

begin

PageControl1.ActivePageIndex:=0; // на первую вкладку

Obn_Vladelcev; // обновляем список владельцев

end;

procedure TForma_Glavnaya.N16Click(Sender: TObject);

begin

PageControl1.ActivePageIndex:=1; // на вторую вкладку

end;

procedure TForma_Glavnaya.N17Click(Sender: TObject);

begin

PageControl1.ActivePageIndex:=2;

end;

procedure TForma_Glavnaya.N18Click(Sender: TObject);

begin

PageControl1.ActivePageIndex:=3;

end;

procedure TForma_Glavnaya.Edit19KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // если нажат ентер

begin

key:=#0; // нулим клавишу чтобы не было звука

Button5Click(Sender); // поиск

end;

end;

procedure TForma_Glavnaya.Button5Click(Sender: TObject);

var field:string; // поле по котор. поиск

begin

if Edit19.Text <> '' then // если параметр поиска не пуст

begin // выбираем поле по выбранному индексу в списке ComboBox11

if ComboBox11.ItemIndex= 0 then field:='Id' else

if ComboBox11.ItemIndex= 1 then field:='vladelec' else

if ComboBox11.ItemIndex= 2 then field:='regnum' else

if ComboBox11.ItemIndex= 3 then field:='Datareg' else

if ComboBox11.ItemIndex= 4 then field:='marka' else

if ComboBox11.ItemIndex= 5 then field:='kategoriya' else

if ComboBox11.ItemIndex= 6 then field:='god' else

if ComboBox11.ItemIndex= 7 then field:='n_dvig' else

if ComboBox11.ItemIndex= 8 then field:='n_shassi' else

if ComboBox11.ItemIndex= 9 then field:='n_kuzov' else

if ComboBox11.ItemIndex= 10 then field:='cvet' else

if ComboBox11.ItemIndex= 11 then field:='moshn' else

if ComboBox11.ItemIndex= 12 then field:='rab_ob' else

if ComboBox11.ItemIndex= 13 then field:='tip_dv' else

if ComboBox11.ItemIndex= 14 then field:='raz_massa' else

if ComboBox11.ItemIndex= 15 then field:='massa' else

if ComboBox11.ItemIndex= 16 then field:='Sotrudnik' ;

// осуществляем поиск, примечание loCaseInsensitive,loPartialKey - не чувствителен к регистру, поиск по части ключа

if not(DataModule1.ADO_TC.Locate(field,Edit19.Text,[loCaseInsensitive,loPartialKey])) then // если не найдена запись

begin

MessageDlg('Ошибка - Такая запись не найдена', mtError, [mbOK], 0); // ругаемся

exit;

end;

end

end;

procedure TForma_Glavnaya.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

key:=#0;

Button1Click(Sender);

end;

end;

procedure TForma_Glavnaya.Button1Click(Sender: TObject);

var field:string; // поле по котор. поиск

begin

if Edit3.Text <> '' then

begin

if ComboBox12.ItemIndex= 0 then field:='Id' else

if ComboBox12.ItemIndex= 1 then field:='Fam' else

if ComboBox12.ItemIndex= 2 then field:='Imya' else

if ComboBox12.ItemIndex= 3 then field:='Otch' else

if ComboBox12.ItemIndex= 4 then field:='Data_rog' else

if ComboBox12.ItemIndex= 5 then field:='MestoGit' else

if ComboBox12.ItemIndex= 6 then field:='PaspSer' else

if ComboBox12.ItemIndex= 7 then field:='PaspNum' else

if ComboBox12.ItemIndex= 8 then field:='Data_vyd' else

if ComboBox12.ItemIndex= 9 then field:='Num_vod_udost' else

if ComboBox12.ItemIndex= 10 then field:='Data_vud_vu' else

if ComboBox12.ItemIndex= 11 then field:='Kategorii' ;

if not(DataModule1.ADO_Vladelcu.Locate(field,Edit3.Text,[loCaseInsensitive,loPartialKey])) then

begin

MessageDlg('Ошибка - Такая запись не найдена', mtError, [mbOK], 0);

exit;

end;

end

end;

procedure TForma_Glavnaya.Edit13KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

key:=#0;

Button2Click(Sender);

end;

end;

procedure TForma_Glavnaya.Button2Click(Sender: TObject);

var field:string; // поле по котор. поиск

begin

if Edit13.Text <> '' then

begin

if ComboBox13.ItemIndex= 0 then field:='Id' else

if ComboBox13.ItemIndex= 1 then field:='Fam' else

if ComboBox13.ItemIndex= 2 then field:='Imya' else

if ComboBox13.ItemIndex= 3 then field:='Otch' else

if ComboBox13.ItemIndex= 4 then field:='Data_rog' else

if ComboBox13.ItemIndex= 5 then field:='MestoGit' else

if ComboBox13.ItemIndex= 6 then field:='PaspSer' else

if ComboBox13.ItemIndex= 7 then field:='PaspNum' else

if ComboBox13.ItemIndex= 8 then field:='Data_vyd' else

if ComboBox13.ItemIndex= 9 then field:='Dolgnost' else

if ComboBox13.ItemIndex= 10 then field:='DataPost' ;

if not(DataModule1.ADO_Sotrudniki.Locate(field,Edit13.Text,[loCaseInsensitive,loPartialKey])) then

begin

MessageDlg('Ошибка - Такая запись не найдена', mtError, [mbOK], 0);

exit;

end;

end

end;

procedure TForma_Glavnaya.N12Click(Sender: TObject);

begin

F_TTO.show;

end;

procedure TForma_Glavnaya.N19Click(Sender: TObject);

begin

F_AKT_TO.Show;

end;

procedure TForma_Glavnaya.ComboBox14Change(Sender: TObject);

begin

memo1.Visible:=ComboBox14.ItemIndex=1; // скрываем поле ввода неисправности авто при прохождении ТО

Label80.Visible:=ComboBox14.ItemIndex=1; // и подпись

end;

procedure TForma_Glavnaya.DBGrid4Enter(Sender: TObject);

begin

DataModule1.ADO_TO.Cancel; // отмена редактирования

end;

procedure TForma_Glavnaya.DBGrid4TitleClick(Column: TColumn);

var i:integer;

begin

with DataModule1.ADO_TO do

begin

DisableControls;

IndexFieldNames := Column.FieldName;

// Восстанавливаем настройки заголовка

for i:=0 to DBGrid4.Columns.Count-1 do

DBGrid4.Columns[i].Title.Font.Color:=clblack;

Column.Title.Font.Color := clred;

EnableControls;

end;

end;

procedure TForma_Glavnaya.PageControl5Change(Sender: TObject);

begin

Obn_Sotrudnikov; // перезагружаем списки

Obn_RegNum;

DataModule1.ADO_TO.Refresh; // обновляем таблицу

end;

procedure TForma_Glavnaya.ComboBox17Change(Sender: TObject);

begin

Datamodule1.ADO_Sotrudniki.Refresh; // обновляем таблицу Клиентов

Datamodule1.ADO_Sotrudniki.First; // переходим к первой записи

while not(Datamodule1.ADO_Sotrudniki.EOF) do // до конца таблицы делаем...

begin

if ComboBox17.Text = string(Datamodule1.ADO_Sotrudniki.FieldValues['Fam']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Imya']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Otch']) then

Label98.Caption:=Datamodule1.ADO_Sotrudniki.Fieldbyname('id').asstring;

Datamodule1.ADO_Sotrudniki.Next; // к следующей записи

end;

end;

procedure TForma_Glavnaya.ComboBox18Change(Sender: TObject);

begin

Datamodule1.ADO_TC.Refresh; // обновляем таблицу

Datamodule1.ADO_TC.First; // переходим к первой записи

while not(Datamodule1.ADO_TC.EOF) do // до конца таблицы делаем...

begin

if ComboBox18.Text = string(Datamodule1.ADO_TC.FieldValues['Regnum']) then

begin

Label99.Caption:=Datamodule1.ADO_TC.Fieldbyname('id').asstring;

break;

end;

Datamodule1.ADO_TC.Next; // к следующей записи

end;

end;

procedure TForma_Glavnaya.ComboBox19Change(Sender: TObject);

begin

Datamodule1.ADO_Sotrudniki.Refresh; // обновляем таблицу

Datamodule1.ADO_Sotrudniki.First; // переходим к первой записи

while not(Datamodule1.ADO_Sotrudniki.EOF) do // до конца таблицы делаем...

begin

if ComboBox19.Text = string(Datamodule1.ADO_Sotrudniki.FieldValues['Fam']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Imya']+' '+Datamodule1.ADO_Sotrudniki.FieldValues['Otch']) then

Label88.Caption:=Datamodule1.ADO_Sotrudniki.Fieldbyname('id').asstring; // выводим код

Datamodule1.ADO_Sotrudniki.Next; // к следующей записи

end;

end;

procedure TForma_Glavnaya.ComboBox20Change(Sender: TObject);

begin

Datamodule1.ADO_TC.Refresh; // обновляем таблицу

Datamodule1.ADO_TC.First; // переходим к первой записи

while not(Datamodule1.ADO_TC.EOF) do // до конца таблицы делаем...

begin

if ComboBox20.Text = string(Datamodule1.ADO_TC.FieldValues['Regnum']) then

begin

Label91.Caption:=Datamodule1.ADO_TC.Fieldbyname('id').asstring; // выводим код

break;

end;

Datamodule1.ADO_TC.Next; // к следующей записи

end;

end;

procedure TForma_Glavnaya.BitBtn19Click(Sender: TObject);

begin

Obn_Sotrudnikov; // перезагружаем списки

Obn_RegNum;

ComboBox14.ItemIndex:=0; // на первую запись в списке

Memo1.Clear; // очищаем поле ввода неисправности

end;

procedure TForma_Glavnaya.ComboBox15Change(Sender: TObject);

begin

dbmemo1.Visible:=ComboBox15.ItemIndex=1; // скрываем поле неисправности в зависимости: если в списке Да - т.е. допущена к эксплуатации

Label90.Visible:=ComboBox15.ItemIndex=1;

end;

procedure TForma_Glavnaya.BitBtn20Click(Sender: TObject);

begin

{проверка на заполнение полей}

if (ComboBox17.Text='') or (ComboBox18.Text='') or ((ComboBox14.ItemIndex=1) and(memo1.Text='')) then

begin

MessageDlg('Ошибка - Для добавления записи заполните форму.', mtError, [mbOK], 0);

exit;

end;

f MessageDlg('Вы действительно хотите добавить новую запись?', mtConfirmation, [mbOK,mbCancel],0)= mrok then

begin

DataModule1.ADO_TO.Insert; // вставляем новую запись

DataModule1.ADO_TO.FieldByName('Sotrudnik').Value := Label98.Caption;

DataModule1.ADO_TO.FieldByName('kod_TC').Value := Label99.Caption;

DataModule1.ADO_TO.FieldByName('Data').Value := datetostr(DateTimePicker16.Date);

DataModule1.ADO_TO.FieldByName('Ekspl').Value := ComboBox14.Text;

if ComboBox14.ItemIndex=1 then DataModule1.ADO_TO.FieldByName('Zamec').Value := Memo1.Text;

BitBtn19Click(Sender); // очищаем поля ввода

DataModule1.ADO_TO.Last; // на последнюю запись

end;

end;

procedure TForma_Glavnaya.BitBtn23Click(Sender: TObject);

begin

DataModule1.ADO_TO.Cancel; // отмена редактирования

end;

procedure TForma_Glavnaya.BitBtn24Click(Sender: TObject);

begin

DataModule1.ADO_TO.Edit; // изменение записи

DataModule1.ADO_TO.FieldByName('Sotrudnik').Value := Label88.Caption;

DataModule1.ADO_TO.FieldByName('kod_TC').Value := Label91.Caption;

DataModule1.ADO_TO.FieldByName('Data').Value := datetostr(DateTimePicker15.Date);

DataModule1.ADO_TO.FieldByName('Ekspl').Value := ComboBox15.Text;

DataModule1.ADO_TO.Post; // подтверждение

end;

procedure TForma_Glavnaya.Edit29KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // если ентер

begin

key:=#0;