小熊的幸福

begin       Query1.SQL.Clear;       Query1.SQL.Add(select CustNO, Company, City, State from customer.db);       Query1.SQL.Add(where country =(:countryName));       Query1.Params[0].AsString:=Edit

beginwith Table1 dobegin  Active := False;  DatabaseName := DOCTOR;  TableType := ttParadox;  TableName := DOCTORINF23;  if not Table1.Exists then begin     with FieldDefs do begin        Clear;