gld500_01.dfm.svn-base

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

object Gld500_01Form: TGld500_01Form
  Left = 154
  Top = 88
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20973#35777#24405#20837
  ClientHeight = 420
  ClientWidth = 625
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Pitch = fpFixed
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 0
    Top = 44
    Width = 625
    Height = 27
    Align = alTop
    Alignment = taCenter
    Caption = #35760' '#24080' '#20973' '#35777
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = #38582#20070
    Font.Pitch = fpFixed
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Layout = tlCenter
  end
  object Label1: TLabel
    Left = 232
    Top = 92
    Width = 26
    Height = 13
    Caption = #26085#26399
    Transparent = True
  end
  object Label3: TLabel
    Left = 480
    Top = 96
    Width = 39
    Height = 13
    Caption = #20973#35777#21495
    Transparent = True
  end
  object Label2: TLabel
    Left = 16
    Top = 400
    Width = 39
    Height = 13
    Caption = #21046#34920#65306
    Transparent = True
  end
  object Label5: TLabel
    Left = 216
    Top = 400
    Width = 39
    Height = 13
    Caption = #23457#26680#65306
    Transparent = True
  end
  object Label7: TLabel
    Left = 416
    Top = 400
    Width = 39
    Height = 13
    Caption = #36807#24080#65306
    Transparent = True
  end
  object Shape1: TShape
    Left = 8
    Top = 356
    Width = 181
    Height = 33
    Pen.Color = clGreen
  end
  object Shape2: TShape
    Left = 188
    Top = 356
    Width = 221
    Height = 33
    Pen.Color = clGreen
  end
  object Shape3: TShape
    Left = 408
    Top = 356
    Width = 95
    Height = 33
    Pen.Color = clGreen
  end
  object Shape4: TShape
    Left = 502
    Top = 356
    Width = 95
    Height = 33
    Pen.Color = clGreen
  end
  object DBGrid1: TdxDBGrid
    Left = 8
    Top = 114
    Width = 609
    Height = 243
    Bands = <
      item
      end
      item
        Visible = False
      end
      item
      end>
    DefaultLayout = False
    HeaderPanelRowCount = 2
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 2
    OnKeyDown = DBGrid1KeyDown
    OnKeyPress = DBGrid1KeyPress
    DataSource = DataSource1
    Filter.Criteria = {00000000}
    GridLineColor = clGreen
    HeaderColor = 16777088
    HideFocusRect = True
    HideSelection = True
    LookAndFeel = lfUltraFlat
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoImmediateEditor, edgoTabs, edgoTabThrough, edgoVertThrough]
    OptionsCustomize = [edgoBandMoving, edgoBandSizing]
    OptionsView = [edgoBandHeaderWidth, edgoHideFocusRect, edgoUseBitmap]
    OnCustomDraw = DBGrid1CustomDraw
    object DBGrid1G500_001: TdxDBGridMaskColumn
      Visible = False
      BandIndex = 0
      RowIndex = 0
      FieldName = 'G500_001'
    end
    object DBGrid1G500_002: TdxDBGridMaskColumn
      Visible = False
      Width = 74
      BandIndex = 0
      RowIndex = 0
      FieldName = 'G500_002'
    end
    object DBGrid1G500_003: TdxDBGridButtonColumn
      HeaderAlignment = taCenter
      Width = 180
      BandIndex = 0
      RowIndex = 0
      HeaderMaxLineCount = 2
      FieldName = 'G500_003'
      Buttons = <
        item
          Default = True
        end>
      OnButtonClick = DBGrid1G500_003ButtonClick
    end
    object DBGrid1G500_004: TdxDBGridButtonColumn
      HeaderAlignment = taCenter
      Width = 220
      BandIndex = 0
      RowIndex = 0
      HeaderMaxLineCount = 2
      FieldName = 'G500_004'
      Buttons = <
        item
          Default = True
        end>
      OnButtonClick = DBGrid1G500_004ButtonClick
    end
    object DBGrid1G500_005: TdxDBGridButtonColumn
      HeaderAlignment = taCenter
      Width = 50
      BandIndex = 1
      RowIndex = 0
      FieldName = 'G500_005'
      Buttons = <
        item
          Default = True
        end>
      OnButtonClick = DBGrid1G500_005ButtonClick
    end
    object DBGrid1G500_006: TdxDBGridMaskColumn
      HeaderAlignment = taCenter
      Width = 50
      BandIndex = 1
      RowIndex = 0
      FieldName = 'G500_006'
    end
    object DBGrid1G500_007: TdxDBGridMaskColumn
      HeaderAlignment = taCenter
      Width = 50
      BandIndex = 1
      RowIndex = 1
      FieldName = 'G500_007'
      StoredRowIndex = 1
    end
    object DBGrid1G500_008: TdxDBGridMaskColumn
      HeaderAlignment = taCenter
      Width = 94
      BandIndex = 2
      RowIndex = 0
      HeaderMaxLineCount = 2
      FieldName = 'G500_008'
    end
    object DBGrid1G500_009: TdxDBGridMaskColumn
      HeaderAlignment = taCenter
      Width = 94
      BandIndex = 2
      RowIndex = 0
      HeaderMaxLineCount = 2
      FieldName = 'G500_009'
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 625
    Height = 44
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 40
        Width = 621
      end>
    Color = clBtnFace
    ParentColor = False
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 608
      Height = 40
      AutoSize = True
      ButtonHeight = 40
      ButtonWidth = 33
      Caption = 'ToolBar2'
      Color = clBtnFace
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentColor = False
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #26368#21069
        ImageIndex = 5
        OnClick = tlbFirstClick
      end
      object tlbPrior: TToolButton
        Left = 37
        Top = 0
        AutoSize = True
        Caption = #19978#31227
        ImageIndex = 6
        OnClick = tlbPriorClick
      end
      object tlbNext: TToolButton
        Left = 74
        Top = 0
        AutoSize = True
        Caption = #19979#31227
        ImageIndex = 7
        OnClick = tlbNextClick
      end
      object tlbLast: TToolButton
        Left = 111
        Top = 0
        AutoSize = True
        Caption = #26368#21518
        ImageIndex = 8
        OnClick = tlbLastClick
      end
      object ToolButton1: TToolButton
        Left = 148
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 156
        Top = 0
        AutoSize = True
        Caption = #26032#22686
        ImageIndex = 0
        OnClick = tlbInsertClick
      end
      object tlbDelete: TToolButton
        Left = 193
        Top = 0
        AutoSize = True
        Caption = #21024#38500
        ImageIndex = 2
        OnClick = tlbDeleteClick
      end
      object ToolButton2: TToolButton
        Left = 230
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSave: TToolButton
        Left = 238
        Top = 0
        AutoSize = True
        Caption = #20445#23384
        ImageIndex = 3
        OnClick = tlbSaveClick
      end
      object tlbCancel: TToolButton
        Left = 275
        Top = 0
        AutoSize = True
        Caption = #21462#28040
        ImageIndex = 4
        OnClick = tlbCancelClick
      end
      object ToolButton3: TToolButton
        Left = 312
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSearch: TToolButton
        Left = 320
        Top = 0
        AutoSize = True
        Caption = #26597#25214
        ImageIndex = 9
        OnClick = tlbSearchClick
      end
      object tlbPrint: TToolButton
        Left = 357
        Top = 0
        AutoSize = True
        Caption = #25171#21360
        ImageIndex = 10
        OnClick = tlbPrintClick
      end
      object ToolButton6: TToolButton
        Left = 394
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object tlbCurr: TToolButton
        Left = 402
        Top = 0
        AutoSize = True
        Caption = #22806#24065
        ImageIndex = 14
        OnClick = tlbCurrClick
      end
      object tlbCheck: TToolButton
        Left = 439
        Top = 0
        AutoSize = True
        Caption = #23457#26680
        ImageIndex = 11
        Visible = False
        OnClick = tlbCheckClick
      end
      object ToolButton4: TToolButton
        Left = 476
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 484
        Top = 0
        AutoSize = True
        Caption = #36864#20986
        ImageIndex = 13
        OnClick = tlbExitClick
      end
    end
  end
  object wwDBDateTimePicker1: TwwDBDateTimePicker
    Left = 264
    Top = 88
    Width = 97
    Height = 21
    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
    DisplayFormat = 'yyyy-mm-dd'
  end
  object Edit1: TEdit
    Left = 528
    Top = 88
    Width = 81
    Height = 21
    TabOrder = 1
  end
  object sncDBCurrencyEdit1: TsncDBCurrencyEdit
    Left = 8
    Top = 80
    Width = 121
    Height = 25
    BorderStyle = bsNone
    CurrencySymbol = #65509
    DataSource = DataSource1
    DigitalNumber = 15
    FocusedColor = clWhite
    NegativeFont.Charset = DEFAULT_CHARSET
    NegativeFont.Color = clWindowText
    NegativeFont.Height = -11
    NegativeFont.Name = 'MS Sans Serif'
    NegativeFont.Style = []
    ParentColor = False
    TabOrder = 3
    TabStop = True
    Visible = False
    OnMoveOut = sncDBCurrencyEdit1MoveOut
    OnEnter = sncDBCurrencyEdit1Enter
    OnExit = sncDBCurrencyEdit1Exit
    OnKeyDown = sncDBCurrencyEdit1KeyDown
  end
  object Panel1: TPanel
    Left = 32
    Top = 361
    Width = 105
    Height = 25
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Caption = #38468#20214' '
    Color = clWhite
    TabOrder = 4
    object Edit3: TEdit
      Left = 38
      Top = 6
      Width = 59
      Height = 15
      BorderStyle = bsNone
      Color = clWhite
      TabOrder = 0
      Text = '0'
    end
  end
  object Panel2: TPanel
    Left = 216
    Top = 364
    Width = 169
    Height = 17
    BevelOuter = bvNone
    Caption = #21512'         '#35745
    Color = clWhite
    TabOrder = 5
  end
  object sncCurrencyEdit1: TsncCurrencyEdit
    Left = 411
    Top = 357
    Width = 91
    Height = 31
    BorderStyle = bsNone
    CurrencySymbol = #65509
    DigitalNumber = 15
    Enabled = False
    NegativeFont.Charset = DEFAULT_CHARSET
    NegativeFont.Color = clWindowText
    NegativeFont.Height = -11
    NegativeFont.Name = 'MS Sans Serif'
    NegativeFont.Style = []
    ParentColor = False
    TabOrder = 7
    TabStop = True
  end
  object sncCurrencyEdit2: TsncCurrencyEdit
    Left = 505
    Top = 357
    Width = 91
    Height = 31
    BorderStyle = bsNone
    CurrencySymbol = #65509
    DigitalNumber = 15
    Enabled = False
    NegativeFont.Charset = DEFAULT_CHARSET
    NegativeFont.Color = clWindowText
    NegativeFont.Height = -11
    NegativeFont.Name = 'MS Sans Serif'
    NegativeFont.Style = []
    ParentColor = False
    TabOrder = 8
    TabStop = True
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 112
    Top = 192
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 160
    Top = 224
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 272
    Top = 232
  end
  object ADODataSet1: TADODataSet
    Parameters = <>
    Left = 112
    Top = 240
  end
end