Дипломная работа: Автоматизированная система учета ремонта компьютерного оборудования в компании «Логус»

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
90
Приложение
Листинг разработанной программы
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TAddOrg = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
eNaz: TEdit;
eTip: TEdit;
eMesto: TEdit;
BtnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure BtnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddOrg: TAddOrg;
implementation
{$R *.dfm}
procedure TAddOrg.BtnAddClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Оргтехника(Название,Тип,Месторасположение)
VALUES(:n,:tip,:mesto)');
ADOQuery1.Parameters.ParamByName('n').Value:=eNaz.Text;
ADOQuery1.Parameters.ParamByName('tip').Value:=eTip.Text;
ADOQuery1.Parameters.ParamByName('mesto').Value:=eMesto.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
end.
unit Unit2;
interface
91
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TAddKomp = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
eIm: TEdit;
ePrim: TEdit;
btnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label3: TLabel;
eRasp: TEdit;
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddKomp: TAddKomp;
implementation
{$R *.dfm}
procedure TAddKomp.btnAddClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO
Комп_техника(Сетевое_имя,Месторасположение,Примечание) VALUES(:im,:r,:prim)');
ADOQuery1.Parameters.ParamByName('im').Value:=eIm.Text;
ADOQuery1.Parameters.ParamByName('r').Value:=eRasp.Text;
ADOQuery1.Parameters.ParamByName('prim').Value:=ePrim.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
end.
unit Unit3;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TAddPO = class(TForm)
Panel1: TPanel;
92
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
btnAdd: TButton;
eNaz: TEdit;
ePok: TEdit;
eOk: TEdit;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label4: TLabel;
eLic: TEdit;
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddPO: TAddPO;
implementation
{$R *.dfm}
procedure TAddPO.btnAddClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO
ПО(Название,Дата_покупки,Дата_окончания,Количество_лицензий)
VALUES(:naz,:pok,:ok,:l)');
ADOQuery1.Parameters.ParamByName('naz').Value:=eNaz.Text;
ADOQuery1.Parameters.ParamByName('pok').Value:=ePok.Text;
ADOQuery1.Parameters.ParamByName('ok').Value:=eOk.Text;
ADOQuery1.Parameters.ParamByName('l').Value:=eLic.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
end.
unit Unit4;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TTOOrg = class(TForm)
Panel1: TPanel;
Label1: TLabel;
cbSotr: TComboBox;
btnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label2: TLabel;
93
cbTeh: TComboBox;
cbRab: TComboBox;
Работа: TLabel;
eData: TEdit;
Дата: TLabel;
procedure FormCreate(Sender: TObject);
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TOOrg: TTOOrg;
implementation
{$R *.dfm}
procedure TTOOrg.btnAddClick(Sender: TObject);
var
tempQuery:TADOQuery;
s,rab:integer;
begin
try
tempQuery:=TADOQuery.Create(self);
tempQuery.Connection:=ADOConnection1;
tempQuery.SQL.Clear;
tempQuery.SQL.Add('Select Код FROM Сотрудники WHERE ФИО=:fio');
tempQuery.Parameters.ParamByName('fio').Value:=cbSotr.Text;
tempQuery.Open;
with tempQuery do
begin
First;
s:=FieldByName('Код').AsInteger;
end;
tempQuery.SQL.Clear;
tempQuery.SQL.Add('Select Код FROM Виды_ТО WHERE Наименование=:n');
tempQuery.Parameters.ParamByName('n').Value:=cbRab.Text;
tempQuery.Open;
with tempQuery do
begin
First;
rab:=FieldByName('Код').AsInteger;
end;
finally
tempQuery.Active:=False;
tempQuery.Free;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO
ТО_Орг(Код_сотрудника,Код_оргтехники,Код_работы,Дата)
VALUES(:sotr,:teh,:rab,:data)');
ADOQuery1.Parameters.ParamByName('sotr').Value:=s;
ADOQuery1.Parameters.ParamByName('teh').Value:=StrToInt(cbTeh.Text);
ADOQuery1.Parameters.ParamByName('rab').Value:=rab;
ADOQuery1.Parameters.ParamByName('data').Value:=eData.Text;
ADOQuery1.ExecSQL;
94
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TTOOrg.FormCreate(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ФИО FROM Сотрудники');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.Items.Clear;
while not eof do
begin
cbSotr.Items.Add(FieldByName('ФИО').AsString);
Next;
end;
end;
//-----------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Код FROM Оргтехника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbTeh.Items.Clear;
while not eof do
begin
cbTeh.Items.Add(FieldByName('Код').AsString);
Next;
end;
end;
//-----------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Наименование FROM Виды_ТО');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbRab.Items.Clear;
while not eof do
begin
cbRab.Items.Add(FieldByName('Наименование').AsString);
Next;
end;
end;
finally
end;
end;
end.
unit Unit5;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Источник: https://baza.diplomsite.ru/previewfile/2520

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

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал