object frmWorkerDeptFeeInPut_BXDJ: TfrmWorkerDeptFeeInPut_BXDJ Left = 190 Top = 135 Width = 1386 Height = 688 Caption = #36153#29992#25253#38144#21333#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 107 TextHeight = 13 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1370 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 = 1370 Height = 142 Align = alTop BevelInner = bvNone BevelOuter = bvNone Ctl3D = False ParentCtl3D = False TabOrder = 1 object Panel1: TPanel Left = 0 Top = 0 Width = 1368 Height = 140 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label1: TLabel Left = 34 Top = 21 Width = 72 Height = 13 Caption = #25253' '#38144' '#20154#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 231 Top = 21 Width = 74 Height = 13 Caption = #26085' '#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 632 Top = 21 Width = 70 Height = 13 Caption = #21333#25454#31867#22411#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 428 Top = 21 Width = 70 Height = 13 Caption = #20844#31169#31867#22411#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 34 Top = 109 Width = 74 Height = 13 Caption = #22791' '#27880#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 632 Top = 51 Width = 74 Height = 13 Caption = #37096' '#38376#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 34 Top = 51 Width = 70 Height = 13 Caption = #21457#29983#26085#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 314 Top = 172 Width = 72 Height = 13 Caption = #21512' '#21516' '#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label8: TLabel Left = 428 Top = 80 Width = 148 Height = 13 Caption = #25910#27454#21333#20301'/'#25910#27454#20154#20840#31216#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 231 Top = 80 Width = 70 Height = 13 Caption = #24320#25143#38134#34892#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 34 Top = 80 Width = 74 Height = 13 Caption = #36134' '#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 428 Top = 51 Width = 70 Height = 13 Caption = #25903#20184#26041#24335#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel Left = 231 Top = 51 Width = 72 Height = 13 Caption = #25253' '#36134' '#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object WFDate: TDateTimePicker Left = 297 Top = 16 Width = 110 Height = 21 BevelInner = bvNone Date = 40916.000000000000000000 Format = 'yyyy-MM-dd' Time = 40916.000000000000000000 ShowCheckbox = True TabOrder = 0 end object Note: TEdit Left = 100 Top = 106 Width = 715 Height = 19 CharCase = ecUpperCase TabOrder = 1 end object Dept: TBtnEditA Left = 699 Top = 47 Width = 116 Height = 21 Hint = 'DPID' Enabled = False TabOrder = 2 OnBtnClick = DeptBtnClick end object Worker: TEdit Left = 100 Top = 17 Width = 108 Height = 19 TabOrder = 3 end object FSDate: TDateTimePicker Left = 100 Top = 47 Width = 110 Height = 21 BevelInner = bvNone Date = 40916.000000000000000000 Format = 'yyyy-MM-dd' Time = 40916.000000000000000000 ShowCheckbox = True TabOrder = 4 end object WFType: TComboBox Left = 494 Top = 16 Width = 112 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 1 TabOrder = 5 Text = #23545#31169#19994#21153 OnChange = WFTypeChange Items.Strings = ( #23545#20844#19994#21153 #23545#31169#19994#21153) end object WFNO: TEdit Left = 379 Top = 169 Width = 110 Height = 19 TabOrder = 6 Visible = False end object Person1: TBtnEditA Left = 566 Top = 76 Width = 249 Height = 21 TabOrder = 7 OnBtnClick = Person1BtnClick end object Person3: TBtnEditA Left = 297 Top = 76 Width = 108 Height = 21 TabOrder = 8 OnBtnClick = Person3BtnClick end object Person2: TBtnEditA Left = 100 Top = 76 Width = 108 Height = 21 TabOrder = 9 OnBtnClick = Person2BtnClick end object Person4: TComboBox Left = 494 Top = 47 Width = 112 Height = 21 ItemHeight = 13 TabOrder = 10 Items.Strings = ( #30005#27719 #25903#31080) end object BZDate: TDateTimePicker Left = 297 Top = 47 Width = 110 Height = 21 BevelInner = bvNone Date = 40916.000000000000000000 Format = 'yyyy-MM-dd' Time = 40916.000000000000000000 ShowCheckbox = True TabOrder = 11 end object ItemNameBX: TBtnEditA Left = 699 Top = 16 Width = 116 Height = 21 TabOrder = 12 Text = #36153#29992#25253#38144#21333 OnBtnClick = ItemNameBXBtnClick end end end object ToolBar2: TToolBar Left = 0 Top = 171 Width = 1370 Height = 29 ButtonHeight = 30 ButtonWidth = 83 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 TDYADD: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #36741#26009#22686#34892 ImageIndex = 12 OnClick = TDYADDClick end object ToMLADD: TToolButton Left = 87 Top = 0 AutoSize = True Caption = #38754#26009#22686#34892 ImageIndex = 12 OnClick = ToMLADDClick end object ToolButton1: TToolButton Left = 174 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 12 OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 237 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 13 OnClick = ToolButton2Click end end object cxGrid1: TcxGrid Left = 0 Top = 200 Width = 1370 Height = 448 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 = v1BXMoney end item Kind = skSum Column = v1HKMoney end item Kind = skSum Column = v1Money 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 = #23545#26041#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 = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1Column2PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 101 end object v1Column3: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'YCLQty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 78 end object v1Column9: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'YCLUnit' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1Column9PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 82 end object v1Money: TcxGridDBColumn Caption = #39046#27454#37329#39069 DataBinding.FieldName = 'Money' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object v1BXMoney: TcxGridDBColumn Caption = #25253#38144#37329#39069 DataBinding.FieldName = 'BXMoney' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter Styles.Header = cxStyle1 Width = 84 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 v1PZType: TcxGridDBColumn Caption = #20973#35777#31867#22411 DataBinding.FieldName = 'PZType' PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( #21457#31080 #30333#26465) HeaderAlignmentHorz = taCenter Styles.Header = cxStyle1 Width = 70 end object v1InvNo: TcxGridDBColumn Caption = #21457#31080#21495 DataBinding.FieldName = 'InvNo' HeaderAlignmentHorz = taCenter Styles.Header = cxStyle1 Width = 74 end object v1HKMoney: TcxGridDBColumn Caption = #36864#36824#37329#39069 DataBinding.FieldName = 'HKMoney' HeaderAlignmentHorz = taCenter Styles.Header = cxStyle1 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 = 444 end object Order_Sub: TClientDataSet Aggregates = <> Params = <> Left = 407 Top = 444 end object ADOQuery1: TADOQuery Connection = DataLink_WTOA.ADOLink Parameters = <> Left = 598 Top = 2 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 343 Top = 444 end object cxStyleRepository1: TcxStyleRepository object cxStyle1: TcxStyle AssignedValues = [svTextColor] TextColor = clBlue end end end