Search options (Page 315 of 400)

procedure Form1_OnShow (Sender: string; Action: string);
var
   MyItem1: TMenuItem;
begin
   MyItem1 := TMenuItem.Create (Form1);
   MyItem1.Caption := 'My Item1';
   MyItem1.OnClick := @MenuClick1;

   Form1.GridEmployees.dbPopupMenu.Items.Insert(0, MyItem1);
end;

procedure MenuClick1;
begin
    ShowMessage('Hello from PopupMenu');
end;

begin
end.

function CheckDublicate (Action, sTable, sField, sValue: string; id: integer;): boolean;
var
   s: string;
   sIdSQL: string;

   arrFields: array of string;
   arrValues: array of string;

   sWhere: string;
   i,c: integer;
begin
    result := False;
    arrFields := SplitString(sField, ';');
    arrValues := SplitString(sValue, ';');
    if Length(arrFields) <> Length(arrFields) then exit;

    sWhere := '';
    c := Length(arrFields)-1;
    for i := 0 to c do
    begin
        if arrValues[i] <> 'NULL' then
            sWhere := sWhere + arrFields[i]+' LIKE ' + arrValues[i] + ' AND '
        else sWhere := sWhere + arrFields[i]+' IS NULL AND '
    end;

    if sWhere<>'' then SetLength(sWhere, Length(sWhere)-4);

    if Action = 'NewRecord' then
    begin
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE '+sWhere);
          if StrToInt(s) > 0 then result := True;
    end;

    if Action = 'ShowRecord' then
    begin
          if id <> -1 then sIdSQL := ' AND (id <> '+ IntToStr(id) +')';
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE ('+ sWhere +') ' + sIdSQL);
          if StrToInt(s) > 0 then result := True;
    end;
end;



procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    sFields, sValues: string;
begin
    sFields := 'lastname;firstname';
    sValues := frmEmployee.edLastName.sqlValue+';'+frmEmployee.edFistName.sqlValue;

   if CheckDublicate(frmEmployee.dbAction, 'employees', sFields, sValues, frmEmployee.ButtonSave.dbGeneralTableId) then
   begin
        ShowMessage('Person already exists.');
        Cancel := True;
   end;
end;

begin
end.

procedure Form1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
     if (Key = ORD('P')) and Shift and Ctrl then
     begin
          ShowMessage('Shift + Ctrl + P');
     end;
end;


begin
     Form1.KeyPreview := True;
end.

procedure CalculateTotal;
begin
    frmZakaz.edTotal.Value := frmZakaz.edCost.Value * frmZakaz.edQ.Value; // calculate
end;

procedure frmZakaz_edQ_OnChange (Sender: string);
begin
    CalculateTotal;
end;

procedure frmZakaz_edCost_OnChange (Sender: string);
begin
    CalculateTotal;
end;


begin

end.