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

Скачать файл

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

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

126

dsUsers: TDataSource;

qUsers: TADOQuery;

qListTypes: TADOQuery;

dsListTypes: TDataSource;

qListCategories: TADOQuery;

dsListCategories: TDataSource;

qListUsers: TADOQuery;

dsListUsers: TDataSource;

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;

127

qListChecksDateCheck: TDateTimeField;

qListChecksUserId: TIntegerField;

qListChecksMeasureId: TIntegerField;

qListChecksUserName: TWideStringField;

qListChecksMeasureName: TWideStringField;

qListChecksWareName: TWideStringField;

qListWaresId: TAutoIncField;

qListWaresUserId: TIntegerField;

qListWaresCategoryId: TIntegerField;

qListWaresDateInput: TDateTimeField;

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;

128

qNormsCategoryId: TIntegerField;

qNormsNormName: TWideStringField;

qNormsNormValue: TIntegerField;

qListNormsId: TAutoIncField;

qListNormsCategoryId: TIntegerField;

qListNormsNormName: TWideStringField;

qListNormsNormValue: TIntegerField;

qListNormsCategoryName: TWideStringField;

qWareParams: TADOQuery;

dsWareParams: TDataSource;

qWareParamsId: TAutoIncField;

qWareParamsWareId: TIntegerField;

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;

129

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;

qResultNormValue: TIntegerField;

qListWaresParamCount: TIntegerField;

qResultCheckLow: TIntegerField;

qListWaresCheckDone: TIntegerField;

qListWaresCheckTrue: TIntegerField;

qChecksResult: TBlobField;

qChecksisCheck: TBooleanField;

qListChecksisCheck: TBooleanField;

SaveDialog: TSaveDialog;

qNormsTolerLow: TIntegerField;

qNormsTolerHigh: TIntegerField;

qResultTolerLow: TIntegerField;

qResultTolerHigh: TIntegerField;

qResultCheckHigh: TIntegerField;

qListNormsTolerLow: TIntegerField;

qListNormsTolerHigh: TIntegerField;

130

procedure qResultCalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataInfo: TDataInfo;

Pos: TBookmark;

AttemptLogin, c, UserId: Integer;

Cond, UserLevel, UserName, UserPassword: String;

isLogin: Boolean;

implementation

{$R *.dfm}

procedure TDataInfo.qResultCalcFields(DataSet: TDataSet);

begin

if DataSet.FieldByName('NormValue').AsInteger-

DataSet.FieldByName('ParamValue').AsInteger=0 then

begin

DataSet.FieldByName('CheckLow').AsInteger:=0;

DataSet.FieldByName('CheckHigh').AsInteger:=0;

Exit

end;

if DataSet.FieldByName('NormValue').AsInteger-

DataSet.FieldByName('ParamValue').AsInteger>0 then

begin

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

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



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