Search options (Page 5 of 15)

procedure ScaleForm  (F: TForm; ScreenWidth, ScreenHeight: LongInt) ;
begin

 F.Scaled := True;
 F.AutoScroll := False;
 F.Position := poDefaultPosOnly; //poScreenCenter;
 F.Font.Name := 'Arial';
 if (Screen.Width <> ScreenWidth) then
 begin
     F.Height :=  (F.Height * Screen.Height) div ScreenHeight;
     F.Width :=  (F.Width * Screen.Width) div ScreenWidth;
     F.ScaleBy(Screen.Width,ScreenWidth) ;
 end; 
end;

procedure CentreForm(Form: TForm);
begin
    with Form do
    begin
        Left := Application.frmMain.Left + (Application.frmMain.Width - Width) div 2;
        if Left < 0 then Left:=0;
        Top := Application.frmMain.Top + (Application.frmMain.Height - Height) div 2;
        if Top <0 then Top:=0;
   end;
end;

 ScaleForm(frmMain,1920,1080) ;

//OR

  CentreForm(frmMain);

procedure form1_btnUser_OnClick (Sender: TObject; var Cancel: boolean);
begin

    //frmdbCoreUsers.ShowModal;
    Form1.mniUsers.click;
end;

procedure Form1_btnPassword_OnClick (Sender: TObject; var Cancel: boolean);
begin

   //frmdbCoreUserForm.ShowModal;
   Form1.mniChangePassword.click;
   //frmdbCoreUserChangePwd.show;
end;

procedure frmAutoCloseSet_dtCloseSpanEnd_OnExit (Sender: TObject);
begin
  SQLExecute('UPDATE  _user SET closeEnd = "'+TimeToStr(frmAutoCloseSet.dtCloseSpanEnd.DateTime)+'" WHERE username = "'+ application.User.Username +'"');
end;

procedure frmAutoCloseSet_dtCloseSpanBegin_OnExit (Sender: TObject);
begin
  frmMain.lbTimeClose.Caption :=  frmMain.lbTimeClose.Caption + TimeToStr(frmAutoCloseSet.dtCloseSpanBegin.DateTime);
  SQLExecute('UPDATE  _user SET closeStart = "'+TimeToStr(frmAutoCloseSet.dtCloseSpanBegin.DateTime)+'" WHERE username = "'+ application.User.Username +'"');
end;

try
     frmAutoCloseset.dtCloseSpanBegin.DateTime := strToDateTime(SQLExecute('SELECT closeStart FROM _user WHERE username = "'+application.User.Username+'"'));
     frmAutoCloseset.dtCloseSpanEnd.DateTime := strToDateTime(SQLExecute('SELECT closeEnd FROM _user WHERE username = "'+application.User.Username+'"'));
     frmMain.lbTimeClose.Caption :=  frmMain.lbTimeClose.Caption + TimeToStr(frmAutoCloseSet.dtCloseSpanBegin.DateTime);
   except
     frmAutoCloseset.dtCloseSpanBegin.DateTime :=  Time;
     frmAutoCloseset.dtCloseSpanEnd.DateTime := (Time + 1);
     frmMain.lbTimeClose.Caption :=  frmMain.lbTimeClose.Caption + ' ';
   end;

var
  sHello: string;  // delete this

procedure HelloWorld (s: string);  //delete this procedure, you'll never use it.
begin
  ShowMessage(s);
end;

begin
  // just for example 
  sHello := 'Script said hello!';    //here is where you put the code for your login form if using the default form.
  HelloWorld(sHello);
end.

begin
  lbYourLabel := TLabel.Create(frmdbCoreLogin); //Whatever component must have component.create(frmdbCoreLogin)
  lbYourLabel.Left := 113;
  lbYourLabel.Top := 170;
  lbYourLabel.Width := 300;
  lbYourLabel.Height:= 15;
  lbYourLabel.Margins.Top :=10;
  lbYourLabel.Margins.Left :=10;
  lbYourLabel.Margins.Right :=10;
  lbYourLabel.Margins.Bottom := 10;
  lbYourLabel.Parent := frmdbCoreLogin;  //component.parent must be attached to frmdbCoreLogin
  lbYourLabel.Wordwrap := true;
  lbYourLabel.Caption := 'image copyright free from unsplash.com/photos/jXd2FSvcRr8';
  lbYourLabel.Visible := True;

  frmdbCoreLogin.Caption := 'MY Login form';
