pasrkcx.dfm

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

object rkcx: Trkcx
  Left = 171
  Top = 228
  Width = 696
  Height = 467
  Caption = #25910#36135#20837#24211#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 = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label7: TLabel
    Left = 120
    Top = 16
    Width = 60
    Height = 12
    Caption = #21333#20301#32534#21495#65306
  end
  object Label8: TLabel
    Left = 288
    Top = 16
    Width = 60
    Height = 12
    Caption = #21333#20301#21517#31216#65306
  end
  object Splitter1: TSplitter
    Left = 0
    Top = 353
    Width = 688
    Height = 1
    Cursor = crVSplit
    Align = alTop
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 26
    Width = 688
    Height = 119
    Align = alTop
    Caption = #26597#35810#26465#20214
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 72
      Top = 56
      Width = 81
      Height = 17
      Caption = #21333#20301#21517#31216
      TabOrder = 0
    end
    object RadioButton2: TRadioButton
      Left = 72
      Top = 80
      Width = 49
      Height = 17
      Caption = #26085#26399
      TabOrder = 1
    end
    object RadioButton3: TRadioButton
      Left = 72
      Top = 32
      Width = 89
      Height = 17
      Caption = #20840#37096#20837#24211#21333
      Checked = True
      TabOrder = 2
      TabStop = True
    end
    object cxLookupComboBox2: TcxLookupComboBox
      Left = 144
      Top = 52
      Width = 89
      Height = 20
      Properties.DropDownAutoSize = True
      Properties.KeyFieldNames = 'ClientId'
      Properties.ListColumns = <
        item
          Caption = #32534#21495
          HeaderAlignment = taCenter
          Width = 50
          FieldName = 'ClientId'
        end
        item
          Caption = #21517#31216
          HeaderAlignment = taCenter
          Width = 120
          FieldName = 'ClientName'
        end>
      Properties.ListSource = DataSource1
      Properties.OnChange = cxLookupComboBox2PropertiesChange
      Style.BorderStyle = ebs3D
      TabOrder = 3
    end
    object Edit2: TEdit
      Left = 236
      Top = 52
      Width = 219
      Height = 20
      TabOrder = 4
    end
    object DateTimePicker1: TDateTimePicker
      Left = 128
      Top = 76
      Width = 105
      Height = 20
      CalAlignment = dtaLeft
      Date = 38139.3935601042
      Time = 38139.3935601042
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 145
    Width = 688
    Height = 208
    Align = alTop
    DataSource = DataSource2
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'InHouseId'
        Title.Alignment = taCenter
        Title.Caption = #20837#24211#21333#21495
        Width = 106
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WholeSaling'
        Title.Alignment = taCenter
        Title.Caption = #25209#27425
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InHouseDate'
        Title.Alignment = taCenter
        Title.Caption = #26102#38388
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Unitid'
        Title.Alignment = taCenter
        Title.Caption = #21333#20301#32534#21495
        Width = 87
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UnitName'
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
        Width = 131
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OtherFee'
        Title.Alignment = taCenter
        Title.Caption = #20854#23427#36153#29992
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Memo'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 354
    Width = 688
    Height = 79
    Align = alClient
    DataSource = DataSource3
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 6
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BookId'
        Title.Alignment = taCenter
        Title.Caption = #22270#20070#32534#21495
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookName'
        Title.Alignment = taCenter
        Title.Caption = #22270#20070#21517#31216
        Width = 164
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookEdition'
        Title.Alignment = taCenter
        Title.Caption = #29256#21035
        Width = 185
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookCount'
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookPrice'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AddBook'
        Title.Alignment = taCenter
        Title.Caption = #21152#25439
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TotalMoney'
        Title.Alignment = taCenter
        Title.Caption = #30721#27915
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HousePos'
        Title.Alignment = taCenter
        Title.Caption = #24211#20301
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bundles'
        Title.Alignment = taCenter
        Title.Caption = #21253'+'#20876
        Width = 79
        Visible = True
      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 = 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)
    Images = dmData.ImageList
    LargeImages = dmData.ImageList
    PopupMenuLinks = <>
    Style = bmsFlat
    UseSystemFont = True
    Left = 324
    Top = 65528
    DockControlHeights = (
      0
      0
      26
      0)
    object dxBarLargeButton1: TdxBarLargeButton
      Caption = #26597#35810
      Category = 0
      Hint = #26597#35810
      Visible = ivAlways
      OnClick = dxBarLargeButton1Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 0
    end
    object dxBarLargeButton2: TdxBarLargeButton
      Caption = #20445#23384
      Category = 0
      Hint = #20445#23384
      Visible = ivAlways
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 1
    end
    object dxBarLargeButton3: TdxBarLargeButton
      Caption = #21024#38500
      Category = 0
      Hint = #21024#38500
      Visible = ivAlways
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 2
    end
    object dxBarLargeButton5: TdxBarLargeButton
      Caption = #21047#26032
      Category = 0
      Hint = #21047#26032
      Visible = ivAlways
      ImageIndex = 5
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 5
    end
    object dxBarLargeButton6: TdxBarLargeButton
      Caption = #25171#21360
      Category = 0
      Hint = #25171#21360
      Visible = ivAlways
      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 * from tbPublish')
    Left = 316
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 336
    Top = 24
  end
  object ADOQuery2: TADOQuery
    Connection = dmData.adcDatabase
    Parameters = <>
    Left = 368
    Top = 16
  end
  object ADOQuery3: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    AfterScroll = ADOQuery3AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from tbInHouseUnit')
    Left = 480
    Top = 80
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery3
    Left = 464
    Top = 24
  end
  object ADOQuery4: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbInHouseSubs')
    Left = 512
    Top = 112
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery4
    Left = 544
    Top = 72
  end
end