pasyfcx.dfm

一个图书批发商的通用软件

object fryfcx: Tfryfcx
  Left = 155
  Top = 111
  Width = 652
  Height = 375
  Caption = #24212#20184#26597#35810
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 26
    Width = 644
    Height = 87
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 13
      Top = 10
      Width = 96
      Height = 24
      Caption = #24212#20184#26597#35810
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -24
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object RadioButton1: TRadioButton
      Left = 32
      Top = 56
      Width = 73
      Height = 17
      Caption = #20840#37096#21333#20301
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 218
      Top = 56
      Width = 113
      Height = 17
      Caption = #25152#26377#27424#27454#21333#20301
      TabOrder = 1
    end
    object RadioButton3: TRadioButton
      Left = 120
      Top = 56
      Width = 81
      Height = 17
      Caption = #24050#36824#28165#21333#20301
      TabOrder = 2
    end
    object Edit1: TEdit
      Left = 626
      Top = 54
      Width = 80
      Height = 20
      TabOrder = 3
      Text = '0'
    end
    object Edit2: TEdit
      Left = 432
      Top = 54
      Width = 80
      Height = 20
      TabOrder = 4
      Text = '0'
    end
    object RadioButton4: TRadioButton
      Left = 329
      Top = 56
      Width = 95
      Height = 17
      Caption = #25152#26377#27424#27454#22823#20110
      TabOrder = 5
    end
    object RadioButton5: TRadioButton
      Left = 523
      Top = 56
      Width = 101
      Height = 17
      Caption = #25152#26377#27424#27454#23567#20110
      TabOrder = 6
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 113
    Width = 644
    Height = 228
    Align = alClient
    Caption = #26597#35810#32467#26524
    TabOrder = 5
    object DBGrid1: TDBGrid
      Left = 2
      Top = 14
      Width = 640
      Height = 212
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'UnitId'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301#21517#31216
          Width = 185
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RealMoney'
          Title.Alignment = taCenter
          Title.Caption = #24212#20184#24080#27454
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GetMoney'
          Title.Alignment = taCenter
          Title.Caption = #24050#20184#36134#27454
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'aa'
          Title.Alignment = taCenter
          Title.Caption = #26410#20184#36134#27454
          Width = 100
          Visible = True
        end>
    end
  end
  object dxBarManager1: TdxBarManager
    Scaled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Bars = <
      item
        AllowClose = False
        AllowCustomizing = False
        AllowQuickCustomizing = False
        AllowReset = False
        Caption = #24037#20855#26639
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 29
        FloatTop = 200
        FloatClientWidth = 56
        FloatClientHeight = 88
        ItemLinks = <
          item
            Item = dxBarLargeButton5
            Visible = True
          end
          item
            Item = dxBarLargeButton1
            Visible = True
          end
          item
            Item = dxBarLargeButton4
            Visible = True
          end>
        Name = #24037#20855#26639
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end>
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    LargeImages = dmData.ImageList
    PopupMenuLinks = <>
    Style = bmsFlat
    UseSystemFont = True
    Left = 324
    DockControlHeights = (
      0
      0
      26
      0)
    object dxBarLargeButton5: TdxBarLargeButton
      Caption = #26597#35810
      Category = 0
      Hint = #26597#35810
      Visible = ivAlways
      ImageIndex = 5
      OnClick = dxBarLargeButton5Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 5
    end
    object dxBarLargeButton1: TdxBarLargeButton
      Caption = #25171#21360
      Category = 0
      Hint = #25171#21360
      Visible = ivAlways
      OnClick = dxBarLargeButton1Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 6
    end
    object dxBarLargeButton4: TdxBarLargeButton
      Caption = #36864#20986
      Category = 0
      Hint = #36864#20986
      Visible = ivAlways
      OnClick = dxBarLargeButton4Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 3
    end
  end
  object ADOQuery1: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.UnitId, Sum(a.RealMoney) as RealMoney ,'
      
        '((select  sum(GetMoney) from InMoneys where unitid=a.unitid ))  ' +
        'as GetMoney ,('
      
        'Sum(a.RealMoney)-(select  sum(GetMoney)  from InMoneys where uni' +
        'tid=a.unitid )) as aa'
      'from tbSaleSubs a '
      'group by a.unitid')
    Left = 176
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery3
    Left = 192
    Top = 80
  end
  object ADOQuery2: TADOQuery
    Connection = dmData.adcDatabase
    Parameters = <>
    Left = 208
    Top = 24
  end
  object ADOQuery3: TADOQuery
    Connection = dmData.adcDatabase
    Parameters = <>
    Left = 88
    Top = 16
  end
  object frPrintGrid1: TfrPrintGrid
    DBGrid = DBGrid1
    FitWidth.Enabled = False
    FitWidth.ShrinkOptions = [frsoProportional, frsoShrinkOnly]
    FitWidth.ResizePercent = 30
    FitWidth.ApplyBeforeOnCustomize = False
    PageSize = 9
    PageWidth = 0
    PageHeight = 0
    PageMargins.Left = 6
    PageMargins.Top = 6
    PageMargins.Right = 0
    PageMargins.Bottom = 0
    Title.Font.Charset = ANSI_CHARSET
    Title.Font.Color = clWindowText
    Title.Font.Height = -16
    Title.Font.Name = #23435#20307
    Title.Font.Style = [fsBold]
    Title.Color = clWhite
    Title.Frame = []
    Title.FrameWidth = 1
    PageHeader.Font.Charset = ANSI_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -12
    PageHeader.Font.Name = #23435#20307
    PageHeader.Font.Style = [fsBold]
    PageHeader.Color = clWhite
    PageHeader.Frame = []
    PageHeader.FrameWidth = 1
    PageHeader.Align = taLeftJustify
    PageHeader.Text = 'lll'
    PageFooter.Font.Charset = ANSI_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -12
    PageFooter.Font.Name = #23435#20307
    PageFooter.Font.Style = []
    PageFooter.Color = clWhite
    PageFooter.Frame = []
    PageFooter.FrameWidth = 1
    PageFooter.Align = taRightJustify
    Header.Font.Charset = ANSI_CHARSET
    Header.Font.Color = clWhite
    Header.Font.Height = -12
    Header.Font.Name = #23435#20307
    Header.Font.Style = [fsBold]
    Header.Color = clNavy
    Header.Frame = [frLeft, frTop, frRight, frBottom]
    Header.FrameWidth = 1
    Body.Font.Charset = ANSI_CHARSET
    Body.Font.Color = clWindowText
    Body.Font.Height = -12
    Body.Font.Name = #23435#20307
    Body.Font.Style = []
    Body.Color = clWhite
    Body.Frame = [frLeft, frTop, frRight, frBottom]
    Body.FrameWidth = 1
    Left = 288
    Top = 48
  end
end