Сравнение всех значений поля в одной таблице со значением одного поля в другой

@Зульчик · Регистрация: 18.06.2015

Author24 — интернет-сервис помощи студентам

Пожалуйста помогите! БД в Access. Две таблицы id и ip. Поле pn таблицы id связан с полем id таблицы ip связью один-к-одному. Нужно чтобы при нажатии кнопки (таблица id) сравнивались значение поля выделенной записи в DBGrid с значением полей таблицы ip.если в этой таблице нет полей с таким значением открывается форма для редактирования таблицы ip и значение pn копируется в поле id.Если есть, то копирования не должно происходить, выводится сообщение. у меня почему то форма все равно открывается и значение копируется. Я начинающая только. Пожалуйста помогите!

Delphi

procedure Tid.BitBtn1Click(Sender: TObject);
begin
if DataModule2.ipTable.FieldByName('id').Value=DBGrid1.DataSource.DataSet.Fields.Fields[0].Value
   then  begin
ShowMessage ('По данному документу уже заведено дело');
end
 else
  begin
 DataModule2.ipTable.Edit;
 DataModule2.ipTable.Insert;
DataModule2.ipTable.FieldByName('id').Value:=DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;
Form14.showModal;
end;
 end;

@krapotkin · 07.06.2016, 17:17

мы говорим поиск - подразумеваем SQL

Delphi

query.SQL.Text:='select count(*) as C from вашатаблица where вашеполе='+edit1.text;
query.Open;
found:=query.FieldByName('C').asinteger>0
query.Close;
 
if found then
  showmessage('Такое значение уже есть!');

@nurgali899 · 11.06.2016, 11:20

ДД! Можете помочь, никак не могу сделать фильтр и вывести значения.
Есть StringGrid. На первой колонне ячейки с разными значениями, которые могут повторятся.
пример:
а
б
а
а
а
в

Нужно сделать фильтр и вывести на второй колонне (не обезательно) список всех значении с первой колонны.
Результат должен быть таким:
а а
б б
а в
а
а
в

Сделал вот так, но так фильтрует только до второго значения.

Delphi

StringGrid1.Cells[1,1]:=StringGrid1.Cells[2,1];
 
 with StringGrid1 do //дальше добавляю строку сдвигом вниз
  begin
  RowCount:= RowCount+1; //Увеличиваем количество строк на 1
  for c:= 0 to RowCount-3 do  //Сдвигаем содержимое таблицы вниз
    for e:=0 to StringGrid1.ColCount-1 do // Переносим на одну строчку меньше
      Cells[e, RowCount-1-c]:= Cells[e, RowCount-2-c];
  for e:=0 to ColCount-1 do  Cells[e,1]:=''; //очищаем от содержимого первую (после фиксированной) строку
  end;
 
for e:=1 to StringGrid1.RowCount -1 do
while StringGrid1.Cells[1,1+e]<>StringGrid1.Cells[2,2] do
StringGrid1.Cells[1,1+e]:=StringGrid1.Cells[2,1];

@krapotkin · 11.06.2016, 19:13

чтобы не путаться в i/j/k пользуйтесь естественным языком
тогда
для каждого значения из колонки 0
если в колонке 1 такого значения нет, то добавить его туда

итого

Delphi

for i:=grid.FixedRows + grid.RowCount-1 do
begin
  if not ValueFound(grid.cells[0,i]) then
     ValueAdd(grid.cells[0,i]);
end;
.....
 
 
function TForm1.ValueFound(s:string);
var i:integer;
begin
 result := false;
 for i:=grid.FixedRows to grid.RowCount-1 do
 begin
    result:=grid.Cells[1,i]=s;
    if result then 
       exit;
 end;
end;
 
procedure TForm1.AddValue(s:string);
var i:integer;
begin
  for i:=grid.FixedRows to grid.RowCount-1 do
  begin
    if (grid.cells[1,i]='') then
    begin
      grid.cells[1,i]:=s;
      exit;
    end;
  end;
end;

@nurgali899 · 12.06.2016, 18:12

krapotkin, Огромное спасибо за ответ. Там были некоторые ошибки
Вот рабочий код

Delphi

procedure AddValue(s:string);
function ValueFound(s:string): Boolean;
...
 
 for e:=StringGrid1.FixedRows to StringGrid1.RowCount-1 do
begin
  if not ValueFound(StringGrid1.cells[4,e]) then
      AddValue(StringGrid1.cells[4,e]);
...
 
function TForm1.ValueFound(s:string):Boolean;
var e:integer;
begin
 result := false;
 for e:=1 to StringGrid1.RowCount-1 do
 begin
    result:=StringGrid1.Cells[5,e]=s;
    if result then
       exit;
 end;
end;
 
procedure TForm1.AddValue(s:string);
var e:integer;
begin
  for e:=StringGrid1.FixedRows to StringGrid1.RowCount-1 do
  begin
    if (StringGrid1.cells[5,e]='') then
    begin
      StringGrid1.cells[5,e]:=s;
      exit;
    end;
  end;

Только единственное, он выдает один лишний повторяющиеся значение - самое первое. Но это не так важно, можно просто удалить его.

	12.06.2016, 18:12

Опции темы