cx_u.dfm

delphi7.0+SQl server 2000开发的,对于初学者有较好的参考价值

object frm_cx: Tfrm_cx
  Left = 0
  Top = 0
  Caption = #26597#35810
  ClientHeight = 403
  ClientWidth = 685
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 40
    Width = 678
    Height = 65
    TabOrder = 0
    object Label1: TLabel
      Left = 395
      Top = 6
      Width = 56
      Height = 14
      Caption = #21345#22411#20195#21495
    end
    object tj_CmB: TComboBox
      Left = 8
      Top = 23
      Width = 89
      Height = 22
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 0
      Text = #21345#21495
      Items.Strings = (
        #21345#21495
        #22995#21517
        #36523#20221#35777#21495)
    end
    object zi_MaskEdit: TMaskEdit
      Left = 153
      Top = 23
      Width = 120
      Height = 22
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 283
      Top = 22
      Width = 75
      Height = 25
      Caption = #35835' '#21345'(&R)'
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 528
      Top = 22
      Width = 65
      Height = 25
      Caption = #26597#35810'(&S)'
      TabOrder = 3
      OnClick = BitBtn2Click
    end
    object ComboBox1: TComboBox
      Left = 96
      Top = 23
      Width = 57
      Height = 22
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 14
      TabOrder = 4
      Text = '='
      Items.Strings = (
        '='
        '>'
        '<'
        '>='
        '<='
        '<>'
        'like')
    end
    object BitBtn3: TBitBtn
      Left = 607
      Top = 22
      Width = 58
      Height = 25
      Caption = #20851#38381'(&C)'
      TabOrder = 5
      OnClick = BitBtn3Click
    end
    object kxdh_ComboBox: TComboBox
      Left = 364
      Top = 23
      Width = 145
      Height = 22
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 14
      TabOrder = 6
      OnChange = kxdh_ComboBoxChange
      Items.Strings = (
        'Inside 24C01A'
        'Inside 24C02'
        'Inside 24C04'
        'Inside 24C08'
        'Inside 24C16'
        'Inside 24C32'
        'Inside 24C64'
        'Inside 24C65'
        'ATMEL 88SC101'
        'ATMEL 88SC102'
        'ATMEL 88SC103'
        'ATMEL 88SC1601'
        'ATMEL 88SC1604'
        'ATMEL 88SC1604A'
        'ATMEL 24C01A'
        'ATMEL 24C02'
        'ATMEL 24C04'
        'ATMEL 24C08'
        'ATMEL 24C16'
        'ATMEL 24C32'
        'ATMEL 24C64'
        'ATMEL 45D041'
        'MICROCHIP 24LC01B'
        'MICROCHIP 24LC08B'
        'MICROCHIP 24LC16B'
        'MICROCHIP 24C65'
        'ATMEL 93C46'
        'SIEMENS 4404'
        'SIEMENS 4406'
        'SIEMENS 4442'
        'SIEMENS 4428'
        'SIEMENS 4432'
        'SIEMENS 4418'
        '')
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 111
    Width = 678
    Height = 283
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'kh'
        Title.Caption = #21345#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xm'
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xb'
        Title.Caption = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sfzh'
        Title.Caption = #36523#20221#35777#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mz'
        Title.Caption = #27665#26063
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'csrq'
        Title.Caption = #20986#29983#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dz'
        Title.Caption = #22320#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gzdw'
        Title.Caption = #24037#20316#21333#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jkzk'
        Title.Caption = #20581#24247#29366#20917
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 32
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = '.\conn.udl'
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 64
  end
end