Форум программистов [Powered by Invision Power Board]

Код


procedure TForm2.Button1Click(Sender: TObject);
begin
q := 'SELECT Продажа.Код AS Продажа_Код, Продажа.Категория,'+
  ' Продажа.Тип_стен, Продажа.Комнаты,Продажа.Планировка, Продажа.Телефон,'+
  ' Продажа.Площадь,Продажа.Этаж, Продажа.Комплектация, Продажа.Адрес,'+
  ' Продажа.Дата, Продажа.Заметка, Продажа.Цена, Продажа.Хозяин,Продажа.Хтелефон,'+
  ' Продажа.Статус, Категории.Код AS Категории_Код, Категории.Название AS Категории_Название,'+
  ' Планировка.Код AS Планировка_Код,Планировка.Название AS Планировка_Название,'+
  ' Тип_стен.Код AS Тип_стен_Код,Тип_стен.Название AS Тип_стен_Название '+
  ' FROM Тип_стен INNER JOIN (Планировка INNER JOIN (Категории INNER JOIN Продажа ON Категории.Код = Продажа.Категория) ON Планировка.Код = Продажа.Планировка)ON Тип_стен.Код = Продажа.Тип_стен' +
  ' Where  (Продажа.Статус ="Не продано")';
  begin
with Form1.AdoQuery1 do Begin
        insert;
  FieldByName('Категория').AsInteger := mas[ComboBox1.ItemIndex,1];
  FieldByName('Планировка').AsInteger := mas[ComboBox2.ItemIndex,1];;
  FieldByName('Тип_стен').AsInteger := mas[ComboBox3.ItemIndex,1];
  FindField('Комнаты').AsString:=Edit1.Text;
  FindField('Телефон').AsString:=Edit2.Text;
  FindField('Площадь').AsString:=Edit3.Text;
  FindField('Этаж').AsString:=Edit4.Text;
  FindField('Комплектация').AsString:=Edit5.Text;
  FindField('Адрес').AsString:=Edit6.Text;
  FindField('Цена').AsString:=Edit7.Text;
  FindField('Заметка').AsString:=Edit8.Text;
  FindField('Статус').AsString:= 'Не продано' ;
     Post;

 end;
  Form1.ADOQuery1.Active := False;
  Form1.ADOQuery1.SQL.Text := q;
  Form1.ADOQuery1.ExecSQL;
  Form1.ADOQuery1.Open;
end;
end;

Код


while not Form1.ADOTable1.Eof do
    begin
      ComboBox1.Items.Add(Form1.ADOTable1.Fields[1].AsString);
      mas[ComboBox1.Items.Count - 1,1] := Form1.ADOTable1.Fields[0].AsInteger;
      Form1.ADOTable1.Next;
    end;
  while not Form1.ADOTable2.Eof do
    begin
      ComboBox2.Items.Add(Form1.ADOTable2.Fields[1].AsString);
      mas[ComboBox2.Items.Count - 1,2] := Form1.ADOTable2.Fields[0].AsInteger;
      Form1.ADOTable2.Next;
    end;
  while not Form1.ADOTable3.Eof do
    begin
      ComboBox3.Items.Add(Form1.ADOTable3.Fields[1].AsString);
      mas[ComboBox3.Items.Count - 1,3] := Form1.ADOTable3.Fields[0].AsInteger;
      Form1.ADOTable3.Next;
    end;