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