ustore.dfm

三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写

inherited frmstore: Tfrmstore
  Left = 102
  Top = 112
  Caption = #37319#36141#25910#36135#21333
  PixelsPerInch = 96
  TextHeight = 12
  inherited paneltitle: TPanel
    BevelInner = bvRaised
    inherited formTitle: TLabel
      Caption = #37319#36141#25910#36135#21333
    end
    inherited refno: TwwDBEdit
      DataField = 'frefno'
      DataSource = dsMaster
    end
  end
  inherited paneledit: TPanel
    inherited Label4: TLabel
      Top = 8
    end
    object Label5: TLabel [3]
      Left = 16
      Top = 32
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #37319#36141#21592
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel [4]
      Left = 16
      Top = 56
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #20379#24212#21830
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel [5]
      Left = 16
      Top = 80
      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
    object Label8: TLabel [6]
      Left = 160
      Top = 32
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #25910#36135#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel [7]
      Left = 160
      Top = 8
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #25910#36135#20179#24211
      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 = 7
    end
    inherited wwDBEdit1: TwwDBEdit
      DataField = 'fcreauser'
      DataSource = dsMaster
      TabOrder = 6
    end
    inherited billno: TwwDBEdit
      Top = 4
      DataField = 'fstoreno'
      DataSource = dsMaster
      TabOrder = 0
    end
    object wwDBEdit4: TwwDBEdit
      Left = 68
      Top = 28
      Width = 87
      Height = 20
      DataField = 'fpurer'
      DataSource = dsMaster
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 68
      Top = 52
      Width = 165
      Height = 20
      DataField = 'fprovider'
      DataSource = dsMaster
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit8: TwwDBEdit
      Left = 68
      Top = 76
      Width = 357
      Height = 20
      DataField = 'fnote'
      DataSource = dsMaster
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBDateTimePicker2: TwwDBDateTimePicker
      Left = 214
      Top = 28
      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 = 4
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 214
      Top = 4
      Width = 121
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'20'#9#36873#39033#9#9)
      DataField = 'fpurstore'
      DataSource = dsMaster
      LookupTable = CDSstore
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  inherited Grid: TDBGridEh
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        AlwaysShowEditButton = True
        ButtonStyle = cbsDropDown
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#20195#30721
        OnEditButtonDown = GridColumns2EditButtonDown
      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 = 'fitemid'
        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 CDSmasterfstoreno: TWideStringField
      FieldName = 'fstoreno'
      Size = 18
    end
    object CDSmasterfprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSmasterfpurer: TWideStringField
      FieldName = 'fpurer'
    end
    object CDSmasterfpurstore: TWideStringField
      FieldName = 'fpurstore'
      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