billbase.dfm

三层ERP系统 (SQL)

        object LabelcancelDate: TLabel
          Left = 246
          Top = 30
          Width = 56
          Height = 13
          Caption = #21462#28040#26085#26399
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object LabelcancelUser: TLabel
          Left = 246
          Top = 9
          Width = 56
          Height = 13
          Caption = #21462' '#28040' '#20154
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object labelfinishuser: TLabel
          Left = 474
          Top = 9
          Width = 56
          Height = 13
          Caption = #32080' '#28165' '#20154
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object labelfinishdate: TLabel
          Left = 474
          Top = 30
          Width = 56
          Height = 13
          Caption = #32080#28165#26085#26399
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object edtSubmitDate: TwwDBEdit
          Left = 81
          Top = 28
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtSubmitUser: TwwDBEdit
          Left = 81
          Top = 6
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtCancelDate: TwwDBEdit
          Left = 308
          Top = 28
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtCancelUser: TwwDBEdit
          Left = 308
          Top = 6
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtFinishUser: TwwDBEdit
          Left = 536
          Top = 6
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtFinishDate: TwwDBEdit
          Left = 536
          Top = 28
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
      end
    end
    object plButton: TPanel
      Left = 0
      Top = 334
      Width = 780
      Height = 38
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object Panel1: TPanel
        Left = 615
        Top = 2
        Width = 163
        Height = 34
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object Button8: TButton
          Left = 82
          Top = 7
          Width = 75
          Height = 25
          Action = acSearch
          TabOrder = 0
        end
        object btnPrint: TButton
          Left = 6
          Top = 7
          Width = 75
          Height = 25
          Caption = #25171#21360
          TabOrder = 1
          OnClick = btnPrintClick
        end
      end
      object Button1: TButton
        Left = 5
        Top = 8
        Width = 75
        Height = 25
        Action = acNew
        TabOrder = 1
      end
      object Button2: TButton
        Left = 80
        Top = 8
        Width = 75
        Height = 25
        Action = acEdit
        TabOrder = 2
      end
      object Button3: TButton
        Left = 156
        Top = 8
        Width = 75
        Height = 25
        Action = acDelete
        TabOrder = 3
      end
      object Button4: TButton
        Left = 232
        Top = 8
        Width = 75
        Height = 25
        Action = acLineAdd
        TabOrder = 4
      end
      object Button5: TButton
        Left = 308
        Top = 8
        Width = 75
        Height = 25
        Action = acLineDelete
        TabOrder = 5
      end
      object Button6: TButton
        Left = 384
        Top = 8
        Width = 75
        Height = 25
        Action = acSave
        TabOrder = 6
      end
      object Button7: TButton
        Left = 460
        Top = 8
        Width = 75
        Height = 25
        Action = acCancel
        TabOrder = 7
      end
      object Button15: TButton
        Left = 536
        Top = 8
        Width = 75
        Height = 25
        Action = acImport
        TabOrder = 8
      end
    end
  end
  object ppmreport: TPopupMenu
    Left = 101
    Top = 56
    object N21: TMenuItem
      Action = acFormPrint
    end
    object N20: TMenuItem
      Caption = '-'
    end
    object N1: TMenuItem
      Action = acpview
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = acpprint
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = acpsetting
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Action = acpreportset
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Action = acpexcel
    end
  end
  object ActionList1: TActionList
    Left = 48
    Top = 56
    object acpview: TAction
      Caption = #25171#21360#38928#35261
      OnExecute = acpviewExecute
    end
    object acpprint: TAction
      Caption = #30452#25509#25171#21360
      OnExecute = acpprintExecute
    end
    object acpsetting: TAction
      Caption = #25171#21360#35373#32622
      OnExecute = acpsettingExecute
    end
    object acpreportset: TAction
      Caption = #22577#34920#20462#25913
      OnExecute = acpreportsetExecute
    end
    object acpexcel: TAction
      Caption = #38651#23376#34920#26684
    end
    object acFormPrint: TAction
      Caption = #21855#29992#22577#34920#31649#29702#22120
      OnExecute = acFormPrintExecute
    end
  end
  object CDSdetail: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterInsert = CDSdetailAfterInsert
    BeforePost = CDSdetailBeforePost
    OnCalcFields = CDSdetailCalcFields
    Left = 320
    Top = 56
  end
  object dsDetail: TDataSource
    DataSet = CDSdetail
    Left = 344
    Top = 72
  end
  object CDSMaster: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterInsert = CDSMasterAfterInsert
    AfterEdit = CDSMasterAfterEdit
    BeforePost = CDSMasterBeforePost
    AfterPost = CDSMasterAfterPost
    BeforeCancel = CDSMasterBeforeCancel
    AfterCancel = CDSMasterAfterCancel
    Left = 392
    Top = 56
  end
  object DSMaster: TDataSource
    AutoEdit = False
    DataSet = CDSMaster
    OnStateChange = DSMasterStateChange
    OnDataChange = DSMasterDataChange
    Left = 408
    Top = 73
  end
  object ActionListFun: TActionList
    Left = 504
    Top = 56
    object acNew: TAction
      Category = 'BillEdit'
      Caption = #22686#21152
      ImageIndex = 17
      OnExecute = acNewExecute
    end
    object acEdit: TAction
      Category = 'BillEdit'
      Caption = #20462#25913
      OnExecute = acEditExecute
    end
    object acDelete: TAction
      Category = 'BillEdit'
      Caption = #21034#38500
      OnExecute = acDeleteExecute
    end
    object acLineAdd: TAction
      Category = 'BillEdit'
      Caption = #26126#32048#22686#21152
      OnExecute = acLineAddExecute
    end
    object acLineDelete: TAction
      Category = 'BillEdit'
      Caption = #26126#32048#21034#38500
      OnExecute = acLineDeleteExecute
    end
    object acSave: TAction
      Category = 'BillEdit'
      Caption = #20445#23384
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Category = 'BillEdit'
      Caption = #21462#28040
      OnExecute = acCancelExecute
    end
    object acSearch: TAction
      Category = 'BillEdit'
      Caption = #26597#35426
      OnExecute = acSearchExecute
    end
    object acExit: TAction
      Category = 'BillEdit'
      Caption = #36864#20986
      OnExecute = acExitExecute
    end
    object acBilltype: TAction
      Category = 'BillEdit'
      Caption = #21934#25818#32232#32221
      OnExecute = acBilltypeExecute
    end
    object acFirst: TAction
      Category = 'BillBrowse'
      Caption = #39318#31558
      OnExecute = acFirstExecute
    end
    object acPrior: TAction
      Category = 'BillBrowse'
      Caption = #19978#31558
      OnExecute = acPriorExecute
    end
    object acNext: TAction
      Category = 'BillBrowse'
      Caption = #19979#31558
      OnExecute = acNextExecute
    end
    object acLast: TAction
      Category = 'BillBrowse'
      Caption = #26410#31558
      OnExecute = acLastExecute
    end
    object acRefresh: TAction
      Category = 'BillBrowse'
      Caption = #21047#26032
      OnExecute = acRefreshExecute
    end
    object acBillSearch: TAction
      Category = 'BillBrowse'
      Caption = #26597#35426
      OnExecute = acBillSearchExecute
    end
    object acBillinterface: TAction
      Category = 'BillBrowse'
      Caption = #30028#38754#23660#24615
      OnExecute = acBillinterfaceExecute
    end
    object acImport: TAction
      Category = 'BillEdit'
      Caption = #24341#20837
    end
  end
  object frBaseinfo: TfrReport
    Dataset = frDSDetail
    InitialZoom = pzDefault
    MDIPreview = True
    ModalPreview = False
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit, pbPageSetup]
    RebuildPrinter = False
    OnUserFunction = frBaseinfoUserFunction
    Left = 154
    Top = 56
    ReportForm = {19000000}
  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 = 656
    Top = 56
  end
  object pupmenubrowse: TPopupMenu
    Left = 580
    Top = 56
    object N10: TMenuItem
      Action = acFirst
    end
    object N12: TMenuItem
      Action = acPrior
    end
    object N14: TMenuItem
      Action = acNext
    end
    object N15: TMenuItem
      Action = acLast
    end
    object N17: TMenuItem
      Caption = '-'
    end
    object N13: TMenuItem
      Action = acRefresh
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object N16: TMenuItem
      Action = acBillSearch
    end
    object N18: TMenuItem
      Caption = '-'
    end
    object N19: TMenuItem
      Action = acBillinterface
    end
  end
  object frDSMaster: TfrDBDataSet
    DataSource = DSMaster
    RangeBegin = rbCurrent
    RangeEnd = reCurrent
    Left = 207
    Top = 56
  end
  object frDSDetail: TfrDBDataSet
    DataSource = dsDetail
    Left = 260
    Top = 56
  end
end