uitem_f.dfm

在打沙场用的最简单

inherited frmitem_f: Tfrmitem_f
  Left = 195
  Top = 161
  Width = 539
  Height = 332
  ActiveControl = itemlook
  Caption = #20135#21697#26597#35810
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 531
    Height = 89
    Align = alTop
    Caption = #26597#35810#26465#20214
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #32048#26126#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 20
      Width = 57
      Height = 15
      AutoSize = False
      Caption = #29289#26009#31867#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 42
      Width = 57
      Height = 15
      AutoSize = False
      Caption = #20135#21697#20195#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 24
      Top = 64
      Width = 57
      Height = 15
      AutoSize = False
      Caption = #20135#21697#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 203
      Top = 42
      Width = 22
      Height = 15
      AutoSize = False
      Caption = '(%%)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 300
      Top = 67
      Width = 22
      Height = 15
      AutoSize = False
      Caption = '(%%)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 80
      Top = 40
      Width = 121
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 80
      Top = 64
      Width = 217
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object itemlook: TwwDBLookupCombo
      Left = 80
      Top = 16
      Width = 161
      Height = 19
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#21517#31281#9'F'
        'fcode'#9'12'#9#20195#30908#9'F')
      LookupTable = CDStype
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 268
    Width = 531
    Height = 37
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object btnclear: TBitBtn
      Left = 5
      Top = 10
      Width = 65
      Height = 22
      Caption = #28165#38500
      TabOrder = 0
      OnClick = btnclearClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnsearch: TBitBtn
      Left = 74
      Top = 10
      Width = 65
      Height = 22
      Caption = #26597#35810
      TabOrder = 1
      OnClick = btnsearchClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
        44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
        00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
        33833F333383F33300003333AA463362A433333333383F333833F33300003333
        6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
        33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
        6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
        000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
        333383333333F3330000333333322AAA4333333333333833333F333300003333
        333322A4333333333333338333F333330000333333344A433333333333333338
        3F333333000033333336A24333333333333333833F333333000033333336AA43
        33333333333333833F3333330000333333336663333333333333333888333333
        0000}
      NumGlyphs = 2
    end
    object btnok: TBitBtn
      Left = 252
      Top = 10
      Width = 65
      Height = 22
      Caption = #30830#23450
      Default = True
      TabOrder = 2
      OnClick = btnokClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnexit: TBitBtn
      Left = 322
      Top = 10
      Width = 65
      Height = 22
      Caption = #36864#20986
      TabOrder = 3
      OnClick = btnexitClick
      Kind = bkClose
    end
  end
  object Grid: TDBGridEh
    Left = 0
    Top = 89
    Width = 531
    Height = 179
    Align = alClient
    Ctl3D = True
    DataSource = dsBaseinfo
    FixedColor = 12835543
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #32048#26126#39636
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = btnokClick
    OnKeyDown = GridKeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#20195#30721
        Width = 107
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#21517#31216
        Width = 99
      end
      item
        EditButtons = <>
        FieldName = 'zs'
        Footers = <>
        Title.Caption = #25903#25976
        Visible = False
        Width = 76
      end
      item
        EditButtons = <>
        FieldName = 'color'
        Footers = <>
        Title.Caption = #38991#33394
        Visible = False
        Width = 77
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31867#22411
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Caption = #22791#27880
      end>
  end
  object CDSbaseinfo: TClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    PacketRecords = 20
    Params = <>
    Left = 200
    Top = 192
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofsaleprice: TBCDField
      FieldName = 'fsaleprice'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofsalehortation: TBCDField
      FieldName = 'fsalehortation'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofiffew: TBooleanField
      FieldName = 'fiffew'
    end
    object CDSbaseinfofminstore: TBCDField
      FieldName = 'fminstore'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfocolor: TStringField
      FieldName = 'color'
      Size = 15
    end
    object CDSbaseinfofcode: TStringField
      FieldName = 'fcode'
      Size = 30
    end
    object CDSbaseinfofname: TStringField
      FieldName = 'fname'
      Size = 200
    end
    object CDSbaseinfofunit: TStringField
      FieldName = 'funit'
      Size = 10
    end
    object CDSbaseinfoftype: TStringField
      FieldName = 'ftype'
      Size = 10
    end
    object CDSbaseinfofnote: TStringField
      FieldName = 'fnote'
      Size = 50
    end
    object CDSbaseinfozs: TStringField
      FieldName = 'zs'
      Size = 15
    end
  end
  object dsBaseinfo: TDataSource
    DataSet = CDSbaseinfo
    Left = 268
    Top = 212
  end
  object CDStype: TClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    PacketRecords = 20
    Params = <>
    Left = 256
    Top = 12
    object CDStypefname: TWideStringField
      DisplayLabel = #21517#31281
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDStypefcode: TWideStringField
      DisplayLabel = #20195#30908
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
    object CDStypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDStypefnote: TWideStringField
      DisplayWidth = 30
      FieldName = 'fnote'
      Visible = False
      Size = 30
    end
  end
end