RTFormwork/public10/design/U_DetailBaseList.dfm
2024-10-28 16:51:34 +08:00

443 lines
10 KiB
Plaintext

object frmDetailBaseList: TfrmDetailBaseList
Left = 0
Top = 0
Caption = 'frmDetailBaseList'
ClientHeight = 605
ClientWidth = 1077
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 21
object ToolBar3: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1077
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
Caption = 'ToolBar1'
GradientEndColor = clWindow
Images = DataLink_schedule.cxImageList_bar
List = True
GradientDrawingOptions = [gdoHotTrack]
ShowCaptions = True
TabOrder = 0
object Trefresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26597#35810
ImageIndex = 8
OnClick = TrefreshClick
end
object Tprint: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
ImageIndex = 28
OnClick = TprintClick
end
object TprintGrid: TToolButton
Left = 180
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TprintGridClick
end
object TsaveGrid: TToolButton
Left = 251
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 30
OnClick = TsaveGridClick
end
object TgridLiSet: TToolButton
Left = 354
Top = 0
AutoSize = True
Caption = #34920#26684#21015#35774#32622
ImageIndex = 16
OnClick = TgridLiSetClick
end
object Tclose: TToolButton
Left = 473
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TcloseClick
end
end
object cxGrid1: TcxGrid
Left = 14
Top = 161
Width = 985
Height = 224
TabOrder = 1
object tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = tv1FocusedRecordChanged
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Inserting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
end
object cxGrid1Level1: TcxGridLevel
GridView = tv1
end
end
object dxLayoutControl_query: TdxLayoutControl
Left = 0
Top = 75
Width = 1077
Height = 45
Align = alTop
TabOrder = 2
AutoSize = True
LayoutLookAndFeel = BaseDataLink.dxLayoutSkinLookAndFeel1
OptionsItem.SizableHorz = True
OptionsItem.SizableVert = True
OnDblClick = dxLayoutControl_queryDblClick
object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.AlignVert = tavCenter
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True
SizeOptions.SizableVert = True
Hidden = True
LayoutDirection = ldHorizontal
Padding.Bottom = -5
Padding.Top = -5
Padding.AssignedValues = [lpavBottom, lpavTop]
ShowBorder = False
Index = -1
end
end
object Panel_page: TPanel
Left = 0
Top = 120
Width = 1077
Height = 37
Align = alTop
AutoSize = True
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
DesignSize = (
1077
37)
object LBCPAP: TLabel
Left = 425
Top = 8
Width = 100
Height = 20
Alignment = taCenter
Anchors = [akLeft]
AutoSize = False
Caption = #24403#21069#39029'/'#24635#39029#25968
Layout = tlCenter
ExplicitTop = 7
end
object Label31: TLabel
Left = 14
Top = 8
Width = 96
Height = 21
Alignment = taCenter
Anchors = [akLeft]
Caption = #27599#39029#35760#24405#26465#25968
Layout = tlCenter
ExplicitTop = 7
end
object BTNP: TButton
Left = 532
Top = 5
Width = 78
Height = 30
Anchors = [akLeft]
Caption = #19979#19968#39029
TabOrder = 0
OnClick = BTNPClick
end
object BTLP: TButton
Left = 338
Top = 4
Width = 78
Height = 31
Anchors = [akLeft]
Caption = #19978#19968#39029
TabOrder = 1
OnClick = BTLPClick
end
object TCBNOR: TcxComboBox
Tag = 2
Left = 122
Top = 2
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'500'
'1000'
'5000'
'10000')
Properties.OnChange = TCBNORPropertiesChange
TabOrder = 2
Text = '500'
Width = 94
end
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 401
Width = 1077
Height = 8
HotZoneClassName = 'TcxMediaPlayer8Style'
AlignSplitter = salBottom
end
object cxGrid2: TcxGrid
Left = 0
Top = 409
Width = 1077
Height = 196
Align = alBottom
TabOrder = 5
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.UseOddEvenStyles = bFalse
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
inline frmFrameDateSel1: TfrmFrameDateSel10
Left = 0
Top = 30
Width = 1077
Height = 45
Align = alTop
AutoSize = True
Color = clBtnFace
ParentBackground = False
ParentColor = False
TabOrder = 6
ExplicitTop = 30
ExplicitWidth = 1077
inherited dxLayoutControl1: TdxLayoutControl
Width = 1077
ExplicitWidth = 1077
inherited BegDate: TcxDateEdit
Left = 116
Top = 11
ExplicitLeft = 116
ExplicitTop = 11
end
inherited EndDate: TcxDateEdit
Left = 265
Top = 11
ExplicitLeft = 265
ExplicitTop = 11
end
inherited cxButton1: TcxButton
Left = 465
Top = 11
ExplicitLeft = 465
ExplicitTop = 11
end
inherited cxButton2: TcxButton
Left = 625
Top = 11
ExplicitLeft = 625
ExplicitTop = 11
end
inherited cxButton3: TcxButton
Left = 756
Top = 11
ExplicitLeft = 756
ExplicitTop = 11
end
inherited cbbType: TcxComboBox
Left = 705
Top = 11
ExplicitLeft = 705
ExplicitTop = 11
end
inherited cxButton4: TcxButton
Left = 385
Top = 11
ExplicitLeft = 385
ExplicitTop = 11
end
inherited cxButton5: TcxButton
Left = 545
Top = 11
ExplicitLeft = 545
ExplicitTop = 11
end
inherited TimeType: TcxComboBox
Left = 16
Top = 11
ExplicitLeft = 16
ExplicitTop = 11
end
inherited jqModel: TcxCheckBox
Left = 859
Top = 11
ExplicitLeft = 859
ExplicitTop = 11
ExplicitWidth = 82
ExplicitHeight = 25
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
ItemIndex = 1
end
inherited dxLayoutItem1: TdxLayoutItem
CaptionOptions.Text = 'New Item'
end
inherited dxLayoutItem2: TdxLayoutItem
CaptionOptions.Text = 'New Item'
end
inherited dxLayoutItem8: TdxLayoutItem
CaptionOptions.Text = 'New Item'
end
inherited dxLayoutItem9: TdxLayoutItem
CaptionOptions.Text = 'New Item'
end
inherited dxLayoutItem10: TdxLayoutItem
ControlOptions.OriginalHeight = 25
ControlOptions.OriginalWidth = 82
end
end
end
object cxProgressBar1: TMovePanel
Left = 240
Top = 224
Width = 233
Height = 49
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 7
Visible = False
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 768
Top = 296
end
object ADOQueryMain: TADOQuery
Connection = DataLink_schedule.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 704
Top = 368
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 208
Top = 287
end
object ADOQueryBaseCmd: TADOQuery
Connection = DataLink_schedule.ADOLink
Parameters = <>
Left = 281
Top = 248
end
object ADOQueryBaseTemp: TADOQuery
Connection = DataLink_schedule.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 201
Top = 225
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 395
Top = 280
end
object ADOQuerySub: TADOQuery
Connection = DataLink_schedule.ADOLink
Parameters = <>
Left = 320
Top = 513
end
object DataSource2: TDataSource
DataSet = CDS_Sub
Left = 408
Top = 505
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 232
Top = 383
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 211
Top = 504
end
end