Дипломная работа: Автоматизация управления распределенной структурой складов для ООО "Европос Групп"

Скачать файл

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

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

132

qListUsersType: TStringField;

qListClassifCode: TStringField;

qListMoveAssets: TADOQuery;

dsListMoveAssets: TDataSource;

qListMoveAssetsAssetId: TIntegerField;

qListMoveAssetsMaxActId: TIntegerField;

qListMoveAssetsAssetName: TStringField;

qListMoveAssetsInvNum: TStringField;

qListMoveAssetsActDate: TDateTimeField;

qListMoveAssetsTypeAct: TStringField;

qListMoveAssetsTypeAsset: TStringField;

qListMoveAssetsStorageName: TStringField;

qListMoveAssetsCode: TStringField;

qListAssetsCost: TBCDField;

qActDetailCnt: TIntegerField;

qListActsFromStorage: TStringField;

qListActsToStorage: TStringField;

qListActsFromUser: TStringField;

qListActsToUser: TStringField;

qActDetailAssetName: TStringField;

qActDetailInvNum: TStringField;

EkRTF: TEkRTF;

qListAssetsMeasure: TStringField;

qListAssetsWear: TIntegerField;

qListMoveAssetsCost: TBCDField;

qListMoveAssetsStorageId: TAutoIncField;

qListMoveAssetsUserId: TAutoIncField;

qListMoveAssetsUserName: TStringField;

qReport3: TADOQuery;

dsReport3: TDataSource;

qRepDoc3: TADOQuery;

dsRepDoc3: TDataSource;

133

qReport4: TADOQuery;

dsReport4: TDataSource;

qRepDoc4: TADOQuery;

dsRepDoc4: TDataSource;

qReport1: TADOQuery;

AutoIncField6: TAutoIncField;

IntegerField18: TIntegerField;

WideStringField10: TWideStringField;

BooleanField4: TBooleanField;

WideStringField11: TWideStringField;

WideStringField12: TWideStringField;

dsReport1: TDataSource;

qReport2: TADOQuery;

AutoIncField7: TAutoIncField;

IntegerField19: TIntegerField;

WideStringField13: TWideStringField;

BooleanField5: TBooleanField;

WideStringField14: TWideStringField;

WideStringField15: TWideStringField;

dsReport2: TDataSource;

qListMoveAssetsWear: TIntegerField;

qListMoveAssetsInDate: TDateTimeField;

qListMoveAssetsWearDate: TDateField;

qReport3Id: TAutoIncField;

qReport3UserId: TIntegerField;

qReport3StorageName: TStringField;

qReport3Comment: TStringField;

qReport4Id: TAutoIncField;

qReport4Type: TStringField;

qReport4UserName: TStringField;

qReport4TabNum: TStringField;

qReport4Password: TStringField;

134

qRepDoc4AssetId: TIntegerField;

qRepDoc4MaxActId: TIntegerField;

qRepDoc4AssetName: TStringField;

qRepDoc4InvNum: TStringField;

qRepDoc4Cost: TBCDField;

qRepDoc4Wear: TIntegerField;

qRepDoc4ActDate: TDateTimeField;

qRepDoc4TypeAct: TStringField;

qRepDoc4TypeAsset: TStringField;

qRepDoc4StorageId: TAutoIncField;

qRepDoc4StorageName: TStringField;

qRepDoc4Code: TStringField;

qRepDoc4UserId: TAutoIncField;

qRepDoc4UserName: TStringField;

qRepDoc4InDate: TDateTimeField;

qRepDoc3AssetId: TIntegerField;

qRepDoc3MaxActId: TIntegerField;

qRepDoc3AssetName: TStringField;

qRepDoc3InvNum: TStringField;

qRepDoc3Cost: TBCDField;

qRepDoc3Wear: TIntegerField;

qRepDoc3ActDate: TDateTimeField;

qRepDoc3TypeAct: TStringField;

qRepDoc3TypeAsset: TStringField;

qRepDoc3StorageId: TAutoIncField;

qRepDoc3StorageName: TStringField;

qRepDoc3Code: TStringField;

qRepDoc3UserId: TAutoIncField;

qRepDoc3UserName: TStringField;

qRepDoc3InDate: TDateTimeField;

qActDetailCost: TBCDField;

qActDetailWear: TIntegerField;

135

qActDetailCode: TStringField;

qActDetailInDate: TDateTimeField;

qActDetailOutDate: TDateField;

qRepDoc3WearDate: TDateField;

qRepDoc4WearDate: TDateField;

procedure qListActsAfterScroll(DataSet: TDataSet);

procedure qListMoveAssetsCalcFields(DataSet: TDataSet);

procedure qListMoveAssetsFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

procedure qReport3AfterScroll(DataSet: TDataSet);

procedure qReport4AfterScroll(DataSet: TDataSet);

procedure qActDetailCalcFields(DataSet: TDataSet);

procedure qRepDoc3CalcFields(DataSet: TDataSet);

procedure qRepDoc4CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataInfo: TDataInfo;

UserId, AttemptLogin: Integer;

i, c, _Count, NumFilter: Integer;

TypeUser, UserName, UserPassword: String;

isLogin: Boolean;

implementation

{$R *.dfm}

uses Main, Reports;

136

procedure TDataInfo.qActDetailCalcFields(DataSet: TDataSet);

begin

DataSet.FieldByName('OutDate').AsDateTime:=IncMonth(DataSet.FieldByName('InDate'

).AsDateTime,Trunc(100/DataSet.FieldByName('Wear').AsInteger));

end;

procedure TDataInfo.qListActsAfterScroll(DataSet: TDataSet);

begin

DataInfo.qActDetail.Close;

DataInfo.qActDetail.Parameters.ParamValues['ActId']:=DataSet.FieldByName('Id').AsInte

ger;

DataInfo.qActDetail.Open;

end;

procedure TDataInfo.qListMoveAssetsCalcFields(DataSet: TDataSet);

begin

DataSet.FieldByName('WearDate').AsDateTime:=IncMonth(DataSet.FieldByName('InDat

e').AsDateTime,Trunc(100/DataSet.FieldByName('Wear').AsInteger));

end;

procedure TDataInfo.qListMoveAssetsFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=False;

if not DataSet.Filtered then

begin

Accept:=True;

Exit;

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

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



17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009