end.

procedure frmMain_tgOrders_OnChange (Sender: TObject);
CONST
    DATE_ORD = 5; DATE_PO = 7; DATE_REQ = 8; ORD_QTY = 9; ORDER_REC = 10; DUE = 11;
var
row, column, rowcnt, colcnt: integer;
begin

   rowcnt := frmMain.tgOrders.RowCount -1;
   colcnt := frmMain.tgOrders.Columns.Count -1;

   frmMain.tgOrders.BeginUpdate;
   for row := 0 to rowcnt do
   begin
       if frmMain.tgOrders.Cells[DUE,row] = '0' then     //Complete order received colour red/pink
       begin
           for column := 0 to colcnt do
           begin
               frmMain.tgOrders.Cell[column,row].Color := $00BDA8FD;
           end;
      end
      else
      
      {Part order received   colour Blue}
          if (frmMain.tgOrders.Cells[DUE,row] < frmMain.tgOrders.Cells[ORD_QTY,row])    then     //Complete order received
           begin
               for column := 0 to colcnt do
               begin                                       //light blue
                   frmMain.tgOrders.Cell[column,row].Color :=$00FFFFA8; // interesting brown $0065AACD;
               end;
          end
    
      else
    
        {Quote pending colour green}
          if (frmMain.tgOrders.Cells[DATE_REQ,row] <> '') AND (frmMain.tgOrders.Cells[DATE_PO,row] ='') then
           begin
               for column := 0 to colcnt do
               begin                                          //light green
                   frmMain.tgOrders.Cell[column,row].Color := $00B4F2B6;
               end;
          end
    
      else
    

    {To be ordered colour yellow}
    if  ((frmMain.tgOrders.Cells[DATE_ORD,row] = '')AND (frmMain.tgOrders.Cells[DATE_PO,row] ='') AND (frmMain.tgOrders.Cells[DATE_REQ,row]= '')) then
       begin
           for column := 0 to colcnt do
           begin                                          //light yellow
               frmMain.tgOrders.Cell[column,row].Color := $0080FFFF;
           end;
      end;

   end;
  frmMain.tgOrders.EndUpdate;

end;

 { Function to check if  combobox has had a new item added to it}

 frmEditPart.cmbEditCategory.dbItemID := add2ComboBox(frmEditPart.cmbEditCategory.text, frmEditPart.cmbEditCategory.dbItemID);



{function to allow selected comboboxes to have new data added to them directly}


function add2ComboBox (Sender: String;  indx: Integer): Integer;
begin
   if (indx = -1)  AND (Sender <> '') then
       begin
         SQLExecute('INSERT INTO table (field) VALUES ("'+Sender+'")');
         UpdateDatabase('TABLE');
         Result := Last_Insert_id;
         showmessage('TABLE updated with '+Sender )
      end
      else begin
       Result := indx;
   end;


end; 

procedure frmMyForm_grdTableGrid_OnCellClick (Sender: TObject; ACol, ARow: Integer);
var
    id: integer;
begin
   id := (frmMyForm.grdTableGrid.dbItemID); // Get ID

   id := id + 1; //increment ID

// use this if you want to fill the edit box before you do the database search
  frmMyForm.edtEditBox.Text := intToStr(id);  

 // use this if for some reason if you want to keep th eID number for use elswhere in your program
   frmMyForm.edtIDEditBox.Text := sqlExecute('SELECT id FROM TABLE WHERE id="'+intToStr(id)+'"');
end;

procedure frmMain_btnOpenPDF_OnClick (Sender: TObject; var Cancel: boolean);
var
  fName :string;
begin
  fName := SQLExecute('SELECT DISTINCT File_Filename FROM SomeTable WHERE id = '+frmMain.tgTable.SQLValue);
  OpenFile(fName); 

var
  fName :string;
begin
  fName := SQLExecute('SELECT DISTINCT File_Filename FROM SomeTable WHERE id = '+frmMain.tgTable.SQLValue);
  OpenFile(fName,'AcroRD32.exe');