userverproj_m.dfm

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

inherited frmserverproj_m: Tfrmserverproj_m
  Left = 272
  Top = 143
  Caption = #26381#21153#39033#30446
  ClientHeight = 304
  ClientWidth = 358
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited GroupBox: TGroupBox
    Top = 5
    Height = 292
    TabOrder = 3
    inherited Label1: TLabel
      Top = 18
      Caption = #39033#30446#20195#30721
    end
    object Label2: TLabel [1]
      Left = 8
      Top = 42
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #39033#30446#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 = 262
      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 Label5: TLabel [3]
      Left = 8
      Top = 115
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #38047#38271
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel [4]
      Left = 8
      Top = 66
      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 Label8: TLabel [5]
      Left = 8
      Top = 91
      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 Label6: TLabel [6]
      Left = 8
      Top = 140
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #21333#20215
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel [7]
      Left = 8
      Top = 164
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #26448#26009#36153
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel [8]
      Left = 8
      Top = 188
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #22823#24037
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel [9]
      Left = 8
      Top = 213
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #20013#24037
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel [10]
      Left = 8
      Top = 237
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #23567#24037
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel [11]
      Left = 128
      Top = 187
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #28857#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel [12]
      Left = 128
      Top = 211
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #28857#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel [13]
      Left = 128
      Top = 236
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #28857#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited Edit1: TwwDBEdit
      Width = 97
      Height = 20
      DataField = 'fcode'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Height = -12
      Font.Name = #23435#20307
      ParentFont = False
    end
    object wwDBEdit1: TwwDBEdit
      Left = 64
      Top = 40
      Width = 177
      Height = 20
      DataField = 'fname'
      DataSource = frmserverproj.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 = 259
      Width = 185
      Height = 20
      DataField = 'fnote'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit4: TwwDBEdit
      Left = 64
      Top = 113
      Width = 57
      Height = 20
      DataField = 'fhowtime'
      DataSource = frmserverproj.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 wwCheckBox1: TwwCheckBox
      Left = 128
      Top = 115
      Width = 84
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #25552#25104#25353#19994#32489
      DataField = 'fifhortation'
      DataSource = frmserverproj.DSbaseinfo
      TabOrder = 7
    end
    object wwCheckBox2: TwwCheckBox
      Left = 128
      Top = 139
      Width = 73
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #26159#21542#20248#24800
      DataField = 'fcourtesy'
      DataSource = frmserverproj.DSbaseinfo
      TabOrder = 8
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 64
      Top = 64
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#21517#31216#9'F'#9
        'fcode'#9'12'#9#32534#21495#9'F')
      DataField = 'ftype'
      DataSource = frmserverproj.DSbaseinfo
      LookupTable = CDStype
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo3: 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#21333#20301#9'F')
      DataField = 'funit'
      DataSource = frmserverproj.DSbaseinfo
      LookupTable = CDSunit
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBEdit3: TwwDBEdit
      Left = 64
      Top = 137
      Width = 57
      Height = 20
      DataField = 'fprice'
      DataSource = frmserverproj.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 wwDBEdit5: TwwDBEdit
      Left = 64
      Top = 161
      Width = 57
      Height = 20
      DataField = 'fmaterialprice'
      DataSource = frmserverproj.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 wwCheckBox3: TwwCheckBox
      Left = 128
      Top = 163
      Width = 114
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #20805#35768#29305#27530#20248#24800
      DataField = 'fscourtesy'
      DataSource = frmserverproj.DSbaseinfo
      TabOrder = 9
    end
    object wwDBEdit6: TwwDBEdit
      Left = 64
      Top = 234
      Width = 57
      Height = 20
      DataField = 'fm3'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit7: TwwDBEdit
      Left = 64
      Top = 210
      Width = 57
      Height = 20
      DataField = 'fm2'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit8: TwwDBEdit
      Left = 64
      Top = 186
      Width = 57
      Height = 20
      DataField = 'fm1'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit9: TwwDBEdit
      Left = 162
      Top = 232
      Width = 54
      Height = 20
      DataField = 'fcall3'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit10: TwwDBEdit
      Left = 162
      Top = 208
      Width = 54
      Height = 20
      DataField = 'fcall2'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit11: TwwDBEdit
      Left = 162
      Top = 184
      Width = 54
      Height = 20
      DataField = 'fcall1'
      DataSource = frmserverproj.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    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 = 270
    TabOrder = 2
  end
  object CDStype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 45
    object CDStypefname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDStypefcode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
  end
  object CDSunit: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 101
    object CDSunitfname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDSunitfcode: TWideStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
  end
end