312 lines
		
	
	
		
			7.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			312 lines
		
	
	
		
			7.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| object frmSYDept: TfrmSYDept
 | |
|   Left = 73
 | |
|   Top = 128
 | |
|   Width = 1004
 | |
|   Height = 509
 | |
|   Caption = #32452#32455#32467#26500
 | |
|   Color = clBtnFace
 | |
|   Font.Charset = GB2312_CHARSET
 | |
|   Font.Color = clWindowText
 | |
|   Font.Height = -12
 | |
|   Font.Name = #23435#20307
 | |
|   Font.Style = []
 | |
|   OldCreateOrder = False
 | |
|   OnClose = FormClose
 | |
|   OnDestroy = FormDestroy
 | |
|   OnShow = FormShow
 | |
|   PixelsPerInch = 96
 | |
|   TextHeight = 12
 | |
|   object ToolBar1: TToolBar
 | |
|     Left = 0
 | |
|     Top = 0
 | |
|     Width = 988
 | |
|     Height = 33
 | |
|     ButtonHeight = 30
 | |
|     ButtonWidth = 83
 | |
|     Caption = 'ToolBar1'
 | |
|     Color = clSkyBlue
 | |
|     DisabledImages = DataLink_DDMD.ThreeImgList
 | |
|     Flat = True
 | |
|     Images = DataLink_DDMD.ThreeImgList
 | |
|     List = True
 | |
|     ParentColor = False
 | |
|     ShowCaptions = True
 | |
|     TabOrder = 0
 | |
|     object TBRafresh: TToolButton
 | |
|       Left = 0
 | |
|       Top = 0
 | |
|       AutoSize = True
 | |
|       Caption = #21047#26032
 | |
|       ImageIndex = 0
 | |
|       OnClick = TBRafreshClick
 | |
|     end
 | |
|     object TBAdd: TToolButton
 | |
|       Left = 63
 | |
|       Top = 0
 | |
|       AutoSize = True
 | |
|       Caption = #26032#22686#23376#31867
 | |
|       ImageIndex = 12
 | |
|       OnClick = TBAddClick
 | |
|     end
 | |
|     object ToolButton1: TToolButton
 | |
|       Left = 150
 | |
|       Top = 0
 | |
|       AutoSize = True
 | |
|       Caption = #20445#23384
 | |
|       ImageIndex = 5
 | |
|       OnClick = ToolButton1Click
 | |
|     end
 | |
|     object TBDel: TToolButton
 | |
|       Left = 213
 | |
|       Top = 0
 | |
|       AutoSize = True
 | |
|       Caption = #21024#38500
 | |
|       ImageIndex = 13
 | |
|       OnClick = TBDelClick
 | |
|     end
 | |
|     object ToolButton2: TToolButton
 | |
|       Left = 276
 | |
|       Top = 0
 | |
|       AutoSize = True
 | |
|       Caption = #32452#32455#20998#37197
 | |
|       ImageIndex = 22
 | |
|       OnClick = ToolButton2Click
 | |
|     end
 | |
|     object TBClose: TToolButton
 | |
|       Left = 363
 | |
|       Top = 0
 | |
|       AutoSize = True
 | |
|       Caption = #20851#38381
 | |
|       ImageIndex = 21
 | |
|       OnClick = TBCloseClick
 | |
|     end
 | |
|   end
 | |
|   object cxDBTreeList1: TcxDBTreeList
 | |
|     Left = 0
 | |
|     Top = 33
 | |
|     Width = 249
 | |
|     Height = 437
 | |
|     Align = alLeft
 | |
|     Bands = <
 | |
|       item
 | |
|       end>
 | |
|     BufferedPaint = False
 | |
|     DataController.DataSource = DataSource1
 | |
|     DataController.ParentField = 'DPParent'
 | |
|     DataController.KeyField = 'DPID'
 | |
|     OptionsSelection.CellSelect = False
 | |
|     OptionsView.CellAutoHeight = True
 | |
|     OptionsView.Headers = False
 | |
|     RootValue = -1
 | |
|     Styles.Inactive = DataLink_DDMD.Red
 | |
|     Styles.Selection = DataLink_DDMD.Red
 | |
|     Styles.IncSearch = DataLink_DDMD.Red
 | |
|     TabOrder = 1
 | |
|     OnClick = cxDBTreeList1Click
 | |
