Дипломная работа: Автоматизация контроля качества ООО "АЛЬТАИР"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
121
24. Фаулер было М, Скотт день К, UML в кратком если изложении. Применение этим
стандартного базы языка форм объектного рост моделирования, Пер. с англ. - М.:Мир, 2009. -
191 с. , ил.
25. Чипига этой А. Ф., Информационная есть безопасность этим
автоматизированных сеть систем, М, Издательство: Гелиос учет АРВ, 2010 г. , 336
стр.
122
Приложение. Листинг ядра программных виды модулей
unit Categories;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDropDownEdit, Menus, cxLookAndFeelPainters, StdCtrls,
cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDBLookupComboBox;
type
TfrmCategories = class(TForm)
btnYes: TcxButton;
btnNo: TcxButton;
vgCategories: TcxDBVerticalGrid;
vgCategoriesTypeId: TcxDBEditorRow;
vgCategoriesCategoryName: TcxDBEditorRow;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure btnNoClick(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
123
var
frmCategories: TfrmCategories;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmCategories.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
DataInfo.qListTypes.Close;
DataInfo.qCategories.Close;
end;
procedure TfrmCategories.FormShow(Sender: TObject);
begin
DataInfo.qListTypes.Open;
if frmCategories.Tag=1 then
begin
frmCategories.Caption:='Новая категория';
DataInfo.qCategories.Close;
DataInfo.qCategories.Parameters.ParamValues['CategoryId']:=0;
DataInfo.qCategories.Open;
DataInfo.qCategories.Insert;
end
else
begin
124
frmCategories.Caption:=DataInfo.qListCategories.FieldByName('CategoryName').
asString;
DataInfo.qCategories.Close;
DataInfo.qCategories.Parameters.ParamValues['CategoryId']:=DataInfo.qListCate
gories.FieldByName('Id').asInteger;
DataInfo.qCategories.Open;
DataInfo.qCategories.Edit;
end;
end;
procedure TfrmCategories.btnNoClick(Sender: TObject);
begin
DataInfo.qCategories.Cancel;
frmCategories.Close;
end;
procedure TfrmCategories.btnYesClick(Sender: TObject);
begin
if DataInfo.qCategories.FieldByName('TypeId').isNull then
begin
MessageDlg('Выберите тип изделия!',mtError,[mbOk],0);
Exit
end;
if DataInfo.qCategories.FieldByName('CategoryName').isNull then
begin
MessageDlg('Укажите цели название свой категории! ',mtError,[mbOk],0);
Exit
end;
125
DataInfo.qCategories.Post;
try
Pos:=DataInfo.qListCategories.GetBookmark;
DataInfo.qListCategories.Close;
DataInfo.qListCategories.Open;
DataInfo.qListCategories.GotoBookmark(Pos);
finally
DataInfo.qListCategories.FreeBookmark(Pos);
end;
frmCategories.Close;
end;
end.
unit DataBase;
interface
uses
SysUtils, Classes, DB, ADODB, Dialogs;
type
TDataInfo = class(TDataModule)
ADOConnection: TADOConnection;
qQuery: TADOQuery;
qTypes: TADOQuery;
dsTypes: TDataSource;
qCategories: TADOQuery;
dsCategories: TDataSource;
Источник: https://baza.diplomsite.ru/previewfile/1833

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

_1966(~1
_files_materials_5053_prog.ntr
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
!Фармакология препаратов для терапии заболеваний дыхательных путей
'Образ–Я' и его развитие средствами диалога
"Их невинная наложница "