tscmain.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

object TscMainForm: TTscMainForm
  Left = 126
  Top = 75
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #28009#26198#39044#35686#26381#21153#22120
  ClientHeight = 415
  ClientWidth = 629
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Pitch = fpFixed
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 629
    Height = 41
    AutoSize = True
    BorderWidth = 1
    ButtonHeight = 35
    ButtonWidth = 31
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = ActStart
      AutoSize = True
      Caption = #21551#21160
    end
    object ToolButton2: TToolButton
      Left = 35
      Top = 0
      Action = ActStop
      AutoSize = True
      Caption = #20572#27490
    end
    object ToolButton4: TToolButton
      Left = 70
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton3: TToolButton
      Left = 78
      Top = 0
      Action = ActSetup
      AutoSize = True
      Caption = #35774#32622
    end
    object ToolButton6: TToolButton
      Left = 113
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 121
      Top = 0
      Action = ActRefresh
      AutoSize = True
      Caption = #21047#26032
    end
    object ToolButton7: TToolButton
      Left = 156
      Top = 0
      Action = ActLogout
      AutoSize = True
      Caption = #27880#38144
    end
    object ToolButton8: TToolButton
      Left = 191
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 199
      Top = 0
      Action = ActExit
      AutoSize = True
      Caption = #36864#20986
    end
  end
  object dbgSys500E: TdxDBGrid
    Left = 0
    Top = 41
    Width = 629
    Height = 374
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'FUserNo'
    ShowGroupPanel = True
    ShowSummaryFooter = True
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    TabOrder = 1
    DataSource = dsSys500E
    Filter.Criteria = {00000000}
    HeaderColor = 15262169
    HideFocusRect = True
    LookAndFeel = lfUltraFlat
    OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    OnBackgroundDrawEvent = dbgSys500EBackgroundDrawEvent
    object dbgSys500EFDatabase: TdxDBGridMaskColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 142
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FDatabase'
      SummaryFooterType = cstCount
      SummaryFooterFormat = #29992#25143#25968#37327#65306'0'
    end
    object dbgSys500EFUser: TdxDBGridMaskColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 117
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FUser'
    end
    object dbgSys500EFLogin: TdxDBGridDateColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 117
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FLogin'
    end
    object dbgSys500EFLast: TdxDBGridDateColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 122
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FLast'
    end
    object dbgSys500EFIP: TdxDBGridMaskColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 101
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FIP'
    end
    object dbgSys500EFComputer: TdxDBGridMaskColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 110
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FComputer'
    end
    object dbgSys500EFStatus: TdxDBGridMaskColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 68
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FStatus'
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = Timer1Timer
    Left = 336
    Top = 88
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 256
    object miFile: TMenuItem
      Caption = #25991#20214'(&F)'
      Hint = #26174#31034'/'#38544#34255#20027#30028#38754
      object T2: TMenuItem
        Action = ActStart
      end
      object P2: TMenuItem
        Action = ActStop
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object X2: TMenuItem
        Action = ActExit
      end
    end
    object miSet: TMenuItem
      Caption = #35774#32622'(&S)'
      object O2: TMenuItem
        Action = ActSetup
      end
    end
    object miUser: TMenuItem
      Caption = #29992#25143'(&U)'
      object ActRefresh1: TMenuItem
        Action = ActRefresh
      end
      object O1: TMenuItem
        Action = ActLogout
      end
    end
    object miHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object N3: TMenuItem
        Action = ActHelp
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Action = ActAbout
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 296
    object ActShowMain: TAction
      Category = 'File'
      Caption = #26174#31034'/'#38544#34255#20027#30028#38754'(&S)'
      Hint = #26174#31034'/'#38544#34255#20027#30028#38754
      OnExecute = ActShowMainExecute
    end
    object ActSetup: TAction
      Category = 'Set'
      Caption = #21442#25968#35774#32622'(&O)'
      Hint = #35774#32622#39044#35686#30340#21442#25968
      ImageIndex = 3
      OnExecute = ActSetupExecute
    end
    object ActStart: TAction
      Category = 'File'
      Caption = #21551#21160#39044#35686#26381#21153'(&T)'
      Hint = #21551#21160#39044#35686#26381#21153
      ImageIndex = 1
      OnExecute = ActStartExecute
    end
    object ActStop: TAction
      Category = 'File'
      Caption = #20572#27490#39044#35686#26381#21153'(&P)'
      Hint = #20572#27490#39044#35686#26381#21153
      ImageIndex = 2
      OnExecute = ActStopExecute
    end
    object ActExit: TAction
      Category = 'File'
      Caption = #36864#20986'(&X)'
      Hint = #36864#20986#28009#26198#20107#21153#26381#21153#25511#21046#22120
      ImageIndex = 6
      OnExecute = ActExitExecute
    end
    object ActHelp: TAction
      Category = 'Help'
      Caption = #24110#21161#20027#39064'(&H)'
      Hint = #24110#21161#20027#39064
      OnExecute = ActHelpExecute
    end
    object ActAbout: TAction
      Category = 'Help'
      Caption = #20851#20110'(&A)...'
      Hint = #20851#20110
      OnExecute = ActAboutExecute
    end
    object ActRefresh: TAction
      Category = 'User'
      Caption = #21047#26032'(&R)'
      ImageIndex = 4
      OnExecute = ActRefreshExecute
    end
    object ActLogout: TAction
      Category = 'User'
      Caption = #27880#38144'(&O)'
      Hint = #27880#38144#22312#32447#29992#25143
      ImageIndex = 5
      OnExecute = ActLogoutExecute
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 272
    Top = 88
    object N1: TMenuItem
      Action = ActShowMain
    end
    object T1: TMenuItem
      Action = ActStart
    end
    object P1: TMenuItem
      Action = ActStop
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object X1: TMenuItem
      Action = ActExit
    end
  end
  object dsSys500E: TDataSource