|
#1
|
|||
|
|||
три таблицы
пишу первую программу по БД. Связал три таблицы customer,items,orders тдея такая: тыкаешь мышкой на строку в первой таблице, прога выдает количество CustNo во второй и колическво OrderNo для 3-й
Код:
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; |