Процедура для Form1
var
Ed1,Ed2:Integer;
i:=Integer;
begin
Ed1:=strtoint(Edit1.text);
Ed2:=strtoint(Edit2.text);
i:=(Ed1+Ed2)
end.
Процедура для Form2 (show)
StrigGrid.Cells[6,5]:=Form1.i.text; //Поправте плиз эту строчку, не могу вспомнить как правильно переменную отобразить.
Как обратиться к таблице (Access)?
StrigGrid.Cells[6,5]:=Таблица "Цены".Поле-Отпускная.Строчка 3я.
Поправте плиз.
:)
И ещё:
:)
Как отобразить переменную в StrigGrid?
[COLOR=Red]Для оформления кода надо использовать тэги code (см. Правила раздела Delphi). Получаешь нарушение -5. В следущий раз просто удалю тему. Модератор.[/COLOR]
Поправте плиз.
:)
И ещё:
:)
Как отобразить переменную в StrigGrid?
Код:
[COLOR=Red]Для оформления кода надо использовать тэги code (см. Правила раздела Delphi). Получаешь нарушение -5. В следущий раз просто удалю тему. Модератор.[/COLOR]
А в чем проблема то, присваиваеш правильно
StrigGrid.Cells[6,5]:=IntToStr(Form1.i);
Только i объяви в правильном месте, чтобы ее сразу из двух функций видно было.
По событиюпервой формы я загоняю переменную в стринг
Form2.String.Cells[1,3]:=floattostr(i);//всё ОК всё получается..
А вот по событию showform2:
Strig.Cells[1,3]:=floattostr(i)//Не получается тормоз на этой строчке
А где переменную объявлять правильно
Form2.String.Cells[1,3]:=floattostr(i);//всё ОК всё получается..
А вот по событию showform2:
Strig.Cells[1,3]:=floattostr(i)//Не получается тормоз на этой строчке
А где переменную объявлять правильно
Цитата:
правильном месте
??
Если обе процедуры в одном модуле, то можешь в разделе var, там где объявлена форма :
var
Form1: TForm1;
i: Integer;
var
Form1: TForm1;
i: Integer;
Получилось! Спасибо
А к таблице Access то как обратиться?
Расскажите в двух, нет в трех словах, какие компоненты кинуть или без них можно?
У меня сейчас DataSours и AdoTable присутствуют........
Я буду по артикулу идентифицировать......
Расскажите в двух, нет в трех словах, какие компоненты кинуть или без них можно?
У меня сейчас DataSours и AdoTable присутствуют........
Я буду по артикулу идентифицировать......
Цитата: DenisRip
А к таблице Access то как обратиться?
Расскажите в двух, нет в трех словах, какие компоненты кинуть или без них можно?
Расскажите в двух, нет в трех словах, какие компоненты кинуть или без них можно?
В трех словах:
[TADOConnection], TDataSource, TADOQuery/TADOTable
Цитата: DenisRip
У меня сейчас DataSours и AdoTable присутствуют........
В принципе, спартанский набор:) Я использую TQuery вместо TTable.
Цитата:
В трех словах:
[TADOConnection], TDataSource, TADOQuery/TADOTable
[TADOConnection], TDataSource, TADOQuery/TADOTable
Это что???
Мне надо: АDOTable.Field-3.строка 7я...........
Как это реализовать?
Цитата: DenisRip
Это что???
Мне надо: АDOTable.Field-3.строка 7я...........
Как это реализовать?
Мне надо: АDOTable.Field-3.строка 7я...........
Как это реализовать?
Это компоненты
TADOConnection - здесь строка с соедниением к БД
У TDataGrid в свойстве DataSource - экземпляр TDataSource, у которого, в свою очередь в свойстве DataSet - экземпляр TADOQuery.
А дальше реализовать... как удобно - хоть например так:
Код:
DataModule_Main.ADOQuery1.SQL.Clear();
DataModule_Main.ADOQuery1.SQL.Add(sSQLRequest);
DataModule_Main.ADOQuery1.Active := true;
nRecordsCount := DataModule_Main.ADOQuery1.Recordset.RecordCount;
nFieldsCount := DataModule_Main.ADOQuery1.Recordset.Fields.Count;
for i := 0 to nRecordCount - 1 do begin
for j := 0 to nFieldsCount - 1 do begin
if(Not DataModule_Main.ADOQuery1.Recordset.EOF) then begin
{Значение поля}
(DataModule_Main.ADOQuery1.Recordset.Fields[j].Value);
end;
end;
DataModule_Main.ADOQuery1.Recordset.MoveNext();
end;
DataModule_Main.ADOQuery1.SQL.Add(sSQLRequest);
DataModule_Main.ADOQuery1.Active := true;
nRecordsCount := DataModule_Main.ADOQuery1.Recordset.RecordCount;
nFieldsCount := DataModule_Main.ADOQuery1.Recordset.Fields.Count;
for i := 0 to nRecordCount - 1 do begin
for j := 0 to nFieldsCount - 1 do begin
if(Not DataModule_Main.ADOQuery1.Recordset.EOF) then begin
{Значение поля}
(DataModule_Main.ADOQuery1.Recordset.Fields[j].Value);
end;
end;
DataModule_Main.ADOQuery1.Recordset.MoveNext();
end;