find_unit.dfm

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

object find: Tfind
  Left = 226
  Top = 127
  Width = 662
  Height = 520
  Caption = '查找客户'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 654
    Height = 161
    ActivePage = TabSheet1
    Align = alTop
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '快速查寻'
      object Label1: TLabel
        Left = 8
        Top = 40
        Width = 24
        Height = 12
        Caption = '姓名'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 80
        Width = 36
        Height = 12
        Caption = '证件号'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 0
        Width = 36
        Height = 12
        Caption = '房间号'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 8
        Top = 56
        Width = 161
        Height = 20
        Enabled = False
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 8
        Top = 96
        Width = 161
        Height = 20
        Enabled = False
        TabOrder = 1
      end
      object Button1: TButton
        Left = 192
        Top = 96
        Width = 65
        Height = 25
        Caption = '查  询'
        Default = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button1Click
      end
      object RadioGroup2: TRadioGroup
        Left = 272
        Top = 16
        Width = 145
        Height = 105
        Caption = '查询关键字'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          '按房间号'
          '按姓名'
          '按证件号')
        ParentFont = False
        TabOrder = 3
        OnClick = RadioGroup2Click
      end
      object ComboBox1: TComboBox
        Left = 8
        Top = 16
        Width = 105
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = '组合查寻'
      ImageIndex = 1
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 24
        Height = 12
        Caption = '姓名'
      end
      object Label5: TLabel
        Left = 184
        Top = 8
        Width = 24
        Height = 12
        Caption = '性别'
      end
      object Label6: TLabel
        Left = 8
        Top = 64
        Width = 48
        Height = 12
        Caption = '证件号码'
      end
      object Edit3: TEdit
        Left = 8
        Top = 24
        Width = 97
        Height = 20
        TabOrder = 0
      end
      object Edit4: TEdit
        Left = 8
        Top = 80
        Width = 153
        Height = 20
        TabOrder = 1
      end
      object Button2: TButton
        Left = 320
        Top = 80
        Width = 73
        Height = 25
        Caption = '查  询'
        Default = True
        TabOrder = 2
        OnClick = Button2Click
      end
      object ComboBox2: TComboBox
        Left = 184
        Top = 24
        Width = 57
        Height = 20
        ItemHeight = 12
        TabOrder = 3
        Items.Strings = (
          '男'
          '女')
      end
      object DateTimePicker1: TDateTimePicker
        Left = 184
        Top = 80
        Width = 113
        Height = 20
        CalAlignment = dtaLeft
        Date = 37364.8535433796
        Time = 37364.8535433796
        DateFormat = dfShort
        DateMode = dmComboBox
        Enabled = False
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
        OnChange = DateTimePicker1Change
      end
      object CheckBox1: TCheckBox
        Left = 184
        Top = 64
        Width = 97
        Height = 17
        Caption = '入住日期'
        TabOrder = 5
        OnClick = CheckBox1Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = '查寻方式'
      ImageIndex = 2
      object RadioGroup1: TRadioGroup
        Left = 8
        Top = 16
        Width = 169
        Height = 97
        Caption = '查寻方式'
        ItemIndex = 0
        Items.Strings = (
          '精确查询'
          '模糊查询')
        TabOrder = 0
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 161
    Width = 654
    Height = 332
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 513
      Height = 311
      Align = alClient
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Fh'
          Title.Alignment = taCenter
          Title.Caption = '房间号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Xm'
          Title.Alignment = taCenter
          Title.Caption = '姓名'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Xb'
          Title.Alignment = taCenter
          Title.Caption = '性别'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Zjh'
          Title.Alignment = taCenter
          Title.Caption = '证件号码'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Rq'
          Title.Alignment = taCenter
          Title.Caption = '入住日期'
          Visible = True
        end>
    end
    object DBMemo1: TDBMemo
      Left = 514
      Top = 1
      Width = 139
      Height = 311
      Align = alRight
      DataField = 'Bz'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object StatusBar1: TStatusBar
      Left = 1
      Top = 312
      Width = 652
      Height = 19
      Panels = <
        item
          Width = 50
        end
        item
          Width = 50
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '客户登记表.db'
    Left = 404
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 432
    Top = 24
  end
  object Query1: TQuery
    DatabaseName = '.\data'
    Left = 404
    Top = 52
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 432
    Top = 52
  end
end