Библиотечный фонд

procedure TForm3.FormActivate(Sender: TObject);
var
  i : integer;
begin
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add ('SELECT * FROM sotrudniki');
  form1.ADOQuery1.Open;
 
  Label6.Caption := IntToStr (form1.ADOQuery1.RecordCount);
  SG.RowCount := form1.ADOQuery1.RecordCount + 1;
 
  i := 0;
 
  while not form1.ADOQuery1.Eof do
  begin
    inc (i);
 
    SG.Cells [0, i] := form1.ADOQuery1.FieldByName ('id_sotrudnik').AsString;
    SG.Cells [1, i] := form1.ADOQuery1.FieldByName ('FIO').AsString;
    SG.Cells [2, i] := form1.ADOQuery1.FieldByName ('login').AsString;
    SG.Cells [3, i] := form1.ADOQuery1.FieldByName ('password').AsString;
    SG.Cells [4, i] := form1.ADOQuery1.FieldByName ('E-mail').AsString;
 
    form1.ADOQuery1.Next;
    end;
end;
 
 
 
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  SG.Cells [0, 0] := '№';
  SG.Cells [1, 0] := 'ФИО';
  SG.Cells [2, 0] := 'Логин';
  SG.Cells [3, 0] := 'Пароль';
  SG.Cells [4, 0] := 'E-mail';
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
  if (form1.CloseQuery) then form1.Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  form1.ADOCommand1.CommandText := 'INSERT INTO [sotrudniki] ([FIO], [login]) VALUES ('''+ FIO.Text +''', '''+ login.Text +''')';
  form1.ADOCommand1.Execute;
 
  FormActivate (Sender);
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  Form1.ADOCommand1.CommandText := 'DELETE FROM [sotrudniki] WHERE [id_sotrudnik] = ' + SG.Cells[0, SG.Row];
  Form1.ADOCommand1.Execute;
 
  FormActivate (Sender);
end;

procedure TForm3.SGDblClick(Sender: TObject);
begin
  Form1.ADOQuery1.Close;
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Add('SELECT * FROM [sotrudniki] WHERE [id_sotrudnik] = ' + SG.Cells[0, SG.Row]);
  Form1.ADOQuery1.Open;
 
  form4.ID.Text := form1.ADOQuery1.FieldByName ('id_sotrudnik').AsString;
  form4.FIO.Text := form1.ADOQuery1.FieldByName ('FIO').AsString;
  form4.login.Text := form1.ADOQuery1.FieldByName ('login').AsString;
  form4.password.Text := form1.ADOQuery1.FieldByName ('password').AsString;
  form4.mail.Text := form1.ADOQuery1.FieldByName ('E-mail').AsString;
 
  Form4.ShowModal;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  Form1.ADOCommand1.CommandText := 'UPDATE [sotrudniki] SET [FIO] = '''+ FIO.Text +''', [login] = '''+ login.Text +''' WHERE ([id_sotrudnik] = ' + ID.Text + ')'; 
  Form1.ADOCommand1.Execute;
 
  Form3.FormActivate (Sender);
  Close;
end;

procedure TForm6.SGMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Button = mbRight then
      begin
  Form1.ADOQuery1.Close;   
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Add('SELECT * FROM [book] WHERE [id_book] = ' + SG.Cells[0, SG.Row]);
  Form1.ADOQuery1.Open;
 
  form9.ID.Text := form1.ADOQuery1.FieldByName ('id_book').AsString;
  form9.Val1.Text := form1.ADOQuery1.FieldByName ('genre').AsString;
  form9.Val2.Text := form1.ADOQuery1.FieldByName ('author').AsString;
  form9.Val3.Text := form1.ADOQuery1.FieldByName ('public_date').AsString;
  form9.Val4.Text := form1.ADOQuery1.FieldByName ('kol_str').AsString;
  form9.Val5.Text := form1.ADOQuery1.FieldByName ('kol_copy').AsString;
 
  Form9.ShowModal;
      end;
  end;

procedure TForm6.Edit1Change(Sender: TObject);
var i: integer;
  begin
   if Edit1.Text = '' then
    exit;
    begin
       for i := 0 to SG.RowCount - 1 do
   if pos(Edit1.Text, SG.Cells[2, i])>0 then //???????????
   begin
    SG.Row := i;
     end;
    end;
 end;

procedure TForm6.Value3KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['а' .. 'я']) or (Key in ['А' .. 'Я']) or (Key in ['a' .. 'z']) or (Key in ['A' .. 'Z']) or
    (Key in [' ']) then
  begin
    Key := #0;
    begin
      MessageDlg(
        'Для заполнения поля "Год издания" разрешено использовать только кириллицу', mtError, [mbOk], 0);
    end;
  end;
end;
 
end.

procedure TForm6.Button1Click(Sender: TObject);
begin
 
if ((Value1.Text <= '') or (Value2.Text <= '') or (Value3.Text <= '') or (Value4.Text <= '') or (Value5.Text <= '')) then
 
ShowMessage('Заполните все поля!')
 
else
 
if ((Value1.Text > '') or (Value2.Text > '') or (Value3.Text > '') or (Value4.Text > '') or (Value5.Text > '')) then
begin
  form1.ADOCommand1.CommandText := 'INSERT INTO [book] ([genre], [author], [public_date], [kol_str], [kol_copy]) VALUES ('''+ Value1.Text +''', '''+ Value2.Text +''', '''+ Value3.Text +''', '''+ Value4.Text +''', '''+ Value5.Text +''')';
  form1.ADOCommand1.Execute;
 
  FormActivate (Sender);
  end;
end;