main.dfm

一般的数据库管理系统 uses Classes, SConnectEx, TltConst, ExtCtrls, MMSystem, Types, windows, TltLogic , Sy

object MainForm: TMainForm
  Left = 227
  Top = 118
  Width = 800
  Height = 600
  Caption = #31649#29702#31471
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = 248
    Top = 56
    object N3: TMenuItem
      Caption = #31995#32479
      object N14: TMenuItem
        Action = Action6
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N111: TMenuItem
        Caption = #38145#20303#26381#21153#22120
        Visible = False
        OnClick = N111Click
      end
      object N112: TMenuItem
        Caption = #35299#38145#26381#21153#22120
        Visible = False
        OnClick = N112Click
      end
      object N22: TMenuItem
        Action = ActionChangePassword
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Action = CloseAction
      end
    end
    object f1: TMenuItem
      Caption = #26381#21153
      object N17: TMenuItem
        Action = PauseGameAction
      end
      object N19: TMenuItem
        Action = ResumeAction
      end
      object N27: TMenuItem
        Caption = '-'
      end
      object N16: TMenuItem
        Action = ResetGameAction
      end
      object N28: TMenuItem
        Caption = '-'
      end
      object N29: TMenuItem
        Action = StopAction
      end
      object N30: TMenuItem
        Action = StopOnRoundEndAction
      end
    end
    object j1: TMenuItem
      Action = RoundMonitorAction
    end
    object N1: TMenuItem
      Caption = #29609#23478
      object N5: TMenuItem
        Caption = #29609#23478#31649#29702
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object N7: TMenuItem
        Action = DownloadPlayerinfoAction
      end
      object N8: TMenuItem
        Action = UpLoadPlayerInfoAction
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object x1: TMenuItem
        Action = DownloadPlayerBetLogAction
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object q1: TMenuItem
        Action = ClearPlayerInfoAction
      end
      object N26: TMenuItem
        Action = ClearPlayerBetLogAction
      end
    end
    object c1: TMenuItem
      Caption = #28216#25103
      object N23: TMenuItem
        Action = DownLoadGameLogAction
      end
      object N24: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Action = ClearGameLogAction
      end
    end
    object N2: TMenuItem
      Caption = #31383#20307
      object N9: TMenuItem
        Action = WindowArrange1
      end
      object N10: TMenuItem
        Action = WindowCascade1
      end
      object N11: TMenuItem
        Action = WindowMinimizeAll1
      end
      object N12: TMenuItem
        Action = WindowTileHorizontal1
      end
      object N13: TMenuItem
        Action = WindowTileVertical1
      end
    end
  end
  object ActionManager1: TActionManager
    OnUpdate = ActionManager1Update
    Left = 280
    Top = 56
    StyleName = 'XP Style'
    object CloseAction: TAction
      Caption = #20851#38381
      OnExecute = CloseActionExecute
    end
    object Action1: TAction
      Caption = #28216#25103#31649#29702
    end
    object Action2: TAction
      Caption = #29992#25143#31649#29702
    end
    object Action3: TAction
      Caption = #25805#20316#21592#31649#29702
    end
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = #24179#38138
      Enabled = False
      Hint = 'Cascade'
      ImageIndex = 17
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = #27700#24179#25490#21015
      Enabled = False
      Hint = 'Tile Horizontal'
      ImageIndex = 15
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = #22402#30452#25490#21015
      Enabled = False
      Hint = 'Tile Vertical'
      ImageIndex = 16
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = #26368#23567#21270
      Enabled = False
      Hint = 'Minimize All'
    end
    object WindowArrange1: TWindowArrange
      Category = 'Window'
      Caption = #25490#21015
      Enabled = False
    end
    object RoundMonitorAction: TAction
      Caption = #30417#25511
      OnExecute = RoundMonitorActionExecute
    end
    object SettingAction: TAction
      Caption = #28216#25103#35774#32622
    end
    object UpLoadPlayerInfoAction: TAction
      Caption = #19978#20256#29609#23478#25968#25454
      OnExecute = UpLoadPlayerInfoActionExecute
    end
    object DownloadPlayerinfoAction: TAction
      Caption = #19979#36733#29609#23478#25968#25454
      OnExecute = DownloadPlayerinfoActionExecute
    end
    object Action6: TAction
      Caption = #36830#25509
      OnExecute = Action6Execute
    end
    object ResetGameAction: TAction
      Caption = #37325#21551#28216#25103#26381#21153
      OnExecute = ResetGameActionExecute
    end
    object PauseGameAction: TAction
      Caption = #26242#20572
      OnExecute = PauseGameActionExecute
    end
    object ResumeAction: TAction
      Caption = #32487#32493
      OnExecute = ResumeActionExecute
    end
    object ClearPlayerInfoAction: TAction
      Caption = #28165#38500#29609#23478#36164#26009
      OnExecute = ClearPlayerInfoActionExecute
    end
    object DownloadPlayerBetLogAction: TAction
      Caption = #19979#36733#29609#23478#19979#27880#26085#24535
      OnExecute = DownloadPlayerBetLogActionExecute
    end
    object DownLoadGameLogAction: TAction
      Caption = #19979#36733#28216#25103#26085#24535
      OnExecute = DownLoadGameLogActionExecute
    end
    object ClearPlayerBetLogAction: TAction
      Caption = #28165#38500#29609#23478#19979#27880#26085#24535
      OnExecute = ClearPlayerBetLogActionExecute
    end
    object ClearGameLogAction: TAction
      Caption = #28165#38500#28216#25103#26085#24535
      OnExecute = ClearGameLogActionExecute
    end
    object QueryGameLogAction: TAction
      Caption = #26597#35810#28216#25103#26085#24535
    end
    object StopAction: TAction
      Caption = #20572#27490#28216#25103
      OnExecute = StopActionExecute
    end
    object StopOnRoundEndAction: TAction
      Caption = #22312#26412#30424#32467#26463#26102#26242#20572#28216#25103
      Visible = False
      OnExecute = StopOnRoundEndActionExecute
    end
    object ActionChangePassword: TAction
      Caption = #20462#25913#23494#30721
      OnExecute = ActionChangePasswordExecute
    end
  end
  object Timer1: TTimer
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 312
    Top = 56
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 248
    Top = 24
  end
  object OpenDialog1: TOpenDialog
    Left = 280
    Top = 24
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = 'xls'
    Filter = 'Excel'#25991#20214'|*.xls'
    Left = 312
    Top = 24
  end
end