私の意図:
ユーザーがアーティストを選択すると、ディスコグラフィコンボ ボックスが特定のアーティストのディスコグラフィでいっぱいになります。
コード:
qDisco ( TSQLQuery
) は、cbDisco ( ) にバインドされたデータTComboBox
であり、次の SQL が含まれています。
SELECT DISTINCT discography
FROM Album
INNER JOIN Artist
ON Album.artist_id = Artist.id
WHERE Artist.name = :artist;
:artist
パラメータは、次のコードによって設定されます。
procedure Tmain.cbArtistChange(Sender: TObject);
begin
qDisco.ParamByName('artist').Value := cbArtist.Items[cbArtist.ItemIndex];
end;
:artist
param が の現在の項目の値を格納することを確認しましたcbArtist
が、アプリケーションをコンパイルすると、値cbDiscography
が入力されないままになります。
これを機能させるにはどうすればよいですか?