|     OnDblClick = cxDBTreeList1DblClick
 | |
|     object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
 | |
|       DataBinding.FieldName = 'DPName'
 | |
|       Width = 210
 | |
|       Position.ColIndex = 1
 | |
|       Position.RowIndex = 0
 | |
|       Position.BandIndex = 0
 | |
|     end
 | |
|   end
 | |
|   object Panel1: TPanel
 | |
|     Left = 249
 | |
|     Top = 33
 | |
|     Width = 315
 | |
|     Height = 437
 | |
|     Align = alLeft
 | |
|     BevelInner = bvRaised
 | |
|     BevelOuter = bvLowered
 | |
|     Color = clSkyBlue
 | |
|     TabOrder = 2
 | |
|     object Label1: TLabel
 | |
|       Left = 41
 | |
|       Top = 40
 | |
|       Width = 48
 | |
|       Height = 12
 | |
|       Caption = #19978#32423#32452#32455
 | |
|     end
 | |
|     object Label2: TLabel
 | |
|       Left = 41
 | |
|       Top = 81
 | |
|       Width = 48
 | |
|       Height = 12
 | |
|       Caption = #32452#32455#21517#31216
 | |
|     end
 | |
|     object Label3: TLabel
 | |
|       Left = 41
 | |
|       Top = 121
 | |
|       Width = 48
 | |
|       Height = 12
 | |
|       Caption = #32452#32455#32534#30721
 | |
|     end
 | |
|     object Label4: TLabel
 | |
|       Left = 24
 | |
|       Top = 16
 | |
|       Width = 60
 | |
|       Height = 14
 | |
|       Caption = #32452#32455#32467#26500
 | |
|       Font.Charset = GB2312_CHARSET
 | |
|       Font.Color = clRed
 | |
|       Font.Height = -14
 | |
|       Font.Name = #23435#20307
 | |
|       Font.Style = [fsBold]
 | |
|       ParentFont = False
 | |
|     end
 | |
|     object Label5: TLabel
 | |
|       Left = 41
 | |
|       Top = 159
 | |
|       Width = 48
 | |
|       Height = 12
 | |
|       Caption = #39034' '#24207' '#21495
 | |
|     end
 | |
|     object DPTopName: TEdit
 | |
|       Left = 104
 | |
|       Top = 37
 | |
|       Width = 169
 | |
|       Height = 20
 | |
|       ReadOnly = True
 | |
|       TabOrder = 0
 | |
|     end
 | |
|     object DPName: TEdit
 | |
|       Left = 104
 | |
|       Top = 77
 | |
|       Width = 169
 | |
|       Height = 20
 | |
|       TabOrder = 1
 | |
|       OnKeyPress = DPNameKeyPress
 | |
|     end
 | |
|     object DPNo: TEdit
 | |
|       Left = 104
 | |
|       Top = 117
 | |
|       Width = 169
 | |
|       Height = 20
 | |
|       TabOrder = 2
 | |
|     end
 | |
|     object DPOrder: TEdit
 | |
|       Left = 104
 | |
|       Top = 155
 | |
|       Width = 169
 | |
|       Height = 20
 | |
|       TabOrder = 3
 | |
|     end
 | |
|   end
 | |
|   object cxGrid4: TcxGrid
 | |
|     Left = 564
 | |
|     Top = 33
 | |
|     Width = 424
 | |
|     Height = 437
 | |
|     Align = alClient
 | |
|     TabOrder = 3
 | |
|     object Tv4: TcxGridDBTableView
 | |
|       NavigatorButtons.ConfirmDelete = False
 | |
|       NavigatorButtons.Delete.Enabled = False
 | |
|       NavigatorButtons.Delete.Visible = False
 | |
|       DataController.DataSource = DSUser
 | |
|       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
 | |
|       DataController.Summary.DefaultGroupSummaryItems = <>
 | |
|       DataController.Summary.FooterSummaryItems = <>
 | |
|       DataController.Summary.SummaryGroups = <>
 | |
|       OptionsCustomize.ColumnFiltering = False
 | |
|       OptionsData.Deleting = False
 | |
|       OptionsData.DeletingConfirmation = False
 | |
|       OptionsView.GroupByBox = False
 | |
|       Styles.Inactive = DataLink_DDMD.SHuangSe
 | |
