Использование DevExpress (часть 3) - [5] :: Прикладное программирование

sldaac, вот я из справки взял:

Код:

procedure TfmNewArrival.RecalcSelected(ARowIndex: Integer; ARowInfo: TcxRowInfo);
Var
id:integer;
begin
with dbgArrivalDet.DataController do begin
//Test whether a row is a data record
if ARowInfo.Level = Groups.GroupingItemCount then
//unbound or provider mode
with dm do begin
id := Values[ARowInfo.RecordIndex, dbgArrivalDetID.Index];
if tArrivalDet.Locate('ID',id,[]) then begin
tArrivalDet.Edit;

if tArrivalDetIS_FIXED_NACENKA.Value = true then begin
tArrivalDetPRICE_RETAIL.AsVariant := tArrivalDetPRICE_W_VAT.AsVariant * tArrivalDetVAL_FIXED_NACENKA.Value;
end else begin
tArrivalDetPRICE_RETAIL.AsVariant := tArrivalDetPRICE_W_VAT.AsVariant * ceCoeff.Value;
end;

tArrivalDet.post;
end;//if tArrivalDet.Locate('ID',id,[]) then begin
end;//with dm do begin
end;//with dbgArrivalDet.DataController do begin
end;

Обрабатываем выделенные записи

Код:

procedure TfmNewArrival.bRecalcSelectedClick(Sender: TObject);
begin
with dbgArrivalDet.DataController do
begin
BeginUpdate;
try
ForEachRow(True, RecalcSelected);
finally
EndUpdate;
end;
end;
end;

Добавлено:
Цикл

Код:

//добавляем в таблицу для экспорта видимые записи таблицы
with dbgReklama.ViewData do begin
for i := 0 to RecordCount-1 do begin
if not VarIsNull(Records[i].Values[dbgReklamaID.Index]) then
dm.SP_SET_REC_TO_EXPORT.ParamByName('IN_ID').Value := Records[i].Values[dbgReklamaID.Index];
dm.SP_SET_REC_TO_EXPORT.ExecProc;
end;//for
end;//with dbgReklama.ViewData do begin

здесь по выделенным:

Код:

for i := 0 to dbgReklama.ViewData.RecordCount - 1 do begin
if dbgReklama.ViewData.Records[i].Selected then begin
sl1.Text := G_ReplaceStr(dbgReklama.ViewData.Records[i].Values[dbgReklamaDATAS.Index], ',',#13);
for k := 0 to sl1.Count - 1 do
if sl1[k] <> '' then Inc(iCount);

end;//if
end;//for

тоже кусок кода по выделенные записям

Код:

for i := 0 to dbgReklama.DataController.GetSelectedCount - 1 do begin
sDatas := dbgReklama.Controller.SelectedRows[i].Values[dbgReklamaDATAS.Index];

Код:

for i := 0 to dbgReklama.DataController.GetSelectedCount - 1 do
with dbgReklama.Controller.SelectedRows[i] do begin
dm.SP_SET_PNONES.ParamByName('in_id').Value := Values[dbgReklamaID.Index];
dm.SP_SET_PNONES.ParamByName('in_phone').Value := Values[dbgReklamaPHONE.Index] + ', ' + fmSelPhones.edTel.Text;
dm.SP_SET_PNONES.ExecProc;
end;//with

и опять по выделенным

Код:

for i := 0 to dbgReklama.ViewData.RecordCount - 1 do begin
if dbgReklama.ViewData.Records[i].Selected then begin
sID := IntToStr(dbgReklama.ViewData.Records[i].Values[dbgReklamaID.Index]);
DM.dbJDN.Execute('execute procedure SP_SET_EXPIREDATE_TOMORROW('+ sID + ')');
end;
end;

----------
/не мы такие, жизнь такая/

Модерирует : ShIvADeSt
ShIvADeSt (31-12-2009 04:49): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=10884	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121