127
MessageDlg('Укажитемассудрагметалла!',mtError,[mbOk],0);
Exit
end;
DataInfo.qAssetPrec.FieldByName('AssetId').asInteger:=DataInfo.qListAssets.Field
ByName('Id').asInteger;
DataInfo.qAssetPrec.Post;
frmAssetPrec.Close;
end;
end.
unit Storage;
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,
cxLookAndFeels, cxDropDownEdit, cxSpinEdit;
type
TfrmStorage = class(TForm)
vgStorage: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgStorageUserId: TcxDBEditorRow;
vgStorageStorageName: TcxDBEditorRow;
vgStorageComment: TcxDBEditorRow;
procedureFormShow(Sender: TObject);
procedurebtnNoClick(Sender: TObject);
procedurebtnYesClick(Sender: TObject);
private
128
{ Private declarations }
public
{ Public declarations }
end;
var
frmStorage: TfrmStorage;
implementation
usesDataBase;
{$R *.dfm}
procedureTfrmStorage.FormShow(Sender: TObject);
begin
iffrmStorage.Tag=1 then
begin
DataInfo.qListStorage.Insert;
end
else
begin
DataInfo.qListStorage.Edit;
end;
end;
procedureTfrmStorage.btnNoClick(Sender: TObject);
begin
DataInfo.qListStorage.Cancel;
frmStorage.Close;
end;
procedureTfrmStorage.btnYesClick(Sender: TObject);
begin
ifDataInfo.qListStorage.FieldByName('UserId').isNull then
129
begin
MessageDlg('Укажитеответственноелицо!',mtError,[mbOk],0);
Exit
end;
if DataInfo.qListStorage.FieldByName('StorageName').isNull then
begin
MessageDlg('Укажите название места хранения!',mtError,[mbOk],0);
Exit
end;
DataInfo.qListStorage.Post;
frmStorage.Close;
end;
end.
unit DataBase;
interface
uses
SysUtils, Classes, DB, ADODB, Dialogs, ekbasereport, ekrtf;
type
TDataInfo = class(TDataModule)
ADOConnection: TADOConnection;
qQuery: TADOQuery;
qListUsers: TADOQuery;
dsListUsers: TDataSource;
qListClassif: TADOQuery;
dsListClassif: TDataSource;
qListStorage: TADOQuery;
dsListStorage: TDataSource;
qListClients: TADOQuery;
130
dsListClients: TDataSource;
qListAssets: TADOQuery;
dsListAssets: TDataSource;
SaveDialog: TSaveDialog;
OpenDialog: TOpenDialog;
qListUsersId: TAutoIncField;
qListUsersUserName: TStringField;
qListUsersTabNum: TStringField;
qListUsersPassword: TStringField;
qListClassifId: TAutoIncField;
qListClassifClassifName: TStringField;
qListStorageId: TAutoIncField;
qListStorageUserId: TIntegerField;
qListStorageStorageName: TStringField;
qListStorageComment: TStringField;
qListClientsId: TAutoIncField;
qListClientsClientName: TStringField;
qListClientsZKPO: TStringField;
qListClientsIPN: TStringField;
qListClientsAddress: TStringField;
dsListActs: TDataSource;
qListActs: TADOQuery;
dsActDetail: TDataSource;
qActDetail: TADOQuery;
dsAct: TDataSource;
tAct: TADOTable;
qActDetailId: TAutoIncField;
qActDetailActId: TIntegerField;
qActDetailAssetId: TIntegerField;
qListActsId: TAutoIncField;
qListActsFromId: TIntegerField;
qListActsToId: TIntegerField;
131
qListActsActDate: TDateTimeField;
qListActsActNum: TStringField;
qListActsComment: TStringField;
qListAssetsId: TAutoIncField;
qListAssetsClientId: TIntegerField;
qListAssetsSign: TIntegerField;
qListAssetsClassifId: TIntegerField;
qListAssetsAssetName: TStringField;
qListAssetsInvNum: TStringField;
qListAssetsComment: TStringField;
tActId: TAutoIncField;
tActFromId: TIntegerField;
tActToId: TIntegerField;
tActActDate: TDateTimeField;
tActActNum: TStringField;
tActComment: TStringField;
tActTypeAct: TStringField;
tActTypeAsset: TStringField;
qListActsTypeAct: TStringField;
qListActsTypeAsset: TStringField;
qFromStorage: TADOQuery;
AutoIncField1: TAutoIncField;
IntegerField1: TIntegerField;
StringField1: TStringField;
StringField2: TStringField;
dsFromStorage: TDataSource;
qToStorage: TADOQuery;
AutoIncField2: TAutoIncField;
IntegerField2: TIntegerField;
StringField3: TStringField;
StringField4: TStringField;
dsToStorage: TDataSource;
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;