untbasic.dfm

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

              Height = 21
              DataField = 'Mainboard'
              DataSource = DSModelNumber
              TabOrder = 8
            end
            object DBLookupComboboxEh1: TDBLookupComboboxEh
              Left = 80
              Top = 103
              Width = 121
              Height = 21
              DataField = 'MakeID'
              DataSource = DSModelNumber
              EditButtons = <>
              KeyField = 'MakeID'
              ListField = 'MakeName'
              ListSource = DMasset.DSMake
              ShowHint = True
              TabOrder = 4
              Visible = True
            end
            object DBEdit33: TDBEdit
              Left = 440
              Top = 151
              Width = 121
              Height = 21
              DataField = 'memory'
              DataSource = DSModelNumber
              TabOrder = 10
            end
            object DBLookupComboBox6: TDBLookupComboBox
              Left = 80
              Top = 20
              Width = 121
              Height = 21
              DataSource = DSModelNumber
              KeyField = 'typeid'
              ListField = 'type'
              ListSource = DMasset.DSType
              TabOrder = 12
              OnClick = DBLookupComboBox6Click
            end
            object DBLookupComboBox7: TDBLookupComboBox
              Left = 267
              Top = 20
              Width = 123
              Height = 21
              DataField = 'AssetCategoryID'
              DataSource = DSModelNumber
              KeyField = 'AssetCategoryID'
              ListField = 'AssetCategory'
              ListSource = DMasset.DSAssetCategory
              TabOrder = 13
            end
          end
          object GroupBox7: TGroupBox
            Left = 2
            Top = 290
            Width = 820
            Height = 280
            Align = alBottom
            Caption = #27983#35272#21306
            TabOrder = 2
            object DBGridEh7: TDBGridEh
              Left = 2
              Top = 15
              Width = 816
              Height = 263
              Align = alClient
              DataSource = DSModelNumber
              Flat = True
              FooterColor = clSilver
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              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 = DBGridEh1DrawColumnCell
              OnTitleClick = DBGridEh1TitleClick
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ModelNumberID'
                  Footer.Value = #24635#35760#24405
                  Footer.ValueType = fvtStaticText
                  Footers = <>
                  Title.Caption = #22411#21495#26631#35782
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'type'
                  Footers = <>
                  Title.Caption = #22823#31867#21035
                  Width = 53
                end
                item
                  EditButtons = <>
                  FieldName = 'AssetCategory'
                  Footers = <>
                  Title.Caption = #36164#20135#31867#21035
                  Width = 70
                end
                item
                  EditButtons = <>
                  FieldName = 'MakeName'
                  Footers = <>
                  Title.Caption = #21697#29260
                  Width = 80
                end
                item
                  EditButtons = <>
                  FieldName = 'ModelNumberName'
                  Footer.ValueType = fvtCount
                  Footers = <>
                  Title.Caption = #22411#21495#21517#31216
                  Width = 80
                end
                item
                  EditButtons = <>
                  FieldName = 'Processor'
                  Footers = <>
                  Title.Caption = #22788#29702#22120
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'memory'
                  Footers = <>
                  Title.Caption = #20869#23384
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'Chip'
                  Footers = <>
                  Title.Caption = #33455#29255#32452
                  Width = 70
                end
                item
                  EditButtons = <>
                  FieldName = 'Display'
                  Footers = <>
                  Title.Caption = #26174#21345
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'Sound'
                  Footers = <>
                  Title.Caption = #22768#21345
                  Width = 70
                end
                item
                  EditButtons = <>
                  FieldName = 'Network'
                  Footers = <>
                  Title.Caption = #32593#21345
                  Width = 70
                end
                item
                  EditButtons = <>
                  FieldName = 'Disk'
                  Footers = <>
                  Title.Caption = #30828#30424
                  Width = 40
                end
                item
                  EditButtons = <>
                  FieldName = 'Cdrom'
                  Footers = <>
                  Title.Caption = #20809#39537
                  Width = 40
                end
                item
                  EditButtons = <>
                  FieldName = 'memo'
                  Footers = <>
                  Title.Caption = #22791#27880
                end>
            end
          end
          object DBNavigator7: TDBNavigator
            Left = 64
            Top = 267
            Width = 702
            Height = 24
            DataSource = DSModelNumber
            VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh]
            Flat = True
            Hints.Strings = (
              #31532#19968#26465#35760#24405
              #19978#19968#26465#35760#24405
              #19979#19968#26465#35760#24405
              #26368#21518#19968#26465#35760#24405
              #26032#24314#35760#24405
              #21024#38500#35760#24405
              #32534#36753#35760#24405
              #20445#23384#20462#25913
              #21462#28040#20462#25913
              #21047#26032#25968#25454)
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
          end
          object Panel11: TPanel
            Left = 6
            Top = 267
            Width = 56
            Height = 23
            Caption = '0/0'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #21697#29260
        ImageIndex = 1
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 824
          Height = 572
          Align = alClient
          BevelInner = bvLowered
          Caption = 'Panel5'
          TabOrder = 0
          object DBNavigator4: TDBNavigator
            Left = 2
            Top = 109
            Width = 774
            Height = 25
            DataSource = DMasset.DSMake
            VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh]
            Flat = True
            Hints.Strings = (
              #31532#19968#26465#35760#24405
              #19978#19968#26465#35760#24405
              #19979#19968#26465#35760#24405
              #26368#21518#19968#26465#35760#24405
              #26032#24314#35760#24405
              #21024#38500#35760#24405
              #32534#36753#35760#24405
              #20445#23384#20462#25913
              #21462#28040#20462#25913
              #21047#26032#25968#25454)
            TabOrder = 0
          end
          object GroupBox9: TGroupBox
            Left = 2
            Top = 2
            Width = 820
            Height = 105
            Align = alTop
            Caption = #32534#36753#21306
            TabOrder = 1
            object Label38: TLabel
              Left = 48
              Top = 40
              Width = 33
              Height = 13
              AutoSize = False
              Caption = #21697#29260
            end
            object DBEdit32: TDBEdit
              Left = 104
              Top = 40
              Width = 145
              Height = 21
              DataField = 'MakeName'
              DataSource = DMasset.DSMake
              TabOrder = 0
            end
          end
          object GroupBox10: TGroupBox
            Left = 2
            Top = 142
            Width = 820
            Height = 428
            Align = alBottom
            Caption = #27983#35272#21306
            TabOrder = 2
            object DBGridEh4: TDBGridEh
              Left = 2
              Top = 15
              Width = 816
              Height = 411
              Align = alClient
              DataSource = DMasset.DSMake
              Flat = True
              FooterColor = clSilver
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              FooterRowCount = 1
              SumList.Active = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              OnDrawColumnCell = DBGridEh1DrawColumnCell
              OnTitleClick = DBGridEh1TitleClick
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'MakeID'
                  Footer.Value = #24635#35760#24405
                  Footer.ValueType = fvtStaticText
                  Footers = <>
                  Title.Caption = #21697#29260#26631#35782
                end
                item
                  EditButtons = <>
                  FieldName = 'MakeName'
                  Footer.ValueType = fvtCount
                  Footers = <>
                  Title.Caption = #21697#29260#21517#31216
                end>
            end
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = #21592#24037
        ImageIndex = 2
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 824
          Height = 572
          Align = alClient
          BevelInner = bvLowered
          Caption = 'Panel6'
          TabOrder = 0
          object GroupBox1: TGroupBox
            Left = 6
            Top = 2
            Width = 779
            Height = 66
            Caption = #26597#35810#21306
            TabOrder = 0
            object Label1: TLabel
              Left = 24
              Top = 32
              Width = 57
              Height = 13
              AutoSize = False
              Caption = #22995#21517