uform_m.dfm

这是一个三层的进销存系统

inherited frmform_m: Tfrmform_m
  Left = 259
  Top = 175
  Caption = #34920#21333#36164#26009
  ClientHeight = 207
  ClientWidth = 360
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited GroupBox: TGroupBox
    Height = 193
    TabOrder = 3
    inherited Label1: TLabel
      Top = 18
      Caption = #34920#21333#21517#31216
    end
    object Label2: TLabel [1]
      Left = 8
      Top = 47
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #25551#36848
      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 = 164
      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 = 105
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #21019#24314#20154
      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 = 76
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #25152#23646#31867#21035
      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 = 134
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #21019#24314#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited Edit1: TwwDBEdit
      Height = 20
      CharCase = ecLowerCase
      DataField = 'fcode'
      DataSource = frmform.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Height = -12
      Font.Name = #23435#20307
      ParentFont = False
    end
    object wwDBEdit1: TwwDBEdit
      Left = 64
      Top = 44
      Width = 121
      Height = 20
      DataField = 'fname'
      DataSource = frmform.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 = 160
      Width = 177
      Height = 20
      DataField = 'fnote'
      DataSource = frmform.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 wwDBEdit3: TwwDBEdit
      Left = 64
      Top = 102
      Width = 121
      Height = 20
      DataField = 'fcreateuser'
      DataSource = frmform.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 64
      Top = 73
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #31867#21035#36873#39033#9'8'#9#31867#21035#36873#39033#9#9)
      DataField = 'ftype'
      DataSource = frmform.DSbaseinfo
      LookupTable = CDStype
      LookupField = #31867#21035#36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBDateTimePicker1: TwwDBDateTimePicker
      Left = 64
      Top = 131
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fcreatedate'
      DataSource = frmform.DSbaseinfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 4
    end
  end
  inherited Button1: TButton
    Left = 276
    Top = 14
    TabOrder = 0
  end
  inherited Button2: TButton
    Left = 276
    Top = 46
    TabOrder = 1
  end
  inherited Button3: TButton
    Left = 276
    Top = 174
    TabOrder = 2
  end
  object CDStype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 88
    object CDStypeField: TStringField
      DisplayWidth = 8
      FieldName = #31867#21035#36873#39033
      Size = 8
    end
  end
end