dyspda1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

object dyspda: Tdyspda
  Left = 517
  Top = 116
  ActiveControl = dxDBGrid1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '打印货品档案表'
  ClientHeight = 241
  ClientWidth = 463
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object dxDBGrid1: TdxDBGrid
    Left = 8
    Top = 8
    Width = 345
    Height = 225
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'rpname'
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 0
    DataSource = DataSource3
    Filter.Active = True
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSort, edgoTabThrough, edgoVertThrough]
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    object dxDBGrid1rplx: TdxDBGridMaskColumn
      ReadOnly = True
      Sorted = csDown
      Width = 154
      BandIndex = 0
      RowIndex = 0
      FieldName = 'rplx'
    end
    object dxDBGrid1rpname: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 150
      BandIndex = 0
      RowIndex = 0
      FieldName = 'rpname'
    end
  end
  object BitBtn2: TBitBtn
    Left = 360
    Top = 48
    Width = 97
    Height = 25
    Caption = '打印报表&P'
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 360
    Top = 80
    Width = 97
    Height = 25
    Caption = '打印预览&R'
    TabOrder = 2
    OnClick = BitBtn4Click
    Glyph.Data = {
      6E040000424D6E04000000000000360000002800000013000000120000000100
      18000000000038040000C40E0000C40E00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF0000000000000000
      00000000000000000000000000000000000000000000000000000000BFBFBFBF
      BFBF000000000000BFBFBF000000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FF
      FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF000000BFBFBF0000000000
      00000000BFBFBF000000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFF
      F8FFFFF8FFFFF8FF000000000000000000000000BFBFBF000000000000BFBFBF
      BFBFBF000000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8
      FF000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF00
      0000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFFF8FF000000BFBFBF
      BFBFBFBFBFBFFFF800BFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000BFBF
      BFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFFF8FF000000BFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      000000FFF8FFFFF8FFFFF8FFFFF8FFFFF8FF000000BFBFBFFFF800BFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF000000FF
      F8FFFFF8FFFFF8FFFFF8FFFFF8FF000000BFBFBFFFF800FFF800BFBFBFBFBFBF
      BFBFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF000000FFF8FFFFF8
      FFFFF8FFFFF8FFFFF8FFFFF8FF000000BFBFBFBFBFBFBFBFBFBFBFBF000000BF
      BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FF
      FFF8FFFFF8FFFFF8FFFFF8FF000000000000000000000000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFF
      F8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF000000BFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBF000000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8
      FFFFF8FF000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      0000BFBFBFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
      000000BFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
      BFBFBFBF000000FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF00000000
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      000000000000000000000000000000000000000000000000000000BFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000}
  end
  object BitBtn1: TBitBtn
    Left = 360
    Top = 112
    Width = 97
    Height = 25
    Caption = '新建报表&N'
    Enabled = False
    TabOrder = 3
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
      07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
      0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 360
    Top = 144
    Width = 97
    Height = 25
    Caption = '设计报表&E'
    Enabled = False
    TabOrder = 4
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
      555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
      05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
      FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
      FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
      FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
      05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
      555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
      9055575757575757775505050505055505557575757575557555}
    NumGlyphs = 2
  end
  object BitBtn6: TBitBtn
    Left = 360
    Top = 176
    Width = 97
    Height = 25
    Caption = '打开文件&F'
    TabOrder = 5
    OnClick = BitBtn6Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000000
      000557777777777777750BBBBBBBBBBBBBB07F5555FFFFFFF5570BBBB0000000
      BBB07F5557777777FF570BBB077BBB770BB07F557755555775570BBBBBBBBBBB
      BBB07F5555FFFFFFF5570BBBB0000000BBB07F5557777777F5570BBBB0FFFFF0
      BBB07F5557FFFFF7F5570BBBB0000000BBB07F555777777755570BBBBBBBBBBB
      BBB07FFFFFFFFFFFFFF700000000000000007777777777777777500FFFFFFFFF
      F005577FF555FFFFF7755500FFF00000005555775FF7777777F5550F777FFFFF
      F055557F777FFF5557F5550000000FFF00555577777775FF77F5550777777000
      7055557FFFFFF777F7F555000000000000555577777777777755}
    NumGlyphs = 2
  end
  object BitBtn5: TBitBtn
    Left = 360
    Top = 208
    Width = 97
    Height = 25
    Cancel = True
    Caption = '退    出&X'
    ModalResult = 2
    TabOrder = 6
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'name'
    TableName = 'QYDA'
    Left = 112
    Top = 184
    object ADOTable1code: TStringField
      FieldName = 'code'
    end
    object ADOTable1name: TStringField
      FieldName = 'name'
      Size = 200
    end
    object ADOTable1dz: TStringField
      FieldName = 'dz'
      Size = 200
    end
    object ADOTable1dh: TStringField
      FieldName = 'dh'
      Size = 50
    end
    object ADOTable1cz: TStringField
      FieldName = 'cz'
      Size = 50
    end
    object ADOTable1lxr: TStringField
      FieldName = 'lxr'
      Size = 50
    end
    object ADOTable1bz: TStringField
      FieldName = 'bz'
      Size = 200
    end
  end
  object RMDesigner1: TRMDesigner
    HelpFile = 'help.hlp'
    DesignerRestrictions = []
    Left = 72
    Top = 184
  end
  object DataSource3: TDataSource
    DataSet = ADOTable5
    Left = 64
    Top = 24
  end
  object RMDADOComponents1: TRMDADOComponents
    Left = 360
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Filter = '报表文件(*.rmf)|*.rmf|所有文件|*.*'
    Left = 392
    Top = 8
  end
  object RMAngledLabelObject1: TRMAngledLabelObject
    Left = 16
    Top = 104
  end
  object RMOLEObject1: TRMOLEObject
    Left = 48
    Top = 104
  end
  object RMGridObject1: TRMGridObject
    Left = 80
    Top = 104
  end
  object RMRichObject1: TRMRichObject
    Left = 112
    Top = 104
  end
  object RMCheckBoxObject1: TRMCheckBoxObject
    Left = 144
    Top = 104
  end
  object RMShapeObject1: TRMShapeObject
    Left = 176
    Top = 104
  end
  object RMBarCodeObject1: TRMBarCodeObject
    Left = 208
    Top = 104
  end
  object RMRoundRectObject1: TRMRoundRectObject
    Left = 240
    Top = 104
  end
  object RMCrossObject1: TRMCrossObject
    Left = 272
    Top = 104
  end
  object RMDBChartObject1: TRMDBChartObject
    Left = 16
    Top = 136
  end
  object RMTextExport1: TRMTextExport
    ScaleX = 1
    ScaleY = 1
    Left = 48
    Top = 136
  end
  object RMRTFExport1: TRMRTFExport
    ExportImageFormat = ifJPG
    Left = 80
    Top = 136
  end
  object RMCSVExport1: TRMCSVExport
    ScaleX = 1
    ScaleY = 1
    Delimiter = ';'
    Left = 112
    Top = 136
  end
  object RMHTMExport1: TRMHTMExport
    LinkTextFirst = '第一页'
    LinkTextNext = '下一页'
    LinkTextPrev = '上一页'
    LinkTextLast = '最后一页'
    LinkFont.Charset = DEFAULT_CHARSET
    LinkFont.Color = clBlue
    LinkFont.Height = -24
    LinkFont.Name = 'MS Sans Serif'
    LinkFont.Style = []
    CreateMHTFile = False
    Left = 144
    Top = 136
  end
  object RMEMFExport1: TRMEMFExport
    ScaleX = 1
    ScaleY = 1
    Left = 176
    Top = 136
  end
  object RMWMFExport1: TRMWMFExport
    ScaleX = 1
    ScaleY = 1
    Left = 208
    Top = 136
  end
  object RMBMPExport1: TRMBMPExport
    ScaleX = 1
    ScaleY = 1
    Left = 240
    Top = 136
  end
  object RMJPEGExport1: TRMJPEGExport
    ScaleX = 1
    ScaleY = 1
    Left = 272
    Top = 136
  end
  object RMPDFExport1: TRMPDFExport
    PixelFormat = pf8bit
    ExportImageFormat = ifJPG
    Left = 304
    Top = 136
  end
  object RMDialogControls1: TRMDialogControls
    Left = 304
    Top = 104
  end
  object RMReport1: TRMReport
    SaveReportOptions.UseRegistry = True
    SaveReportOptions.RegistryPath = 'ReportMachine\ReportSettings\'
    InitialZoom = pzDefault
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
    Left = 8
    Top = 184
    ReportForm = {2B000000}
  end
  object RMDBDataSet1: TRMDBDataSet
    DataSource = spdawh.DataSource1
    Left = 40
    Top = 184
  end
  object ADOTable5: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Filtered = True
    TableName = 'REPORT'
    Left = 96
    Top = 24
    object ADOTable5rplx: TStringField
      DisplayLabel = '报表类型'
      FieldName = 'rplx'
      Size = 50
    end
    object ADOTable5rpname: TStringField
      DisplayLabel = '报表名称'
      FieldName = 'rpname'
      Size = 50
    end
    object ADOTable5id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTable5rpdata: TBlobField
      FieldName = 'rpdata'
      BlobType = ftBlob
    end
  end
  object DataSource1: TDataSource
    DataSet = spdawh.Table1
    Left = 144
    Top = 184
  end
end