пишу первую программу по БД. Связал три таблицы customer,items,orders тдея такая: тыкаешь мышкой на строку в первой таблице, прога выдает количество CustNo во второй и колическво OrderNo для 3-й
Код:
1 2 3 4 5 6 7 8 9 10 11 | procedure tform1 . FormCreate(sender:tobject);
var help1,help2,count1,count2: integer ;
begin help1:=Table1 . FieldValues[ 'CustNo' ];
help2:=Table2 . Fieldvalues[ 'OrderNo' ];
count1:= 0 ; count2:= 0 ;
if Table2 . FieldValues[ 'CustNo' ]=help1
then count1:=count1+ 1 ;
if Table3 . FieldValues[ 'OrderNo' ]=help2
then count2:=count2+ 1 ;
CustNo0 . Text:=inttostr(count1); OrderNo0 . Text:=inttostr(count2);
end ;
|
custNo0,orderNo0:tEdit