D7myYunxiang/云翔OA(WTOA.dll)/U_WorkDeptFeeList.dfm

806 lines
20 KiB
Plaintext
Raw Permalink Normal View History

2025-01-20 13:04:03 +08:00
object frmWorkDeptFeeList: TfrmWorkDeptFeeList
Left = 190
Top = 79
Width = 1139
Height = 606
Caption = #36153#29992#25253#38144#21333
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1123
Height = 62
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WTOA.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = ToolButton2Click
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 1
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 11
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 252
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 3
OnClick = TBDelClick
end
object ToolButton6: TToolButton
Left = 315
Top = 0
Caption = #23457#26680#20154#23450#20041
ImageIndex = 82
OnClick = ToolButton6Click
end
object ToolButton4: TToolButton
Left = 410
Top = 0
AutoSize = True
Caption = #36865#23457
ImageIndex = 22
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 473
Top = 0
AutoSize = True
Caption = #25764#38144
ImageIndex = 52
Wrap = True
OnClick = ToolButton5Click
end
object TSC: TToolButton
Left = 0
Top = 30
AutoSize = True
Caption = #19978#20256
ImageIndex = 40
Visible = False
OnClick = TSCClick
end
object ToolButton1: TToolButton
Left = 63
Top = 30
AutoSize = True
Caption = #26597#30475
ImageIndex = 39
OnClick = ToolButton1Click
end
object TEditSQ: TToolButton
Left = 126
Top = 30
AutoSize = True
Caption = #20462#25913#30003#35831
ImageIndex = 11
OnClick = TEditSQClick
end
object TPrint: TToolButton
Left = 213
Top = 30
AutoSize = True
Caption = #25171#21360
ImageIndex = 4
OnClick = TPrintClick
end
object TBExport: TToolButton
Left = 276
Top = 30
AutoSize = True
Caption = #23548#20986
ImageIndex = 6
OnClick = TBExportClick
end
object ToolButton3: TToolButton
Left = 339
Top = 30
AutoSize = True
Caption = #25805#20316#35828#26126
ImageIndex = 41
Visible = False
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 426
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 126
Width = 1123
Height = 23
Align = alTop
Style = 8
TabIndex = 0
TabOrder = 1
Tabs.Strings = (
#24453#36865#23457
#24050#36865#23457
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 23
ClientRectRight = 1123
ClientRectTop = 23
end
object cxGrid1: TcxGrid
Left = 0
Top = 149
Width = 1123
Height = 302
Align = alTop
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False
OnCellClick = Tv1CellClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1HZMoney
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_WTOA.SHuangSeCu
Styles.IncSearch = DataLink_WTOA.SHuangSeCu
Styles.Selection = DataLink_WTOA.SHuangSeCu
Styles.Header = DataLink_WTOA.Default
object v1Column8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 51
end
object v1Person5: TcxGridDBColumn
Caption = #21457#31080#21495
DataBinding.FieldName = 'Person5'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1WFNO: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'WFNO'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column7: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'WFDate'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object v1Column9: TcxGridDBColumn
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'FSDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object v1Column17: TcxGridDBColumn
Caption = #25253#38144#20154
DataBinding.FieldName = 'Worker'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v1Column5: TcxGridDBColumn
Caption = #37096#38376
DataBinding.FieldName = 'Dept'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
HeaderAlignmentVert = vaCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WTOA.Default
Width = 79
end
object v1Column1: TcxGridDBColumn
Caption = #29992#27454#31867#22411
DataBinding.FieldName = 'WFType'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object v1ItemName: TcxGridDBColumn
Caption = #21333#25454#31867#22411
DataBinding.FieldName = 'ItemName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1BZUnit: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'BZUnit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Person4: TcxGridDBColumn
Caption = #25903#20184#26041#24335
DataBinding.FieldName = 'Person4'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column18: TcxGridDBColumn
Caption = #30331#35760#20154
DataBinding.FieldName = 'Filler'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object v1Column19: TcxGridDBColumn
Caption = #30331#35760#26102#38388
DataBinding.FieldName = 'FillTIme'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1HZMoney: TcxGridDBColumn
Caption = #24635#37329#39069
DataBinding.FieldName = 'HZMoney'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column3: TcxGridDBColumn
Caption = #29366#24577
DataBinding.FieldName = 'HZStatus'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v1EditSQTime: TcxGridDBColumn
Caption = #20462#25913#30003#35831#26085#26399
DataBinding.FieldName = 'EditSQTime'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1EditNote: TcxGridDBColumn
Caption = #20462#25913#21407#22240
DataBinding.FieldName = 'EditNote'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column11: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 0
Top = 62
Width = 1123
Height = 64
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 3
object Label1: TLabel
Left = 43
Top = 14
Width = 52
Height = 12
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 205
Top = 14
Width = 39
Height = 12
Caption = #25253#38144#20154
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 205
Top = 38
Width = 40
Height = 12
Caption = #37096' '#38376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 344
Top = 14
Width = 52
Height = 12
Caption = #29992#27454#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 344
Top = 38
Width = 52
Height = 12
Caption = #21333#25454#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 496
Top = 14
Width = 52
Height = 12
Caption = #25903#20184#26041#24335
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 496
Top = 38
Width = 53
Height = 12
Caption = #21457' '#31080' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 664
Top = 36
Width = 9
Height = 16
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 672
Top = 14
Width = 52
Height = 12
Caption = #20462#25913#21407#22240
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 96
Top = 10
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 96
Top = 34
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
object Worker: TEdit
Tag = 2
Left = 246
Top = 10
Width = 73
Height = 20
TabOrder = 2
OnChange = WorkerChange
end
object Dept: TEdit
Tag = 2
Left = 246
Top = 34
Width = 73
Height = 20
TabOrder = 3
OnChange = WorkerChange
end
object WFType: TEdit
Tag = 2
Left = 400
Top = 10
Width = 73
Height = 20
TabOrder = 4
OnChange = WorkerChange
end
object ItemName: TEdit
Tag = 2
Left = 400
Top = 34
Width = 73
Height = 20
TabOrder = 5
OnChange = WorkerChange
end
object Person4: TEdit
Tag = 2
Left = 549
Top = 10
Width = 73
Height = 20
TabOrder = 6
OnChange = WorkerChange
end
object Person5: TEdit
Tag = 2
Left = 549
Top = 34
Width = 73
Height = 20
TabOrder = 7
OnChange = WorkerChange
end
object EditNote: TMemo
Left = 725
Top = 2
Width = 338
Height = 59
TabOrder = 8
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 459
Width = 805
Height = 109
Align = alLeft
TabOrder = 4
object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DS_Chk
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_WTOA.SHuangSe
Styles.IncSearch = DataLink_WTOA.SHuangSe
Styles.Selection = DataLink_WTOA.SHuangSe
Styles.Header = DataLink_WTOA.Default
object cxGridDBColumn1: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WTOA.Default
Width = 74
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #23457#26680#26102#38388
DataBinding.FieldName = 'ChkTime'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 107
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #23457#26680#29366#24577
DataBinding.FieldName = 'ChkStatus'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 74
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #23457#26680#22791#27880
DataBinding.FieldName = 'ChkNote'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_WTOA.Default
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 451
Width = 1123
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salTop
Control = cxGrid2
end
object Panel3: TPanel
Left = 805
Top = 459
Width = 318
Height = 109
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 6
object Image1: TImage
Left = 2
Top = 2
Width = 314
Height = 105
Align = alClient
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WTOA.ADOLink
Parameters = <>
Left = 500
Top = 188
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WTOA.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 536
Top = 188
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WTOA.ADOLink
Parameters = <>
Left = 572
Top = 188
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 1023
Top = 23
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 432
Top = 186
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 397
Top = 185
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 363
Top = 185
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 965
Top = 25
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 465
Top = 188
end
object PopupMenu1: TPopupMenu
Left = 328
Top = 184
object N2: TMenuItem
Caption = #20840#36873
OnClick = N2Click
end
object N1: TMenuItem
Caption = #20840#24323
OnClick = N1Click
end
end
object CDS_Chker: TClientDataSet
Aggregates = <>
Params = <>
Left = 400
Top = 400
end
object CDS_Chk: TClientDataSet
Aggregates = <>
Params = <>
Left = 368
Top = 400
end
object DS_Chk: TDataSource
DataSet = CDS_Chk
Left = 432
Top = 400
end
object IdFTP1: TIdFTP
MaxLineAction = maException
ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
Left = 605
Top = 188
end
object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 640
Top = 189
end
object SaveDialog1: TSaveDialog
Left = 677
Top = 189
end
end