132
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;
133
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;
134
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;
135
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
136
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
137
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;
138
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;
139
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;
140
if MessageDlg('Вы действительно хотите удалить категорию
'+DataInfo.qListCategories.FieldByName('CategoryName').asString+'?',mtConfirmati
on,[mbYes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Categories where
Id='+DataInfo.qListCategories.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListCategories.Close;
DataInfo.qListCategories.Open;
end;
3:begin
if DataInfo.qListMeasures.RecordCount=0 then
begin
MessageDlg('Список измерительных инструментов
пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Checks WHERE
MeasureId='+DataInfo.qListMeasures.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данная измерительный инструмент уже используется!
Удаление невозможно!',mtError,[mbOk],0);
Exit
end;
141
if MessageDlg('Вы действительно хотите удалить измерительный
инструмент
'+DataInfo.qListMeasures.FieldByName('MeasureName').asString+'?',mtConfirmation
,[mbYes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Measures where
Id='+DataInfo.qListMeasures.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListMeasures.Close;
DataInfo.qListMeasures.Open;
end;
4:begin
if DataInfo.qListNorms.RecordCount=0 then
begin
MessageDlg('Список норм пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From WareParams WHERE
NormId='+DataInfo.qListNorms.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данная норма уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;