untmaintenance.dfm

固定资产管理系统源码 资产管理 查询管理 报表管理 系统管理

              FooterRowCount = 1
              ReadOnly = True
              SumList.Active = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              OnDrawColumnCell = DBGridEh4DrawColumnCell
              OnTitleClick = DBGridEh4TitleClick
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'MaintenanceID'
                  Footer.Value = #24635#35760#24405
                  Footer.ValueType = fvtStaticText
                  Footers = <>
                  Title.Caption = #32500#25252#26631#35782
                  Width = 52
                end
                item
                  EditButtons = <>
                  FieldName = 'queryMaintenance.M.AssetID'
                  Footer.ValueType = fvtCount
                  Footers = <>
                  Title.Caption = #36164#20135#26631#35782
                  Width = 53
                end
                item
                  EditButtons = <>
                  FieldName = 'AssetCategory'
                  Footers = <>
                  Title.Caption = #36164#20135#31867#21035
                  Width = 51
                end
                item
                  EditButtons = <>
                  FieldName = 'MakeName'
                  Footers = <>
                  Title.Caption = #21697#29260
                  Width = 48
                end
                item
                  EditButtons = <>
                  FieldName = 'ModelNumberName'
                  Footers = <>
                  Title.Caption = #22411#21495
                  Width = 48
                end
                item
                  EditButtons = <>
                  FieldName = 'code'
                  Footers = <>
                  Title.Caption = #32534#30721
                  Width = 52
                end
                item
                  EditButtons = <>
                  FieldName = 'Company'
                  Footers = <>
                  Title.Caption = #20844#21496
                  Width = 51
                end
                item
                  EditButtons = <>
                  FieldName = 'DepartmentName'
                  Footers = <>
                  Title.Caption = #37096#38376
                  Width = 59
                end
                item
                  EditButtons = <>
                  FieldName = 'Employee'
                  Footers = <>
                  Title.Caption = #22995#21517
                  Width = 40
                end
                item
                  EditButtons = <>
                  FieldName = 'FaultCategoryname'
                  Footers = <>
                  Title.Caption = #25925#38556#21517#31216
                  Width = 69
                end
                item
                  EditButtons = <>
                  FieldName = 'Partsname'
                  Footers = <>
                  Title.Caption = #37096#20214#21517#31216
                  Width = 56
                end
                item
                  EditButtons = <>
                  FieldName = 'MaintenancePerformedBy'
                  Footers = <>
                  Title.Caption = #32500#25252#20154
                  Width = 42
                end
                item
                  EditButtons = <>
                  FieldName = 'MaintenanceDate'
                  Footer.Value = #24635#25104#26412
                  Footer.ValueType = fvtStaticText
                  Footers = <>
                  Title.Caption = #32500#25252#26085#26399
                  Width = 62
                end
                item
                  EditButtons = <>
                  FieldName = 'MaintenanceCost'
                  Footer.ValueType = fvtSum
                  Footers = <>
                  Title.Caption = #32500#25252#25104#26412
                  Width = 54
                end
                item
                  EditButtons = <>
                  FieldName = 'DateAcquired'
                  Footers = <>
                  Title.Caption = #36141#20080#26085#26399
                end
                item
                  EditButtons = <>
                  FieldName = 'MaintenanceDescription'
                  Footers = <>
                  Title.Caption = #32500#25252#35828#26126
                  Width = 158
                end>
            end
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #25925#38556#22788#29702
        ImageIndex = 1
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 870
          Height = 543
          Align = alClient
          BevelInner = bvLowered
          Caption = 'Panel3'
          TabOrder = 0
          object GroupBox1: TGroupBox
            Left = 2
            Top = 2
            Width = 866
            Height = 159
            Align = alTop
            Caption = #32534#36753#21306
            TabOrder = 0
            object Label1: TLabel
              Left = 411
              Top = 32
              Width = 57
              Height = 13
              AutoSize = False
              Caption = #36164#20135#26631#35782
            end
            object Label2: TLabel
              Left = 612
              Top = 32
              Width = 57
              Height = 13
              AutoSize = False
              Caption = #25925#38556#31867#21035
            end
            object Label3: TLabel
              Left = 16
              Top = 84
              Width = 57
              Height = 13
              AutoSize = False
              Caption = #25925#38556#37096#20214
            end
            object Label4: TLabel
              Left = 219
              Top = 32
              Width = 33
              Height = 13
              AutoSize = False
              Caption = #32534#21495
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label5: TLabel
              Left = 224
              Top = 84
              Width = 57
              Height = 13
              AutoSize = False
              Caption = #32500#25252#20154#21592
            end
            object Label6: TLabel
              Left = 412
              Top = 84
              Width = 55
              Height = 13
              AutoSize = False
              Caption = #32500#25252#25104#26412
            end
            object Label7: TLabel
              Left = 16
              Top = 130
              Width = 57
              Height = 13
              AutoSize = False
              Caption = #32500#25252#35828#26126
            end
            object Label8: TLabel
              Left = 616
              Top = 84
              Width = 57
              Height = 13
              AutoSize = False
              Caption = #32500#20462#26085#26399
            end
            object Label16: TLabel
              Left = 16
              Top = 32
              Width = 49
              Height = 13
              AutoSize = False
              Caption = #31867#21035
            end
            object DBText1: TDBText
              Left = 72
              Top = 32
              Width = 121
              Height = 17
              DataField = 'AssetCategory'
              DataSource = DMasset.DSMaintenance
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText2: TDBText
              Left = 288
              Top = 32
              Width = 121
              Height = 17
              DataField = 'code'
              DataSource = DMasset.DSMaintenance
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText3: TDBText
              Left = 472
              Top = 32
              Width = 137
              Height = 17
              DataField = 'AssetID'
              DataSource = DMasset.DSMaintenance
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBEdit2: TDBEdit
              Left = 468
              Top = 80
              Width = 145
              Height = 21
              DataField = 'MaintenanceCost'
              DataSource = DMasset.DSMaintenance
              TabOrder = 3
            end
            object DBLookupComboBox1: TDBLookupComboBox
              Left = 671
              Top = 28
              Width = 145
              Height = 21
              DataField = 'FaultCategoryID'
              DataSource = DMasset.DSMaintenance
              KeyField = 'FaultCategoryID'
              ListField = 'FaultCategoryName'
              ListSource = DMasset.DSFaultCategory
              TabOrder = 0
            end
            object DBLookupComboBox2: TDBLookupComboBox
              Left = 75
              Top = 80
              Width = 145
              Height = 21
              DataField = 'PartsID'
              DataSource = DMasset.DSMaintenance
              KeyField = 'PartsID'
              ListField = 'PartsName'
              ListSource = DMasset.DSParts
              TabOrder = 1