شما برای اینکار نیاز به یه کوئری ساده دارید .شما در فرم برداشت زمانی که کاربر میخواد مبلغ برداشت شده رو ذخیره کنه قبل از اینکه عملیات ذخیره انجام بشه میبایست شماره سریال چک رو با یک پارامتر به کوئری بفرستید . Select مربوط به کوئری رو به این صورت بنویسید :
ADOQuery1.SQL.Text := 'SELECT MABLAGH FROM VARIZ_CHECK WHERE CHECK_SERIAL = '+@CHECK_SERIAL;
بعد کوئری رو اجرا کنید :
with ADOQuery1 do
begin
Close;
Parameters.ParamByName('@CHECK_SERIAL').Value := Edit_CHECK_SERIAL.Text;
SQL;
Open;
end;
و در مرحله آخر هم میتونید کنید که اگر خروجی کوئری با مبلغ برداشت ناهماهنگ بود به کاربر پیغامی نمایش داده بشه و درخواست ذخیره اطلاعات لغو بشه :
if ADOQuery1.FieldByName('MABLAGH').AsFloat <> StrToFloat(Edit_CHECK_SERIAL.Text) then
begin
ShowMessage('Informations are incorrect');
Exit;
end;
---------------
موفق باشید .