cpamungkas

<button>Glowing</button>

cpamungkas

procedure TForm1.btn2Click(Sender: TObject);
begin
Edit1.Text := GeneratePWDSecutityString();
end;

cpamungkas

DELIMITER $$

DROP TRIGGER /*!50032 IF EXISTS */ `ujicobadb`.`tr_auto_jual`$$

CREATE
    /*!50017 DEFINER = 'root'@'localhost' */
    TRIGGER `tr_auto_jual` BEFORE INSERT ON `tx_jualan` 
    FOR EACH ROW BEGIN
	UPDATE tm_produk SET nQtyJual = (nQtyJual - new.nQty) WHERE sIdProduk=new.sIdProdukfk ;
    END;

cpamungkas

function GeneratePWDSecutityString: string;
const
  Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';
var
  i, x: integer;
  s1, s2: string;
begin
  s1 := Codes64;
  s2 := '';
  for i := 0 to 15 do