usearch.dfm

进销存以及BOM管理,SQl Server数据库程序

inherited frmsearch: Tfrmsearch
  Left = 245
  Top = 249
  ActiveControl = tiaoset
  BorderIcons = [biSystemMenu, biMaximize]
  BorderStyle = bsDialog
  Caption = #36164#26009#26597#35810
  ClientHeight = 227
  ClientWidth = 547
  Font.Charset = GB2312_CHARSET
  KeyPreview = False
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 281
    Height = 170
    Caption = #26465#20214#23450#20041
    TabOrder = 0
    object fieldname: TLabel
      Left = 114
      Top = 32
      Width = 151
      Height = 17
      AutoSize = False
      Caption = 'fieldname'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 114
      Top = 59
      Width = 63
      Height = 17
      AutoSize = False
      Caption = #27604#36739#31526
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 114
      Top = 107
      Width = 63
      Height = 17
      AutoSize = False
      Caption = #26465#20214#20540
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Grid: TDBGridEh
      Left = 2
      Top = 14
      Width = 95
      Height = 154
      Align = alLeft
      DataSource = dssearch
      FixedColor = 12835543
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      Options = [dgEditing, dgTitles, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'field'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'value'
          Footers = <>
          Title.Caption = #26465#20214#39033#30446
        end>
    end
    object tiaovalue: TEdit
      Left = 114
      Top = 128
      Width = 153
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object tiaoset: TwwDBLookupCombo
      Left = 114
      Top = 80
      Width = 81
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #27604#36739#31526#9'8'#9#27604#36739#31526#9#9)
      LookupTable = CDStiaoset
      LookupField = #27604#36739#31526
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 287
    Top = 8
    Width = 251
    Height = 170
    BiDiMode = bdRightToLeft
    Caption = #24050#23450#20041#25968#25454#36807#28388#26465#20214
    ParentBiDiMode = False
    TabOrder = 1
    object ListView1: TListView
      Left = 2
      Top = 14
      Width = 247
      Height = 154
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      Columns = <
        item
          Caption = #26465#20214#39033#30446
          Width = 100
        end
        item
          Alignment = taCenter
          AutoSize = True
          Caption = #26465#20214#31526#21495#21450#26465#20214#20540
        end>
      ColumnClick = False
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object createtiao: TButton
    Left = 232
    Top = 192
    Width = 75
    Height = 25
    Caption = #29983#20135#26465#20214
    TabOrder = 2
    OnClick = createtiaoClick
  end
  object cleartiao: TButton
    Left = 309
    Top = 192
    Width = 75
    Height = 25
    Caption = #28165#38500#26465#20214
    TabOrder = 3
    OnClick = cleartiaoClick
  end
  object search: TButton
    Left = 386
    Top = 192
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 4
    OnClick = searchClick
  end
  object exit: TButton
    Left = 464
    Top = 192
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
    OnClick = exitClick
  end
  object CDSsearch: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 112
    object CDSsearchfield: TStringField
      FieldName = 'field'
      Size = 50
    end
    object CDSsearchvalue: TStringField
      FieldName = 'value'
      Size = 50
    end
  end
  object dssearch: TDataSource
    AutoEdit = False
    DataSet = CDSsearch
    OnDataChange = dssearchDataChange
    Left = 136
    Top = 112
  end
  object CDStiaoset: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 216
    Top = 88
    object CDStiaosetField: TStringField
      DisplayWidth = 8
      FieldName = #27604#36739#31526
      Size = 8
    end
  end
  object CDSss: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 256
    Top = 32
  end
end