baseaccountvoucher.dfm

中小企业管理系统------ ERP系统原代码

  object edtE1: TdxEdit [17]
    Left = 150
    Top = 456
    Width = 107
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ReadOnly = True
    StyleController = frmData.StyleController
    StoredValues = 64
  end
  object dxEdit1: TdxEdit [18]
    Left = 343
    Top = 456
    Width = 107
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 7
    Anchors = [akRight, akBottom]
    ReadOnly = True
    StyleController = frmData.StyleController
    StoredValues = 64
  end
  object dxEdit2: TdxEdit [19]
    Left = 542
    Top = 456
    Width = 107
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 8
    Anchors = [akRight, akBottom]
    ReadOnly = True
    StyleController = frmData.StyleController
    StoredValues = 64
  end
  inherited SeSkinForm1: TSeSkinForm
    Top = 40
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Bars = <
      item
        Caption = #24037#20855#26639
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 200
        FloatTop = 255
        FloatClientWidth = 23
        FloatClientHeight = 22
        ItemLinks = <>
        Name = #24037#20855#26639
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        UseRestSpace = True
        Visible = True
        WholeRow = False
      end>
    Categories.Strings = (
      'Default'
      'PopupMenu')
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    HotImages = frmData.ImageList
    Images = frmData.ImageList
    LargeImages = frmData.ImageList
    PopupMenuLinks = <>
    RegistryPath = '\Software\WinSale'
    UseSystemFont = True
    Left = 28
    Top = 40
    DockControlHeights = (
      0
      0
      26
      0)
    object dxBarLargeButton1: TdxBarLargeButton
      Caption = #21069#19968#24352
      Category = 0
      Hint = #21069#19968#24352
      Visible = ivAlways
      ImageIndex = 48
      AutoGrayScale = False
      LargeImageIndex = 48
    end
    object dxBarLargeButton2: TdxBarLargeButton
      Caption = #21518#19968#24352
      Category = 0
      Hint = #21518#19968#24352
      Visible = ivAlways
      ImageIndex = 47
      AutoGrayScale = False
      LargeImageIndex = 47
    end
    object bbAdd: TdxBarLargeButton
      Caption = #22686#21152
      Category = 0
      Hint = #22686#21152
      Visible = ivAlways
      ImageIndex = 10
      AutoGrayScale = False
      LargeImageIndex = 10
    end
    object bbEdit: TdxBarLargeButton
      Caption = #20462#25913
      Category = 0
      Hint = #20462#25913
      Visible = ivAlways
      ImageIndex = 11
      AutoGrayScale = False
      LargeImageIndex = 11
    end
    object bbDel: TdxBarLargeButton
      Caption = #21024#38500
      Category = 0
      Hint = #21024#38500
      Visible = ivAlways
      ImageIndex = 1
      AutoGrayScale = False
      LargeImageIndex = 1
    end
    object pbbPrint: TdxBarButton
      Caption = #25171'      '#21360'(&P)'
      Category = 1
      Hint = #25171'      '#21360'(P)'
      Visible = ivAlways
      OnClick = pbbPrintClick
    end
    object pbbPrintView: TdxBarButton
      Caption = #25171#21360' '#39044' '#35272'(&V)'
      Category = 1
      Hint = #25171#21360' '#39044' '#35272'(V)'
      Visible = ivAlways
      OnClick = pbbPrintViewClick
    end
    object pbbPrintCustom: TdxBarButton
      Caption = #33258#23450#20041#25171#21360'(&C)'
      Category = 1
      Hint = #33258#23450#20041#25171#21360'(C)'
      Visible = ivAlways
      OnClick = pbbPrintCustomClick
    end
    object pbbPrintInit: TdxBarButton
      Caption = #21021#22987#21270#25253#34920'(&I)'
      Category = 1
      Hint = #21021#22987#21270#25253#34920'(I)'
      Visible = ivAlways
      OnClick = pbbPrintInitClick
    end
    object bbFind: TdxBarLargeButton
      Caption = #26597#25214
      Category = 0
      Hint = #26597#25214
      Visible = ivAlways
      ImageIndex = 6
      AutoGrayScale = False
      LargeImageIndex = 6
    end
    object bbIns: TdxBarLargeButton
      Caption = #25554#20837#34892
      Category = 0
      Hint = #25554#20837#34892
      Visible = ivAlways
      ImageIndex = 12
      OnClick = bbInsClick
      AutoGrayScale = False
      LargeImageIndex = 12
    end
    object bbDelRow: TdxBarLargeButton
      Caption = #21024#38500#34892
      Category = 0
      Hint = #21024#38500#34892
      Visible = ivAlways
      ImageIndex = 13
      OnClick = bbDelRowClick
      AutoGrayScale = False
      LargeImageIndex = 13
    end
    object dxBarLargeButton3: TdxBarLargeButton
      Caption = #25214#24179
      Category = 0
      Hint = #25214#24179
      Visible = ivAlways
      ImageIndex = 46
      AutoGrayScale = False
      LargeImageIndex = 46
    end
    object dxBarLargeButton7: TdxBarLargeButton
      Caption = #35745#31639#22120
      Category = 0
      Hint = #35745#31639#22120
      Visible = ivAlways
      ImageIndex = 49
      OnClick = dxBarLargeButton7Click
      AutoGrayScale = False
      LargeImageIndex = 49
    end
    object bbDate: TdxBarLargeButton
      Caption = #26085#26399
      Category = 0
      Hint = #26085#26399
      Visible = ivAlways
      ImageIndex = 30
      AutoGrayScale = False
      LargeImageIndex = 30
    end
    object bbType: TdxBarLargeButton
      Caption = #31867#22411
      Category = 0
      Hint = #31867#22411
      Visible = ivAlways
      ImageIndex = 2
      AutoGrayScale = False
      LargeImageIndex = 2
    end
    object bbPrint: TdxBarLargeButton
      Caption = #25171#21360
      Category = 0
      Hint = #25171#21360
      Visible = ivAlways
      ButtonStyle = bsDropDown
      DropDownMenu = PopupMenu1
      ImageIndex = 7
      OnClick = bbPrintClick
      AutoGrayScale = False
      LargeImageIndex = 7
    end
    object bbSave: TdxBarLargeButton
      Caption = #20445#23384
      Category = 0
      Hint = #20445#23384
      Visible = ivAlways
      ImageIndex = 9
      AutoGrayScale = False
      LargeImageIndex = 9
    end
    object bbExit: TdxBarLargeButton
      Caption = #36864#20986
      Category = 0
      Hint = #36864#20986
      Visible = ivAlways
      ImageIndex = 4
      OnClick = bbExitClick
      AutoGrayScale = False
      LargeImageIndex = 4
    end
  end
  object PopupMenu1: TdxBarPopupMenu
    BarManager = dxBarManager1
    ItemLinks = <>
    UseOwnFont = False
    Left = 56
    Top = 40
  end
  object dsMaster: TDataSource
    DataSet = ADOSetMaster
    Left = 84
    Top = 40
  end
  object ADOSetMaster: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    CommandText = 'Select * from AccountIndex'
    Parameters = <>
    Left = 112
    Top = 40
  end
  object dsList: TDataSource
    DataSet = ADOSetList
    Left = 140
    Top = 40
  end
  object ADOSetList: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnRecordChangeComplete = ADOSetListRecordChangeComplete
    CommandText = 'select * from AccountTable'
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'IndexID'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'Date'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Summary'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'SubjectName'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'SubjectID'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'DebitTotal'
        Attributes = [faFixed]
        DataType = ftBCD
        Precision = 19
        Size = 4
      end
      item
        Name = 'LenderTotal'
        Attributes = [faFixed]
        DataType = ftBCD
        Precision = 19
        Size = 4
      end
      item
        Name = 'Finish'
        Attributes = [faFixed]
        DataType = ftBoolean
      end>
    Parameters = <>
    StoreDefs = True
    Left = 168
    Top = 40
  end
  object GridPopMenu: TdxBarPopupMenu
    BarManager = dxBarManager1
    ItemLinks = <>
    UseOwnFont = False
    Left = 196
    Top = 40
  end
end