136
DataInfo.qTypes.Close;
DataInfo.qTypes.Parameters.ParamValues['TypeId']:=DataInfo.qListTypes.FieldB
yName('Id').asInteger;
DataInfo.qTypes.Open;
DataInfo.qTypes.Edit;
end;
end;
procedure TfrmTypes.btnNoClick(Sender: TObject);
begin
DataInfo.qTypes.Cancel;
frmTypes.Close;
end;
procedure TfrmTypes.btnYesClick(Sender: TObject);
begin
if DataInfo.qTypes.FieldByName('TypeName').isNull then
begin
MessageDlg('Укажите название типа изделия!',mtError,[mbOk],0);
Exit
end;
DataInfo.qTypes.Post;
try
Pos:=DataInfo.qListTypes.GetBookmark;
DataInfo.qListTypes.Close;
DataInfo.qListTypes.Open;
DataInfo.qListTypes.GotoBookmark(Pos);
finally
DataInfo.qListTypes.FreeBookmark(Pos);
137
end;
frmTypes.Close;
end;
end.
unit Ware;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, Menus,
dxSkinsCore, dxSkinsDefaultPainters, StdCtrls, cxButtons, cxControls,
cxStyles, cxEdit, cxDBLookupComboBox, cxVGrid, cxDBVGrid,
cxInplaceContainer;
type
TfrmWares = class(TForm)
btnYes: TcxButton;
btnNo: TcxButton;
vgWares: TcxDBVerticalGrid;
vgWaresCategoryId: TcxDBEditorRow;
vgWaresDateInput: TcxDBEditorRow;
vgWaresWareName: TcxDBEditorRow;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure btnNoClick(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
138
{ Private declarations }
public
{ Public declarations }
end;
var
frmWares: TfrmWares;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmWares.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
DataInfo.qListUsers.Close;
DataInfo.qListCategories.Close;
DataInfo.qWares.Close;
end;
procedure TfrmWares.FormShow(Sender: TObject);
begin
DataInfo.qListUsers.Open;
DataInfo.qListCategories.Open;
if frmWares.Tag=1 then
begin
frmWares.Caption:='Новое изделие';
DataInfo.qWares.Close;
139
DataInfo.qWares.Parameters.ParamValues['WareId']:=0;
DataInfo.qWares.Open;
DataInfo.qWares.Insert;
end
else
begin
frmWares.Caption:=DataInfo.qListWares.FieldByName('WareName').asString;
DataInfo.qWares.Close;
DataInfo.qWares.Parameters.ParamValues['WareId']:=DataInfo.qListWares.FieldB
yName('Id').asInteger;
DataInfo.qWares.Open;
DataInfo.qWares.Edit;
end;
end;
procedure TfrmWares.btnNoClick(Sender: TObject);
begin
DataInfo.qWares.Cancel;
frmWares.Close;
end;
procedure TfrmWares.btnYesClick(Sender: TObject);
begin
if DataInfo.qWares.FieldByName('CategoryId').isNull then
begin
MessageDlg('Выберите категорию изделия!',mtError,[mbOk],0);
Exit
end;
140
if DataInfo.qWares.FieldByName('DateInput').isNull then
begin
MessageDlg('Укажите дату поступления!',mtError,[mbOk],0);
Exit
end;
if DataInfo.qWares.FieldByName('WareName').isNull then
begin
MessageDlg('Укажите название изделия!',mtError,[mbOk],0);
Exit
end;
DataInfo.qWares.FieldByName('UserId').asInteger:=UserId;
DataInfo.qWares.Post;
try
Pos:=DataInfo.qListWares.GetBookmark;
DataInfo.qListWares.Close;
DataInfo.qListWares.Open;
DataInfo.qListWares.GotoBookmark(Pos);
finally
DataInfo.qListWares.FreeBookmark(Pos);
end;
frmWares.Close;
end;
end.
unit TypeWare;
interface
uses
141
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;
var
frmTypes: TfrmTypes;
implementation
142
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;
DataInfo.qTypes.Close;
DataInfo.qTypes.Parameters.ParamValues['TypeId']:=DataInfo.qListTypes.FieldB
yName('Id').asInteger;
DataInfo.qTypes.Open;
DataInfo.qTypes.Edit;
143
end;
end;
procedure TfrmTypes.btnNoClick(Sender: TObject);
begin
DataInfo.qTypes.Cancel;
frmTypes.Close;
end;
procedure TfrmTypes.btnYesClick(Sender: TObject);
begin
if DataInfo.qTypes.FieldByName('TypeName').isNull then
begin
MessageDlg('Укажите название типа изделия!',mtError,[mbOk],0);
Exit
end;
DataInfo.qTypes.Post;
try
Pos:=DataInfo.qListTypes.GetBookmark;
DataInfo.qListTypes.Close;
DataInfo.qListTypes.Open;
DataInfo.qListTypes.GotoBookmark(Pos);
finally
DataInfo.qListTypes.FreeBookmark(Pos);
end;
frmTypes.Close;
end;
end.
unit Refer;
144
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, dxSkinsdxRibbonPainter,
dxSkinsdxBarPainter, cxTextEdit, cxCheckBox, dxBar, dxBarExtItems,
cxBarEditItem, ImgList, cxGraphics, cxClasses, dxRibbon, cxControls,
dxSkinscxPCPainter, cxStyles, cxCustomData, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridChartView,
cxGridDBChartView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGridCustomView, cxGrid, cxPC,
cxDBLookupComboBox,
cxLookAndFeels, cxLookAndFeelPainters, dxRibbonSkins,
cxPCdxBarPopupMenu,
cxNavigator, cxDropDownEdit;
type
TfrmRefer = class(TForm)
MainRibbon: TdxRibbon;
rtEditor: TdxRibbonTab;
pcRefer: TcxPageControl;
tsTypes: TcxTabSheet;
grdTypes: TcxGrid;
tblTypeRequest: TcxGridDBTableView;
grdTypesLevel: TcxGridLevel;
tsUsers: TcxTabSheet;
grdUsers: TcxGrid;
tblUsers: TcxGridDBTableView;
145
cxGridLevel1: TcxGridLevel;
BarManager: TdxBarManager;
BarManagerBar1: TdxBar;
btnNew: TdxBarLargeButton;
btnEdit: TdxBarLargeButton;
btnDel: TdxBarLargeButton;
btnClose: TdxBarLargeButton;
tsCategories: TcxTabSheet;
grdCategories: TcxGrid;
tblServices: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
tblUsersUserName: TcxGridDBColumn;
tsMeasures: TcxTabSheet;
grdMeasures: TcxGrid;
tblMeasures: TcxGridDBTableView;
cxGridLevel3: TcxGridLevel;
tblMeasuresMeasureName: TcxGridDBColumn;
tblServicesCategoryName: TcxGridDBColumn;
tblServicesTypeName: TcxGridDBColumn;
tblTypeRequestTypeName: TcxGridDBColumn;
tblUsersTypeUser: TcxGridDBColumn;
tsNorms: TcxTabSheet;
grdNorms: TcxGrid;
tblListNorms: TcxGridDBTableView;
cxGridLevel4: TcxGridLevel;
tblListNormsCategoryName: TcxGridDBColumn;
tblListNormsNormName: TcxGridDBColumn;
tblListNormsNormValue: TcxGridDBColumn;
tblListNormsTolerLow: TcxGridDBColumn;
tblListNormsTolerHigh: TcxGridDBColumn;