Дипломная работа: Автоматизация приема заявок на ремонт и модернизацию ПК в ООО "ААЭМ"

Скачать файл

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

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

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;

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;

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

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;

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

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 Unit5;

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

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);

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

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








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