Search options (Page 312 of 400)

Kvanterman
Извиняюсь за задержку с ответом.

Пожалуйста, используйте для этого компонент Memo (Многострочное текстовое поле)

Приветствую,

вы можете создать вычисляемое поле, примерно такого содержания

fieldname1 || ' ' || fieldname2

затем добавить данное вычисляемое поле в настройки кнопки Поиск или в настройках компонента TableGrid

I think just forgot about it )

tcoton
Your script is incorrect, please try this, but this example works only in the latest beta version 1.50
https://www.dropbox.com/s/0m799p8qxh5kb … 0.zip?dl=0

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
    sPCName: string;
begin
    sPCName := Admin.EditPCName.sqlValue; // get current PCName

    Admin.TableGrid1.dbSQL:='SELECT PCName, id_Pc_Typ, Maint_details, Maint_Date FROM Maintenance WHERE PCName="'+sPCName+'"';
    Admin.TableGrid1.dbListFieldsNames :='PC Name,Model,Details Maint,Date Maint'; 
    Admin.TableGrid1.dbSQLExecute;
end;

also you can download the example
http://myvisualdatabase.com/forum/misc. … download=1
(fill TableGrid result of the SQL query using script)

Yes, in the event OnShow of main form, you should put code

Form1.ButtonExcel.Enabled := False;

To specify any colour, you can use the number hexadecimal
Example: Form1.Label1.Font.Color := $00DDEEFF;
where: FF - red, EE - green, DD - blue.

In addition, you can use the text label colours
Example: Form1.Label1.Font.Color := clWindowText;
Example: Form1.Label1.Font.Color := clRed;

The following list the color constants:
clBlack - Black
clMaroon - Maroon
clGreen - Green
clOlive - Olive green
clNavy - Navy blue
clPurple - Purple
clTeal - Teal
clGray - Gray
clSilver - Silver
clRed - Red
clLime - Lime green
clYellow - Yellow
clBlue - Blue
clFuchsia - Fuchsia
clAqua - Aqua
clWhite - White

The list the colors that map to the closest matching color in the system palette:
clDefault - The default color for the control to which the color is assigned.
clActiveBorder - Current border color of the active window.
clActiveCaption - Current color of the title bar of the active window.
clAppWorkSpace - Current color of the application workspace.
clBackground - Current background color of the Windows desktop.
clBtnFace - Current color of a button face.
clBtnHighlight - Current color of the highlighting on a button.
clBtnShadow - Current color of a shadow cast by a button.
clBtnText - Current color of text on a button.
clCaptionText - Current color of the text on the title bar of the active window.
clGradientActiveCaption - Windows 98 or Windows 2000: Right side color in the color gradient of an active window's title bar. clActiveCaption specifies the left side color.
clGradientInactiveCaption - Windows 98 or Windows 2000: Right side color in the color gradient of an inactive window's title bar. clInactiveCaption specifies the left side color.
clGrayText - Current color of text that is dimmed.
clHighlight - Current background color of selected text.
clHighlightText - Current color of selected text
clHotLight
clInactiveBorder - Current border color of inactive windows.
clInactiveCaption - Current color of the title bar of inactive windows.
clInactiveCaptionText - Current color of the text on the title bar of an inactive window.
clInfoBk - Windows 95 or NT 4.0 only: Background color for tool tip controls.
clInfoText - Windows 95 or NT 4.0 only: Text color for tool tip controls.
clMenu - Current background color of menus.
clMenuBar
clMenuHighlight
clMenuText - Current color of text on menus.
clScrollBar - Current color for the of scroll bar track.
cl3DDkShadow - Windows 95 or NT 4.0 only: Dark shadow for three-dimensional display elements.
cl3DLight - Windows 95 or NT 4.0 only: Light color for three-dimensional display elements (for edges facing the light source).
clWindow - Current background color of windows.
clWindowFrame - Current color of window frames.
clWindowText - Current color of text in windows.

Thank you for your ideas )

Example:

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
     Form1.ButtonExcel.Enabled := Form1.TableGrid1.RowCount>0;
end;

megood70
Sorry for delay.
Unfortunately the current version is not possible.

Sorry for delay.
Your application is to be expired after 60 days.

if frmOpozdun.dbAction = 'NewRecord' then 
begin
    frmOpozdun.ComboBox2.dbItemID := idOtdel;
    frmOpozdun.ComboBox2.DoOnChange;

    frmOpozdun.DateTimePicker1.MinDate := Trunc(now)-5; // минимальная возможная дата, сегодняшняя
end else frmAbonent.DateTimePicker1.MinDate := -1; // если например открыли для редактирования записи, то ограничение убираем 

но при редактировании опоздания, дату все же можно будет изменить.

Попробуйте так:

idUser := SQLExecute('SELECT id FROM users WHERE (login = ''' + frmLogin.edUser.Text + ''' AND (password='''+sHash+'''));');
idOtdel := SQLExecute ('SELECT id_Otdely FROM users WHERE id='+IntToStr(idUser));