fmain.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 212 行

# Gambas Form File 1.0

{ FMain Form
  Move(384,110,579,502)
  Text = ("Gambas Database Manager")
  Icon = Picture["img/16/database-manager.png"]
  { mnuConnection Menu
    Text = ("&Server")
    { mnuNew Menu
      Text = ("&New server...")
      Picture = Picture["img/16/host-new.png"]
      Shortcut = "Ctrl+N"
    }
    { mnuScan Menu
      Text = ("&Scan database servers")
      Picture = Picture["img/16/magic.png"]
    }
    { Menu1 Menu
      Text = ("")
    }
    { mnuRefresh Menu
      Text = ("&Close all")
    }
    { mnuKillAll Menu
      Text = ("Re&move all servers")
      Picture = Picture["img/16/delete.png"]
    }
    { Menu2 Menu
      Text = ("")
    }
    { mnuQuit Menu
      Text = ("&Quit")
      Picture = Picture["img/16/quit.png"]
      Shortcut = "Ctrl+Q"
    }
  }
  { mnuServer Menu
    Text = ("")
    Visible = False
    { mnuOpenConnection Menu
      Text = ("&Open")
      Picture = Picture["img/16/host-open.png"]
    }
    { mnuCreateDatabase Menu
      Text = ("&Create database...")
      Picture = Picture["img/16/database-new.png"]
    }
    { mnuPasteDatabase2 Menu mnuPasteDatabase
      Text = ("&Paste database...")
      Picture = Picture["img/16/paste.png"]
    }
    { mnuCreateUser Menu
      Text = ("&Create user...")
      Picture = Picture["img/16/user-new.png"]
    }
    { Menu3 Menu
      Text = ("")
    }
    { mnuRefreshServer Menu
      Text = ("&Close")
      Picture = Picture["img/16/close.png"]
    }
    { mnuCloseServer Menu
      Text = ("&Remove")
      Picture = Picture["img/16/delete.png"]
    }
  }
  { mnuDatabase Menu
    Text = ("")
    Visible = False
    { mnuCreateDatabase2 Menu mnuCreateDatabase
      Text = ("&Create...")
      Picture = Picture["img/16/database-new.png"]
    }
    { mnuPasteDatabase Menu
      Text = ("&Paste...")
      Picture = Picture["img/16/paste.png"]
    }
    { mnuOpenDatabase Menu
      Text = ("&Open")
      Picture = Picture["img/16/database-open.png"]
    }
    { Menu10 Menu
      Text = ("")
    }
    { mnuCreateTable Menu
      Text = ("&Create table...")
      Picture = Picture["img/16/table-new.png"]
    }
    { mnuPasteTable2 Menu mnuPasteTable
      Text = ("&Paste table...")
      Picture = Picture["img/16/paste.png"]
    }
    { mnuRequest Menu
      Text = ("&SQL request...")
      Picture = Picture["img/16/sql.png"]
    }
    { mnuSepEncoding Menu
      Text = ("")
    }
    { mnuMakeCode Menu
      Text = ("&Make Gambas code...")
      Picture = Picture["img/16/gambas.png"]
    }
    { mnuUseDatabaseEncoding Menu
      Text = ("-")
    }
    { mnuShowSystemTables Menu
      Text = ("Show system tables")
    }
    { mnuSepEncoding2 Menu
      Text = ("")
    }
    { mnuCopyDatabase Menu
      Text = ("&Copy")
      Picture = Picture["img/16/copy.png"]
    }
    { mnuDeleteDatabase Menu
      Text = ("&Delete")
      Picture = Picture["img/16/delete.png"]
    }
    { Menu8 Menu
      Text = ("")
    }
    { mnuRefreshDatabase Menu
      Text = ("&Refresh")
      Picture = Picture["img/16/refresh.png"]
    }
    { mnuCloseDatabase Menu
      Text = ("&Close")
      Picture = Picture["img/16/close.png"]
    }
  }
  { mnuUser Menu
    Text = ("")
    Visible = False
    { mnuCreateUser2 Menu mnuCreateUser
      Text = ("&Create...")
      Picture = Picture["img/16/user-new.png"]
    }
    { mnuEditUser Menu
      Text = ("&Edit...")
      Picture = Picture["img/16/user.png"]
    }
    { Menu5 Menu
      Text = ("")
    }
    { mnuDeleteUser Menu
      Text = ("&Delete")
      Picture = Picture["img/16/delete.png"]
    }
  }
  { mnuTable Menu
    Text = ("")
    Visible = False
    { mnuCreateTable2 Menu mnuCreateTable
      Text = ("&Create...")
      Picture = Picture["img/16/table-new.png"]
    }
    { mnuPasteTable Menu
      Text = ("&Paste...")
      Picture = Picture["img/16/paste.png"]
    }
    { mnuOpenTable Menu
      Text = ("&Edit...")
      Picture = Picture["img/16/table.png"]
    }
    { mnuRenameTable Menu
      Text = ("&Rename...")
      Picture = Picture["img/16/rename.png"]
      Visible = False
    }
    { Menu6 Menu
      Text = ("")
    }
    { mnuRequest2 Menu mnuRequest
      Text = ("&SQL request...")
      Picture = Picture["img/16/sql.png"]
    }
    { Menu9 Menu
      Text = ("")
    }
    { mnuCopyTable Menu
      Text = ("&Copy")
      Picture = Picture["img/16/copy.png"]
    }
    { mnuDeleteTable Menu
      Text = ("&Delete")
      Picture = Picture["img/16/delete.png"]
    }
  }
  { mnuHelp Menu
    Text = ("&?")
    { mnuAbout Menu
      Text = ("About...")
      Picture = Picture["img/16/about.png"]
    }
  }
  { splBase HSplit
    Move(8,8,552,440)
    { tvwBase TreeView
      Move(24,40,176,336)
      Sorted = True
      ScrollBar = Scroll.Vertical
    }
    { panBase Panel
      Move(240,40,232,320)
      Arrangement = Arrange.Fill
    }
  }
}