146
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;
end;
procedure TfrmRefer.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
147
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;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
148
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;
149
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;
150
end;
1:begin
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
151
if DataInfo.qListNorms.RecordCount=0 then
begin
MessageDlg('Список норм пустой!',mtWarning,[mbOk],0);
Exit
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;
152
if c>0 then
begin
MessageDlg('Данный свои пользователь того уже используется! Удаление базе
невозможно! ',mtError,[mbOk],0);
Exit
end;
if MessageDlg('Вы действительно есть хотите срок удалить всех пользователя пика
'+DataInfo.qListUsers.FieldByName('UserName').asString+'?',mtConfirmation,[m
bYes, 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;
153
if c>0 then
begin
MessageDlg('Данный базе тип уже используется! Удаление день
невозможно! ',mtError,[mbOk],0);
Exit
end;
if MessageDlg('Вы действительно базу хотите файл удалить порт тип
'+DataInfo.qListTypes.FieldByName('TypeName').asString+'?',mtConfirmation,[m
bYes, 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;
154
if c>0 then
begin
MessageDlg('Данная день категория себя уже используется! Удаление виды
невозможно! ',mtError,[mbOk],0);
Exit
end;
if MessageDlg('Вы действительно хотите удалить категорию
'+DataInfo.qListCategories.FieldByName('CategoryName').asString+'?',mtConfirm
ation,[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;
155
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данная измерительный инструмент уже используется!
Удаление невозможно!',mtError,[mbOk],0);
Exit
end;
if MessageDlg('Вы действительно хотите удалить измерительный
инструмент
'+DataInfo.qListMeasures.FieldByName('MeasureName').asString+'?',mtConfirma
tion,[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;