Дипломная работа: Автоматизация контроля качества в ТОО "ПКК САКТАГАН"

Скачать файл

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

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

116

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;

117

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;

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;

118

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

DataSet.FieldByName('CheckLow').AsInteger:=ABS(DataSet.FieldByName('Nor

mValue').AsInteger-DataSet.FieldByName('ParamValue').AsInteger)-

DataSet.FieldByName('TolerLow').AsInteger;

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

end

else

begin

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

119

DataSet.FieldByName('CheckHigh').AsInteger:=ABS(DataSet.FieldByName('Nor

mValue').AsInteger-DataSet.FieldByName('ParamValue').AsInteger)-

DataSet.FieldByName('TolerHigh').AsInteger;

end

end;

end.

// Авторизация пользователя

unit Passw;

interface

uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,

Dialogs, Buttons, ExtCtrls, DBCtrls, cxGraphics, dxSkinsCore,

dxSkinsDefaultPainters, cxTextEdit, cxControls, cxContainer, cxEdit,

cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,

cxDBLookupComboBox, Menus, cxLookAndFeelPainters, cxButtons,

cxLookAndFeels;

type

TPasswordDlg = class(TForm)

Label1: TLabel;

Label2: TLabel;

btnYes: TcxButton;

btnNo: TcxButton;

lcbUserName: TDBLookupComboBox;

120

Password: TEdit;

procedure FormShow(Sender: TObject);

procedure btnNoClick(Sender: TObject);

procedure btnYesClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PasswordDlg: TPasswordDlg;

implementation

uses SysUtils, DataBase, Main;

{$R *.DFM}

procedure TPasswordDlg.FormShow(Sender: TObject);

begin

PasswordDlg.ActiveControl:=lcbUserName;

end;

procedure TPasswordDlg.btnNoClick(Sender: TObject);

begin

if MessageDlg('Заканчиваем

работу?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

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

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

_3 тема - Диффузия
[БИЛЕТЫ] IMK №3
00601
01. Концепция БД
02_ЛР
02. РСЧС_ВСМК_Таблица
05. Частная патология ССС - Инфаркт миокарда
0501 Конунников ЛР10-3
0501_Конунников_ЛР№2
06-20-DatabasesGenomEvolution