cwa120_01.dfm.svn-base

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

      end
      object dxDBGrid1C120_004: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 55
        BandIndex = 1
        RowIndex = 0
        FieldName = 'C120_004'
      end
      object dxDBGrid1C120_005: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 55
        BandIndex = 1
        RowIndex = 0
        FieldName = 'C120_005'
      end
      object dxDBGrid1C120_012: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'C120_012'
      end
      object dxDBGrid1C120_006: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 55
        BandIndex = 2
        RowIndex = 0
        FieldName = 'C120_006'
      end
      object dxDBGrid1C120_007: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 55
        BandIndex = 2
        RowIndex = 0
        FieldName = 'C120_007'
      end
      object dxDBGrid1C120_013: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        BandIndex = 2
        RowIndex = 0
        FieldName = 'C120_013'
      end
      object dxDBGrid1C120_008: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 55
        BandIndex = 3
        RowIndex = 0
        FieldName = 'C120_008'
      end
      object dxDBGrid1C120_009: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 55
        BandIndex = 3
        RowIndex = 0
        FieldName = 'C120_009'
      end
      object dxDBGrid1C120_014: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        BandIndex = 3
        RowIndex = 0
        FieldName = 'C120_014'
      end
      object dxDBGrid1C120_010: TdxDBGridCheckColumn
        HeaderAlignment = taCenter
        Width = 55
        BandIndex = 4
        RowIndex = 0
        FieldName = 'C120_010'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 400
    Top = 8
    object mmiPrint: TMenuItem
      Action = ActPrint
    end
    object mmiExport: TMenuItem
      Action = ActExport
    end
  end
  object dsCwa120: TDataSource
    DataSet = qryCwa120
    Left = 56
    Top = 128
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 328
    Top = 72
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 368
    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#21592#24037#29677#21035
      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 qryCwa120: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CWA120')
    Left = 72
    Top = 144
    object qryCwa120C120_003: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'C120_003'
    end
    object qryCwa120H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      DisplayWidth = 7
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'C120_001'
      Size = 10
      Lookup = True
    end
    object qryCwa120H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      DisplayWidth = 9
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'C120_001'
      FixedChar = True
      Lookup = True
    end
    object qryCwa120C110_003: TStringField
      DisplayLabel = #29677#21035#21517#31216
      DisplayWidth = 11
      FieldKind = fkLookup
      FieldName = 'C110_003'
      LookupDataSet = qryCwa110
      LookupKeyFields = 'C110_001'
      LookupResultField = 'C110_003'
      KeyFields = 'C120_002'
      Lookup = True
    end
    object qryCwa120C120_004: TStringField
      DisplayLabel = #19978#29677
      FieldName = 'C120_004'
      FixedChar = True
      Size = 5
    end
    object qryCwa120C120_005: TStringField
      DisplayLabel = #19979#29677
      FieldName = 'C120_005'
      FixedChar = True
      Size = 5
    end
    object qryCwa120C120_006: TStringField
      DisplayLabel = #19978#29677
      FieldName = 'C120_006'
      FixedChar = True
      Size = 5
    end
    object qryCwa120C120_007: TStringField
      DisplayLabel = #19979#29677
      FieldName = 'C120_007'
      FixedChar = True
      Size = 5
    end
    object qryCwa120C120_008: TStringField
      DisplayLabel = #19978#29677
      FieldName = 'C120_008'
      FixedChar = True
      Size = 5
    end
    object qryCwa120C120_009: TStringField
      DisplayLabel = #19979#29677
      FieldName = 'C120_009'
      FixedChar = True
      Size = 5
    end
    object qryCwa120C120_010: TBooleanField
      DisplayLabel = #26159#21542#35831#20551
      FieldName = 'C120_010'
    end
    object qryCwa120C120_012: TSmallintField
      DisplayLabel = #19978#21320#19979#29677#26085
      FieldName = 'C120_012'
      OnGetText = qryCwa120C120_012GetText
    end
    object qryCwa120C120_013: TSmallintField
      DisplayLabel = #19979#21320#19979#29677#26085
      FieldName = 'C120_013'
      OnGetText = qryCwa120C120_013GetText
    end
    object qryCwa120C120_014: TSmallintField
      DisplayLabel = #26202#19978#19979#29677#26085
      FieldName = 'C120_014'
      OnGetText = qryCwa120C120_014GetText
    end
    object qryCwa120C120_001: TIntegerField
      FieldName = 'C120_001'
      Visible = False
    end
    object qryCwa120C120_002: TIntegerField
      FieldName = 'C120_002'
      Visible = False
    end
    object qryCwa120C120_011: TBooleanField
      DisplayLabel = #32771#21220#26159#21542#24050#35745#31639
      FieldName = 'C120_011'
      Visible = False
    end
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM150')
    Left = 248
    Top = 160
    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 qryCwa110: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CWA110')
    Left = 304
    Top = 160
    object qryCwa110C110_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'C110_001'
      ReadOnly = True
      Visible = False
    end
    object qryCwa110C110_002: TStringField
      DisplayLabel = #29677#21035#32534#21495
      FieldName = 'C110_002'
      FixedChar = True
      Size = 6
    end
    object qryCwa110C110_003: TStringField
      DisplayLabel = #29677#21035#21517#31216
      FieldName = 'C110_003'
      FixedChar = True
    end
  end
  object qryCwa170: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 272
    Top = 232
  end
end