object frmMLX: TfrmMLX Left = 390 Top = 86 Width = 1123 Height = 707 Caption = #26825#31867#21035#23450#20041 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] KeyPreview = True OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1107 Height = 31 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue Flat = True Images = DataLink_MYSC.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 ToolButton2: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 20 OnClick = ToolButton2Click end object TBClose: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object cxGrid2: TcxGrid Left = 0 Top = 89 Width = 1107 Height = 301 Align = alTop PopupMenu = PopupMenu1 TabOrder = 2 object Tv2: TcxGridDBTableView PopupMenu = PopupMenu1 Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False OnFocusedRecordChanged = Tv2FocusedRecordChanged DataController.DataSource = DS_HZ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skCount Column = v2Column8 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = DataLink_MYSC.Default Styles.Header = DataLink_MYSC.Default object Tv2Column2: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'XHint' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv2Column2PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 100 end object Tv2Column1: TcxGridDBColumn Caption = #20379#24212#21333#20301#32534#21495 DataBinding.FieldName = 'GYSNO' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = Tv2Column1PropertiesButtonClick HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 300 end object v2Column8: TcxGridDBColumn Caption = #20379#24212#21333#20301#21517#31216 DataBinding.FieldName = 'GYSJC' PropertiesClassName = 'TcxTextEditProperties' GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 300 end end object cxGridLevel1: TcxGridLevel GridView = Tv2 end end object Panel1: TPanel Left = 0 Top = 31 Width = 1107 Height = 58 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 66 Top = 20 Width = 100 Height = 19 Caption = #20379#24212#21830#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object GYSJC: TComboBox Tag = 2 Left = 177 Top = 14 Width = 160 Height = 29 Style = csOwnerDrawFixed Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 23 ParentFont = False TabOrder = 0 OnChange = GYSJCChange end end object cxGrid1: TcxGrid Left = 0 Top = 390 Width = 1107 Height = 278 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 object TV3: TcxGridDBTableView PopupMenu = PopupMenu2 Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_Sub DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = DataLink_MYSC.Default Styles.Header = DataLink_MYSC.Default object TV3Column2: TcxGridDBColumn Caption = #26825#21517#31216'('#20844#21496#20869#37096')' DataBinding.FieldName = 'KHMName' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 200 end object cxGridDBColumn2: TcxGridDBColumn Caption = #26825#21517#31216'('#20379#24212#21333#20301')' DataBinding.FieldName = 'GYSMName' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 313 end object TV3Column1: TcxGridDBColumn Caption = #26825#20195#30721 DataBinding.FieldName = 'MNo' PropertiesClassName = 'TcxTextEditProperties' Properties.CharCase = ecUpperCase Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 150 end end object cxGridLevel2: TcxGridLevel GridView = TV3 end end object ADOQueryTemp: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 299 Top = 209 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 261 Top = 209 end object ADOQueryMain: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 229 Top = 209 end object RM1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] DefaultCollate = False ShowPrintDialog = False SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' PreviewOptions.RulerUnit = rmutScreenPixels PreviewOptions.RulerVisible = False PreviewOptions.DrawBorder = False PreviewOptions.BorderPen.Color = clGray PreviewOptions.BorderPen.Style = psDash Dataset = RMDB_Main CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 355 Top = 344 ReportData = {} end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrt Left = 288 Top = 344 end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 519 Top = 263 end object DS_HZ: TDataSource DataSet = CDS_HZ Left = 998 Top = 263 end object CDS_HZ: TClientDataSet Aggregates = <> Params = <> Left = 1033 Top = 263 end object PopupMenu1: TPopupMenu Left = 191 Top = 242 object N1: TMenuItem Caption = #26032#22686#20379#24212#21333#20301 OnClick = N1Click end object N3: TMenuItem Caption = #21024#38500#20379#24212#21333#20301 OnClick = N3Click end end object RMXLSExport2: TRMXLSExport ShowAfterExport = False ExportPrecision = 1 PagesOfSheet = 1 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 420 Top = 344 end object ADOQueryPrt: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 229 Top = 345 end object DS_Sub: TDataSource DataSet = CDS_Sub Left = 964 Top = 531 end object CDS_Sub: TClientDataSet Aggregates = <> Params = <> Left = 1010 Top = 527 end object ADOQuerySub: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 960 Top = 260 end object PopupMenu2: TPopupMenu Left = 249 Top = 459 object MenuItem1: TMenuItem Caption = #26032#22686#26825#31867#22411 OnClick = MenuItem1Click end object N2: TMenuItem Caption = #20462#25913#26825#31867#22411 OnClick = N2Click end object MenuItem2: TMenuItem Caption = #21024#38500#26825#31867#22411 OnClick = MenuItem2Click end end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 916 Top = 254 end end