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
131
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;
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;
132
type
TPasswordDlg = class(TForm)
Label1: TLabel;
Label2: TLabel;
btnYes: TcxButton;
btnNo: TcxButton;
lcbUserName: TDBLookupComboBox;
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;
133
procedure TPasswordDlg.btnNoClick(Sender: TObject);
begin
if MessageDlg('Заканчиваем
работу?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
ModalResult:=-1;
Exit
end;
ModalResult:=0;
end;
procedure TPasswordDlg.btnYesClick(Sender: TObject);
begin
if lcbUserName.Text='' then
begin
MessageDlg('Выберите пользователя',mtWarning,[mbOk],0);
ModalResult:=mrNone;
end
else
begin
UserId:=DataInfo.qListUsers.FieldByName('Id').asInteger;
UserName:=DataInfo.qListUsers.FieldByName('UserName').asString;
UserLevel:=DataInfo.qListUsers.FieldByName('TypeUser').asString;
UserPassword:=Password.Text;
ModalResult:=1
end
end;
end.
134
unit TypeWare;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls,
cxInplaceContainer,
cxDropDownEdit, cxLookAndFeels;
type
TfrmTypes = class(TForm)
vgTypes: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgTypesTypeName: 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;
135
var
frmTypes: TfrmTypes;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmTypes.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
DataInfo.qTypes.Close;
end;
procedure TfrmTypes.FormShow(Sender: TObject);
begin
if frmTypes.Tag=1 then
begin
frmTypes.Caption:='Новый тип';
DataInfo.qTypes.Close;
DataInfo.qTypes.Parameters.ParamValues['TypeId']:=0;
DataInfo.qTypes.Open;
DataInfo.qTypes.Insert;
end
else
begin
frmTypes.Caption:=DataInfo.qListTypes.FieldByName('TypeName').asString;