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

Цитата(Lagarto @ 14.4.2009, 13:29

)

Возникла проблема вывода данных в dbgrid и stringgrid на главной форме приложения.

Цитата(Lagarto @ 14.4.2009, 14:29

)

по книги Шпака SQL как дважды два

Цитата(Lagarto @ 14.4.2009, 14:29

)

Возникла проблема вывода данных в dbgrid и stringgrid на главной форме приложения.

Цитата(Lagarto @ 14.4.2009, 14:29

)

Если кто набирал данное приложение

Цитата(Lagarto @ 14.4.2009, 14:29

)

или если же остались исходники кинуть на мыло [email protected]

Цитата(Lagarto @ 14.4.2009, 13:29

)

Возникла проблема

Цитата(Lagarto @ 14.4.2009, 18:07

)

в sringgrid выводиться так , но вывода не происходит

Цитата(Данкинг @ 14.4.2009, 17:16

)

Если вся твоя программа состоит из этой одной строчки, то вывода и не произойдёт. smile
А что - совсем ничего не происходит, да? smile

Цитата(Lagarto @ 14.4.2009, 17:07

)

Akella

в sringgrid выводиться так , но вывода не происходит

Cells[1,1] := FieldByName('DeptShortName').AsString;

Код

SringGrid1.Cells[1,1] := FieldByName('DeptShortName').AsString;

Код



procedure TfmMain.dsStaffDataChange(Sender: TObject; Field: TField);
begin
  with dmStaff_.sidsStaffMid, sgData do
  begin
    paCount.Caption := IntToStr(RecNo) + '/' +
      IntToStr(RecordCount);
    paCount.Caption := IntToStr(RecNo) + '/' +
    IntToStr(RecordCount);
    btnDeleteEmp.Enabled := RecNo > 0;
    btnEmpData.Enabled := btnDeleteEmp.Enabled;
    pmiDeleteEmp.Enabled := btnDeleteEmp.Enabled;
    pmiEmpData.Enabled := btnEmpData.Enabled;
    Cells[0,0] := 'Должностные данные';
    Cells[0,1] := 'Подразделение';
    Cells[0,2] := 'Должность';
    Cells[0,3] := 'Табельный номер';
    Cells[0,4] := 'Зарплата';
    Cells[0,5] := 'Личные данные';
    Cells[0,6] := 'Дата рождения';
    Cells[0,7] := 'Место рождения';
    Cells[0,8] := 'идентификационный код';
    Cells[0,9] := 'Паспорт';
    Cells[0,10] := 'Выдан';
    Cells[0,11] := 'Адрес';
    Cells[0,12] := 'Индекс';
    Cells[0,13] := 'Область/край';
    Cells[0,14] := 'Район';
    Cells[0,15] := 'Населенный пункт';
    Cells[0,16] := 'Улица, номер дома';
    Cells[0,17] := 'Телефон';
    Cells[1,1] := FieldByName('DeptShortName').AsString;
    Cells[1,2] := FieldByName('PosShortName').AsString;
    Cells[1,3] := FieldByName('TabNum').AsString;
    Cells[1,4] := FloatToStrF(FieldByName('Salary').AsFloat,ffCurrency, 15, 2);
    if FieldByName('BirthDate').IsNull
    then Cells[1,6] := ''
    else Cells[1,6] := DateToStr(FieldByName('BirthDate').AsDateTime);
    Cells[1,7] := FieldByName('BornPlace').AsString;
    Cells[1,8] := FieldByName('IdCode').AsString;
    if FieldByName('PasspNum').isNull
    then begin
      cells[1,9] := '';
      cells[1,10] := '';
    end else
    begin
      cells[1,9] :=
      FieldByName('PasspNum').AsString + ' от ' +
                     DateToStr(FieldByName('PasspDate').AsDateTime);
      cells[1,10] := FieldByName ('PasspOrg').AsString;
    end;
    Cells[1,12] := IntToStr(FieldByName('Zip').AsInteger);
    Cells[1,13] := FieldByName('Area').AsString;
    Cells[1,14] := FieldByName('Region').AsString;
    Cells[1,15] := FieldByName('City').AsString;
    Cells[1,15] := FieldByName('Street').AsString + ', '+
    FieldByName('House').AsString;
    Cells[1,17] := FieldByName('Tel').AsString;
  end;
end;

Код


procedure TfmMain.dsStaffDataChange(Sender: TObject; Field: TField);
begin
  with dmStaff_.sidsStaff, sgData do
...