productquery.dfm

三层ERP系统 (SQL)

inherited frmProductQuery: TfrmProductQuery
  Left = 322
  Top = 239
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #29986#21697#25628#32034
  ClientHeight = 410
  ClientWidth = 563
  Font.Height = -15
  KeyPreview = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object GroupBox2: TGroupBox
    Left = 0
    Top = 154
    Width = 563
    Height = 215
    Align = alClient
    Caption = #25628#32034#32080#26524
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 17
      Width = 559
      Height = 196
      Align = alClient
      Ctl3D = True
      DataSource = DSTMP
      FixedColor = 12835543
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -15
      FooterFont.Name = #32048#26126#39636
      FooterFont.Style = []
      ParentCtl3D = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #32048#26126#39636
      TitleFont.Style = []
      OnDrawColumnCell = DBGridEh1DrawColumnCell
      OnKeyDown = DBGridEh1KeyDown
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 563
    Height = 154
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 84
      Height = 19
      Caption = #29986#21697#25628#32034
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -19
      Font.Name = #27161#26999#39636
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 108
      Top = 53
      Width = 64
      Height = 15
      Caption = #29986#21697#39006#21029
    end
    object Label3: TLabel
      Left = 136
      Top = 79
      Width = 32
      Height = 15
      Caption = #32232#30908
    end
    object Label4: TLabel
      Left = 136
      Top = 133
      Width = 32
      Height = 15
      Caption = #35215#26684
    end
    object Label5: TLabel
      Left = 136
      Top = 106
      Width = 32
      Height = 15
      Caption = #21517#31281
    end
    object Label6: TLabel
      Left = 336
      Top = 78
      Width = 48
      Height = 15
      Caption = '("%%")'
    end
    object Label7: TLabel
      Left = 372
      Top = 104
      Width = 48
      Height = 15
      Caption = '("%%")'
    end
    object Label8: TLabel
      Left = 412
      Top = 130
      Width = 48
      Height = 15
      Caption = '("%%")'
    end
    object Bevel1: TBevel
      Left = 105
      Top = 25
      Width = 361
      Height = 2
    end
    object Edit1: TEdit
      Left = 180
      Top = 73
      Width = 150
      Height = 23
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 180
      Top = 99
      Width = 185
      Height = 23
      TabOrder = 2
    end
    object Edit3: TEdit
      Left = 180
      Top = 125
      Width = 225
      Height = 23
      TabOrder = 3
    end
    object typecode: TdxLookupTreeView
      Left = 180
      Top = 48
      Width = 217
      Height = 23
      CanSelectParents = True
      DropDownRows = 25
      DropDownWidth = 250
      ParentColor = False
      TabOrder = 0
      TabStop = True
      TreeViewColor = clWindow
      TreeViewCursor = crDefault
      TreeViewFont.Charset = DEFAULT_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -11
      TreeViewFont.Name = 'MS Sans Serif'
      TreeViewFont.Style = []
      TreeViewIndent = 19
      TreeViewReadOnly = False
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      DividedChar = '.'
      ListSource = dsType
      KeyField = 'fID'
      ListField = 'fName'
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'fParentID'
      TextStyle = tvtsShort
      Alignment = taLeftJustify
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 369
    Width = 563
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Button3: TButton
      Left = 484
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      OnClick = Button3Click
    end
    object Button1: TButton
      Left = 12
      Top = 8
      Width = 75
      Height = 25
      Caption = #28165#38500
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 408
      Top = 8
      Width = 75
      Height = 25
      Caption = #30906#23450
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button4: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = #27298#32034
      TabOrder = 3
      OnClick = Button4Click
    end
  end
  object cdstype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 40
    Top = 72
    object cdstypefID: TIntegerField
      FieldName = 'fID'
    end
    object cdstypefParentID: TIntegerField
      FieldName = 'fParentID'
    end
    object cdstypefParentCode: TWideStringField
      FieldName = 'fParentCode'
      Size = 50
    end
    object cdstypefCode: TWideStringField
      FieldName = 'fCode'
      Size = 50
    end
    object cdstypefName: TWideStringField
      FieldName = 'fName'
      Size = 50
    end
    object cdstypefNotes: TWideStringField
      FieldName = 'fNotes'
      Size = 80
    end
  end
  object dsType: TDataSource
    DataSet = cdstype
    Left = 56
    Top = 88
  end
  object CDSProduct: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 153
    object CDSProductfID: TAutoIncField
      FieldName = 'fID'
      ReadOnly = True
    end
    object CDSProductfTypeId: TIntegerField
      FieldName = 'fTypeId'
    end
    object CDSProductfTypeName: TWideStringField
      FieldName = 'fTypeName'
      Size = 42
    end
    object CDSProductfCode: TWideStringField
      FieldName = 'fCode'
      Size = 48
    end
    object CDSProductfName: TWideStringField
      FieldName = 'fName'
      Size = 80
    end
    object CDSProductfSpec: TWideStringField
      FieldName = 'fSpec'
      Size = 80
    end
    object CDSProductfEnglishName: TWideStringField
      FieldName = 'fEnglishName'
      Size = 120
    end
    object CDSProductfColor: TWideStringField
      FieldName = 'fColor'
      Size = 46
    end
    object CDSProductfLevel: TWideStringField
      FieldName = 'fLevel'
      Size = 8
    end
    object CDSProductfUnitName: TWideStringField
      FieldName = 'fUnitName'
      Size = 12
    end
    object CDSProductfunitSName: TWideStringField
      FieldName = 'funitSName'
      Size = 12
    end
    object CDSProductfUnitRelation: TBCDField
      FieldName = 'fUnitRelation'
      Precision = 18
      Size = 2
    end
    object CDSProductfWholePrice: TBCDField
      FieldName = 'fWholePrice'
      Precision = 10
      Size = 2
    end
    object CDSProductfRetailPrice: TBCDField
      FieldName = 'fRetailPrice'
      Precision = 10
      Size = 2
    end
    object CDSProductfPrePrice: TBCDField
      FieldName = 'fPrePrice'
      Precision = 10
      Size = 2
    end
    object CDSProductfRefPrice: TBCDField
      FieldName = 'fRefPrice'
      Precision = 10
      Size = 2
    end
    object CDSProductfMaxNum: TBCDField
      FieldName = 'fMaxNum'
      Precision = 10
      Size = 2
    end
    object CDSProductfMinNum: TBCDField
      FieldName = 'fMinNum'
      Precision = 10
      Size = 2
    end
    object CDSProductfMaxSum: TBCDField
      FieldName = 'fMaxSum'
      Precision = 10
      Size = 2
    end
    object CDSProductfMinSum: TBCDField
      FieldName = 'fMinSum'
      Precision = 10
      Size = 2
    end
    object CDSProductfStatus: TBooleanField
      FieldName = 'fStatus'
    end
    object CDSProductfNotes: TMemoField
      FieldName = 'fNotes'
      BlobType = ftMemo
    end
    object CDSProductfIsPackage: TBooleanField
      FieldName = 'fIsPackage'
    end
    object CDSProductfPicture: TWideStringField
      FieldName = 'fPicture'
      Size = 100
    end
    object CDSProductfReadmeFile: TWideStringField
      FieldName = 'fReadmeFile'
      Size = 100
    end
  end
  object CDSTMP: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 184
    Top = 242
  end
  object DSTMP: TDataSource
    DataSet = CDSTMP
    Left = 208
    Top = 266
  end
end