u_search.dfm

以多个信息系统为例

object F_search: TF_search
  Left = 76
  Top = 103
  BorderStyle = bsSingle
  Caption = '查询'
  ClientHeight = 453
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 16
    Top = 88
    Width = 60
    Height = 13
    AutoSize = False
    Caption = '客户列表：'
  end
  object Label4: TLabel
    Left = 344
    Top = 88
    Width = 60
    Height = 13
    Caption = '入住情况：'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 617
    Height = 65
    Caption = '查询条件'
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 28
      Width = 48
      Height = 13
      AutoSize = False
      Caption = '证件号：'
    end
    object Label2: TLabel
      Left = 168
      Top = 28
      Width = 48
      Height = 13
      AutoSize = False
      Caption = '姓　名：'
    end
    object Label5: TLabel
      Left = 312
      Top = 28
      Width = 48
      Height = 13
      Caption = '来源地：'
    end
    object Label6: TLabel
      Left = 464
      Top = 28
      Width = 48
      Height = 13
      Caption = '客房号：'
    end
    object i_id: TEdit
      Left = 72
      Top = 24
      Width = 81
      Height = 21
      TabOrder = 0
      OnKeyDown = i_idKeyDown
    end
    object i_name: TEdit
      Left = 216
      Top = 24
      Width = 81
      Height = 21
      TabOrder = 1
      OnKeyDown = i_nameKeyDown
    end
    object i_from: TEdit
      Left = 360
      Top = 24
      Width = 89
      Height = 21
      TabOrder = 2
      OnKeyDown = i_fromKeyDown
    end
    object i_room: TEdit
      Left = 512
      Top = 24
      Width = 81
      Height = 21
      TabOrder = 3
      OnKeyDown = i_roomKeyDown
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 104
    Width = 121
    Height = 137
    DataSource = DM_main.DS_custom_list
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Caption = '证件号'
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 336
    Top = 104
    Width = 289
    Height = 345
    DataSource = DM_main.DS_items_info
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ROOM'
        Title.Caption = '客房'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MODE'
        Title.Caption = '方式'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'START_TIME'
        Title.Caption = '起始时间'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'END_TIME'
        Title.Caption = '结束时间'
        Visible = True
      end>
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 248
    Width = 321
    Height = 201
    Caption = '详细信息：'
    TabOrder = 3
    object Label7: TLabel
      Left = 16
      Top = 24
      Width = 60
      Height = 13
      AutoSize = False
      Caption = '证件编号：'
    end
    object Label8: TLabel
      Left = 16
      Top = 48
      Width = 60
      Height = 13
      AutoSize = False
      Caption = '证件类型：'
    end
    object Label9: TLabel
      Left = 168
      Top = 24
      Width = 36
      Height = 13
      AutoSize = False
      Caption = '姓名：'
    end
    object Label11: TLabel
      Left = 168
      Top = 88
      Width = 36
      Height = 13
      AutoSize = False
      Caption = '来源：'
    end
    object Label12: TLabel
      Left = 16
      Top = 72
      Width = 60
      Height = 13
      Caption = '通讯方法：'
    end
    object Label13: TLabel
      Left = 16
      Top = 128
      Width = 36
      Height = 13
      Caption = '备注：'
    end
    object DBText1: TDBText
      Left = 80
      Top = 24
      Width = 65
      Height = 17
      DataField = 'ID'
      DataSource = DM_main.DS_custom_info
    end
    object DBText2: TDBText
      Left = 208
      Top = 24
      Width = 65
      Height = 17
      DataField = 'NAME'
      DataSource = DM_main.DS_custom_info
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 80
      Top = 44
      Width = 73
      Height = 21
      DataField = 'ID_TYPE'
      DataSource = DM_main.DS_custom_info
      KeyField = 'CODE'
      ListField = 'DESCRIPT'
      ListSource = DM_main.DS_id_type
      TabOrder = 0
    end
    object DBRadioGroup1: TDBRadioGroup
      Left = 168
      Top = 48
      Width = 137
      Height = 33
      Caption = '性别'
      Columns = 2
      DataField = 'SEX'
      DataSource = DM_main.DS_custom_info
      Items.Strings = (
        '男'
        '女')
      TabOrder = 1
      Values.Strings = (
        'M'
        'F')
    end
    object DBMemo1: TDBMemo
      Left = 16
      Top = 88
      Width = 137
      Height = 33
      DataField = 'ADDR'
      DataSource = DM_main.DS_custom_info
      TabOrder = 2
    end
    object DBEdit1: TDBEdit
      Left = 168
      Top = 104
      Width = 137
      Height = 21
      DataField = 'COME_FROM'
      DataSource = DM_main.DS_custom_info
      TabOrder = 3
    end
    object DBMemo2: TDBMemo
      Left = 16
      Top = 144
      Width = 289
      Height = 49
      DataField = 'REMARK'
      DataSource = DM_main.DS_custom_info
      TabOrder = 4
    end
  end
  object DBImage1: TDBImage
    Left = 136
    Top = 104
    Width = 193
    Height = 137
    DataField = 'ID_COPY'
    DataSource = DM_main.DS_custom_info
    TabOrder = 4
  end
end