object frmYWHSInPut: TfrmYWHSInPut Left = 74 Top = 71 Width = 1141 Height = 631 Caption = #19994#21153#26680#31639#30331#35760 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1125 Height = 31 ButtonHeight = 30 ButtonWidth = 65 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_Money.ThreeImgList Flat = True Images = DataLink_Money.ThreeImgList List = True ParentColor = False ShowCaptions = True TabOrder = 0 object ToolButton4: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 14 OnClick = ToolButton4Click end object TBClose: TToolButton Left = 69 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 31 Width = 1125 Height = 80 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 1 object Label4: TLabel Left = 223 Top = 49 Width = 32 Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 389 Top = 16 Width = 64 Height = 15 Caption = #25552#25104#37329#39069 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 223 Top = 16 Width = 32 Height = 15 Caption = #26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 15 Top = 16 Width = 68 Height = 15 Caption = #22995' '#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 581 Top = 16 Width = 64 Height = 15 Caption = #23458#25143#27424#27454 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 773 Top = 16 Width = 64 Height = 15 Caption = #27424#27454#39044#25187 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 15 Top = 49 Width = 80 Height = 15 Caption = #24212#25552#25104#37329#39069 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Note: TEdit Tag = 2 Left = 256 Top = 45 Width = 690 Height = 23 TabOrder = 0 end object TCMoney: TEdit Tag = 2 Left = 455 Top = 12 Width = 106 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 1 end object CRDate: TDateTimePicker Tag = 2 Left = 258 Top = 12 Width = 110 Height = 23 Date = 43953.000000000000000000 Format = 'yyyy-MM-dd' Time = 43953.000000000000000000 TabOrder = 2 end object HSPerson: TEdit Tag = 2 Left = 98 Top = 12 Width = 106 Height = 23 TabOrder = 3 end object KHQKMoney: TEdit Tag = 2 Left = 647 Top = 12 Width = 106 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 4 end object KHMoneyYuKou: TEdit Tag = 2 Left = 839 Top = 12 Width = 106 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 5 end object HSMoney: TEdit Tag = 2 Left = 98 Top = 45 Width = 106 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 6 end end object ToolBar2: TToolBar Left = 0 Top = 111 Width = 1125 Height = 31 ButtonHeight = 30 ButtonWidth = 95 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_Money.ThreeImgList Flat = True Images = DataLink_Money.ThreeImgList List = True ParentColor = False ShowCaptions = True TabOrder = 2 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #19994#21153#26680#31639 ImageIndex = 15 end object ToolButton2: TToolButton Left = 99 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 17 end end object cxGrid2: TcxGrid Left = 0 Top = 142 Width = 1125 Height = 451 Align = alClient TabOrder = 3 object Tv2: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False NavigatorButtons.Delete.Enabled = False NavigatorButtons.Delete.Visible = False DataController.DataSource = DS_Sub DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v2Column10 end item Kind = skSum end item Kind = skSum Column = v2Column5 end item Kind = skSum Column = v2Column6 end item Kind = skSum Column = v2Column12 end item Kind = skSum Column = v2Column13 end item Kind = skSum Column = v2Column14 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Header = DataLink_Money.Default object v2Column4: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'KHName' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 104 end object v2Column1: TcxGridDBColumn Caption = #19978#26399#23458#25143#27424#27454 Visible = False Width = 110 end object v2Column2: TcxGridDBColumn Caption = #19978#26399#23458#25143#27424#27454#39044#25187 Visible = False Width = 135 end object v2Column7: TcxGridDBColumn Caption = #26412#26399#23458#25143#25910#27454 Visible = False Width = 110 end object v2Column8: TcxGridDBColumn Caption = #26412#26399#23458#25143#25910#27454#25552#25104 Visible = False Width = 137 end object v2Column5: TcxGridDBColumn Caption = #21457#36135#37329#39069 DataBinding.FieldName = 'FHMoney' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 89 end object v2Column6: TcxGridDBColumn Caption = #23458#25143#36153#29992 DataBinding.FieldName = 'FeeMoney' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 90 end object v2Column10: TcxGridDBColumn Caption = #25552#25104#37329#39069 DataBinding.FieldName = 'HSMoney' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 102 end object v2Column12: TcxGridDBColumn Caption = #23458#25143#27424#27454 DataBinding.FieldName = 'WSMoney' HeaderAlignmentHorz = taCenter Width = 82 end object v2Column3: TcxGridDBColumn Caption = #23458#25143#27424#27454#39044#25187#27604#20363'%' DataBinding.FieldName = 'WSXS' Width = 146 end object v2Column13: TcxGridDBColumn Caption = #23458#25143#27424#27454#39044#25187 DataBinding.FieldName = 'WSMoneyYuKou' HeaderAlignmentHorz = taCenter Width = 121 end object v2Column14: TcxGridDBColumn Caption = #24212#25552#25104#37329#39069 DataBinding.FieldName = 'HKMoney' HeaderAlignmentHorz = taCenter Width = 102 end object v2Column11: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 119 end end object cxGridLevel1: TcxGridLevel GridView = Tv2 end end object ADOQueryTemp: TADOQuery Connection = DataLink_Money.ADOLink LockType = ltReadOnly Parameters = <> Left = 1093 Top = 217 end object ADOQueryCmd: TADOQuery Connection = DataLink_Money.ADOLink Parameters = <> Left = 941 Top = 217 end object ADOQueryMain: TADOQuery Connection = DataLink_Money.ADOLink LockType = ltReadOnly Parameters = <> Left = 973 Top = 217 end object DS_Sub: TDataSource DataSet = CDS_Sub Left = 1035 Top = 211 end object CDS_Sub: TClientDataSet Aggregates = <> Params = <> Left = 1056 Top = 216 end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 1000 Top = 208 end end