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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
111
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
TEditOrg = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
cbCode: TComboBox;
eNaz: TEdit;
eTip: TEdit;
eMesto: TEdit;
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cbCodeChange(Sender: TObject);
private
{ Private declarations }
public
id:integer;
end;
var
EditOrg: TEditOrg;
implementation
{$R *.dfm}
procedure TEditOrg.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Оргтехника SET Название=:n, Тип=:t, Месторасположение=:m WHERE
Код=:k');
ADOQuery1.Parameters.ParamByName('n').Value:=eNaz.Text;
ADOQuery1.Parameters.ParamByName('t').Value:=eTip.Text;
ADOQuery1.Parameters.ParamByName('m').Value:=eMesto.Text;
ADOQuery1.Parameters.ParamByName('k').Value:=id;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TEditOrg.cbCodeChange(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * FROM Оргтехника WHERE Код=:id');
ADOQuery1.Parameters.ParamByName('id').Value:=cbCode.Text;
ADOQuery1.Open;
112
with ADOQuery1 do
begin
First;
eNaz.Text:=FieldByName('Название').AsString;
eTip.Text:=FieldByName('Тип').AsString;
eMesto.Text:=FieldByName('Месторасположение').AsString;
end;
end;
procedure TEditOrg.FormCreate(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Код FROM Оргтехника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbCode.Items.Clear;
while not eof do
begin
cbCode.Items.Add(FieldByName('Код').AsString);
Next;
end;
end;
finally
end;
end;
procedure TEditOrg.FormShow(Sender: TObject);
begin
if id>0 then
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Код FROM Оргтехника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbCode.Items.Clear;
while not eof do
begin
cbCode.Items.Add(FieldByName('Код').AsString);
Next;
end;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * FROM Оргтехника WHERE Код=:id');
ADOQuery1.Parameters.ParamByName('id').Value:=id;
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbCode.ItemIndex := cbCode.Items.IndexOF(FieldByName('Код').AsString);
113
eNaz.Text:=FieldByName('Название').AsString;
eTip.Text:=FieldByName('Тип').AsString;
eMesto.Text:=FieldByName('Месторасположение').AsString;
end;
finally
end;
end;
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/1935

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

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