on88Click (Sender: TObject); dblookupcombobox30.Text <>'' begin. Parameters.ParamValues ​​['@ n']: = dblookupcombobox30.KeyValue;. ExecProc;. Close;. Open;. Close;. Open; showmessage ('Замовлень немає'); TForm1.DBLookupComboBox42Click (Sender: TObject);. Caption: = dblookupcombobox42.KeyValue;. Visible: = true;. Visible: = true;;
end.
Додаток 3
Сценарій інсталяції програми
[setup] = Клієнтський додаток БД
AppVerName = 21 століття 1.0
AppPublisher = DefaultDirName = {pf} BD
DefaultGroupName = Клієнт БД
[Languages]: "ru"; MessagesFile: "compiler: Languages ​​ russian.isl"
[Types]: "custom"; Description: "Вибіркова установка"; Flags: iscustom;: "full"; Description: "Повна установка"
[Components]: "program"; Description: "Додаток"; Types: custom full;
[Files]
; Додаток: "project1.exe"; DestDir: "{app}"; CopyMode: alwaysoverwrite; Components: program
[Icons]
; Ярлик програми в головному меню
Name: "{group} Приклад"; Filename: "{app} project1.exe"; WorkingDir: "{app}"; Components: program
; Ярлик програми на робочому столі: "{userdesktop} Приклад"; Filename: "{app} project1.exe"; WorkingDir: "{app}"; Components: program : "{group} Видалити програму"; Filename: "{uninstallexe}"
