search.dfm

此程序可供初学者学习参考

object SearchFrm: TSearchFrm
  Left = 237
  Top = 224
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #23458#25143#26597#35810
  ClientHeight = 440
  ClientWidth = 803
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 97
    Width = 803
    Height = 343
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 799
      Height = 339
      Align = alClient
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 803
    Height = 97
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 799
      Height = 93
      Align = alClient
      Caption = #36873#25321#26597#35810
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 304
        Top = 54
        Width = 58
        Height = 24
        Caption = #30830#35748
        Flat = True
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777700007777777777777777777700007777777777007007007700007777
          0077770070070077000077777007777777777777000077777700777777777777
          0000777777700700007777770000777777770077770777770000777777770777
          77707777000077777770777F777707770000777777707F77F777077700007777
          777077F77F770777000077777777077F77707777000077777777707777077777
          0000777777777700007777770000777777777777777777770000777777777777
          7777777700007777777777777777777700007777777777777777777700007777
          77777777777777770000}
        Visible = False
        OnClick = SpeedButton1Click
      end
      object Label1: TLabel
        Left = 312
        Top = 24
        Width = 121
        Height = 13
        AutoSize = False
        Caption = '#~'#27880#24847#20197#30005#35805'1'#20026#20934'~#'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object RadioButton1: TRadioButton
        Left = 64
        Top = 22
        Width = 81
        Height = 17
        Caption = #21306#21495#26597#35810
        TabOrder = 0
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 63
        Top = 55
        Width = 89
        Height = 17
        Caption = #31867#22411#26597#35810
        TabOrder = 1
        OnClick = RadioButton2Click
      end
      object Edit1: TEdit
        Left = 151
        Top = 22
        Width = 151
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 2
        Visible = False
        OnChange = Edit1Change
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 151
        Top = 56
        Width = 151
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        KeyField = 'typedocument'
        ListField = 'typedocument'
        ListSource = DataSource2
        TabOrder = 3
        Visible = False
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = Datafrm.con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *from client')
    Left = 578
    Top = 26
    object ADOQuery1DSDesigner: TAutoIncField
      FieldName = #32534#21495
      ReadOnly = True
    end
    object ADOQuery1ClientID: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      DisplayWidth = 10
      FieldName = 'ClientID'
      Size = 50
    end
    object ADOQuery1ClientName: TWideStringField
      DisplayLabel = #20844#21496#21517#31216'('#23458#25143#21517#31216')'
      DisplayWidth = 20
      FieldName = 'ClientName'
      Size = 50
    end
    object ADOQuery1ClientMobil: TWideStringField
      DisplayLabel = #25163#26426
      DisplayWidth = 25
      FieldName = 'ClientMobil'
      Size = 50
    end
    object ADOQuery1ClientTel: TWideStringField
      DisplayLabel = #30005#35805'1'
      DisplayWidth = 20
      FieldName = 'ClientTel'
      Size = 50
    end
    object ADOQuery1ClientTel1: TWideStringField
      DisplayLabel = #30005#35805'2'
      DisplayWidth = 20
      FieldName = 'ClientTel1'
      Size = 50
    end
    object ADOQuery1ClientType: TWideStringField
      DisplayLabel = #20844#21496#31867#22411
      DisplayWidth = 15
      FieldName = 'ClientType'
      Size = 50
    end
    object ADOQuery1ClientManager: TWideStringField
      DisplayLabel = #36127#36131#20154
      DisplayWidth = 10
      FieldName = 'ClientManager'
      Size = 50
    end
    object ADOQuery1ClientEmail: TWideStringField
      DisplayLabel = 'Email'
      DisplayWidth = 25
      FieldName = 'ClientEmail'
      Size = 100
    end
    object ADOQuery1ClientMemo: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 30
      FieldName = 'ClientMemo'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 546
    Top = 26
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 498
    Top = 18
  end
  object ADOQuery2: TADOQuery
    Connection = Datafrm.con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  distinct typedocument from companytype')
    Left = 466
    Top = 18
  end
end