csh510_01.dfm.svn-base

一个用Delphi开发的ERP软件

inherited Csh510_01Form: TCsh510_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #20986#32435#24080#26412
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
      inherited tlbInsert: TToolButton
        DropdownMenu = PopupMenu2
        Style = tbsDropDown
      end
      inherited tlbUpdate: TToolButton
        Left = 196
      end
      inherited tlbDelete: TToolButton
        Left = 231
      end
      inherited ToolButton2: TToolButton
        Left = 266
      end
      inherited tlbRefresh: TToolButton
        Left = 274
      end
      inherited tlbLocate: TToolButton
        Left = 309
      end
      inherited tlbSearch: TToolButton
        Left = 344
      end
      inherited tlbPrint: TToolButton
        Left = 379
      end
      inherited ToolButton6: TToolButton
        Left = 427
      end
      inherited tlbExit: TToolButton
        Left = 435
      end
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblAcct: TLabel
      Left = 197
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #24080#25143
      Transparent = True
    end
    object lblDate: TLabel
      Left = 477
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26085#26399
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 733
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object cbAccNm: TComboBox
      Left = 229
      Top = 8
      Width = 241
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
      OnChange = cbAccNmChange
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 509
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 621
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 2
    end
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'BILDT'
      Filter.Criteria = {00000000}
      object dxDBGrid1BILDT: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 82
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BILDT'
      end
      object dxDBGrid1BILNO: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 63
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BILNO'
      end
      object dxDBGrid1MEMO: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 221
        BandIndex = 0
        RowIndex = 0
        FieldName = 'MEMO'
      end
      object dxDBGrid1AMT01: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'AMT01'
        SummaryFooterType = cstSum
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
        OnDrawSummaryFooter = dxDBGrid1AMT01DrawSummaryFooter
        Nullable = False
      end
      object dxDBGrid1AMT02: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'AMT02'
        SummaryFooterType = cstSum
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
        OnDrawSummaryFooter = dxDBGrid1AMT02DrawSummaryFooter
        Nullable = False
      end
      object dxDBGrid1AMT03: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'AMT03'
        Nullable = False
      end
    end
  end
  inherited ADODataSet1: TADODataSet
    object ADODataSet1BILDT: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BILDT'
    end
    object ADODataSet1BILNO: TStringField
      DisplayLabel = #31080#25454#32534#21495
      FieldName = 'BILNO'
    end
    object ADODataSet1MEMO: TStringField
      DisplayLabel = #25688#35201
      FieldName = 'MEMO'
      Size = 60
    end
    object ADODataSet1AMT01: TBCDField
      DisplayLabel = #25910#20837
      FieldName = 'AMT01'
      Size = 0
    end
    object ADODataSet1AMT02: TBCDField
      DisplayLabel = #25903#20986
      FieldName = 'AMT02'
      Size = 0
    end
    object ADODataSet1AMT03: TBCDField
      DisplayLabel = #20313#39069
      FieldName = 'AMT03'
      Size = 0
    end
  end
  object qryCsh550: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from CSH550')
    Left = 328
    Top = 104
  end
  object PopupMenu2: TPopupMenu
    Images = SYSDM.imgBtn
    OwnerDraw = True
    Left = 168
    Top = 40
    object miIncome: TMenuItem
      Tag = 1
      Caption = #25910#25903#21333'(&D)...'
      ShortCut = 16452
      OnClick = MenuItemClick
    end
    object miTransfer: TMenuItem
      Tag = 2
      Caption = #36716#24080#21333'(&T)...'
      ShortCut = 16468
      OnClick = MenuItemClick
    end
  end
  object ADOQuery1: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from CSH500 where C500_002<>0 and C500_001=1'
      'order by C500_001, C500_003, C500_004')
    Left = 528
    Top = 192
  end
  object ADOQuery2: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 496
    Top = 192
  end
end