|       Styles.IncSearch = DataLink_DDMD.SHuangSe
 | |
|       Styles.Selection = DataLink_DDMD.SHuangSe
 | |
|       object cxGridDBColumn1: TcxGridDBColumn
 | |
|         Caption = #21592#24037#32534#21495
 | |
|         DataBinding.FieldName = 'UserId'
 | |
|         PropertiesClassName = 'TcxTextEditProperties'
 | |
|         Properties.Alignment.Horz = taCenter
 | |
|         Properties.Alignment.Vert = taVCenter
 | |
|         HeaderAlignmentHorz = taCenter
 | |
|         Options.Focusing = False
 | |
|         Styles.Header = DataLink_DDMD.Default
 | |
|         Width = 84
 | |
|       end
 | |
|       object cxGridDBColumn7: TcxGridDBColumn
 | |
|         Caption = #30331#24405#21517#31216
 | |
|         DataBinding.FieldName = 'UserName'
 | |
|         PropertiesClassName = 'TcxTextEditProperties'
 | |
|         Properties.Alignment.Horz = taCenter
 | |
|         Properties.Alignment.Vert = taVCenter
 | |
|         HeaderAlignmentHorz = taCenter
 | |
|         Options.Focusing = False
 | |
|         Styles.Header = DataLink_DDMD.Default
 | |
|         Width = 87
 | |
|       end
 | |
|       object cxGridDBColumn8: TcxGridDBColumn
 | |
|         Caption = #21592#24037#32452#32455
 | |
|         DataBinding.FieldName = 'dept'
 | |
|         PropertiesClassName = 'TcxTextEditProperties'
 | |
|         Properties.Alignment.Horz = taCenter
 | |
|         Properties.Alignment.Vert = taVCenter
 | |
|         HeaderAlignmentHorz = taCenter
 | |
|         Options.Focusing = False
 | |
|         Styles.Header = DataLink_DDMD.Default
 | |
|         Width = 74
 | |
|       end
 | |
|       object v4Column1: TcxGridDBColumn
 | |
|         Caption = #31995#32479#21517#31216
 | |
|         DataBinding.FieldName = 'MoneyUserName'
 | |
|         PropertiesClassName = 'TcxTextEditProperties'
 | |
|         Properties.Alignment.Horz = taCenter
 | |
|         Properties.Alignment.Vert = taVCenter
 | |
|         Properties.OnEditValueChanged = v4Column1PropertiesEditValueChanged
 | |
|         HeaderAlignmentHorz = taCenter
 | |
|         Styles.Header = DataLink_DDMD.Default
 | |
|         Width = 91
 | |
|       end
 | |
|     end
 | |
|     object cxGridLevel2: TcxGridLevel
 | |
|       GridView = Tv4
 | |
|     end
 | |
|   end
 | |
|   object DataSource1: TDataSource
 | |
|     DataSet = CDS_Tree
 | |
|     Left = 147
 | |
|     Top = 219
 | |
|   end
 | |
|   object ADOQueryTree: TADOQuery
 | |
|     Connection = DataLink_DDMD.ADOLink
 | |
|     LockType = ltReadOnly
 | |
|     Parameters = <>
 | |
|     Left = 117
 | |
|     Top = 145
 | |
|   end
 | |
|   object ADOQueryTemp: TADOQuery
 | |
|     Connection = DataLink_DDMD.ADOLink
 | |
|     LockType = ltReadOnly
 | |
|     Parameters = <>
 | |
|     Left = 528
 | |
|     Top = 215
 | |
|   end
 | |
|   object ADOQueryCmd: TADOQuery
 | |
|     Connection = DataLink_DDMD.ADOLink
 | |
|     Parameters = <>
 | |
|     Left = 520
 | |
|     Top = 258
 | |
|   end
 | |
|   object CDS_Tree: TClientDataSet
 | |
|     Aggregates = <>
 | |
|     Params = <>
 | |
|     Left = 96
 | |
|     Top = 256
 | |
|   end
 | |
|   object CDS_User: TClientDataSet
 | |
|     Aggregates = <>
 | |
|     Params = <>
 | |
|     Left = 680
 | |
|     Top = 272
 | |
|   end
 | |
|   object DSUser: TDataSource
 | |
|     DataSet = CDS_User
 | |
|     Left = 675
 | |
|     Top = 211
 | |
|   end
 | |
| end
 | 
