object frmMJManageNewFDNewSF_New: TfrmMJManageNewFDNewSF_New Left = 190 Top = 136 Width = 1315 Height = 709 Caption = #25104#21697#26816#39564 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClick = FormClick OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 107 TextHeight = 13 object Panel6: TPanel Left = 0 Top = 0 Width = 301 Height = 669 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 0 object Label16: TLabel Left = 1175 Top = 43 Width = 49 Height = 13 Caption = 'Label16' Visible = False end object Label35: TLabel Left = 76 Top = 286 Width = 136 Height = 33 Caption = #33258#21160#21462#20540 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label24: TLabel Left = 27 Top = 93 Width = 18 Height = 33 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label25: TLabel Left = 27 Top = 219 Width = 18 Height = 33 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 27 Top = 156 Width = 18 Height = 33 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 45 Top = 423 Width = 55 Height = 107 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -107 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object BTAdd: TButton Left = 1308 Top = 38 Width = 50 Height = 27 Caption = #26032#22686 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 Visible = False end object BTEdit: TButton Left = 1253 Top = 39 Width = 35 Height = 27 Caption = #20462#25913 TabOrder = 1 Visible = False end object Edit7: TEdit Left = 27 Top = 282 Width = 41 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 2 Text = #8730 OnClick = Edit7Click end object SMRK: TEdit Left = 27 Top = 19 Width = 266 Height = 47 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -39 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = GangNoClick OnKeyPress = SMRKKeyPress end object Panel2: TPanel Left = 24 Top = 334 Width = 237 Height = 321 TabOrder = 4 Visible = False object SpeedButton13: TSpeedButton Left = 29 Top = 15 Width = 175 Height = 79 Caption = #24213#24067 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton13Click end object SpeedButton14: TSpeedButton Left = 29 Top = 120 Width = 175 Height = 79 Caption = #38754#24067 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton14Click end object SpeedButton15: TSpeedButton Left = 29 Top = 224 Width = 175 Height = 79 Caption = #25104#21697 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton15Click end end end object PageControl1: TPageControl Left = 301 Top = 0 Width = 998 Height = 669 ActivePage = TabSheet3 Align = alClient Style = tsFlatButtons TabOrder = 1 OnChange = PageControl1Change object TabSheet1: TTabSheet Caption = #24213'/'#38754#24067 object Panel7: TPanel Left = 0 Top = 0 Width = 628 Height = 638 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label5: TLabel Left = 43 Top = 142 Width = 126 Height = 62 Caption = #38271#24230 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label37: TLabel Left = 43 Top = 24 Width = 126 Height = 62 Caption = #32568#21495 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MJLen: TEdit Left = 176 Top = 138 Width = 216 Height = 70 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = GangNoClick OnKeyPress = MJstr3KeyPress end object BTPrint: TButton Left = 399 Top = 129 Width = 145 Height = 89 Caption = #25171#21360 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BTPrintClick end object GangNo: TEdit Left = 176 Top = 20 Width = 216 Height = 70 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = GangNoClick OnKeyPress = MJstr3KeyPress end object Button5: TButton Left = 399 Top = 11 Width = 144 Height = 89 Caption = #37325#25171 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button5Click end object Panel3: TPanel Left = 4 Top = 241 Width = 407 Height = 317 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 4 object SpeedButton1: TSpeedButton Left = 11 Top = 9 Width = 88 Height = 92 Hint = '0' Caption = '0' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 111 Top = 9 Width = 88 Height = 92 Hint = '1' Caption = '1' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton3: TSpeedButton Left = 210 Top = 9 Width = 88 Height = 92 Hint = '2' Caption = '2' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton4: TSpeedButton Left = 310 Top = 9 Width = 88 Height = 92 Hint = '3' Caption = '3' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton5: TSpeedButton Left = 11 Top = 113 Width = 88 Height = 92 Hint = '4' Caption = '4' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton6: TSpeedButton Left = 110 Top = 113 Width = 88 Height = 92 Hint = '5' Caption = '5' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton7: TSpeedButton Left = 210 Top = 114 Width = 89 Height = 90 Hint = '6' Caption = '6' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton8: TSpeedButton Left = 310 Top = 113 Width = 88 Height = 92 Hint = '7' Caption = '7' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton9: TSpeedButton Left = 11 Top = 217 Width = 87 Height = 91 Hint = '8' Caption = '8' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton10: TSpeedButton Left = 111 Top = 217 Width = 87 Height = 91 Hint = '9' Caption = '9' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton11: TSpeedButton Tag = 9 Left = 210 Top = 217 Width = 87 Height = 91 Hint = '.' Caption = '.' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton12: TSpeedButton Left = 310 Top = 217 Width = 87 Height = 91 Caption = #8592 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton12Click end end object ComboBox1: TComboBox Left = 550 Top = 20 Width = 71 Height = 70 Style = csDropDownList Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -62 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 62 ItemIndex = 0 ParentFont = False TabOrder = 5 Text = '1' Items.Strings = ( '1' '2' '3' '4') end object Panel5: TPanel Left = 419 Top = 227 Width = 203 Height = 345 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 6 object SpeedButton28: TSpeedButton Left = 9 Top = 56 Width = 87 Height = 89 Caption = '1' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton28Click end object SpeedButton35: TSpeedButton Left = 107 Top = 56 Width = 87 Height = 89 Caption = '2' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton28Click end object SpeedButton36: TSpeedButton Left = 9 Top = 152 Width = 87 Height = 89 Caption = '3' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton28Click end object SpeedButton37: TSpeedButton Left = 107 Top = 152 Width = 87 Height = 89 Caption = '4' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton28Click end object SpeedButton38: TSpeedButton Left = 9 Top = 248 Width = 87 Height = 89 Caption = '5' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton28Click end object SpeedButton39: TSpeedButton Left = 107 Top = 248 Width = 87 Height = 89 Caption = '6' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton28Click end object Label1: TLabel Left = 64 Top = 6 Width = 78 Height = 47 Caption = #32568#21495 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -39 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [] ParentFont = False end end end object cxGrid3: TcxGrid Left = 629 Top = 268 Width = 349 Height = 363 TabOrder = 1 object Tv3: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellClick = Tv3CellClick DataController.DataSource = DataSource3 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum Column = v3JYLen end item Kind = skSum end item Kind = skSum end item Format = #21367#25968':0' Kind = skCount Column = cxGangNo end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle2 Styles.Inactive = cxStyle2 Styles.IncSearch = cxStyle2 Styles.Selection = cxStyle2 object cxGangNo: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'GangNo' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 139 end object v3JYNo: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'JYNo' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 77 end object v3JYLen: TcxGridDBColumn Caption = #38271#24230 DataBinding.FieldName = 'JYLen' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 106 end end object cxGridLevel2: TcxGridLevel GridView = Tv3 end end object cxGrid4: TcxGrid Left = 628 Top = 0 Width = 349 Height = 271 TabOrder = 2 object TV4: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellClick = Tv3CellClick DataController.DataSource = DataSource6 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum Column = cSJZQty end item Kind = skSum end item Kind = skSum end item Format = #32568#25968':0' Kind = skCount Column = cxGridDBColumn1 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle2 Styles.Inactive = cxStyle2 Styles.IncSearch = cxStyle2 Styles.Selection = cxStyle2 object cxGridDBColumn1: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'GangNo' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 139 end object cSJZQty: TcxGridDBColumn Caption = #24635#38271#24230 DataBinding.FieldName = 'SJZQty' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 106 end end object cxGridLevel4: TcxGridLevel GridView = TV4 end end end object TabSheet2: TTabSheet ImageIndex = 1 end object TabSheet3: TTabSheet Caption = #25104#21697 ImageIndex = 2 object Panel1: TPanel Left = 0 Top = 0 Width = 245 Height = 638 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label9: TLabel Left = 192 Top = 35 Width = 18 Height = 33 Caption = 'M' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = Label9Click end object Label6: TLabel Left = 192 Top = 202 Width = 36 Height = 33 Caption = 'KG' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 12 Top = 35 Width = 68 Height = 33 Caption = #38271#24230 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 12 Top = 202 Width = 68 Height = 33 Caption = #27611#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Left = 288 Top = 284 Width = 6 Height = 24 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object Label30: TLabel Left = 12 Top = 91 Width = 68 Height = 33 Caption = #30382#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label31: TLabel Left = 192 Top = 146 Width = 36 Height = 33 Caption = 'KG' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label32: TLabel Left = 12 Top = 146 Width = 68 Height = 33 Caption = #20928#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label33: TLabel Left = 192 Top = 91 Width = 36 Height = 33 Caption = 'KG' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object JYLen: TEdit Left = 90 Top = 31 Width = 98 Height = 41 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = JYLenClick OnKeyPress = MJstr3KeyPress end object JYKG: TEdit Left = 90 Top = 197 Width = 98 Height = 41 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnChange = JYKGChange OnClick = JYLenClick OnKeyPress = MJstr3KeyPress end object JYPZ: TEdit Left = 90 Top = 87 Width = 98 Height = 41 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnChange = JYJZChange OnClick = JYLenClick OnKeyPress = MJstr3KeyPress end object JYJZ: TEdit Left = 90 Top = 142 Width = 98 Height = 41 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnChange = JYJZChange OnClick = JYLenClick OnExit = JYJZExit OnKeyPress = JYJZKeyPress end object Edit1: TEdit Left = 228 Top = 330 Width = 98 Height = 41 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 4 Visible = False OnChange = JYKGChange OnClick = JYLenClick OnKeyPress = MJstr3KeyPress end end object Panel4: TPanel Left = 251 Top = 284 Width = 534 Height = 352 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object SpeedButton16: TSpeedButton Left = 18 Top = 14 Width = 115 Height = 99 Caption = '0' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton17: TSpeedButton Left = 146 Top = 14 Width = 115 Height = 99 Caption = '1' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton18: TSpeedButton Left = 273 Top = 14 Width = 115 Height = 99 Caption = '2' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton19: TSpeedButton Left = 401 Top = 14 Width = 114 Height = 99 Caption = '3' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton20: TSpeedButton Left = 18 Top = 128 Width = 115 Height = 99 Caption = '4' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton21: TSpeedButton Left = 146 Top = 128 Width = 115 Height = 99 Caption = '5' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton22: TSpeedButton Left = 273 Top = 128 Width = 115 Height = 99 Caption = '6' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton23: TSpeedButton Left = 401 Top = 128 Width = 114 Height = 99 Caption = '7' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton24: TSpeedButton Left = 18 Top = 241 Width = 115 Height = 99 Caption = '8' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton25: TSpeedButton Left = 146 Top = 241 Width = 115 Height = 99 Caption = '9' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton26: TSpeedButton Tag = 9 Left = 273 Top = 241 Width = 115 Height = 99 Caption = '.' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton27: TSpeedButton Left = 401 Top = 241 Width = 114 Height = 99 Caption = #8592 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -71 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton12Click end end object cxGrid1: TcxGrid Left = 655 Top = 17 Width = 342 Height = 264 TabOrder = 2 object TV2: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellClick = TV2CellClick DataController.DataSource = DataSource4 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = cxGridDBJYLen end item Kind = skSum Column = v3JYKG end item Kind = skSum Column = v3JYJZ end item Format = #21367#25968':0' Kind = skCount Column = vJYNo end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle2 Styles.Inactive = cxStyle2 Styles.IncSearch = cxStyle2 Styles.Selection = cxStyle2 object vJYNo: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'JYNo' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 72 end object cxGridDBJYLen: TcxGridDBColumn Caption = #38271#24230 DataBinding.FieldName = 'JYLen' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 82 end object v3JYKG: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'JYKG' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 79 end object v3JYJZ: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'JYJZ' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle2 Width = 72 end end object cxGridLevel1: TcxGridLevel GridView = TV2 end end object Panel8: TPanel Left = 17 Top = 262 Width = 203 Height = 345 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 3 object SpeedButton29: TSpeedButton Left = 9 Top = 56 Width = 87 Height = 89 Caption = '1' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton29Click end object SpeedButton30: TSpeedButton Left = 107 Top = 56 Width = 87 Height = 89 Caption = '2' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton29Click end object SpeedButton31: TSpeedButton Left = 9 Top = 152 Width = 87 Height = 89 Caption = '3' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton29Click end object SpeedButton32: TSpeedButton Left = 107 Top = 152 Width = 87 Height = 89 Caption = '4' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton29Click end object SpeedButton33: TSpeedButton Left = 9 Top = 248 Width = 87 Height = 89 Caption = '5' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton29Click end object SpeedButton34: TSpeedButton Left = 107 Top = 248 Width = 87 Height = 89 Caption = '6' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [fsBold] ParentFont = False Visible = False OnClick = SpeedButton29Click end object Label4: TLabel Left = 64 Top = 6 Width = 78 Height = 47 Caption = #32568#21495 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -39 Font.Name = #26041#27491#31895#40657#23435#31616#20307 Font.Style = [] ParentFont = False end end object cxGrid2: TcxGrid Left = 252 Top = 17 Width = 391 Height = 264 TabOrder = 4 object TV1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellClick = Tv3CellClick DataController.DataSource = DataSource5 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = cxGridDBMQQty end item Kind = skSum Column = cxGridDBCQty end item Kind = skSum Column = cxGridDBSJZQty end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle2 Styles.Inactive = cxStyle2 Styles.IncSearch = cxStyle2 Styles.Selection = cxStyle2 object cxGridDBGangNo: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'GangNo' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle5 Styles.Header = cxStyle2 Width = 113 end object cxGridDBSJZQty: TcxGridDBColumn Caption = #19978#26426#25968#37327 DataBinding.FieldName = 'SJZQty' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle3 Styles.Header = cxStyle3 Width = 94 end object cxGridDBMQQty: TcxGridDBColumn Caption = #30446#21069#25968#37327 DataBinding.FieldName = 'MQQty' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle3 Styles.Header = cxStyle2 Width = 90 end object cxGridDBCQty: TcxGridDBColumn Caption = #24046 DataBinding.FieldName = 'CQty' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Content = cxStyle5 Styles.Footer = cxStyle5 Styles.Header = cxStyle2 Width = 66 end end object cxGridLevel3: TcxGridLevel GridView = TV1 end end object Button1: TButton Left = 791 Top = 293 Width = 138 Height = 94 Caption = #25171#21360 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = Button1Click end object Button2: TButton Left = 791 Top = 488 Width = 133 Height = 94 Caption = #37325#25171 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = Button2Click end object ComboBox2: TComboBox Left = 935 Top = 309 Width = 62 Height = 62 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -54 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 54 ItemIndex = 0 ParentFont = False TabOrder = 7 Text = '1' Items.Strings = ( '1' '2' '3' '4') end end end object Button3: TButton Left = 304 Top = 0 Width = 191 Height = 41 Caption = #20851' '#38381 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -33 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button3Click end object Panel9: TPanel Left = 495 Top = -1 Width = 249 Height = 41 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object Label8: TLabel Left = 9 Top = 8 Width = 100 Height = 24 Caption = #20837#24211#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object ComboBox3: TComboBox Left = 114 Top = 4 Width = 130 Height = 32 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 24 ItemIndex = 0 ParentFont = False TabOrder = 0 Text = #27491#24120#20837#24211 Items.Strings = ( #27491#24120#20837#24211 #36864#36135#20837#24211 #22238#20462#20837#24211) end end object cxStyleRepository1: TcxStyleRepository Left = 731 Top = 246 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = #23435#20307 Font.Style = [fsBold] end object cxStyle2: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -18 Font.Name = #23435#20307 Font.Pitch = fpFixed Font.Style = [fsBold] TextColor = clDefault end end object cxGridPopupMenu1: TcxGridPopupMenu PopupMenus = <> Left = 1241 Top = 433 end object DataSource1: TDataSource DataSet = Order_MJ Left = 611 Top = 248 end object Order_MJ: TClientDataSet Aggregates = <> Params = <> Left = 1257 Top = 501 end object ADOQueryMain: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 1216 Top = 432 end object ADOCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 1115 Top = 487 end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 583 Top = 248 end object RM2: 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 = 1154 Top = 494 ReportData = {} end object DataSource2: TDataSource DataSet = CDS_MJCD Left = 640 Top = 246 end object CDS_MJCD: TClientDataSet Aggregates = <> Params = <> Left = 699 Top = 245 end object DataSource3: TDataSource DataSet = Order_MJ Left = 1187 Top = 476 end object CDS_MJID: TClientDataSet Aggregates = <> Params = <> Left = 1132 Top = 469 end object Timer1: TTimer Interval = 100 Left = 1270 Top = 432 end object ADOQueryPrint: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 669 Top = 246 end object cxStyleRepository2: TcxStyleRepository object cxStyle3: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clBlue end end object cxStyleRepository3: TcxStyleRepository object cxStyle4: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clRed end end object cxStyleRepository4: TcxStyleRepository object cxStyle5: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clOlive end end object cxStyleRepository5: TcxStyleRepository object cxStyle6: TcxStyle AssignedValues = [svFont] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] end end object cxGridPopupMenu2: TcxGridPopupMenu PopupMenus = <> Left = 1193 Top = 431 end object ADOQueryMainDSC: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> SQL.Strings = ( 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + 'e WM.APId=A.APId and len(WM.MJID)>8),' ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + 'FB_MJJY WM where WM.APId=A.APId )>0 ' ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' 'from WFBOrder_Sub_AnPai A ' 'inner join WFBOrder_Sub B on A.SubId=B.SubId' 'inner join WFBOrder_Main C on A.MainId=C.MainId' 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + ' ' 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' '') Left = 1112 Top = 460 end object RM3: 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 CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 1163 Top = 431 ReportData = {} end object ADOTmp: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 1134 Top = 432 end object ADOQuery1: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 763 Top = 245 end object DataSource4: TDataSource DataSet = JY_CP Left = 1137 Top = 94 end object DataSource5: TDataSource DataSet = JY_HZ Left = 795 Top = 246 end object JY_CP: TClientDataSet Aggregates = <> Params = <> Left = 1172 Top = 93 end object JY_HZ: TClientDataSet Aggregates = <> Params = <> Left = 824 Top = 246 end object DataSource6: TDataSource DataSet = DB_HZ Left = 1129 Top = 164 end object DB_HZ: TClientDataSet Aggregates = <> Params = <> Left = 1164 Top = 163 end end