📄 cwa550_01.dfm.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 2 页
字号:
上一页 12
            Width = 160
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C510_002'
          end
          object dxDBGrid4C510_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 147
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C510_003'
          end
        end
      end
    end
  end
  object ScrollBox1: TScrollBox [4]
    Left = 0
    Top = 81
    Width = 193
    Height = 432
    Align = alLeft
    TabOrder = 3
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 189
      Height = 428
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = dsHrm150
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
      object dxDBGrid1H150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 62
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 98
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 520
    Top = 296
  end
  object dsHrm150: TDataSource
    DataSet = qryHrm150
    Left = 32
    Top = 144
  end
  object dsCwa550A: TDataSource
    DataSet = qryCwa550A
    Left = 264
    Top = 208
  end
  object dsCwa550B: TDataSource
    DataSet = qryCwa550B
    Left = 280
    Top = 276
  end
  object dsCwa510: TDataSource
    DataSet = qryCwa510
    Left = 400
    Top = 228
  end
  object PopupMenu1: TPopupMenu
    Left = 448
    Top = 16
    object mmiPrint: TMenuItem
      Action = ActPrint
    end
    object mmiExport: TMenuItem
      Action = ActExport
    end
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 544
    Top = 16
    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 ActCheck: TAction
      Caption = #23457#26680
      Hint = #23457#26680#32771#21220#35760#24405
      ImageIndex = 13
      ShortCut = 32835
      OnExecute = ActCheckExecute
    end
    object ActProv: TAction
      Caption = #31614#21345
      Hint = #32771#21220#35760#24405#31614#21345#25209#20934
      ImageIndex = 5
      ShortCut = 32854
      OnExecute = ActProvExecute
    end
    object ActCalc: TAction
      Caption = #35745#31639
      Hint = #35745#31639#32771#21220#25968#25454
      ImageIndex = 19
      ShortCut = 32851
      OnExecute = ActCalcExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    AfterScroll = qryHrm150AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 40
    Top = 152
    object qryHrm150H150_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object qryCwa550A: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CWA550A A,CWA150 B where A.C550A_004=B.C150_001'
      'order by B.C150_002')
    Left = 272
    Top = 216
    object qryCwa550AC150_002: TStringField
      DisplayLabel = #32771#21220#39033#30446
      FieldName = 'C150_002'
      Size = 10
    end
    object qryCwa550AC150_003: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'C150_003'
      Size = 50
    end
    object qryCwa550AC550A_005: TFloatField
      DisplayLabel = #25968#20540
      FieldName = 'C550A_005'
    end
    object qryCwa550AC150_005: TSmallintField
      DisplayLabel = #21333#20301
      FieldName = 'C150_005'
      OnGetText = qryCwa550AC150_005GetText
    end
    object qryCwa550AC550A_006: TBooleanField
      DisplayLabel = #24050#23457#26680#21542
      FieldName = 'C550A_006'
    end
    object qryCwa550AC150_001: TAutoIncField
      DisplayLabel = #32771#21220#39033#30446
      FieldName = 'C150_001'
      ReadOnly = True
      Visible = False
    end
    object qryCwa550AC150_004: TSmallintField
      DisplayLabel = #39033#30446#31867#22411
      FieldName = 'C150_004'
      Visible = False
    end
    object qryCwa550AC150_006: TMemoField
      FieldName = 'C150_006'
      Visible = False
      BlobType = ftMemo
    end
    object qryCwa550AC150_007: TIntegerField
      FieldName = 'C150_007'
      Visible = False
    end
    object qryCwa550AC150_008: TBooleanField
      FieldName = 'C150_008'
      Visible = False
    end
    object qryCwa550AC550A_001: TIntegerField
      DisplayLabel = #24180#20221
      FieldName = 'C550A_001'
      Visible = False
    end
    object qryCwa550AC550A_002: TIntegerField
      DisplayLabel = #26376#20221
      FieldName = 'C550A_002'
      Visible = False
    end
    object qryCwa550AC550A_003: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'C550A_003'
      Visible = False
    end
    object qryCwa550AC550A_004: TIntegerField
      DisplayLabel = #32771#21220#39033#30446
      FieldName = 'C550A_004'
      Visible = False
    end
  end
  object qryCwa550B: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from CWA550B A,CWA150 B where A.C550B_003=B.C150_001')
    Left = 288
    Top = 288
    object qryCwa550BC550B_001: TDateTimeField
      DisplayLabel = #32771#21220#26085#26399
      FieldName = 'C550B_001'
    end
    object qryCwa550BC150_003: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'C150_003'
      Size = 50
    end
    object qryCwa550BC550B_004: TFloatField
      DisplayLabel = #25968#20540
      FieldName = 'C550B_004'
    end
    object qryCwa550BC150_005: TSmallintField
      DisplayLabel = #21333#20301
      FieldName = 'C150_005'
      OnGetText = qryCwa550BC150_005GetText
    end
    object qryCwa550BC550B_005: TBooleanField
      DisplayLabel = #26159#21542#31614#21345
      FieldName = 'C550B_005'
    end
    object qryCwa550BC550B_006: TStringField
      DisplayLabel = #31614#21345#20154
      FieldName = 'C550B_006'
    end
    object qryCwa550BC550B_007: TBooleanField
      DisplayLabel = #24050#23457#26680#21542
      FieldName = 'C550B_007'
    end
    object qryCwa550BC150_001: TAutoIncField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'C150_001'
      ReadOnly = True
    end
    object qryCwa550BC150_002: TStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'C150_002'
      Visible = False
      Size = 10
    end
    object qryCwa550BC150_004: TSmallintField
      DisplayLabel = #39033#30446#31867#22411
      FieldName = 'C150_004'
      Visible = False
    end
    object qryCwa550BC150_006: TMemoField
      FieldName = 'C150_006'
      Visible = False
      BlobType = ftMemo
    end
    object qryCwa550BC150_007: TIntegerField
      FieldName = 'C150_007'
      Visible = False
    end
    object qryCwa550BC150_008: TBooleanField
      FieldName = 'C150_008'
      Visible = False
    end
    object qryCwa550BC550B_002: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'C550B_002'
      Visible = False
    end
    object qryCwa550BC550B_003: TIntegerField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'C550B_003'
      Visible = False
    end
  end
  object qryCwa510: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CWA510 A, CWA130 B where A.C510_001=B.C130_001')
    Left = 408
    Top = 240
    object qryCwa510C510_001: TStringField
      DisplayLabel = #21345#21495
      FieldName = 'C510_001'
      FixedChar = True
      Size = 10
    end
    object qryCwa510C510_002: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'C510_002'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryCwa510C510_003: TStringField
      DisplayLabel = #26102#38388
      FieldName = 'C510_003'
      FixedChar = True
      Size = 5
    end
    object qryCwa510C510_004: TStringField
      DisplayLabel = #36827#20986#26631#35782
      FieldName = 'C510_004'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object qryCwa510C130_002: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'C130_002'
      Visible = False
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 488
    Top = 16
  end
end
上一页 12
💿 文件大小 5005 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#ERP #代码 #企业信息 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -