unit33.~dfm

本系统是SQL SERVER的管理系统

object Form33: TForm33
  Left = 138
  Top = 128
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = '合同查询'
  ClientHeight = 566
  ClientWidth = 817
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000010000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000077
    7777000000000000000000000000777777777777777700000000000000000000
    00000077777777700000000000000000FFFF77DDDDD777777000000000000FFF
    FFFF777DDDDDDD7777700000000000000000077DDDDDDDDDD777700000000000
    0000000777DDDDDDDDD77700000000000000000000777D777DD7777000000000
    000000000000077F777777770000007770000000000000007777787770000799
    9700000000000000777778C7770009999700000000000000007888CC77700F99
    98700000000000000007CCCCC77000FF9770000000000000000077CCCC777000
    0777000000000000000008CCCC77970000F9700000000000000078FCCCC79970
    707997700000000000007877FCC7F997979999977700000000078777FCC70F99
    9999999998877777777A88877FC700099999999987788887B7AAAAAA77C00009
    999999998877777BB7AAAAAAA7C0779999999999887777BBB7777AAAACC09999
    9999999988777777BBB7777AAC000099999999999877777BBBBB7777AA000000
    99999999987777BBBBBBB77AA0000000009999999877777BBBBBBAA000000000
    0000999998877777BB77F00000000000000000099887777777F000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFC0FFFFFF0000FFFFFFC01FFFF00007FF8000
    01FFFF80007FFFE0003FFFFC001FFFFF800FC7FFF00783FFF00383FFFC0181FF
    FE01C1FFFF0078FFFF803C7FFF00141FFF000003FE0080000000E0000001E000
    00010000000100000003C0000003F0000007FC00001FFF00007FFFE001FF}
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object epEfButton1: TepEfButton
    Left = 8
    Top = 536
    Width = 65
    Height = 25
    Transparent = False
    ActiveTextColor = clBlue
    OnClick = epEfButton1Click
    Spacing = 0
    EfCaption = False
    BtnFrameWidth = 3
    BtnColor = clBtnFace
    FrameWidth = 2
    ParentFont = False
    Caption = '首条'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
  end
  object epEfButton2: TepEfButton
    Left = 80
    Top = 536
    Width = 65
    Height = 25
    Transparent = False
    ActiveTextColor = clBlue
    OnClick = epEfButton2Click
    Spacing = 0
    EfCaption = False
    BtnFrameWidth = 3
    BtnColor = clBtnFace
    FrameWidth = 2
    ParentFont = False
    Caption = '上一条'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
  end
  object epEfButton3: TepEfButton
    Left = 152
    Top = 536
    Width = 65
    Height = 25
    Transparent = False
    ActiveTextColor = clBlue
    OnClick = epEfButton3Click
    Spacing = 0
    EfCaption = False
    BtnFrameWidth = 3
    BtnColor = clBtnFace
    FrameWidth = 2
    ParentFont = False
    Caption = '下一条'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
  end
  object epEfButton4: TepEfButton
    Left = 224
    Top = 536
    Width = 65
    Height = 25
    Transparent = False
    ActiveTextColor = clBlue
    OnClick = epEfButton4Click
    Spacing = 0
    EfCaption = False
    BtnFrameWidth = 3
    BtnColor = clBtnFace
    FrameWidth = 2
    ParentFont = False
    Caption = '尾条'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
  end
  object epEfButton5: TepEfButton
    Left = 296
    Top = 536
    Width = 65
    Height = 25
    Transparent = False
    ActiveTextColor = clBlue
    OnClick = epEfButton5Click
    Spacing = 0
    EfCaption = False
    BtnFrameWidth = 3
    BtnColor = clBtnFace
    FrameWidth = 2
    ParentFont = False
    Caption = '刷新'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
  end
  object epEfTrBtn1: TepEfTrBtn
    Left = 408
    Top = 536
    Width = 75
    Height = 25
    Transparent = True
    ActiveTextColor = clBackground
    OnClick = epEfTrBtn1Click
    Spacing = 0
    Noise = False
    FrameWidth = 2
    Caption = '查询'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object epEfTrBtn2: TepEfTrBtn
    Left = 488
    Top = 536
    Width = 75
    Height = 25
    Transparent = True
    ActiveTextColor = clBackground
    OnClick = epEfTrBtn2Click
    Spacing = 0
    Noise = False
    FrameWidth = 2
    Caption = '打印'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object epEfTrBtn3: TepEfTrBtn
    Left = 728
    Top = 536
    Width = 75
    Height = 25
    Transparent = True
    ActiveTextColor = clBackground
    OnClick = epEfTrBtn3Click
    Spacing = 0
    Noise = False
    FrameWidth = 2
    Caption = '关闭'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 817
    Height = 473
    DataSource = Data.comDataSource
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clMaroon
    TitleFont.Height = -16
    TitleFont.Name = '楷体_GB2312'
    TitleFont.Style = []
    OnKeyDown = FormKeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'comno'
        Title.Caption = '合同号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cname'
        Title.Caption = '客户名称'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'tel'
        Title.Caption = '联系电话'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nameno'
        Title.Caption = '身份证号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'address'
        Title.Caption = '地址'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'saledate'
        Title.Caption = '购车日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'carno'
        Title.Caption = '车牌号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'number'
        Title.Caption = '车辆序列号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cartype'
        Title.Caption = '车型'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'motor'
        Title.Caption = '发动机号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'chassis'
        Title.Caption = '底盘号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'color'
        Title.Caption = '颜色'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cdate'
        Title.Caption = '到车日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'spring'
        Title.Caption = '车辆来源'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cmemo'
        Title.Caption = '车辆状况'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'salepr'
        Title.Caption = '销售总价格'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'putpr'
        Title.Caption = '入户费用'
        Visible = True
      end