customserach.dfm

机器须安装SQL Server2000 程序安装完之后

object CustomSearchForm: TCustomSearchForm
  Left = 184
  Top = 138
  Width = 592
  Height = 445
  Caption = '客人资料查询'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 584
    Height = 418
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 582
      Height = 416
      Align = alClient
      Caption = 'Panel2'
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 1
        Top = 1
        Width = 580
        Height = 88
        Align = alTop
        Caption = '请输入查找条件'
        TabOrder = 0
        object BtnSearch: TBitBtn
          Left = 120
          Top = 48
          Width = 75
          Height = 25
          Caption = '查找'
          Default = True
          TabOrder = 0
          OnClick = BtnSearchClick
        end
        object RadioButton2: TRadioButton
          Left = 80
          Top = 24
          Width = 73
          Height = 17
          Caption = '按省份'
          TabOrder = 1
          OnClick = RadioButton2Click
        end
        object RadioButton1: TRadioButton
          Left = 8
          Top = 24
          Width = 57
          Height = 17
          Caption = '按姓名'
          Checked = True
          TabOrder = 2
          TabStop = True
          OnClick = RadioButton1Click
        end
        object ComboBox1: TComboBox
          Left = 8
          Top = 48
          Width = 97
          Height = 20
          ItemHeight = 12
          TabOrder = 3
        end
      end
      object DBGrid1: TDBGrid
        Left = 1
        Top = 89
        Width = 580
        Height = 326
        Align = alClient
        DataSource = DSTemp
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CustomID'
            Title.Caption = '客户编号'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Name'
            Title.Caption = '姓名'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Age'
            Title.Caption = '年龄'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Sex'
            Title.Caption = '性别'
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ComeFrom'
            Title.Caption = '来自何处'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Address'
            Title.Caption = '住址'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Phone'
            Title.Caption = '电话'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Country'
            Title.Caption = '国家'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PassType'
            Title.Caption = '证件类别'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PassNumber'
            Title.Caption = '证件号码'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Province'
            Title.Caption = '省'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WhereTo'
            Title.Caption = '去哪'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Company'
            Title.Caption = '工作单位'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Remark'
            Title.Caption = '备注'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WhyIn'
            Title.Caption = '为何住宿'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Job'
            Title.Caption = '职业'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SomeImport'
            Title.Caption = '是否有贵重物'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WhereCome'
            Title.Caption = '去哪'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'GroupName'
            Width = 50
            Visible = True
          end>
      end
    end
  end
  object ADOQueryTemp: TADOQuery
    Connection = DM.ADOConnectionHotel
    Parameters = <>
    SQL.Strings = (
      'select * from custom')
    Left = 210
    Top = 130
    object ADOQueryTempCustomID: TAutoIncField
      FieldName = 'CustomID'
      ReadOnly = True
    end
    object ADOQueryTempPassType: TStringField
      FieldName = 'PassType'
      Size = 50
    end
    object ADOQueryTempName: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object ADOQueryTempSex: TStringField
      FieldName = 'Sex'
      FixedChar = True
      Size = 4
    end
    object ADOQueryTempComeFrom: TStringField
      FieldName = 'ComeFrom'
      Size = 50
    end
    object ADOQueryTempAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object ADOQueryTempPhone: TStringField
      FieldName = 'Phone'
      Size = 50
    end
    object ADOQueryTempCountry: TStringField
      FieldName = 'Country'
      Size = 50
    end
    object ADOQueryTempPassNumber: TStringField
      FieldName = 'PassNumber'
      Size = 50
    end
    object ADOQueryTempProvince: TStringField
      FieldName = 'Province'
      Size = 50
    end
    object ADOQueryTempWhereTo: TStringField
      FieldName = 'WhereTo'
      Size = 50
    end
    object ADOQueryTempCompany: TStringField
      FieldName = 'Company'
      Size = 50
    end
    object ADOQueryTempRemark: TStringField
      FieldName = 'Remark'
      Size = 200
    end
    object ADOQueryTempWhyIn: TStringField
      FieldName = 'WhyIn'
      Size = 50
    end
    object ADOQueryTempJob: TStringField
      FieldName = 'Job'
      Size = 50
    end
    object ADOQueryTempSomeImport: TStringField
      FieldName = 'SomeImport'
      Size = 50
    end
    object ADOQueryTempWhereCome: TStringField
      FieldName = 'WhereCome'
      Size = 50
    end
    object ADOQueryTempGroupName: TStringField
      FieldName = 'GroupName'
      Size = 50
    end
    object ADOQueryTempAge: TIntegerField
      FieldName = 'Age'
    end
  end
  object DSTemp: TDataSource
    DataSet = ADOQueryTemp
    Left = 369
    Top = 137
  end
  object ADOQueryPro: TADOQuery
    Connection = DM.ADOConnectionHotel
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from province')
    Left = 274
    Top = 114
  end
end