csh510_01.dfm.svn-base

开源的网站整站程序,功能强大带采集系统.

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]
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      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
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      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
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      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 dxDBGrid1FDate: TdxDBGridDateColumn
        HeaderAlignment = taCenter
        Width = 98
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FDate'
        DisableFilter = True
      end
      object dxDBGrid1FCode: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 161
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCode'
        DisableFilter = True
      end
      object dxDBGrid1FBrief: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 156
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FBrief'
        DisableFilter = True
      end
      object dxDBGrid1FIncome: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 102
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FIncome'
        DisableFilter = True
      end
      object dxDBGrid1FPay: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 94
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FPay'
        DisableFilter = True
      end
      object dxDBGrid1FBalance: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 110
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FBalance'
        DisableFilter = True
      end
    end
  end
  inherited ADODataSet1: TADODataSet
    CacheSize = 1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDate
      end
      item
        Name = 'FCode'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FBrief'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FIncome'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FPay'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FBalance'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FBillNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    StoreDefs = True
    object ADODataSet1FDate: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'FDate'
    end
    object ADODataSet1FCode: TStringField
      DisplayLabel = #31080#25454#32534#21495
      FieldName = 'FCode'
    end
    object ADODataSet1FBrief: TStringField
      DisplayLabel = #25688#35201
      FieldName = 'FBrief'
    end
    object ADODataSet1FIncome: TFloatField
      DisplayLabel = #25910#20837
      FieldName = 'FIncome'
    end
    object ADODataSet1FPay: TFloatField
      DisplayLabel = #25903#20986
      FieldName = 'FPay'
    end
    object ADODataSet1FBalance: TFloatField
      DisplayLabel = #20313#39069
      FieldName = 'FBalance'
    end
    object ADODataSet1FBillNo: TIntegerField
      FieldName = 'FBillNo'
    end
  end
  object qryCsh550: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from CSH550')
    Left = 304
    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 CSH510A where C510A_004<>0 and C510A_003=1'
      'order by C510A_010, C510A_002')
    Left = 528
    Top = 192
    object ADOQuery1C510A_001: TWideStringField
      FieldName = 'C510A_001'
      Size = 30
    end
    object ADOQuery1C510A_002: TIntegerField
      FieldName = 'C510A_002'
    end
    object ADOQuery1C510A_003: TIntegerField
      FieldName = 'C510A_003'
    end
    object ADOQuery1C510A_004: TSmallintField
      FieldName = 'C510A_004'
    end
    object ADOQuery1C510A_005: TSmallintField
      FieldName = 'C510A_005'
    end
    object ADOQuery1C510A_006: TSmallintField
      FieldName = 'C510A_006'
    end
    object ADOQuery1C510A_007: TSmallintField
      FieldName = 'C510A_007'
    end
    object ADOQuery1C510A_008: TIntegerField
      FieldName = 'C510A_008'
    end
    object ADOQuery1C510A_009: TFloatField
      FieldName = 'C510A_009'
    end
    object ADOQuery1C510A_010: TDateTimeField
      FieldName = 'C510A_010'
    end
    object ADOQuery1C510A_011: TWideStringField
      FieldName = 'C510A_011'
    end
    object ADOQuery1C510A_012: TIntegerField
      FieldName = 'C510A_012'
    end
    object ADOQuery1C510A_013: TFloatField
      FieldName = 'C510A_013'
    end
    object ADOQuery1C510A_014: TWideStringField
      FieldName = 'C510A_014'
    end
    object ADOQuery1C510A_015: TWideStringField
      FieldName = 'C510A_015'
      Size = 60
    end
    object ADOQuery1C510A_016: TDateTimeField
      FieldName = 'C510A_016'
    end
    object ADOQuery1C510A_017: TWideStringField
      FieldName = 'C510A_017'
    end
    object ADOQuery1C510A_018: TDateTimeField
      FieldName = 'C510A_018'
    end
    object ADOQuery1C510A_019: TWideStringField
      FieldName = 'C510A_019'
    end
  end
  object ADOQuery2: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 496
    Top = 192
  end
end