Kod : Kodu kopyalamak için üzerine çift tıklayın!

         dialog new_table {
  title "Oper Gir"
  size -1 -1 121 82
  option dbu
  box "OperGir Paneli", 1, 3 2 115 77
  text " Oper Nick :", 2, 7 15 43 8
  edit "", 3, 47 11 58 12
  text " Oper Sifre :", 4, 8 30 44 8
  edit "", 5, 47 27 58 12
  button "Gir", 6, 44 41 34 14
  button "Hafizadan Gir", 7, 6 41 36 14
  button "Hafizayi Sil", 8, 80 41 36 14
  button "Kapat", 9, 10 60 101 12,ok
}
on *:dialog:new_table:*:*:{
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetDialog $dname bgcolor $rgb(230,245,252)
    mdx SetFont $dname 1,2,3,4,5,6 +b Turkish 11 900 Tahoma
    mdx SetColor $dname 1,2,3,4,5,6,7 textbg $rgb(230,245,252)
    mdx SetColor $dname 1,2,3,4,5,6,7 background $rgb(230,245,252)
    mdx SetColor $dname 1,2,3,4,5,6,7 text $rgb(0,0,100)
    did -a $dname 3 %opernick
    did -a $dname 5 %opersifre
  }
  if ($devent == sclick) {
    if ($did == 6) && $did(3) && $did(5) {
      set %opernick $did(3)
      set %opersifre $did(5)
      oper %opernick %opersifre
      dialog -x new_table
    }
    if ($did == 7) && %opernick && %opersifre { 
      oper %opernick %opersifre
    } 
    if ($did == 8) && %opernick && %opersifre {
      .unset %opernick | .unset %opersifre | /echo -a 4UYARI:Kayitli Oper Nick ve Oper Sifresi Silinmistir.Dialog tekrar acilinca Gorunmeyecektir.
    }
  }
}