object FrmInvoice_Sub: TFrmInvoice_Sub Left = 192 Top = 130 Width = 993 Height = 569 Caption = #20449#24687#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 977 Height = 31 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' DisabledImages = DataLink_YSYF.ThreeImgList Flat = True Images = DataLink_YSYF.ThreeImgList List = True ShowCaptions = True TabOrder = 0 object TSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 14 OnClick = TSaveClick end object TBClose: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object ToolBar2: TToolBar Left = 0 Top = 189 Width = 977 Height = 29 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar2' DisabledImages = DataLink_YSYF.ThreeImgList Flat = True Images = DataLink_YSYF.ThreeImgList List = True ShowCaptions = True TabOrder = 1 object TADD: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 103 OnClick = TADDClick end object TDEl: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 107 OnClick = TDElClick end end object Panel1: TPanel Left = 0 Top = 31 Width = 977 Height = 158 Align = alTop BevelOuter = bvLowered TabOrder = 2 object Label1: TLabel Left = 36 Top = 21 Width = 52 Height = 12 Caption = #21457#31080#21495#30721 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 472 Top = 21 Width = 52 Height = 12 Caption = #24320#31080#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 260 Top = 21 Width = 52 Height = 12 Caption = #21457#31080#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 36 Top = 48 Width = 52 Height = 12 Caption = #24320#31080#21333#20301 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 260 Top = 240 Width = 54 Height = 12 Caption = #20986' '#26041 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 36 Top = 76 Width = 54 Height = 12 Caption = #22791' '#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 244 Top = 297 Width = 53 Height = 12 Caption = #25805' '#20316' '#21592 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object InvoiceNo: TEdit Left = 96 Top = 17 Width = 121 Height = 20 TabOrder = 0 end object InvoiceDate: TDateTimePicker Left = 528 Top = 17 Width = 109 Height = 20 Date = 42263.599160520830000000 Time = 42263.599160520830000000 TabOrder = 1 end object Note: TMemo Left = 96 Top = 72 Width = 761 Height = 69 ScrollBars = ssVertical TabOrder = 2 end object InvoiceType: TBtnEditA Left = 316 Top = 17 Width = 121 Height = 20 ReadOnly = True TabOrder = 3 OnBtnClick = InvoiceTypeBtnClick end object ToFactoryName: TBtnEditA Left = 116 Top = 244 Width = 121 Height = 20 ReadOnly = True TabOrder = 4 OnBtnClick = ToFactoryNameBtnClick end object FactoryName: TBtnEditA Left = 96 Top = 44 Width = 121 Height = 20 ReadOnly = True TabOrder = 5 OnBtnClick = FactoryNameBtnClick end object Filler: TEdit Left = 316 Top = 317 Width = 121 Height = 20 Enabled = False TabOrder = 6 end end object cxGrid1: TcxGrid Left = 0 Top = 218 Width = 977 Height = 313 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False NavigatorButtons.Delete.Enabled = False NavigatorButtons.Delete.Visible = False DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v1Qty end item Kind = skSum Column = v1Money 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 OptionsView.Indicator = True Styles.Header = DataLink_YSYF.FonePurple object v1P_CodeName: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'P_CodeName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 94 end object v1P_Spec: TcxGridDBColumn Caption = #25104#21697#35268#26684 DataBinding.FieldName = 'P_Spec' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1P_SpecPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 89 end object v1Qty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 76 end object v1Price: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 93 end object v1QtyUnit: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1QtyUnitPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 90 end object v1Money: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'Money' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1MoneyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 81 end object v1PriceUnit: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'PriceUnit' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1PriceUnitPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 93 end object v1note: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'P_Note' HeaderAlignmentHorz = taCenter Width = 145 end end object cxGridLevel1: TcxGridLevel GridView = Tv1 end end object DataSource1: TDataSource DataSet = FP_Sub Left = 412 Top = 100 end object FP_Sub: TClientDataSet Aggregates = <> Params = <> Left = 244 Top = 100 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 484 Top = 100 end object ADOQueryTmp: TADOQuery Connection = DataLink_YSYF.ADOLink Parameters = <> Left = 336 Top = 100 end object ADOQueryCmd: TADOQuery Connection = DataLink_YSYF.ADOLink Parameters = <> Left = 540 Top = 100 end end