uitem_m.dfm

程序採用了无状态连接池的三层结构

inherited frmitem_m: Tfrmitem_m
  Left = 427
  Top = 80
  Caption = #20135#21697#36164#26009
  ClientHeight = 230
  ClientWidth = 365
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited GroupBox: TGroupBox
    Top = 6
    Height = 215
    TabOrder = 4
    inherited Label1: TLabel
      Top = 18
      Caption = #21830#21697#20195#30721
    end
    object Label2: TLabel [1]
      Left = 8
      Top = 41
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #21830#21697#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel [2]
      Left = 8
      Top = 184
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #22791#27880
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel [3]
      Left = 8
      Top = 65
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #21333#20301
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel [4]
      Left = 8
      Top = 89
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #31181#31867
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel [5]
      Left = 8
      Top = 160
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #26368#20302#24211#23384
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel [6]
      Left = 8
      Top = 136
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #38144#21806#25552#25104
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel [7]
      Left = 8
      Top = 112
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #38144#21806#20215
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited Edit1: TwwDBEdit
      Width = 105
      Height = 20
      DataField = 'fcode'
      DataSource = frmitem.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Height = -12
      Font.Name = #23435#20307
      ParentFont = False
    end
    object wwDBEdit1: TwwDBEdit
      Left = 64
      Top = 40
      Width = 161
      Height = 20
      DataField = 'fname'
      DataSource = frmitem.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit2: TwwDBEdit
      Left = 64
      Top = 184
      Width = 185
      Height = 20
      DataField = 'fnote'
      DataSource = frmitem.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 64
      Top = 112
      Width = 65
      Height = 20
      DataField = 'fsaleprice'
      DataSource = frmitem.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit6: TwwDBEdit
      Left = 64
      Top = 136
      Width = 65
      Height = 20
      DataField = 'fsalehortation'
      DataSource = frmitem.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit7: TwwDBEdit
      Left = 64
      Top = 160
      Width = 81
      Height = 20
      DataField = 'fminstore'
      DataSource = frmitem.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 64
      Top = 64
      Width = 73
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#21517#31216#9'F'
        'fcode'#9'12'#9#20195#30721#9'F')
      DataField = 'funit'
      DataSource = frmitem.DSbaseinfo
      LookupTable = CDSunit
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 64
      Top = 88
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#21517#31216#9'F'
        'fcode'#9'12'#9#20195#30721#9'F')
      DataField = 'ftype'
      DataSource = frmitem.DSbaseinfo
      LookupTable = CDStype
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  inherited Button1: TButton
    Left = 284
    Top = 86
  end
  inherited Button2: TButton
    Left = 284
    Top = 118
  end
  inherited Button3: TButton
    Left = 284
    Top = 190
  end
  object wwCheckBox1: TwwCheckBox
    Left = 282
    Top = 24
    Width = 75
    Height = 17
    DisableThemes = False
    AlwaysTransparent = False
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    DisplayValueChecked = 'True'
    DisplayValueUnchecked = 'False'
    NullAndBlankState = cbUnchecked
    Caption = #26159#21542#20248#24800
    DataField = 'fiffew'
    DataSource = frmitem.DSbaseinfo
    TabOrder = 0
  end
  object CDSunit: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 152
    Top = 54
    object CDSunitfname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDSunitfcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
  end
  object CDStype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 94
    object CDStypefname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDStypefcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
  end
end