cwa100_01.dfm.svn-base

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

inherited Cwa100_01Form: TCwa100_01Form
  Left = 209
  Top = 91
  Width = 584
  Height = 420
  HelpContext = 31
  Caption = #24037#20316#26085#21382#32500#25252
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar [0]
    Left = 0
    Top = 0
    Width = 576
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 572
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 559
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ShowCaptions = 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 tlbLocate: TToolButton
        Left = 148
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 183
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 218
        Top = 0
        Action = ActPrint
        AutoSize = True
        DropdownMenu = PopupMenu1
        Style = tbsDropDown
      end
      object ToolButton4: TToolButton
        Left = 266
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSet: TToolButton
        Left = 274
        Top = 0
        Action = ActSet
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 309
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 15
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 317
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 43
    Width = 576
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    DesignSize = (
      576
      37)
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 572
      Height = 33
      Align = alClient
      Stretch = True
    end
    object Label1: TLabel
      Left = 153
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #36215#22987#26085#26399
      Transparent = True
    end
    object Label2: TLabel
      Left = 323
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #32467#26463#26085#26399
      Transparent = True
    end
    object SpeedButton1: TSpeedButton
      Left = 500
      Top = 8
      Width = 60
      Height = 21
      Anchors = [akTop, akRight]
      Caption = #30830#23450
      Flat = True
      OnClick = SpeedButton1Click
    end
    object wwDBDateTimePicker1: TwwDBDateTimePicker
      Left = 212
      Top = 9
      Width = 97
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 0
      OnChange = wwDBDateTimePicker1Change
    end
    object wwDBDateTimePicker2: TwwDBDateTimePicker
      Left = 382
      Top = 9
      Width = 97
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
  end
  object ScrollBox1: TScrollBox [2]
    Left = 0
    Top = 80
    Width = 576
    Height = 313
    Align = alClient
    TabOrder = 2
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 572
      Height = 309
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = dsCwa100
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
      object dxDBGrid1C100_001: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 108
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C100_001'
      end
      object dxDBGrid1C100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 89
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C100_002'
      end
      object dxDBGrid1C100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 79
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C100_003'
      end
      object dxDBGrid1C100_004: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C100_004'
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 400
    Top = 8
    object mmiPrint: TMenuItem
      Action = ActPrint
    end
    object mmiExport: TMenuItem
      Action = ActExport
    end
  end
  object dsCwa100: TDataSource
    DataSet = qryCwa100
    Left = 24
    Top = 176
  end
  object qryCwa100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CWA100')
    Left = 48
    Top = 184
    object qryCwa100C100_001: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'C100_001'
    end
    object qryCwa100C100_002: TSmallintField
      DisplayLabel = #31867#22411
      FieldName = 'C100_002'
      OnGetText = qryCwa100C100_002GetText
    end
    object qryCwa100C100_003: TSmallintField
      DisplayLabel = #26143#26399
      FieldName = 'C100_003'
      OnGetText = qryCwa100C100_003GetText
    end
    object qryCwa100C100_004: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'C100_004'
      Size = 30
    end
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 400
    Top = 72
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32848
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #23558#25968#25454#25171#21360#20986#26469
      ImageIndex = 12
      ShortCut = 32848
      OnExecute = ActPrintExecute
    end
    object ActExport: TAction
      Caption = #23548#20986#21040'Excel'
      Hint = #23548#20986#21040'Excel'#25991#20214#20013
      ShortCut = 32852
      OnExecute = ActExportExecute
    end
    object ActSet: TAction
      Caption = #35774#32622
      Hint = #35774#32622#24037#20316#26085#21382
      ImageIndex = 17
      OnExecute = ActSetExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 328
    Top = 72
  end
end