unitmain.dfm

DELPHI应用一则

        ShowSummaryFooter = True
        SummaryGroups = <
          item
            DefaultGroup = True
            SummaryItems = <
              item
                SummaryFormat = #35760#24405#25968'= #'
                SummaryType = cstCount
              end>
            Name = 'DBGskxxFJSL'
          end>
        SummarySeparator = ', '
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnDblClick = DBGskxxDblClick
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = #23435#20307
        BandFont.Style = []
        DataSource = DSxykmx
        Filter.Criteria = {00000000}
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -14
        HeaderFont.Name = #23435#20307
        HeaderFont.Style = []
        LookAndFeel = lfFlat
        OptionsDB = [edgoCanNavigation, edgoLoadAllRecords, edgoSmartReload]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -14
        PreviewFont.Name = #23435#20307
        PreviewFont.Style = []
        OnReloadGroupList = DBGskxxReloadGroupList
        object DBGskxxColumn1: TdxDBGridColumn
          Caption = #20449#29992#21345#21517#31216
          Sorted = csUp
          Visible = False
          Width = 121
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cardname'
          GroupIndex = 0
        end
        object DBGskxxColumn2: TdxDBGridColumn
          Caption = #20449#29992#21345#21495#30721
          Width = 93
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cardno'
        end
        object DBGskxxColumn3: TdxDBGridColumn
          Caption = #20449#29992#21345#31867#22411
          Width = 97
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cardmc'
        end
        object DBGskxxColumn4: TdxDBGridColumn
          Caption = #26085#26399
          Width = 144
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ondate'
        end
        object DBGskxxColumn5: TdxDBGridColumn
          Caption = #37329#39069
          Width = 121
          BandIndex = 0
          RowIndex = 0
          FieldName = 'amount'
          SummaryFooterType = cstSum
          SummaryFooterField = 'amount'
          SummaryField = 'amount'
        end
        object DBGskxxColumn6: TdxDBGridColumn
          Caption = #22791#27880
          Width = 108
          BandIndex = 0
          RowIndex = 0
          FieldName = 'bz'
        end
        object DBGskxxColumn7: TdxDBGridColumn
          Caption = #38134#34892#21517#31216
          Width = 108
          BandIndex = 0
          RowIndex = 0
          FieldName = 'bankmc'
        end
        object DBGskxxBZ1: TdxDBGridColumn
          Sorted = csUp
          Width = 108
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BZ1'
        end
        object DBGskxxBZ2: TdxDBGridColumn
          Width = 108
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BZ2'
        end
        object DBGskxxBZ3: TdxDBGridColumn
          Width = 108
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BZ3'
        end
        object DBGskxxBZ4: TdxDBGridColumn
          Width = 108
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BZ4'
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 522
        Width = 1006
        Height = 41
        Align = alBottom
        BevelInner = bvLowered
        Color = clBtnShadow
        TabOrder = 1
        object Label1: TLabel
          Left = 22
          Top = 18
          Width = 48
          Height = 12
          Caption = #21345#21495#26597#35810
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Edno: TEdit
          Left = 77
          Top = 13
          Width = 304
          Height = 20
          TabOrder = 0
          OnKeyPress = EdnoKeyPress
        end
        object BitBtn1: TBitBtn
          Left = 386
          Top = 12
          Width = 75
          Height = 25
          Caption = #26597#35810'&Q'
          TabOrder = 1
          OnClick = BitBtn1Click
        end
        object CBall: TCheckBox
          Left = 491
          Top = 14
          Width = 97
          Height = 17
          Caption = #26174#31034#20840#37096#20449#24687
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = CBallClick
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 480
    Top = 24
    object F1: TMenuItem
      Caption = #20449#24687#31649#29702'(&F)'
      object N3: TMenuItem
        Caption = #22686#21152#26723#26696
        OnClick = SBzjClick
      end
      object N15: TMenuItem
        Caption = #22686#21152#20449#24687
        OnClick = SBxgClick
      end
      object N16: TMenuItem
        Caption = #21024#38500#20449#24687
        OnClick = SBscClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object N2: TMenuItem
        Caption = #26597#35810
      end
    end
    object N13: TMenuItem
      Caption = #31995#32479#35774#32622'(&T)'
      object N18: TMenuItem
        Caption = #20844#21496#23646#24615#35774#32622
        OnClick = N18Click
      end
      object N5: TMenuItem
        Caption = #38134#34892#21517#31216#35774#32622
        OnClick = N5Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N14: TMenuItem
        Caption = #25805#20316#21592#35774#32622
        OnClick = N14Click
      end
    end
    object N4: TMenuItem
      Caption = #36864#20986#31995#32479'(&Q)'
      OnClick = SBtcClick
    end
  end
  object TimeFresh: TTimer
    OnTimer = TimeFreshTimer
    Left = 512
    Top = 24
  end
  object DSxykmx: TDataSource
    DataSet = DM.ADOxykmx
    Left = 543
    Top = 26
  end
end