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

607 lines
15 KiB
Plaintext
Raw Normal View History

2025-01-20 13:04:03 +08:00
object frmWorkerDeptFeeInPut: TfrmWorkerDeptFeeInPut
Left = 221
Top = 126
Width = 870
Height = 587
Caption = #36153#29992#25253#38144#21333#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 854
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WTOA.ThreeImgList
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 854
Height = 132
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
object Panel1: TPanel
Left = 0
Top = 0
Width = 852
Height = 130
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 30
Top = 14
Width = 66
Height = 12
Caption = #25253' '#38144' '#20154#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 212
Top = 14
Width = 67
Height = 12
Caption = #26085' '#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 582
Top = 14
Width = 65
Height = 12
Caption = #21333#25454#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 394
Top = 14
Width = 65
Height = 12
Caption = #29992#27454#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 394
Top = 102
Width = 67
Height = 12
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 30
Top = 43
Width = 67
Height = 12
Caption = #37096' '#38376#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 212
Top = 43
Width = 65
Height = 12
Caption = #21457#29983#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 394
Top = 43
Width = 66
Height = 12
Caption = #21512' '#21516' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 394
Top = 73
Width = 91
Height = 12
Caption = #25910#27454#21333#20301#20840#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 212
Top = 73
Width = 65
Height = 12
Caption = #24320#25143#38134#34892#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 30
Top = 73
Width = 67
Height = 12
Caption = #36134' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 582
Top = 42
Width = 65
Height = 12
Caption = #25903#20184#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 30
Top = 102
Width = 66
Height = 12
Caption = #21457' '#31080' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 212
Top = 102
Width = 66
Height = 12
Caption = #25253' '#36134' '#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object WFDate: TDateTimePicker
Left = 273
Top = 10
Width = 102
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 40916.000000000000000000
ShowCheckbox = True
TabOrder = 0
end
object Note: TEdit
Left = 454
Top = 99
Width = 297
Height = 18
CharCase = ecUpperCase
TabOrder = 1
end
object Dept: TBtnEditA
Left = 91
Top = 39
Width = 100
Height = 20
Hint = 'DPID'
Enabled = False
TabOrder = 2
OnBtnClick = DeptBtnClick
end
object Worker: TEdit
Left = 91
Top = 11
Width = 100
Height = 18
TabOrder = 3
end
object FSDate: TDateTimePicker
Left = 273
Top = 39
Width = 102
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 40916.000000000000000000
ShowCheckbox = True
TabOrder = 4
end
object WFType: TComboBox
Left = 454
Top = 10
Width = 103
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 5
OnChange = WFTypeChange
Items.Strings = (
#23545#20844#19994#21153
#23545#31169#19994#21153)
end
object WFNO: TEdit
Left = 454
Top = 40
Width = 101
Height = 18
TabOrder = 6
end
object Person1: TBtnEditA
Left = 480
Top = 69
Width = 271
Height = 20
TabOrder = 7
OnBtnClick = Person1BtnClick
end
object Person3: TBtnEditA
Left = 273
Top = 69
Width = 100
Height = 20
TabOrder = 8
OnBtnClick = Person3BtnClick
end
object Person2: TBtnEditA
Left = 91
Top = 69
Width = 100
Height = 20
TabOrder = 9
OnBtnClick = Person2BtnClick
end
object Person4: TComboBox
Left = 642
Top = 38
Width = 111
Height = 20
Enabled = False
ItemHeight = 12
TabOrder = 10
Items.Strings = (
#30005#27719
#25903#31080)
end
object Person5: TEdit
Left = 91
Top = 99
Width = 100
Height = 18
TabOrder = 11
end
object BZDate: TDateTimePicker
Left = 273
Top = 98
Width = 102
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 40916.000000000000000000
ShowCheckbox = True
TabOrder = 12
end
object ItemName: TBtnEditA
Left = 643
Top = 10
Width = 107
Height = 20
TabOrder = 13
OnBtnClick = ItemNameBtnClick
end
end
end
object ToolBar2: TToolBar
Left = 0
Top = 161
Width = 854
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WTOA.ThreeImgList
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 13
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 190
Width = 854
Height = 359
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1MSMoney
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.GroupByBox = DataLink_WTOA.Default
Styles.Header = DataLink_WTOA.Default
object v1ZhaiYao: TcxGridDBColumn
Caption = #20184#27454#21333#20301
DataBinding.FieldName = 'ZhaiYao'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1ZhaiYaoPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column2: TcxGridDBColumn
Caption = #25253#38144#20869#23481'/'#29992#36884
DataBinding.FieldName = 'YCLName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Width = 119
end
object v1Column3: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'YCLQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column9: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'YCLUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column9PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 92
end
object v1Column5: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'YCLPrice'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
Properties.CharCase = ecUpperCase
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 74
end
object v1priceUnit: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'priceUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1priceUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1MSMoney: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Money'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Width = 84
end
object v1IFFP: TcxGridDBColumn
Caption = #26377#26080#21457#31080
DataBinding.FieldName = 'FPStatus'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#26377
#26080)
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOTemp: TADOQuery
Connection = DataLink_WTOA.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 634
Top = 2
end
object ADOCmd: TADOQuery
Connection = DataLink_WTOA.ADOLink
Parameters = <>
Left = 565
Top = 3
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 375
Top = 440
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 405
Top = 442
end
object ADOQuery1: TADOQuery
Connection = DataLink_WTOA.ADOLink
Parameters = <>
Left = 595
Top = 4
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 348
Top = 443
end
end