127
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;
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;
128
rtEditor: TdxRibbonTab;
pcRefer: TcxPageControl;
tsTypes: TcxTabSheet;
grdTypes: TcxGrid;
tblTypeRequest: TcxGridDBTableView;
grdTypesLevel: TcxGridLevel;
tsUsers: TcxTabSheet;
grdUsers: TcxGrid;
tblUsers: TcxGridDBTableView;
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;
129
tblListNorms: TcxGridDBTableView;
cxGridLevel4: TcxGridLevel;
tblListNormsCategoryName: TcxGridDBColumn;
tblListNormsNormName: TcxGridDBColumn;
tblListNormsNormValue: TcxGridDBColumn;
tblListNormsTolerLow: TcxGridDBColumn;
tblListNormsTolerHigh: TcxGridDBColumn;
procedure btnNewClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure pcReferChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmRefer: TfrmRefer;
implementation
uses Main, DataBase, TypeWare, Users, Categories, Measures, Norms;
{$R *.dfm}
procedure TfrmRefer.btnCloseClick(Sender: TObject);
begin
frmRefer.Close;
130
end;
procedure TfrmRefer.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataInfo.qListNorms.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListCategories.Close;
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Close;
end;
procedure TfrmRefer.pcReferChange(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
DataInfo.qListUsers.Open;
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
end;
1:begin
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Open;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
end;
2:begin
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Open;
131
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
end;
3:begin
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Open;
DataInfo.qListNorms.Close;
end;
4:begin
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Open;
end;
end;
end;
procedure TfrmRefer.FormShow(Sender: TObject);
begin
pcReferChange(nil);
end;
procedure TfrmRefer.btnNewClick(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
frmUsers.Tag:=1;
frmUsers.ShowModal;
end;
132
1:begin
frmTypes.Tag:=1;
frmTypes.ShowModal;
end;
2:begin
frmCategories.Tag:=1;
frmCategories.ShowModal;
end;
3:begin
frmMeasures.Tag:=1;
frmMeasures.ShowModal;
end;
4:begin
frmNorms.Tag:=1;
frmNorms.ShowModal;
end;
end;
end;
procedure TfrmRefer.btnEditClick(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
if DataInfo.qListUsers.RecordCount=0 then
begin
MessageDlg('Список пользователей пустой!',mtWarning,[mbOk],0);
Exit
end;
frmUsers.Tag:=0;
frmUsers.ShowModal;
end;
1:begin
133
if DataInfo.qListTypes.RecordCount=0 then
begin
MessageDlg('Список типов пустой!',mtWarning,[mbOk],0);
Exit
end;
frmTypes.Tag:=0;
frmTypes.ShowModal;
end;
2:begin
if DataInfo.qListCategories.RecordCount=0 then
begin
MessageDlg('Список категорий пустой!',mtWarning,[mbOk],0);
Exit
end;
frmCategories.Tag:=0;
frmCategories.ShowModal;
end;
3:begin
if DataInfo.qListMeasures.RecordCount=0 then
begin
MessageDlg('Список измерительных инструментов
пустой!',mtWarning,[mbOk],0);
Exit
end;
frmMeasures.Tag:=0;
frmMeasures.ShowModal;
end;
4:begin
if DataInfo.qListNorms.RecordCount=0 then
begin
MessageDlg('Список норм пустой!',mtWarning,[mbOk],0);
Exit
134
end;
frmNorms.Tag:=0;
frmNorms.ShowModal;
end;
end;
end;
procedure TfrmRefer.btnDelClick(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
if DataInfo.qListUsers.RecordCount=0 then
begin
MessageDlg('Список пользователей пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Wares WHERE
UserId='+DataInfo.qListUsers.FieldByName('Id').asString);
DataInfo.qQuery.SQL.Add('UNION ALL');
DataInfo.qQuery.SQL.Add('SELECT Id From Checks WHERE
UserId='+DataInfo.qListUsers.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данный пользователь уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;
135
if MessageDlg('Вы действительно хотите удалить пользователя
'+DataInfo.qListUsers.FieldByName('UserName').asString+'?',mtConfirmation,[mbYe
s, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Users where
Id='+DataInfo.qListUsers.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListUsers.Close;
DataInfo.qListUsers.Open;
end;
1:begin
if DataInfo.qListTypes.RecordCount=0 then
begin
MessageDlg('Список типов пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Categories WHERE
TypeId='+DataInfo.qListTypes.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данный тип уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;
136
if MessageDlg('Вы действительно хотите удалить тип
'+DataInfo.qListTypes.FieldByName('TypeName').asString+'?',mtConfirmation,[mbY
es, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Types where
Id='+DataInfo.qListTypes.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListTypes.Close;
DataInfo.qListTypes.Open;
end;
2:begin
if DataInfo.qListCategories.RecordCount=0 then
begin
MessageDlg('Список категорий пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Wares WHERE
CategoryId='+DataInfo.qListCategories.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данная категория уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;