Дипломная работа: Автоматизация процесса ведения документации и отчетности в АНО "АвтоМотоПро"

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

122

var

Form6: TForm6;

implementation

uses Dogov;

{$R *.dfm}

procedure TForm6.ДобавитьClick(Sender: TObject);

begin

form5.ADOTable1.Edit;

form5.ADOTable1.Insert;

form5.ADOTable1.Fields[0].AsString:=dbedit1.Text;

form5.ADOTable1.Fields[1].AsString:=dbedit2.Text;

form5.ADOTable1.Fields[2].AsString:=dbedit3.Text;

form5.ADOTable1.Fields[3].AsString:=dbedit4.Text;

form5.ADOTable1.Fields[4].AsString:=dbedit5.Text;

form5.ADOTable1.Fields[5].AsString:=dbedit6.Text;

form5.ADOTable1.Fields[6].AsString:=dbedit7.Text;

form5.ADOTable1.Post;

form6.Hide;

end;

end.

unit Dogov;

interface

uses

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

123

Dialogs, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Avto, New_dog;

{$R *.dfm}

124

procedure TForm5.N2Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm5.N3Click(Sender: TObject);

begin

AdoTable1.Delete;

end;

procedure TForm5.N4Click(Sender: TObject);

begin

form5.Hide;

form1.show;

end;

end.

unit Avto;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, RpCon, RpConDS,

RpBase, RpSystem, RpDefine, RpRave;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

125

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource2: TDataSource;

RvProject1: TRvProject;

RvSystem1: TRvSystem;

RvDataSetConnection1: TRvDataSetConnection;

ADOTable2: TADOTable;

DataSource3: TDataSource;

ADOTable3: TADOTable;

RvProject2: TRvProject;

RvSystem2: TRvSystem;

RvDataSetConnection2: TRvDataSetConnection;

DataSource4: TDataSource;

ADOTable4: TADOTable;

RvProject3: TRvProject;

RvSystem3: TRvSystem;

RvDataSetConnection3: TRvDataSetConnection;

procedure N12Click(Sender: TObject);

126

procedure N10Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Klient, Sotr, Kurs, Dogov;

{$R *.dfm}

procedure TForm1.N10Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form1.Close;

end;

Источник: https://baza.diplomsite.ru/previewfile/2032

Смотрите также:

Obsch_khirurgia_Zadachi_2
Анализ системы благоустройства и озеленения на основе Генерального плана города
Влияние газофлюсовой обработки расплава на структуру и механические свойства силумина
Исследование и совершенствование стиля и методов руководства в организации на примере ИП Ахмедов Н.Б.
Підходи до визначення і оцінки рентних доходів
Устойчивая архитектура
Федеральная служба налоговой полиции: светлое будущее или темное прошлое