bsearch.dfm

三层ERP系统 (SQL)

inherited frmSearch: TfrmSearch
  Left = 215
  Top = 156
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #26597#35426
  ClientHeight = 256
  ClientWidth = 632
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 318
    Height = 201
    Caption = #26781#20214#35373#32622
    TabOrder = 0
    object filename: TLabel
      Left = 144
      Top = 19
      Width = 56
      Height = 13
      Caption = 'filename'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 144
      Top = 56
      Width = 56
      Height = 13
      Caption = #26597#25214#26781#20214
    end
    object Label2: TLabel
      Left = 144
      Top = 112
      Width = 42
      Height = 13
      Caption = #26597#25214#20540
    end
    object grid: TDBGridEh
      Left = 2
      Top = 15
      Width = 135
      Height = 184
      Align = alLeft
      ColumnDefValues.Title.TitleButton = True
      DataSource = DSgrid
      FixedColor = 12835543
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #32048#26126#39636
      FooterFont.Style = []
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDialogFind]
      ReadOnly = True
      SortLocal = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #32048#26126#39636
      TitleFont.Style = []
      OnGetCellParams = gridGetCellParams
      OnTitleBtnClick = gridTitleBtnClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'fid'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ftableName'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'fname'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ftype'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'flength'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'fisnullable'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'fdesc'
          Footers = <>
          Title.Caption = #23383#27573#36984#38917
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'fisvisible'
          Footers = <>
          Visible = False
        end>
    end
    object tiaovalue: TwwDBEdit
      Left = 144
      Top = 131
      Width = 163
      Height = 21
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object tiaoset: TComboBox
      Left = 144
      Top = 75
      Width = 113
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Sorted = True
      TabOrder = 2
      OnChange = tiaosetChange
    end
    object rband: TRadioButton
      Left = 144
      Top = 160
      Width = 57
      Height = 17
      Caption = #24182#19988
      TabOrder = 3
    end
    object rbor: TRadioButton
      Left = 208
      Top = 160
      Width = 53
      Height = 17
      Caption = #25110#32773
      TabOrder = 4
    end
  end
  object GroupBox2: TGroupBox
    Left = 324
    Top = 8
    Width = 298
    Height = 201
    Caption = #26781#20214#29986#29983
    TabOrder = 1
    object listtiao: TListView
      Left = 2
      Top = 15
      Width = 294
      Height = 184
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      Columns = <
        item
          Caption = #38364#31995
        end
        item
          Caption = #26781#20214#36984#38917
          Width = 90
        end
        item
          Caption = #26781#20214
          Width = 60
        end
        item
          Caption = #26781#20214#20540
          Width = 90
        end>
      ColumnClick = False
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #32048#26126#39636
      Font.Style = []
      HideSelection = False
      ParentFont = False
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object btnexit: TButton
    Left = 548
    Top = 221
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 2
    OnClick = btnexitClick
  end
  object btnsearch: TButton
    Left = 470
    Top = 221
    Width = 75
    Height = 25
    Caption = #26597#35426
    TabOrder = 3
    OnClick = btnsearchClick
  end
  object btncleartiao: TButton
    Left = 393
    Top = 221
    Width = 75
    Height = 25
    Caption = #28165#38500#26781#20214
    TabOrder = 4
    OnClick = btncleartiaoClick
  end
  object btnsettiao: TButton
    Left = 316
    Top = 221
    Width = 75
    Height = 25
    Caption = #29983#25104#26781#20214
    TabOrder = 5
    OnClick = btnsettiaoClick
  end
  object CDSgrid: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 64
    Top = 72
    object CDSgridfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSgridftableName: TWideStringField
      FieldName = 'ftableName'
      Size = 28
    end
    object CDSgridfname: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object CDSgridftype: TWideStringField
      FieldName = 'ftype'
      Size = 32
    end
    object CDSgridflength: TIntegerField
      FieldName = 'flength'
    end
    object CDSgridfisnullable: TBooleanField
      FieldName = 'fisnullable'
    end
    object CDSgridfdesc: TWideStringField
      FieldName = 'fdesc'
      ReadOnly = True
      Size = 48
    end
    object CDSgridfisvisible: TBooleanField
      FieldName = 'fisvisible'
    end
  end
  object DSgrid: TDataSource
    DataSet = CDSgrid
    OnDataChange = DSgridDataChange
    Left = 72
    Top = 88
  end
end