gzpreview.dfm

企业工资管理系统的代码实现主要包括五个功能模块在此不一一列举

object FrmWagePreview: TFrmWagePreview
  Left = 127
  Top = 176
  Width = 584
  Height = 357
  Caption = #24037#36164#39044#35272
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object cxGrid1: TcxGrid
    Left = 0
    Top = 0
    Width = 576
    Height = 330
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 0
    object cxGrid1DBTableView1: TcxGridDBTableView
      DataController.DataSource = DataSource1
      DataController.Filter.Criteria = {FFFFFFFF0000000000}
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = 'summary=0'
          Kind = skCount
          FieldName = #22522#26412#24037#36164
          Column = cxGrid1DBTableView1DBColumn6
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = 'Max='
          Kind = skMax
          Column = cxGrid1DBTableView1DBColumn6
        end>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.CellAutoHeight = True
      OptionsView.ColumnAutoWidth = True
      Styles.Header = HeadStyle
      object cxGrid1DBTableView1DBColumn: TcxGridDBColumn
        Width = 39
        DataBinding.FieldName = #24037#21495
      end
      object cxGrid1DBTableView1DBColumn1: TcxGridDBColumn
        Width = 28
        DataBinding.FieldName = #22995#21517
      end
      object cxGrid1DBTableView1DBColumn2: TcxGridDBColumn
        Width = 29
        DataBinding.FieldName = #37096#38376#32534#30721
      end
      object cxGrid1DBTableView1DBColumn3: TcxGridDBColumn
        Width = 28
        DataBinding.FieldName = #24615#21035
      end
      object cxGrid1DBTableView1DBColumn4: TcxGridDBColumn
        Width = 28
        DataBinding.FieldName = #36523#20221#35777#21495#30721
      end
      object cxGrid1DBTableView1DBColumn5: TcxGridDBColumn
        Width = 56
        DataBinding.FieldName = #38134#34892#24080#21495
      end
      object cxGrid1DBTableView1DBColumn6: TcxGridDBColumn
        Visible = False
        GroupIndex = 0
        SortOrder = soDescending
        Styles.Footer = HeadStyle
        Width = 48
        DataBinding.FieldName = #22522#26412#24037#36164
      end
      object cxGrid1DBTableView1DBColumn7: TcxGridDBColumn
        Width = 50
        DataBinding.FieldName = #22870#37329
      end
      object cxGrid1DBTableView1DBColumn11: TcxGridDBColumn
        Width = 50
        DataBinding.FieldName = #24212#25187'1'
      end
      object cxGrid1DBTableView1DBColumn21: TcxGridDBColumn
        Width = 52
        DataBinding.FieldName = #24212#25187'2'
      end
      object cxGrid1DBTableView1DBColumn8: TcxGridDBColumn
        Width = 51
        DataBinding.FieldName = #20445#38505
      end
      object cxGrid1DBTableView1DBColumn9: TcxGridDBColumn
        Width = 49
        DataBinding.FieldName = #24212#21457#24037#36164
      end
      object cxGrid1DBTableView1DBColumn10: TcxGridDBColumn
        Width = 52
        DataBinding.FieldName = #23454#21457#24037#36164
      end
      object cxGrid1DBTableView1DBColumn12: TcxGridDBColumn
        Width = 46
        DataBinding.FieldName = #21457#25918#26102#38388
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 120
    Top = 160
    object N1: TMenuItem
      Caption = #25253#34920#39044#35272
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = #25253#34920#33258#23450#20041
      OnClick = N3Click
    end
    object N2: TMenuItem
      Caption = #21047#26032
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 312
    Top = 80
  end
  object ADODataSet1: TADODataSet
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select  *  from '#24037#36164
    Parameters = <>
    Left = 184
    Top = 176
  end
  object cxStyleRepository1: TcxStyleRepository
    Left = 296
    Top = 120
    object HeadStyle: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clGradientActiveCaption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clHighlightText
    end
  end
  object RMGridReport1: TRMGridReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
    DefaultCopies = 0
    DefaultCollate = False
    SaveReportOptions.RegistryPath = 'ReportMachine\ReportSettings\'
    Dataset = RMDBDataSet1
    Left = 400
    Top = 144
    ReportData = {}
  end
  object RMDBDataSet1: TRMDBDataSet
    DataSet = ADODataSet2
    Left = 448
    Top = 136
  end
  object ADODataSet2: TADODataSet
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from '#24037#36164
    Parameters = <>
    Left = 416
    Top = 104
  end
  object RMGridReportDesigner1: TRMGridReportDesigner
    DesignerRestrictions = []
    Left = 432
    Top = 176
  end
end