Материал: Автоматизация контроля качества ФГУП "Научно-производственный центр автоматики и приборостроения имени Н.А. Пилюгина"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
112
DataInfo.qCategories.Parameters.ParamValues['CategoryId']:=DataInfo.qListCategori
es.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;
DataInfo.qCategories.Post;
try
Pos:=DataInfo.qListCategories.GetBookmark;
DataInfo.qListCategories.Close;
DataInfo.qListCategories.Open;
DataInfo.qListCategories.GotoBookmark(Pos);
113
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;
dsUsers: TDataSource;
qUsers: TADOQuery;
qListTypes: TADOQuery;
dsListTypes: TDataSource;
qListCategories: TADOQuery;
dsListCategories: TDataSource;
qListUsers: TADOQuery;
dsListUsers: TDataSource;
114
qTypesId: TAutoIncField;
qListTypesId: TAutoIncField;
qCategoriesId: TAutoIncField;
qListCategoriesId: TAutoIncField;
qUsersId: TAutoIncField;
qUsersUserName: TStringField;
qListUsersId: TAutoIncField;
qListUsersUserName: TStringField;
qUsersPassword: TStringField;
qListUsersPassword: TStringField;
qListWares: TADOQuery;
dsListWares: TDataSource;
qListChecks: TADOQuery;
dsListChecks: TDataSource;
qCategoriesTypeId: TIntegerField;
qCategoriesCategoryName: TWideStringField;
qListTypesTypeName: TWideStringField;
qListCategoriesTypeId: TIntegerField;
qListCategoriesCategoryName: TWideStringField;
qListCategoriesTypeName: TWideStringField;
qListChecksId: TAutoIncField;
qListChecksWareId: TIntegerField;
qListChecksDateCheck: TDateTimeField;
qListChecksUserId: TIntegerField;
qListChecksMeasureId: TIntegerField;
qListChecksUserName: TWideStringField;
qListChecksMeasureName: TWideStringField;
qListChecksWareName: TWideStringField;
qListWaresId: TAutoIncField;
qListWaresUserId: TIntegerField;
qListWaresCategoryId: TIntegerField;
qListWaresDateInput: TDateTimeField;
115
qListWaresWareName: TWideStringField;
qListWaresTypeName: TWideStringField;
qListWaresCategoryName: TWideStringField;
qListWaresUserName: TWideStringField;
dsMeasures: TDataSource;
qMeasures: TADOQuery;
AutoIncField1: TAutoIncField;
qMeasuresMeasureName: TWideStringField;
qTypesTypeName: TWideStringField;
qListMeasures: TADOQuery;
AutoIncField2: TAutoIncField;
WideStringField1: TWideStringField;
dsListMeasures: TDataSource;
qUsersTypeUser: TWideStringField;
qListUsersTypeUser: TWideStringField;
dsNorms: TDataSource;
qNorms: TADOQuery;
qListNorms: TADOQuery;
dsListNorms: TDataSource;
qNormsId: TAutoIncField;
qNormsCategoryId: TIntegerField;
qNormsNormName: TWideStringField;
qNormsNormValue: TIntegerField;
qListNormsId: TAutoIncField;
qListNormsCategoryId: TIntegerField;
qListNormsNormName: TWideStringField;
qListNormsNormValue: TIntegerField;
qListNormsCategoryName: TWideStringField;
qWareParams: TADOQuery;
dsWareParams: TDataSource;
qWareParamsId: TAutoIncField;
qWareParamsWareId: TIntegerField;
116
qWareParamsNormId: TIntegerField;
qWareParamsNormName: TWideStringField;
qListChecksResult: TBlobField;
qWares: TADOQuery;
AutoIncField3: TAutoIncField;
IntegerField1: TIntegerField;
IntegerField2: TIntegerField;
DateTimeField1: TDateTimeField;
WideStringField2: TWideStringField;
dsWares: TDataSource;
qChecks: TADOQuery;
dsChecks: TDataSource;
qParams: TADOQuery;
AutoIncField5: TAutoIncField;
IntegerField6: TIntegerField;
IntegerField7: TIntegerField;
WideStringField9: TWideStringField;
dsParams: TDataSource;
qChecksId: TAutoIncField;
qChecksWareId: TIntegerField;
qChecksDateCheck: TDateTimeField;
qChecksUserId: TIntegerField;
qChecksMeasureId: TIntegerField;
qResult: TADOQuery;
dsResult: TDataSource;
qParamsParamValue: TIntegerField;
qWareParamsParamValue: TIntegerField;
qResultId: TAutoIncField;
qResultWareId: TIntegerField;
qResultNormId: TIntegerField;
qResultParamValue: TIntegerField;
qResultNormName: TWideStringField;
Источник: https://baza.diplomsite.ru/previewfile/1836

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

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления
Проактивные методы PR-деятельности российских авиационных компаний «Россия», «Азимут»