unit1.dfm

一个DEPHI设备保养系统全套,不错的设计参考

      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 6
      Top = 6
      Width = 39
      Height = 16
      Caption = #21333#20301#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 304
      Top = 7
      Width = 39
      Height = 16
      Caption = #25490#24207#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object cbotype: TComboBox
      Left = 251
      Top = 3
      Width = 48
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = '0'
      OnChange = cbotypeChange
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '7'
        '8')
    end
    object cboarea: TComboBox
      Left = 143
      Top = 3
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = 'ALL'
      OnChange = cboareaChange
      Items.Strings = (
        'ALL')
    end
    object cbounit: TComboBox
      Left = 42
      Top = 3
      Width = 61
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = 'ALL'
      OnChange = cbounitChange
      OnClick = cbounitClick
      Items.Strings = (
        'ALL'
        'PM'
        'BC'
        'SC')
    end
    object cboorderby: TComboBox
      Left = 337
      Top = 4
      Width = 56
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = #21333#20301
      OnChange = cboorderbyChange
      Items.Strings = (
        #21333#20301
        #21306#22495
        #31867#21035)
    end
  end
  object dbgrid: TDBGrid
    Left = 4
    Top = 72
    Width = 786
    Height = 435
    Color = clInfoBk
    Ctl3D = False
    DataSource = adods
    Enabled = False
    ParentCtl3D = False
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = dbgridDrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = #21333#20301
        PickList.Strings = (
          'PM'
          'BC'
          'SC')
        Width = 38
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21306#22495
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31867#21035
        PickList.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '7'
          '8')
        Width = 32
        Visible = True
      end
      item
        Expanded = False
        FieldName = #39033#30446
        Width = 250
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24037#20855
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25104#25928#30830#35748
        Width = 230
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20445#20859#20154
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30830#35748#20154
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #37325#35201#24615
        Width = 50
        Visible = True
      end>
  end
  object adoque: TADOQuery
    Connection = frmmain.adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from e_table ')
    Left = 200
    Top = 104
    object adoqueDSDesigner: TWideStringField
      Alignment = taCenter
      DisplayWidth = 5
      FieldName = #21333#20301
      Size = 8
    end
    object adoqueDSDesigner2: TWideStringField
      FieldName = #21306#22495
      Size = 8
    end
    object adoqueDSDesigner3: TWideStringField
      Alignment = taCenter
      FieldName = #31867#21035
      Size = 2
    end
    object adoqueDSDesigner4: TWideStringField
      DisplayWidth = 40
      FieldName = #39033#30446
      Size = 80
    end
    object adoqueDSDesigner5: TWideStringField
      DisplayWidth = 25
      FieldName = #24037#20855
      Size = 80
    end
    object adoqueDSDesigner10: TWideStringField
      FieldName = #25104#25928#30830#35748
      Size = 255
    end
    object adoqueDSDesigner6: TWideStringField
      DisplayWidth = 8
      FieldName = #20445#20859#20154
      Size = 10
    end
    object adoqueDSDesigner7: TWideStringField
      DisplayWidth = 8
      FieldName = #30830#35748#20154
      Size = 10
    end
    object adoqueDSDesigner11: TWideStringField
      FieldName = #37325#35201#24615
      Size = 50
    end
  end
  object adods: TDataSource
    DataSet = adoque
    Left = 232
    Top = 104
  end
  object ImageList1: TImageList
    Left = 168
    Top = 104
    Bitmap = {
      494C01010E001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      000000000000360000002800000040000000500000000100180000000000003C
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000