unit2.dfm

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

              1A14141414141518090824020D181E1E030321061E0315181F0824020D180F03
              21181818030303181308241A05181803181818030303030313080D14120C0C1B
              0C0C0C0C0C1B140C25080D1E060D19170D19192412170404160B0D0F0F000000
              00000C0C0C0020080B0B050C18180000000E23040100200B0B0B0B050C0C0C00
              070B0100000B0B0B0B0B0B0B05050D190B0B0B0B0B0B0B0B1B0B0B0B0B0B0B0B
              0B0B1B0B0B1B0B0B0B0B0B0B1B0B0B1B0B0B0B0B0B0B0B0B0B0B}
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = #20197#24448#25253#34920#36164#26009#32500#25252
        ImageIndex = 2
        object GroupBox3: TGroupBox
          Left = 0
          Top = -3
          Width = 440
          Height = 71
          TabOrder = 0
          object Label4: TLabel
            Left = 14
            Top = 30
            Width = 156
            Height = 16
            Caption = #35831#36873#25321#35201#21024#38500#30340#25253#34920#21517#31216#65306
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object cbodataopen: TComboBox
            Left = 176
            Top = 24
            Width = 129
            Height = 21
            ItemHeight = 13
            TabOrder = 0
            OnChange = cbodataopenChange
            OnDropDown = cbodataopenDropDown
          end
          object button4: TBitBtn
            Left = 320
            Top = 21
            Width = 89
            Height = 25
            Caption = #21024#38500
            Enabled = False
            TabOrder = 1
            OnClick = Button4Click
            Glyph.Data = {
              36050000424D3605000000000000360400002800000010000000100000000100
              0800000000000001000000000000000000000001000000010000831709008319
              0B0088261000871C1300881C1400892019008B201A008B221A008B211C008C22
              1D008B221E008C231F008C2320008D2620008D2B200091272700922A27009230
              280093352900922B2B00932B2B00932E2B00942D2D00932C2E0095312E009135
              2E00942D2F0094343100962F32009832340097313500993437009C3C38009A37
              3C009B383D009C393E009B3A3F009C3A3F009D3D41009F3E44009E404500A040
              4700A0434A00A1454C00A34D4F00A44C5000A44B5200A44E5400A8595500AB62
              5800A8555A00A9565D00A8555E00AB5D5F00A9576100AB5D6200AE606200AA59
              6300AA5B6400AC5E6400AB5C6600AC5E6700AF646E00B36D7600B36F7900B872
              7B00B5727C00B5747C00B6737D00B8747E00B7757E00BD838C00BC848D00BE84
              8D00C0899200C28B9300C18C9500C28E9800C6949800C5949D00C6949E00C798
              A100CDA0A200C99BA400CE9EA600CD9EA900CEA3AB00CCA3AC00CEA6AE00D0A9
              B200D3AAB400D3B0B800D7B7BE00D7B9BF00DABDC300D9BEC400DEBFC700DDC2
              C800E0C6CC00DDC7CC00E0C5CD00DEC8CE00DFCACE00DEC9CF00E1CCD000E2CE
              D300E7D3D700E5D5D900E6D6DA00E7D7DB00E9DADE00ECDEE100F0E3E800F0E6
              E900F0E7E900F1E7E900F2E9EB00F3EDEF00F5EEEF00F4EEF000F6F1F300FCFB
              FB00000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000000000000000000000000000000000000000000005F5F5F5F5F5F
              5F30305F5F5F5F5F5F5F5F5F5F5F5F5F3050280A5F5F5F5F5F5F5F5F02020108
              1B3026040101110E5F5F5F5F37141C1C1C26240C080300115F5F5F5F23232929
              2723211E0F0905125F5F5F5F2A29363636342723211A0B050A5F5F3A13164242
              422F0F0F2522170A0A5F38181D2C4D4D4932150D392B211F06316041454B585B
              53643B353F362E2E2E105F565C5E656763594A4D463E332E2E5F5F625F696D6E
              6B685D514740342E2E5F5F5F666D7375716C63574C423C2E5F5F5F5F446F7879
              77614E5B4D423D205F5F5F5F442D7478765A261948423A073A5F5F5F2D525F72
              6A552D434F5F2E3A5F5F5F5F5F5F5F5F5F70545F5F5F5F5F5F5F}
          end
        end
      end
    end
    object PageControl2: TPageControl
      Left = 496
      Top = 15
      Width = 275
      Height = 97
      ActivePage = TabSheet4
      Style = tsFlatButtons
      TabOrder = 1
      object TabSheet4: TTabSheet
        Caption = #20197#20303#36164#26009#26597#35810
        object GroupBox4: TGroupBox
          Left = 0
          Top = -5
          Width = 260
          Height = 71
          TabOrder = 0
          object Label6: TLabel
            Left = 17
            Top = 31
            Width = 100
            Height = 16
            Caption = #35831#36873#25321#25253#34920#21517#31216#65306
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object cbooldtable: TComboBox
            Left = 120
            Top = 28
            Width = 121
            Height = 21
            ItemHeight = 13
            TabOrder = 0
            OnChange = cbooldtableChange
            OnDropDown = cbooldtableDropDown
          end
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'SQL'#35821#21477#26597#35810
        ImageIndex = 1
        object GroupBox5: TGroupBox
          Left = 0
          Top = -5
          Width = 260
          Height = 71
          TabOrder = 0
          object memosql: TMemo
            Left = 8
            Top = 24
            Width = 177
            Height = 33
            Lines.Strings = (
              'select * from e_table')
            TabOrder = 0
          end
          object btnsql: TBitBtn
            Left = 192
            Top = 24
            Width = 57
            Height = 33
            Caption = #26597#35810
            TabOrder = 1
            OnClick = btnsqlClick
          end
        end
      end
    end
  end
  object cbounit: TComboBox
    Left = 364
    Top = 139
    Width = 59
    Height = 21
    Enabled = False
    ItemHeight = 13
    TabOrder = 6
    Text = 'ALL'
    OnChange = cbounitChange
    Items.Strings = (
      'ALL'
      'PM'
      'BC'
      'SC')
  end
  object dbgrid: TDBGrid
    Left = 5
    Top = 168
    Width = 786
    Height = 345
    Color = clInfoBk
    Ctl3D = False
    DataSource = adods
    Enabled = False
    ParentCtl3D = False
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #21333#20301
        PickList.Strings = (
          'PM'
          'BC'
          'SC')
        Width = 38
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21306#22495
        PickList.Strings = (
          'DAG#3'
          'GREEN#3'
          'BULE#3'
          'RED#3'
          'FILM#3'
          'AL#3'
          'PM#4'
          'PW#4'
          'RES#4'
          'DAG#4'
          'GREEN#4'
          'BULE#4'
          'RED#4'
          'FILM#4'
          'AL#4')
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31867#21035
        PickList.Strings = (
          '1'
          '2'
          '3'
          '4'
          '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 = 160
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20445#20859#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30830#35748#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23436#25104#26085
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23436#25104#21542
        Visible = True
      end>
  end
  object adoque: TADOQuery
    Connection = frmmain.adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from e_table ')
    Left = 472
    Top = 224
    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 adoqueDSDesigner6: TWideStringField
      DisplayWidth = 8
      FieldName = #20445#20859#20154
      Size = 10
    end
    object adoqueDSDesigner7: TWideStringField
      DisplayWidth = 8
      FieldName = #30830#35748#20154
      Size = 10
    end
    object adoqueDSDesigner8: TDateTimeField
      DisplayWidth = 10
      FieldName = #23436#25104#26085
    end
    object adoqueDSDesigner9: TBooleanField
      FieldName = #23436#25104#21542
    end
  end
  object adods: TDataSource
    DataSet = adoque
    Left = 512
    Top = 224
  end
  object ADOCom: TADOCommand
    Connection = frmmain.adocon
    Parameters = <>
    Left = 432
    Top = 224
  end
end