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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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;
Источник: https://baza.diplomsite.ru/previewfile/2331

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

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