setprint.dfm

delphi作得信息业进销存源码.功能全面,运行稳定.

object frmSetPrint: TfrmSetPrint
  Left = 159
  Top = 101
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #36164#26009#25171#21360
  ClientHeight = 355
  ClientWidth = 329
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  DesignSize = (
    329
    355)
  PixelsPerInch = 120
  TextHeight = 15
  object Notebook1: TNotebook
    Left = 6
    Top = 6
    Width = 317
    Height = 343
    Anchors = [akLeft, akTop, akRight]
    PageIndex = 1
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = '1'
      DesignSize = (
        317
        343)
      object Label66: TLabel
        Left = 143
        Top = 37
        Width = 15
        Height = 15
        Caption = #21040
        Visible = False
      end
      object Label68: TLabel
        Left = 15
        Top = 27
        Width = 38
        Height = 15
        Caption = #33539#22260':'
        Visible = False
      end
      object btnPreview: TBitBtn
        Left = 1
        Top = 312
        Width = 90
        Height = 31
        Caption = #39044#35272'(&V)'
        TabOrder = 1
        OnClick = btnPreviewClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          1800000000000003000000000000000000000000000000000000FF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FF00000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FFFF00FF000000000000000000FFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00
          FF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFF0000000000000000000000007F7F7F000000000000FF00FF000000FFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FBFBFBFBFBFBF7F7F7F0000
          007F7F7FFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007F
          7F7FBFBFBFBFBFBFFFFF007F7F7F7F7F7F000000FF00FFFF00FF000000FFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBF
          BF000000FF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BF
          BFBFFFFF00BFBFBFBFBFBF7F7F7FBFBFBF000000FF00FFFF00FF000000FFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FFFFF00FFFF00BFBFBF7F7F7F7F7F
          7F000000FF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
          00007F7F7FBFBFBFBFBFBF7F7F7F000000FF00FFFF00FFFF00FF000000FFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FF00
          FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FFFF00FFFF00FF000000FFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FF00
          FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFF000000BFBFBF000000FF00FFFF00FFFF00FFFF00FFFF00FF000000FFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FF00000000000000000000000000000000000000000000
          0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      end
      object btnPrint: TBitBtn
        Left = 113
        Top = 312
        Width = 90
        Height = 31
        Caption = #25171#21360'(&P)'
        TabOrder = 2
        OnClick = btnPrintClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          1800000000000003000000000000000000000000000000000000FF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000000000000
          0000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FF000000
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
          BF000000FF00FFFF00FF00000000000000000000000000000000000000000000
          0000000000000000000000000000000000BFBFBF000000FF00FF000000BFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF00FFFF00FFFFBFBFBFBFBFBF0000
          00000000000000FF00FF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F
          7F7F7F7F7F7F7F7FBFBFBFBFBFBF000000BFBFBF000000FF00FF000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          00BFBFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBF000000FF00FF000000
          000000000000000000000000000000000000000000000000000000BFBFBF0000
          00BFBFBF000000000000FF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFF000000BFBFBF000000BFBFBF000000FF00FFFF00FF
          FF00FF000000FFFFFF000000000000000000000000000000FFFFFF0000000000
          00000000000000FF00FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FF000000FFFFFF000000000000000000000000000000FFFFFF0000
          00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FF0000000000000000000000000000000000000000000000
          00000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      end
      object btnNew: TBitBtn
        Left = 227
        Top = 0
        Width = 90
        Height = 31
        Anchors = [akTop, akRight]
        Caption = #26032#22686'(&A)'
        TabOrder = 3
        OnClick = btnNewClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADAADADADADADADADADDA00000000000ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF
          0ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF0ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF
          0ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF0ADAAD0FFFFFF0000DADDA0FFFFFF0F0
          DADAAD0FFFFFF00DADADDA00000000DADADAADADADADADADADAD}
      end
      object btnSet: TBitBtn
        Left = 227
        Top = 42
        Width = 90
        Height = 31
        Anchors = [akTop, akRight]
        Caption = #35774#32622'(&S)'
        TabOrder = 4
        OnClick = btnSetClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADAD7
          47DAADADADADA7447770DADADAD7DA44770AADADA747A744770DDADA744774C4
          770A00000744C74C770D0FF8FF8C77C4770A0FF8FF8FC74C770D088888888CCC
          770A0FF8FF8FF8CC770D0FF8FF8FF8FC770A088888888888870D0FF8FF8FF8FF
          0ADA0FF8FF8FF8FF0DAD4444444444444ADA4444444444444DAD}
      end
      object btnSaveAs: TBitBtn
        Left = 227
        Top = 84
        Width = 90
        Height = 31
        Anchors = [akTop, akRight]
        Caption = #21478#23384#20026' '
        ParentShowHint = False
        ShowHint = False
        TabOrder = 5
        OnClick = btnSaveAsClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADAADADADADADADADAD0000000000DADADA0FFFFFFFF0ADADAD0FFFFFFFF0D4
          DADA0F777777F04444AD0F7FFFF7F0D4DA4A0F7FFFF7F0ADAD4D0F777777F0DA
          DA4A0FFFFFFFF0ADADAD0FFFFF0000D000000FFFFF0F0DA0FFF00FFFFF00DAD0
          FFF00000000DADA0F000DADADADADAD0F00AADADADADADA000AD}
      end
      object btnDel: TBitBtn
        Left = 227
        Top = 126
        Width = 90
        Height = 31
        Anchors = [akTop, akRight]
        Caption = #21024#38500'(&D)'
        TabOrder = 6
        OnClick = btnDelClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADAADADADADADADADADDAD0000000000ADAADA0FFFFFFFF0DADDAD0FFFFFFFF
          0ADAA1F0F777777F0DAD11F0F75BFB7F0ADAA11F11BFBF7F0DADDA151877777F
          0ADAAD511FFFFFFF0DAD5111F1FFF0000ADA15A0FF1FF0F0ADADDAD0FFFFF00A
          DADAADA0000000ADADADDADADADADADADADAADADADADADADADAD}
      end
      object btnClose: TBitBtn
        Left = 227
        Top = 312
        Width = 90
        Height = 31
        Anchors = [akTop, akRight]
        Caption = #20851#38381'(&C)'
        TabOrder = 7
        Kind = bkCancel
      end
      object GroupBox12: TGroupBox
        Left = 0
        Top = 228
        Width = 317
        Height = 77
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 8
        object Label1: TLabel
          Left = 111
          Top = 19
          Width = 53
          Height = 15
          Caption = #25171#21360#26426':'
          FocusControl = cbDyj
        end
        object Label32: TLabel
          Left = 9
          Top = 50
          Width = 68
          Height = 15
          Caption = #40664#35748#25253#34920':'
          FocusControl = cbDyj
        end
        object Label35: TLabel
          Left = 9
          Top = 19
          Width = 38
          Height = 15
          Caption = #20221#25968':'
        end
        object cbDyj: TComboBox
          Tag = 1
          Left = 168
          Top = 15
          Width = 139
          Height = 23
          Style = csDropDownList
          ItemHeight = 0
          TabOrder = 0
          OnChange = cbDyjChange
        end
        object cbRpt: TComboBox
          Tag = 1
          Left = 78
          Top = 46
          Width = 229
          Height = 23
          Style = csDropDownList
          ItemHeight = 0
          TabOrder = 1
          OnChange = cbDyjChange
        end
        object edtCopies: TSpinEdit
          Tag = 1
          Left = 54
          Top = 14
          Width = 43
          Height = 24
          MaxValue = 100
          MinValue = 1
          TabOrder = 2
          Value = 1
          OnChange = SetPreviewPnl
        end
      end
      object rbPrintAll: TRadioButton
        Tag = 1
        Left = 54
        Top = 14
        Width = 55
        Height = 17
        Caption = #20840#37096
        Checked = True
        TabOrder = 9
        TabStop = True
        Visible = False
        OnClick = rbPrintAllClick
      end
      object rbPrintSelect: TRadioButton
        Tag = 1
        Left = 54
        Top = 36
        Width = 55
        Height = 17
        Caption = #39029#25968
        TabOrder = 10
        Visible = False
        OnClick = rbPrintAllClick
      end
      object edtFirstPage: TMaskEdit
        Tag = 1
        Left = 108
        Top = 33
        Width = 31
        Height = 23
        Enabled = False
        EditMask = '999;1; '
        MaxLength = 3
        TabOrder = 11
        Text = '1  '
        Visible = False
      end
      object edtLastPage: TMaskEdit
        Tag = 1
        Left = 162
        Top = 33
        Width = 31
        Height = 23
        Enabled = False
        EditMask = '999;1; '
        MaxLength = 3
        TabOrder = 12
        Text = '1  '
        Visible = False
      end
      object RptList: TListBox
        Tag = 1
        Left = 0
        Top = 0
        Width = 217
        Height = 229
        Style = lbOwnerDrawVariable
        ItemHeight = 22
        TabOrder = 0
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '2'
      object PageControl1: TPageControl
        Left = 0
        Top = 0
        Width = 660
        Height = 301
        ActivePage = TabSheet1
        TabOrder = 0
        OnChange = SetImageTop
        object TabSheet1: TTabSheet