gld150_01.dfm.svn-base

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

inherited Gld150_01Form: TGld150_01Form
  Left = 184
  Top = 137
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #31185#30446#36164#26009#32500#25252
  ClientHeight = 338
  ClientWidth = 504
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl [0]
    Left = 7
    Top = 7
    Width = 410
    Height = 322
    ActivePage = TabSheet1
    Images = ImageList1
    MultiLine = True
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #36164#20135
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 402
        Height = 289
        ShowNodeHint = True
        DataSource = DataSource1
        KeyField = 'G100_001'
        ListField = 'G100_099'
        ParentField = 'G100_003'
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        Align = alClient
        ParentColor = False
        Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 0
        OnDblClick = bbtnUpdateClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36127#20538
      ImageIndex = 1
      object dxDBTreeView2: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 402
        Height = 289
        ShowNodeHint = True
        DataSource = DataSource2
        KeyField = 'G100_001'
        ListField = 'G100_099'
        ParentField = 'G100_003'
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        Align = alClient
        ParentColor = False
        Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 0
        OnDblClick = bbtnUpdateClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26435#30410
      ImageIndex = 2
      object dxDBTreeView3: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 402
        Height = 289
        ShowNodeHint = True
        DataSource = DataSource3
        KeyField = 'G100_001'
        ListField = 'G100_099'
        ParentField = 'G100_003'
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        Align = alClient
        ParentColor = False
        Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 0
        OnDblClick = bbtnUpdateClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = #25104#26412
      ImageIndex = 3
      object dxDBTreeView4: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 402
        Height = 289
        ShowNodeHint = True
        DataSource = DataSource4
        KeyField = 'G100_001'
        ListField = 'G100_099'
        ParentField = 'G100_003'
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        Align = alClient
        ParentColor = False
        Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 0
        OnDblClick = bbtnUpdateClick
      end
    end
    object TabSheet5: TTabSheet
      Caption = #25439#30410
      ImageIndex = 4
      object dxDBTreeView5: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 402
        Height = 289
        ShowNodeHint = True
        DataSource = DataSource5
        KeyField = 'G100_001'
        ListField = 'G100_099'
        ParentField = 'G100_003'
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        Align = alClient
        ParentColor = False
        Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 0
        OnDblClick = bbtnUpdateClick
      end
    end
  end
  object bbtnInsert: TBitBtn [1]
    Left = 424
    Top = 176
    Width = 75
    Height = 25
    Caption = #26032#22686'(&A)'
    TabOrder = 1
    OnClick = bbtnInsertClick
  end
  object bbtnUpdate: TBitBtn [2]
    Left = 424
    Top = 208
    Width = 75
    Height = 25
    Caption = #20462#25913'(&U)'
    TabOrder = 2
    OnClick = bbtnUpdateClick
  end
  object bbtnDelete: TBitBtn [3]
    Left = 424
    Top = 240
    Width = 75
    Height = 25
    Caption = #21024#38500'(&D)'
    TabOrder = 3
    OnClick = bbtnDeleteClick
  end
  object bbtnCopy: TBitBtn [4]
    Left = 424
    Top = 272
    Width = 75
    Height = 25
    Caption = #22797#21046'(&C)'
    TabOrder = 4
    OnClick = bbtnCopyClick
  end
  object bbtnPrint: TBitBtn [5]
    Left = 424
    Top = 304
    Width = 75
    Height = 25
    Caption = #25171#21360'(&P)'
    TabOrder = 5
    OnClick = bbtnPrintClick
  end
  object bbtnExit: TBitBtn [6]
    Left = 424
    Top = 64
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 6
    OnClick = bbtnExitClick
  end
  object bbtnOk: TBitBtn [7]
    Left = 424
    Top = 32
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'