Input Query Çoklu Değişken:
- Kullanıcı girişi için girilen değerler boşluktan farklı ise veritabanı sistemine bağlanan yapı aşağıdaki gibidir:
procedure dbBaglan(ext:string;userName:string=' ';Password:string=' ');
begin
ext:= "bir farklı veritabanına bağlanma durumunda, dosya uzantısının parametre şeklinde alınması";
userName:="bazı veritabanı bağlantılarında giriş kontrolü olmadığından default değer boş";
password:="bazı veritabanı bağlantılarında giriş kontrolü olmadığından default değer boş";
end;
Not: Aşağıdaki yapı userName ve Pass isteyen db bağlantılar için oluşturuldu.
var
vars:array of string;
vars[0]:=userName;
vars[1]:=Password;
if InputQuery('Kullanıcı Girişi',['Kullanıcı Adı','Şifre'],Vars,
function (const Values: array of string): Boolean
begin
Result := (Values[0]>' ') and (Values[1]>' ');
end) then
begin
dbBaglan(ext,userName,Password);
end else raise Exception.Create('Kullanıcı Girişi Hatası');
