bproduct.dfm

来自「三层ERP系统 (SQL)」· DFM 代码 · 共 1,348 行 · 第 1/3 页

          item
            EditButtons = <>
            FieldName = 'fMinSum'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'fStatus'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'fNotes'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'fIsPackage'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'fPicture'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'fReadmeFile'
            Footers = <>
            Visible = False
          end>
      end
    end
  end
  object CDSBaseinfo: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 72
    Top = 72
    object CDSBaseinfofID: TAutoIncField
      FieldName = 'fID'
      ReadOnly = True
    end
    object CDSBaseinfofTypeId: TIntegerField
      FieldName = 'fTypeId'
    end
    object CDSBaseinfofTypeName: TWideStringField
      FieldName = 'fTypeName'
      Size = 42
    end
    object CDSBaseinfofCode: TWideStringField
      FieldName = 'fCode'
      Size = 48
    end
    object CDSBaseinfofName: TWideStringField
      FieldName = 'fName'
      Size = 80
    end
    object CDSBaseinfofSpec: TWideStringField
      FieldName = 'fSpec'
      Size = 80
    end
    object CDSBaseinfofEnglishName: TWideStringField
      FieldName = 'fEnglishName'
      Size = 120
    end
    object CDSBaseinfofColor: TWideStringField
      FieldName = 'fColor'
      Size = 46
    end
    object CDSBaseinfofLevel: TWideStringField
      FieldName = 'fLevel'
      Size = 8
    end
    object CDSBaseinfofUnitName: TWideStringField
      FieldName = 'fUnitName'
      Size = 12
    end
    object CDSBaseinfofunitSName: TWideStringField
      FieldName = 'funitSName'
      Size = 12
    end
    object CDSBaseinfofUnitRelation: TBCDField
      FieldName = 'fUnitRelation'
      Precision = 18
      Size = 2
    end
    object CDSBaseinfofWholePrice: TBCDField
      FieldName = 'fWholePrice'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofRetailPrice: TBCDField
      FieldName = 'fRetailPrice'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofPrePrice: TBCDField
      FieldName = 'fPrePrice'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofRefPrice: TBCDField
      FieldName = 'fRefPrice'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofMaxNum: TBCDField
      FieldName = 'fMaxNum'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofMinNum: TBCDField
      FieldName = 'fMinNum'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofMaxSum: TBCDField
      FieldName = 'fMaxSum'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofMinSum: TBCDField
      FieldName = 'fMinSum'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object CDSBaseinfofStatus: TBooleanField
      FieldName = 'fStatus'
    end
    object CDSBaseinfofNotes: TMemoField
      FieldName = 'fNotes'
      BlobType = ftMemo
    end
    object CDSBaseinfofIsPackage: TBooleanField
      FieldName = 'fIsPackage'
    end
    object CDSBaseinfofPicture: TWideStringField
      FieldName = 'fPicture'
      Size = 100
    end
    object CDSBaseinfofReadmeFile: TWideStringField
      FieldName = 'fReadmeFile'
      Size = 100
    end
  end
  object DSbaseinfo: TDataSource
    AutoEdit = False
    DataSet = CDSBaseinfo
    OnStateChange = DSbaseinfoStateChange
    OnDataChange = DSbaseinfoDataChange
    Left = 96
    Top = 88
  end
  object ActionList1: TActionList
    Left = 568
    Top = 432
    object Action1: TAction
      Caption = #25171#21360#38928#35261
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = #30452#25509#25171#21360
      OnExecute = Action2Execute
    end
    object Action3: TAction
      Caption = #25171#21360#35373#32622
      OnExecute = Action3Execute
    end
    object Action4: TAction
      Caption = #22577#34920#35373#32622
      OnExecute = Action4Execute
    end
    object Action5: TAction
      Caption = #38651#23376#34920#26684
    end
  end
  object frBaseinfo: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    MDIPreview = True
    ModalPreview = False
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit, pbPageSetup]
    RebuildPrinter = False
    Left = 576
    Top = 488
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DSbaseinfo
    Left = 640
    Top = 488
  end
  object MSNSaveinfo: TMSNPopUp
    Text = 'text'
    TimeOut = 1
    Width = 200
    Height = 100
    GradientColor1 = 16764057
    GradientColor2 = clWhite
    ScrollSpeed = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HoverFont.Charset = DEFAULT_CHARSET
    HoverFont.Color = clBlue
    HoverFont.Height = -11
    HoverFont.Name = 'MS Sans Serif'
    HoverFont.Style = [fsUnderline]
    Title = 'title'
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Options = [msnCascadePopups, msnAllowScroll]
    TextAlignment = taCenter
    TextCursor = crDefault
    PopupMarge = 2
    PopupStartX = 16
    PopupStartY = 2
    DefaultMonitor = dmDesktop
    Left = 320
    Top = 488
  end
  object ActionList2: TActionList
    Left = 88
    Top = 416
    object acinsert: TAction
      Category = 'stantardFun'
      Caption = #26032#22686
      OnExecute = acinsertExecute
    end
    object accopy: TAction
      Category = 'stantardFun'
      Caption = #24489#21046
      OnExecute = accopyExecute
    end
    object acmodify: TAction
      Category = 'stantardFun'
      Caption = #20462#25913
      OnExecute = acmodifyExecute
    end
    object acdelete: TAction
      Category = 'stantardFun'
      Caption = #21034#38500
      OnExecute = acdeleteExecute
    end
    object acrefresh: TAction
      Category = 'stantardFun'
      Caption = #21047#26032
      OnExecute = acrefreshExecute
    end
    object acsearch: TAction
      Category = 'stantardFun'
      Caption = #26597#25214
      OnExecute = acsearchExecute
    end
    object acexit: TAction
      Category = 'stantardFun'
      Caption = #36864#20986
      OnExecute = acexitExecute
    end
    object acSave: TAction
      Category = 'stantardFun'
      Caption = #20445#23384
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Category = 'stantardFun'
      Caption = #21462#28040
      OnExecute = acCancelExecute
    end
    object Bmpselect: TAction
      Category = 'bmpFun'
      Caption = #36984#25799#22294#29255
      OnExecute = BmpselectExecute
    end
    object BmpDelete: TAction
      Category = 'bmpFun'
      Caption = #21034#38500#22294#29255
      OnExecute = BmpDeleteExecute
    end
    object BmpSaveAs: TAction
      Category = 'bmpFun'
      Caption = #22294#29255#21478#23384
      OnExecute = BmpSaveAsExecute
    end
    object FileSelect: TAction
      Category = 'FileFun'
      Caption = #36984#25799#24037#34269#25991#20214
      OnExecute = FileSelectExecute
    end
    object FileOpen: TAction
      Category = 'FileFun'
      Caption = #25171#38283#24037#34269#25991#20214
      OnExecute = FileOpenExecute
    end
  end
  object ppmreport: TPopupMenu
    Left = 632
    Top = 432
    object N1: TMenuItem
      Action = Action1
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = Action2
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = Action3
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Action = Action4
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Action = Action5
    end
  end
  object CDSTypeTree: TClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    PacketRecords = 20
    Params = <>
    Left = 40
    Top = 297
  end
  object DSTypetree: TDataSource
    DataSet = CDSTypeTree
    Left = 64
    Top = 321
  end
  object wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'12'#9#20195#30908#9'F'
      'fName'#9'36'#9#39006#21029#21517#31281#9'F')
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = CDSProducttype
    Caption = #26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 504
    Top = 112
  end
  object CDSProducttype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 581
    Top = 113
    object CDSProducttypefCode: TWideStringField
      DisplayLabel = #20195#30908
      DisplayWidth = 12
      FieldName = 'fCode'
      Size = 50
    end
    object CDSProducttypefName: TWideStringField
      DisplayLabel = #39006#21029#21517#31281
      DisplayWidth = 36
      FieldName = 'fName'
      Size = 50
    end
    object CDSProducttypefID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fID'
      Visible = False
    end
    object CDSProducttypefParentID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fParentID'
      Visible = False
    end
    object CDSProducttypefParentCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fParentCode'
      Visible = False
      Size = 50
    end
    object CDSProducttypefNotes: TWideStringField
      DisplayWidth = 80
      FieldName = 'fNotes'
      Visible = False
      Size = 80
    end
  end
  object CDSunit: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 317
    Top = 209
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 437
    Top = 65
  end
  object SavePictureDialog1: TSavePictureDialog
    Left = 549
    Top = 65
  end
  object OpenDlg: TOpenDialog
    Filter = 'WORD FILE(*.doc)|*.doc'
    Left = 640
    Top = 72
  end
  object WordDocument1: TWordDocument
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 312
    Top = 160
  end
  object WordApplication1: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 216
    Top = 168
  end
end