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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
117
procedure TForm2.N4Click(Sender: TObject);
begin
form2.Hide;
form1.show;
end;
end. unit Kurs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus;
type
TForm4 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
118
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Avto;
{$R *.dfm}
procedure TForm4.N2Click(Sender: TObject);
begin
AdoTable1.Insert;
end;
procedure TForm4.N3Click(Sender: TObject);
begin
AdoTable1.Delete;
end;
procedure TForm4.N4Click(Sender: TObject);
begin
form4.Hide;
form1.show;
end;
end.
119
unit Sotr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
120
implementation
uses Avto;
{$R *.dfm}
procedure TForm3.N2Click(Sender: TObject);
begin
AdoTable1.Insert;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
AdoTable1.Delete;
end;
procedure TForm3.N4Click(Sender: TObject);
begin
form3.Hide;
form1.show;
end;
end.
unit New_dog;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, StdCtrls, Mask, Menus;
121
type
TForm6 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Добавить: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
Dsjl1: TMenuItem;
procedure ДобавитьClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Источник: https://baza.diplomsite.ru/previewfile/2032

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

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