esqcchx.dfm

Delphi实战演练一书的配套光盘

      ValueUnchecked = 'False'
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 61
    Width = 633
    Height = 161
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '幼圆'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = '编号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '品牌'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '型号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '颜色'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '排气量'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '车辆类型'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '载客人数'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '载重量'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '车牌号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '出厂日期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '购买日期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '行驶公里'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '报价'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '车主姓名'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '身份证号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '联系电话'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '手机'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '登记日期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '截止日期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = '售出标记'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -16
        Title.Font.Name = '幼圆'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 45
    Top = 15
    Width = 57
    Height = 23
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '幼圆'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object ComboBox1: TComboBox
    Left = 152
    Top = 15
    Width = 49
    Height = 23
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '幼圆'
    Font.Style = []
    ItemHeight = 15
    ParentFont = False
    TabOrder = 6
    Items.Strings = (
      '白'
      '红'
      '黑'
      '蓝'
      '绿'
      '灰'
      '黄'
      '')
  end
  object ComboBox2: TComboBox
    Left = 248
    Top = 15
    Width = 73
    Height = 23
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '幼圆'
    Font.Style = []
    ItemHeight = 15
    ParentFont = False
    TabOrder = 7
    Items.Strings = (
      '小轿车'
      '小型客车'
      '中型客车'
      '大型客车'
      '越野车'
      '小型货车'
      '中型货车'
      '大型货车')
  end
  object Edit2: TEdit
    Left = 382
    Top = 15
    Width = 33
    Height = 23
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '幼圆'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object Edit3: TEdit
    Left = 459
    Top = 15
    Width = 41
    Height = 23
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '幼圆'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object BitBtn2: TBitBtn
    Left = 555
    Top = 14
    Width = 75
    Height = 25
    Caption = '执行查询'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '幼圆'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = BitBtn2Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 64
    Top = 472
  end
  object Query1: TQuery
    Active = True
    SQL.Strings = (
      'Select * from QiChe')
    Left = 96
    Top = 472
  end
end