billbase.dfm

用delphi编写的数据库管理软件

          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object edtFinishUser: TwwDBEdit
          Left = 632
          Top = 6
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtFinishDate: TwwDBEdit
          Left = 632
          Top = 28
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
      end
    end
    object plButton: TPanel
      Left = 0
      Top = 327
      Width = 780
      Height = 45
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object Panel1: TPanel
        Left = 615
        Top = 2
        Width = 163
        Height = 41
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object Button8: TButton
          Left = 82
          Top = 7
          Width = 75
          Height = 25
          Action = acSearch
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object btnPrint: TButton
          Left = 6
          Top = 7
          Width = 75
          Height = 25
          Caption = #25171#21360
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btnPrintClick
        end
      end
      object Button1: TButton
        Left = 5
        Top = 8
        Width = 75
        Height = 25
        Action = acNew
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object Button2: TButton
        Left = 80
        Top = 8
        Width = 75
        Height = 25
        Action = acEdit
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object Button3: TButton
        Left = 156
        Top = 8
        Width = 75
        Height = 25
        Action = acDelete
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object Button4: TButton
        Left = 232
        Top = 8
        Width = 75
        Height = 25
        Action = acLineAdd
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object Button5: TButton
        Left = 308
        Top = 8
        Width = 75
        Height = 25
        Action = acLineDelete
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object Button6: TButton
        Left = 384
        Top = 8
        Width = 75
        Height = 25
        Action = acSave
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object Button7: TButton
        Left = 460
        Top = 8
        Width = 75
        Height = 25
        Action = acCancel
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object Button15: TButton
        Left = 536
        Top = 8
        Width = 75
        Height = 25
        Action = acImport
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        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#39044#35272
      OnExecute = acpviewExecute
    end
    object acpprint: TAction
      Caption = #30452#25509#25171#21360
      OnExecute = acpprintExecute
    end
    object acpsetting: TAction
      Caption = #25171#21360#35774#32622
      OnExecute = acpsettingExecute
    end
    object acpreportset: TAction
      Caption = #25253#34920#20462#25913
      OnExecute = acpreportsetExecute
    end
    object acpexcel: TAction
      Caption = #30005#23376#34920#26684
    end
    object acFormPrint: TAction
      Caption = #21551#21160#25253#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
    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 = #21024#38500
      OnExecute = acDeleteExecute
    end
    object acLineAdd: TAction
      Category = 'BillEdit'
      Caption = #26126#32454#22686#21152
      OnExecute = acLineAddExecute
    end
    object acLineDelete: TAction
      Category = 'BillEdit'
      Caption = #26126#32454#21024#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#35810
      OnExecute = acSearchExecute
    end
    object acExit: TAction
      Category = 'BillEdit'
      Caption = #36864#20986
      OnExecute = acExitExecute
    end
    object acBilltype: TAction
      Category = 'BillEdit'
      Caption = #21333#25454#32534#36753
      OnExecute = acBilltypeExecute
    end
    object acFirst: TAction
      Category = 'BillBrowse'
      Caption = #39318#31508
      OnExecute = acFirstExecute
    end
    object acPrior: TAction
      Category = 'BillBrowse'
      Caption = #19978#31508
      OnExecute = acPriorExecute
    end
    object acNext: TAction
      Category = 'BillBrowse'
      Caption = #19979#31508
      OnExecute = acNextExecute
    end
    object acLast: TAction
      Category = 'BillBrowse'
      Caption = #26410#31508
      OnExecute = acLastExecute
    end
    object acRefresh: TAction
      Category = 'BillBrowse'
      Caption = #21047#26032
      OnExecute = acRefreshExecute
    end
    object acBillSearch: TAction
      Category = 'BillBrowse'
      Caption = #26597#35810
      OnExecute = acBillSearchExecute
    end
    object acBillinterface: TAction
      Category = 'BillBrowse'
      Caption = #30028#38754#23646#24615
      OnExecute = acBillinterfaceExecute
    end
    object acImport: TAction
      Category = 'BillEdit'
      Caption = #24341#20837
    end
    object acbillStatu: TAction
      Category = 'BillBrowse'
      Caption = #29366#24577
      OnExecute = acbillStatuExecute
    end
  end
  object frBaseinfo: TfrReport
    Dataset = frDSDetail
    InitialZoom = pzDefault
    MDIPreview = True
    ModalPreview = False
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit, pbPageSetup]
    ReportType = rtMultiple
    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 = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    HoverFont.Charset = DEFAULT_CHARSET
    HoverFont.Color = clBlue
    HoverFont.Height = -11
    HoverFont.Name = 'MS Sans Serif'
    HoverFont.Style = [fsUnderline]
    Title = 'title'
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    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
    DataSet = CDSMaster
    RangeBegin = rbCurrent
    RangeEnd = reCurrent
    Left = 207
    Top = 56
  end
  object frDSDetail: TfrDBDataSet
    DataSet = CDSdetail
    Left = 260
    Top = 56
  end
end