object frmJYGLCK: TfrmJYGLCK Left = 245 Top = 76 Width = 1472 Height = 672 BorderIcons = [biSystemMenu] Caption = #23492#26679#30331#35760 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1456 Height = 29 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_SKGBhouse.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 15 OnClick = TBSaveClick end object TBClose: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 29 Width = 1456 Height = 72 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label1: TLabel Left = 38 Top = 17 Width = 52 Height = 12 Caption = #20986#24211#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 224 Top = 17 Width = 52 Height = 12 Caption = #20986#24211#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 38 Top = 43 Width = 52 Height = 12 Caption = #20986#24211#21333#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 224 Top = 43 Width = 52 Height = 12 Caption = #25910#36135#21333#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 408 Top = 43 Width = 52 Height = 12 Caption = #25910#36135#22320#22336 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 421 Top = 15 Width = 39 Height = 12 Caption = #25910#36135#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 583 Top = 15 Width = 26 Height = 12 Caption = #30005#35805 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 752 Top = 13 Width = 52 Height = 12 Caption = #26679#21697#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 765 Top = 39 Width = 39 Height = 12 Caption = #24635#22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 938 Top = 11 Width = 39 Height = 12 Caption = #19994#21153#21592 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTime: TDateTimePicker Left = 90 Top = 13 Width = 100 Height = 20 Date = 41509.970132187500000000 Format = 'yyyy-MM-dd' Time = 41509.970132187500000000 TabOrder = 1 end object CRType: TComboBox Left = 280 Top = 12 Width = 100 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 0 OnChange = CRTypeChange Items.Strings = ( #36192#36865#20986#24211 #38144#21806#20986#24211 #27979#35797#20986#24211 #20869#37096#39046#29992 #25438#33394'/'#25171#33394 #22238#20462#20986#24211 #36716#22823#36135) end object InoutNo: TEdit Left = 90 Top = 39 Width = 100 Height = 20 TabOrder = 2 end object ToFactoryName: TBtnEditA Left = 280 Top = 39 Width = 101 Height = 20 TabOrder = 3 OnBtnClick = ToFactoryNameBtnClick end object SHDiZhi: TBtnEditA Left = 463 Top = 39 Width = 269 Height = 20 TabOrder = 4 OnBtnClick = SHDiZhiBtnClick end object SHer: TBtnEditA Left = 463 Top = 11 Width = 101 Height = 20 TabOrder = 5 OnBtnClick = SHerBtnClick end object SHDianHua: TEdit Left = 614 Top = 11 Width = 116 Height = 20 TabOrder = 6 end object yptype: TComboBox Left = 808 Top = 8 Width = 100 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 7 Items.Strings = ( #33394#21345 #25346#26495 '') end object ZBZNOTE: TEdit Left = 806 Top = 35 Width = 371 Height = 20 TabOrder = 8 end object Salesman: TBtnEditA Left = 980 Top = 7 Width = 101 Height = 20 TabOrder = 9 OnBtnClick = SalesmanBtnClick end end object ToolBar2: TToolBar Left = 0 Top = 101 Width = 1456 Height = 30 AutoSize = True ButtonHeight = 30 ButtonWidth = 83 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_SKGBhouse.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 2 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 57 OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 113 OnClick = ToolButton2Click end object ToolButton3: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #26367#25442 ImageIndex = 11 OnClick = ToolButton3Click end object btn1: TToolButton Left = 189 Top = 0 Caption = #36873#25321#25253#20215 ImageIndex = 43 Visible = False OnClick = btn1Click end object pnl1: TPanel Left = 272 Top = 0 Width = 968 Height = 30 Align = alClient TabOrder = 0 object lbl1: TLabel Left = 277 Top = 10 Width = 48 Height = 12 Caption = #20135#21697#20837#21475 end object lbl2: TLabel Left = 45 Top = 10 Width = 48 Height = 12 Caption = #25195#25551#20837#21475 end object CYNO: TEdit Left = 723 Top = 4 Width = 152 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 Visible = False OnKeyPress = CYNOKeyPress end object Edit1: TEdit Left = 97 Top = 4 Width = 152 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnKeyPress = Edit1KeyPress end object Edit2: TEdit Left = 339 Top = 2 Width = 152 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnKeyPress = Edit2KeyPress end end end object Panel3: TPanel Left = 0 Top = 131 Width = 1456 Height = 502 Align = alClient Caption = 'Panel3' TabOrder = 3 DesignSize = ( 1456 502) object cxGrid1: TcxGrid Left = 1 Top = 1 Width = 1454 Height = 500 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'C_Code' end> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum Column = v1Qty end item Kind = skSum Column = v1Money end item Kind = skCount end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True OptionsView.IndicatorWidth = 30 Styles.Header = DataLink_SKGBhouse.Default OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell object Tv1Column4: TcxGridDBColumn Caption = #20179#24211#31867#22411 DataBinding.FieldName = 'CKLX' HeaderAlignmentHorz = taCenter Width = 69 end object v1Column2: TcxGridDBColumn Caption = #26469#28304 DataBinding.FieldName = 'fromFactoryName' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 94 end object v1Column3: TcxGridDBColumn Caption = #23384#25918#24037#21378 DataBinding.FieldName = 'FactoryName' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 end object v1P_Code: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'P_Code' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 73 end object v1Qty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Content = DataLink_SKGBhouse.FontBlue Styles.Footer = DataLink_SKGBhouse.FontBlue Styles.Header = DataLink_SKGBhouse.FontBlue Width = 60 end object Tv1Column2: TcxGridDBColumn Tag = 1 Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'KCQTY1' HeaderAlignmentHorz = taCenter Styles.Header = DataLink_SKGBhouse.FontBlue Width = 72 end object v1QtyUnit: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #20221) HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Content = DataLink_SKGBhouse.FontBlue Styles.Footer = DataLink_SKGBhouse.FontBlue Styles.Header = DataLink_SKGBhouse.FontBlue Width = 100 end object v1Price: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 73 end object v1Money: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'Money' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 64 end object Tv1Column3: TcxGridDBColumn Caption = #25438#33394#36153 DataBinding.FieldName = 'LSMONEY' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 74 end object v1Note: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 132 end object cv1Column6: TcxGridDBColumn DataBinding.FieldName = 'mjid' Visible = False end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object cxGrid2: TcxGrid Left = 826 Top = 204 Width = 584 Height = 252 Anchors = [akRight, akBottom] TabOrder = 1 Visible = False object TV3: TcxGridDBTableView OnDblClick = TV3DblClick Navigator.Buttons.CustomButtons = <> DataController.DataSource = DS_BJ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnSorting = False OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.Header = DataLink_SKGBhouse.Default object cxGridDBColumn1: TcxGridDBColumn Caption = #25253#20215#26085#26399 DataBinding.FieldName = 'CRTime' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end object cxGridDBColumn2: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'P_Code' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 85 end object cxGridDBColumn3: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'P_CodeName' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 93 end object cxGridDBColumn4: TcxGridDBColumn Caption = #20215#26684 DataBinding.FieldName = 'Price' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 43 end object cxGridDBColumn5: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Priceunit' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 42 end object cxGridDBColumn6: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'custName' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 89 end object cxGridDBColumn7: TcxGridDBColumn Caption = #20184#27454#26041#24335 DataBinding.FieldName = 'payment' HeaderAlignmentHorz = taCenter Width = 80 end object cxGridDBColumn8: TcxGridDBColumn Caption = #36816#36755#26041#24335 DataBinding.FieldName = 'ysfs' HeaderAlignmentHorz = taCenter Width = 80 end end object cxGridLevel2: TcxGridLevel GridView = TV3 end end object cxGrid3: TcxGrid Left = 224 Top = 24 Width = 873 Height = 377 TabOrder = 2 Visible = False object TV7: TcxGridDBTableView OnDblClick = TV7DblClick OnMouseLeave = TV7MouseLeave Navigator.Buttons.CustomButtons = <> DataController.DataSource = DS_YPXZ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.Editing = False OptionsView.GroupByBox = False object cxGridDBColumn9: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'CYNO' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object cxGridDBColumn10: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'CYNAME' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 119 end object cxGridDBColumn13: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'CYColor' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 141 end object cV7Column5: TcxGridDBColumn DataBinding.FieldName = 'mjid' Visible = False end end object cxGridLevel1: TcxGridLevel GridView = TV7 end end end object ADOQueryCmd: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 372 Top = 234 end object ADOQueryTmp: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 411 Top = 234 end object DataSource1: TDataSource DataSet = CDS_Main Left = 319 Top = 279 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 280 Top = 421 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 192 Top = 257 end object ADOQueryMain: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 447 Top = 235 end object PopupMenu1: TPopupMenu Left = 162 Top = 258 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end object N3: TMenuItem Caption = #25253#20215#20449#24687 OnClick = N3Click end end object ADOQueryPrint: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 361 Top = 426 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 = 486 Top = 290 ReportData = {} end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 443 Top = 278 end object RMXLSExport1: TRMXLSExport ShowAfterExport = True ExportPrecision = 1 PagesOfSheet = 1 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 514 Top = 279 end object qry1: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 1019 Top = 423 end object CDS_BJ: TClientDataSet Aggregates = <> Params = <> Left = 968 Top = 395 end object DS_BJ: TDataSource DataSet = CDS_BJ Left = 980 Top = 432 end object CDS_YPXZ: TClientDataSet Aggregates = <> Params = <> Left = 312 Top = 327 end object DS_YPXZ: TDataSource DataSet = CDS_YPXZ Left = 424 Top = 332 end object ADOQuery1: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 372 Top = 234 end object ADOTMP: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 411 Top = 234 end end