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

Скачать файл

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

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,

Vcl.ExtCtrls;

type

TTOKomp = class(TForm)

Panel1: TPanel;

Label1: TLabel;

cbSotr: TComboBox;

Label2: TLabel;

cbIm: TComboBox;

Label3: TLabel;

cbRab: TComboBox;

Дата: TLabel;

eData: TEdit;

btnAdd: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

procedure FormCreate(Sender: TObject);

procedure btnAddClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TOKomp: TTOKomp;

implementation

{$R *.dfm}

procedure TTOKomp.btnAddClick(Sender: TObject);

var

tempQuery:TADOQuery;

s,im,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:=cbIm.Text;

tempQuery.Open;

with tempQuery do

begin

First;

im:=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:=im;

ADOQuery1.Parameters.ParamByName('rab').Value:=rab;

ADOQuery1.Parameters.ParamByName('data').Value:=eData.Text;

ADOQuery1.ExecSQL;

Application.MessageBox('Данные сохранены!','Уведомление');

end;

procedure TTOKomp.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;

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

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Select Сетевое_имя FROM Комп_техника');

ADOQuery1.Open;

with ADOQuery1 do

begin

First;

cbIm.Items.Clear;

while not eof do

begin

cbIm.Items.Add(FieldByName('Сетевое_имя').AsString);

Next;

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;

finally

end;

end.

unit Unit6;

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.Grids,

Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls, Unit7, Unit1, Unit2, Unit3, Unit4,

Unit5, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15,

Vcl.Imaging.jpeg, MyWord;

type

TMainForm = class(TForm)

Panel1: TPanel;

btnSotrudniki: TButton;

btnOrg: TButton;

btnKomp: TButton;

btnPO: TButton;

btnTOOrg: TButton;

btnTOKomp: TButton;

btnAbout: TButton;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Panel2: TPanel;

btnAdd: TButton;

btnEdit: TButton;

btnDel: TButton;

btnInstall: TButton;

btnTOl3: TButton;

btnTOg3: TButton;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Label1: TLabel;

cbIm: TComboBox;

btnSearch: TButton;

Image1: TImage;

Button1: TButton;

Button2: TButton;

RadioGroup1: TRadioGroup;

rb1: TRadioButton;

rb2: TRadioButton;

rg2: TRadioGroup;

rb0: TRadioButton;

rb7: TRadioButton;

rb30: TRadioButton;

rb180: TRadioButton;

rb360: TRadioButton;

cbSotr: TComboBox;

Button3: TButton;

rg3: TRadioGroup;

cbT: TComboBox;

procedure btnSotrudnikiClick(Sender: TObject);

procedure LoadSotrudnik();

procedure LoadOrg();

procedure LoadKomp();

procedure LoadPO();

procedure LoadTOOrg();

procedure LoadTOKomp();

procedure LoadInstall();

procedure btnOrgClick(Sender: TObject);

procedure btnKompClick(Sender: TObject);

procedure btnPOClick(Sender: TObject);

procedure btnTOOrgClick(Sender: TObject);

procedure btnTOKompClick(Sender: TObject);

procedure btnAddClick(Sender: TObject);

procedure btnEditClick(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure btnDelClick(Sender: TObject);

procedure btnInstallClick(Sender: TObject);

procedure btnTOl3Click(Sender: TObject);

procedure btnTOg3Click(Sender: TObject);

procedure btnAboutClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure btnSearchClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

end;

var

MainForm: TMainForm;

t:integer;

implementation

{$R *.dfm}

procedure TMainForm.LoadSotrudnik();

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Сотрудники');

ADOQuery1.Active:=True;

DBGrid1.Columns[0].Width:=30;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

end;

procedure TMainForm.LoadOrg();

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Оргтехника');

ADOQuery1.Active:=True;

DBGrid1.Columns[0].Width:=30;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=120;

end;

procedure TMainForm.LoadKomp();

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Комп_техника');

ADOQuery1.Active:=True;

DBGrid1.Columns[0].Width:=30;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=120;

DBGrid1.Columns[3].Width:=100;

end;

procedure TMainForm.LoadPO();

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM ПО');

ADOQuery1.Active:=True;

DBGrid1.Columns[0].Width:=30;

DBGrid1.Columns[1].Width:=70;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=100;

DBGrid1.Columns[4].Alignment:=TAlignment.taLeftJustify;

DBGrid1.Columns[4].Width:=150;

end;

procedure TMainForm.LoadTOOrg();

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Данные_орг');

ADOQuery1.Active:=True;

DBGrid1.Columns[0].Width:=30;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=100;

DBGrid1.Columns[4].Width:=60;

end;

procedure TMainForm.LoadTOKomp();

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Данные_комп');

ADOQuery1.Active:=True;

DBGrid1.Columns[0].Width:=30;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=100;

DBGrid1.Columns[4].Width:=60;

end;

procedure TMainForm.LoadInstall();

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

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








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