hwlangs.dfm.svn-base

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

object HwLangsForm: THwLangsForm
  Left = 81
  Top = 92
  Width = 673
  Height = 467
  Caption = #22810#35821#35328#32534#36753#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Pitch = fpFixed
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 665
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 661
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 648
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 183
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 218
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 253
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSave: TToolButton
        Left = 261
        Top = 0
        Action = ActSave
        AutoSize = True
      end
      object tlbCancel: TToolButton
        Left = 296
        Top = 0
        Action = ActCancel
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 331
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 339
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 374
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object ToolButton5: TToolButton
        Left = 409
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 444
        Top = 0
        Action = ActPrint
        AutoSize = True
        DropdownMenu = PopupMenu1
        Style = tbsDropDown
      end
      object ToolButton7: TToolButton
        Left = 492
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 17
        Style = tbsSeparator
      end
      object tlbLang: TToolButton
        Left = 500
        Top = 0
        Action = ActLang
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 535
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 543
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 43
    Width = 665
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 661
      Height = 33
      Align = alClient
      Stretch = True
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 80
    Width = 665
    Height = 360
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 2
    OnChanging = PageControl1Changing
    object TabSheet1: TTabSheet
      Caption = #27983#35272#25968#25454
      object ScrollBox2: TScrollBox
        Left = 0
        Top = 0
        Width = 657
        Height = 330
        Align = alClient
        TabOrder = 0
        object dxDBGrid1: TdxDBGrid
          Left = 0
          Top = 0
          Width = 653
          Height = 326
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'LangID'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          DataSource = dsLangs
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dxDBGrid1BackgroundDrawEvent
          object dxDBGrid1LangID: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            ReadOnly = True
            Width = 91
            BandIndex = 0
            RowIndex = 0
            FieldName = 'LangID'
          end
          object dxDBGrid1LangName: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            ReadOnly = True
            Width = 111
            BandIndex = 0
            RowIndex = 0
            FieldName = 'LangName'
          end
          object dxDBGrid1Name: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            ReadOnly = True
            Width = 225
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Name'
          end
          object dxDBGrid1Hint: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            ReadOnly = True
            Width = 224
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Hint'
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26126#32454#36164#26009
      ImageIndex = 1
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 657
        Height = 330
        Align = alClient
        TabOrder = 0
        object Label1: TLabel
          Left = 24
          Top = 24
          Width = 24
          Height = 12
          Caption = #32534#21495
        end
        object DBCtrlGrid1: TDBCtrlGrid
          Left = 16
          Top = 40
          Width = 625
          Height = 200
          AllowDelete = False
          AllowInsert = False
          ColCount = 1
          DataSource = DataSource1
          PanelBorder = gbNone
          PanelHeight = 25
          PanelWidth = 609
          TabOrder = 1
          RowCount = 8
          ShowFocus = False
          object Label2: TLabel
            Left = 8
            Top = 11
            Width = 24
            Height = 12
            Caption = #35821#35328
            FocusControl = DBEdit1
          end