print.dfm

pasa人力资源考勤管理系统

object Formprint: TFormprint
  Left = 153
  Top = 19
  Width = 443
  Height = 512
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '打印设置'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 435
    Height = 38
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 33
    Caption = '系统工具'
    Color = clMenu
    DockSite = True
    DragKind = dkDock
    EdgeInner = esNone
    EdgeOuter = esNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clGray
    Font.Height = -13
    Font.Name = '新细明体'
    Font.Style = []
    Images = formmain.ImageList2
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object ToolButton3: TToolButton
      Left = 0
      Top = 2
      Caption = '打印'
      ImageIndex = 24
      OnClick = ToolButton3Click
    end
    object quit: TToolButton
      Left = 33
      Top = 2
      Hint = '退出系统'
      AutoSize = True
      Caption = '退出'
      ImageIndex = 3
      OnClick = quitClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 169
    Width = 435
    Height = 316
    Align = alClient
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 199
      Top = 122
      Width = 39
      Height = 22
      Hint = '可将左边方框中选中的一个或多个员工，一起加到右边的方框中'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 199
      Top = 190
      Width = 39
      Height = 22
      Hint = '可将右边方框中选中的一个或多个员工移除'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton2: TSpeedButton
      Left = 199
      Top = 156
      Width = 39
      Height = 22
      Hint = '是将左边方框中的所有的员工加入到右边方框中'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton4: TSpeedButton
      Left = 199
      Top = 221
      Width = 39
      Height = 22
      Hint = '可将右边方框中的所有员工移除'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC3333333333333773}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object Label1: TLabel
      Left = 196
      Top = 54
      Width = 36
      Height = 13
      Caption = '宽度：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 185
      Height = 314
      Align = alLeft
      Caption = '可用于列印的薪资项目'
      TabOrder = 0
      object ListBox1: TListBox
        Left = 2
        Top = 15
        Width = 181
        Height = 297
        Align = alClient
        Color = clInfoBk
        ItemHeight = 13
        TabOrder = 0
        OnDblClick = ListBox1DblClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 249
      Top = 1
      Width = 185
      Height = 314
      Align = alRight
      Caption = '列印字段和宽度'
      TabOrder = 1
      object wwDBGrid1: TwwDBGrid
        Left = 2
        Top = 15
        Width = 181
        Height = 297
        ControlType.Strings = (
          'sys;CheckBox;true;false'
          'flat;CustomEdit;'
          'sysback;CheckBox;TRUE;FALSE')
        PictureMasks.Strings = (
          'flat'#9'#'#9'T'#9'T')
        Selected.Strings = (
          'salname'#9'15'#9'项目名'
          'wight'#9'10'#9'宽度')
        IniAttributes.Delimiter = ';;'
        TitleColor = clAqua
        FixedCols = 1
        ShowHorzScrollBar = False
        Align = alClient
        BorderStyle = bsNone
        Color = clInfoBk
        DataSource = DataMod.Dssalprint
        EditCalculated = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
        ParentFont = False
        TabOrder = 0
        TitleAlignment = taLeftJustify
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlue
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        TitleLines = 1
        TitleButtons = True
        IndicatorColor = icBlack
        FooterColor = clGreen
        FooterCellColor = clCaptionText
      end
    end
    object Edit1: TEdit
      Left = 198
      Top = 72
      Width = 38
      Height = 21
      TabOrder = 2
      Text = '20'
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 38
    Width = 435
    Height = 131
    Align = alTop
    TabOrder = 2
    object Label3: TLabel
      Left = 128
      Top = 36
      Width = 12
      Height = 13
      Caption = '以'
    end
    object Label2: TLabel
      Left = 128
      Top = 60
      Width = 12
      Height = 13
      Caption = '以'
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 10
      Width = 105
      Height = 17
      Hint = '若想改变表头的字体可以选取下面的”自定字体“选项'
      Caption = '自定表头内容'
      TabOrder = 0
    end
    object CheckBox3: TCheckBox
      Left = 8
      Top = 34
      Width = 113
      Height = 17
      Caption = '包括合计(Sum)'
      TabOrder = 1
    end
    object CheckBox2: TCheckBox
      Left = 8
      Top = 58
      Width = 113
      Height = 17
      Caption = '包括合计(Sum)'
      TabOrder = 2
    end
    object CheckBox4: TCheckBox
      Left = 8
      Top = 83
      Width = 97
      Height = 17
      Caption = '自定字体'
      TabOrder = 3
    end
    object CheckBox5: TCheckBox
      Left = 8
      Top = 108
      Width = 105
      Height = 17
      Caption = '字定字体颜色'
      TabOrder = 4
    end
    object ColorComboBox1: TColorComboBox
      Left = 112
      Top = 105
      Width = 217
      Height = 22
      Hint = '自定自己喜好的字体，字体大小及字体颜色'
      TabOrder = 5
    end
    object FontComboBox1: TFontComboBox
      Left = 112
      Top = 81
      Width = 137
      Height = 20
      Hint = '自定自己喜好的字体，字体大小及字体颜色'
      TabOrder = 6
    end
    object Combofontsize: TComboBox
      Left = 256
      Top = 80
      Width = 73
      Height = 21
      Hint = '自定自己喜好的字体，字体大小及字体颜色'
      ItemHeight = 13
      TabOrder = 7
      Text = '10'
      Items.Strings = (
        '8'
        '9'
        '10'
        '12'
        '14'
        '16'
        '18'
        '20'
        '24'
        '28'
        '30'
        '48'
        '72')
    end
    object Edit2: TEdit
      Left = 112
      Top = 8
      Width = 217
      Height = 21
      Hint = '可以更改默认的表头，自定自己的表头'
      TabOrder = 8
    end
    object RadioGroup1: TRadioGroup
      Left = 336
      Top = 2
      Width = 91
      Height = 125
      Caption = '打印格式'
      ItemIndex = 0
      Items.Strings = (
        '纵向'
        '横向')
      TabOrder = 9
    end
    object combobox1: TwwDBLookupCombo
      Left = 146
      Top = 56
      Width = 183
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'salname'#9'30'#9'字段名'#9'F')
      LookupTable = ADODataSet2
      LookupField = 'salenglish'
      TabOrder = 10
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object combobox2: TwwDBLookupCombo
      Left = 146
      Top = 32
      Width = 183
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'salname'#9'30'#9'字段名'#9'T')
      LookupTable = ADODataSet3
      LookupField = 'salenglish'
      TabOrder = 11
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DataMod.Database1
    Parameters = <>
    Left = 71
    Top = 2
  end
  object ADODataSet1: TADODataSet
    Connection = DataMod.Database1
    CommandTimeout = 0
    Parameters = <>
    Left = 392
    Top = 110
  end
  object ADODataSet2: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * From salprint'
    CommandTimeout = 0
    Parameters = <>
    Left = 320
    Top = 94
    object ADODataSet2salname: TStringField
      DisplayLabel = '字段名'
      DisplayWidth = 30
      FieldName = 'salname'
      Size = 30
    end
    object ADODataSet2wight: TIntegerField
      FieldName = 'wight'
      Visible = False
    end
    object ADODataSet2formname: TStringField
      FieldName = 'formname'
      Visible = False
    end
    object ADODataSet2salenglish: TStringField
      FieldName = 'salenglish'
      Visible = False
      Size = 30
    end
  end
  object ADODataSet3: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * From salprint'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 312
    Top = 70
    object ADODataSet3salname: TStringField
      DisplayLabel = '字段名'
      DisplayWidth = 30
      FieldName = 'salname'
      Size = 30
    end
    object ADODataSet3wight: TIntegerField
      FieldName = 'wight'
      Visible = False
    end
    object ADODataSet3formname: TStringField
      FieldName = 'formname'
      Visible = False
    end
    object ADODataSet3salenglish: TStringField
      FieldName = 'salenglish'
      Visible = False
      Size = 30
    end
  end
end