csh730_01.dfm.svn-base

一个用Delphi开发的ERP软件

inherited Csh730_01Form: TCsh730_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #20538#26435#20538#21153#26597#35810
  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
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblDate: TLabel
      Left = 461
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26085#26399
      Transparent = True
    end
    object lblInOut: TLabel
      Left = 333
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #31867#22411
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 725
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 493
      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 = 0
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 605
      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 cbInOut: TComboBox
      Left = 365
      Top = 8
      Width = 89
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 2
      Text = #20538#26435
      Items.Strings = (
        #20538#26435
        #20538#21153)
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'FCurrNo'
      PopupMenu = PopupMenu1
      Filter.Criteria = {00000000}
      object dxDBGrid1FCurrName: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCurrName'
      end
      object dxDBGrid1FType: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FType'
      end
      object dxDBGrid1FCode: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCode'
      end
      object dxDBGrid1FName: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 160
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
      object dxDBGrid1FOpen: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FOpen'
      end
      object dxDBGrid1FInAmt: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FInAmt'
      end
      object dxDBGrid1FOutAmt: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FOutAmt'
      end
      object dxDBGrid1FBalance: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FBalance'
      end
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FCurrName'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FType'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FCode'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FInAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FOutAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FBalance'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FOpen'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FCustNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FCurrNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    StoreDefs = True
    object ADODataSet1FCurrName: TStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'FCurrName'
      Size = 30
    end
    object ADODataSet1FType: TIntegerField
      DisplayLabel = #23545#35937#31867#22411
      FieldName = 'FType'
      OnGetText = ADODataSet1FTypeGetText
    end
    object ADODataSet1FCode: TStringField
      DisplayLabel = #23545#35937#32534#21495
      FieldName = 'FCode'
    end
    object ADODataSet1FName: TStringField
      DisplayLabel = #23545#35937#21517#31216
      FieldName = 'FName'
      Size = 60
    end
    object ADODataSet1FOpen: TFloatField
      DisplayLabel = #26399#21021#37329#39069
      FieldName = 'FOpen'
    end
    object ADODataSet1FInAmt: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      FieldName = 'FInAmt'
    end
    object ADODataSet1FOutAmt: TFloatField
      DisplayLabel = #24050#25910#37329#39069
      FieldName = 'FOutAmt'
    end
    object ADODataSet1FBalance: TFloatField
      DisplayLabel = #26410#25910#37329#39069
      FieldName = 'FBalance'
    end
    object ADODataSet1FCustNo: TIntegerField
      FieldName = 'FCustNo'
      Visible = False
    end
    object ADODataSet1FCurrNo: TIntegerField
      FieldName = 'FCurrNo'
      Visible = False
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 216
    object N1: TMenuItem
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = ActLocate
    end
    object N5: TMenuItem
      Action = ActSearch
    end
  end
  object qryCsh610: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 120
    Top = 152
  end
end