usale.dfm

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

inherited frmsale: Tfrmsale
  Left = 176
  Top = 96
  Width = 614
  Height = 378
  Caption = #21830#21697#39046#29992
  PixelsPerInch = 96
  TextHeight = 12
  inherited paneltitle: TPanel
    Width = 606
    BevelInner = bvRaised
    inherited formTitle: TLabel
      Caption = #21830#21697#39046#29992
    end
    inherited refno: TwwDBEdit
      DataField = 'frefno'
      DataSource = dsMaster
    end
  end
  inherited paneledit: TPanel
    Width = 606
    inherited Label4: TLabel
      Top = 10
    end
    object Label7: TLabel [3]
      Left = 160
      Top = 10
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #39046#29992#20179#24211
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel [4]
      Left = 160
      Top = 34
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #39046#29992#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel [5]
      Left = 16
      Top = 34
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #39046#26009#21592
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel [6]
      Left = 16
      Top = 58
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #39046#29992#23545#35937
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel [7]
      Left = 16
      Top = 82
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #22791#27880
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited wwDBDateTimePicker1: TwwDBDateTimePicker
      DataField = 'fcreadate'
      DataSource = dsMaster
      TabOrder = 6
    end
    inherited wwDBEdit1: TwwDBEdit
      DataField = 'fcreauser'
      DataSource = dsMaster
      TabOrder = 5
    end
    inherited billno: TwwDBEdit
      Top = 6
      DataField = 'fsaleno'
      DataSource = dsMaster
      TabOrder = 0
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 214
      Top = 6
      Width = 121
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'20'#9#36873#39033#9#9)
      DataField = 'fsalestore'
      DataSource = dsMaster
      LookupTable = CDSstore
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBDateTimePicker2: TwwDBDateTimePicker
      Left = 214
      Top = 30
      Width = 121
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fdelivdate'
      DataSource = dsMaster
      Epoch = 1950
      ShowButton = True
      TabOrder = 3
    end
    object wwDBEdit4: TwwDBEdit
      Left = 68
      Top = 30
      Width = 87
      Height = 20
      DataField = 'fsaleer'
      DataSource = dsMaster
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 68
      Top = 54
      Width = 165
      Height = 20
      DataField = 'fprovider'
      DataSource = dsMaster
      TabOrder = 4
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit8: TwwDBEdit
      Left = 68
      Top = 78
      Width = 357
      Height = 20
      DataField = 'fnote'
      DataSource = dsMaster
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited panelbutton: TPanel
    Top = 320
    Width = 606
  end
  inherited Grid: TDBGridEh
    Width = 606
    Height = 176
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        AlwaysShowEditButton = True
        ButtonStyle = cbsDropDown
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#32534#30721
        OnEditButtonDown = GridColumns3EditButtonDown
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fqty'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'fprice'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
      end
      item
        EditButtons = <>
        FieldName = 'famount'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24635#20215
      end>
  end
  inherited CDSmaster: TClientDataSet
    object CDSmasterfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSmasterfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSmasterfrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSmasterfsaleno: TWideStringField
      FieldName = 'fsaleno'
      Size = 18
    end
    object CDSmasterfprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSmasterfsaleer: TWideStringField
      FieldName = 'fsaleer'
    end
    object CDSmasterfsalestore: TWideStringField
      FieldName = 'fsalestore'
      Size = 30
    end
    object CDSmasterfdelivdate: TDateTimeField
      FieldName = 'fdelivdate'
    end
    object CDSmasterfnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
    object CDSmasterfcreadate: TDateTimeField
      FieldName = 'fcreadate'
    end
    object CDSmasterfcreauser: TWideStringField
      FieldName = 'fcreauser'
    end
  end
  inherited CDSsub: TClientDataSet
    OnCalcFields = CDSsubCalcFields
    object CDSsubfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSsubfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSsubfitemid: TIntegerField
      FieldName = 'fitemid'
    end
    object CDSsubfqty: TBCDField
      FieldName = 'fqty'
      Precision = 9
      Size = 2
    end
    object CDSsubfprice: TBCDField
      FieldName = 'fprice'
      Precision = 9
      Size = 2
    end
    object CDSsubfcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object CDSsubfname: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object CDSsubfunit: TWideStringField
      FieldName = 'funit'
      Size = 8
    end
    object CDSsubftype: TWideStringField
      FieldName = 'ftype'
      Size = 8
    end
    object CDSsubfamount: TFloatField
      FieldKind = fkCalculated
      FieldName = 'famount'
      Calculated = True
    end
  end
  inherited frMD: TfrReport
    ReportForm = {19000000}
  end
  object CDSstore: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 280
    Top = 40
    object CDSstoreField: TStringField
      DisplayWidth = 20
      FieldName = #36873#39033
    end
  end
end