object frm_ch_invoice_view: Tfrm_ch_invoice_view Left = 465 Top = 207 Width = 761 Height = 532 Caption = #21457#31080#26126#32454#26597#30475 Color = 15189677 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object shp1: TShape Left = 1 Top = 147 Width = 751 Height = 160 Brush.Color = 15189677 end object lbl1: TLabel Left = 6 Top = 47 Width = 48 Height = 12 Caption = #20184#27454#21333#20301 Transparent = True end object lbl2: TLabel Left = 6 Top = 63 Width = 35 Height = 12 Caption = 'PAYER' Font.Charset = GB2312_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object lbl3: TLabel Left = 311 Top = 47 Width = 48 Height = 12 Caption = #24320#31080#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False Transparent = True end object lbl4: TLabel Left = 311 Top = 63 Width = 77 Height = 12 Caption = 'DATE ISSUED' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object shp2: TShape Left = 390 Top = 74 Width = 142 Height = 1 end object lbl5: TLabel Left = 6 Top = 79 Width = 54 Height = 12 Caption = #33337#21517'/'#33337#27425 Transparent = True end object lbl6: TLabel Left = 6 Top = 95 Width = 70 Height = 12 Caption = 'VESSEL/VOY' Font.Charset = GB2312_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object shp3: TShape Left = 77 Top = 106 Width = 230 Height = 1 end object lbl7: TLabel Left = 311 Top = 79 Width = 60 Height = 12 Caption = #25552'('#36816')'#21333#21495 Transparent = True end object lbl8: TLabel Left = 311 Top = 95 Width = 49 Height = 12 Caption = 'B/L NO.' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object shp4: TShape Left = 371 Top = 106 Width = 161 Height = 1 end object shp5: TShape Left = 610 Top = 106 Width = 142 Height = 1 end object lbl9: TLabel Left = 536 Top = 79 Width = 48 Height = 12 Caption = #24320#33322#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False Transparent = True end object lbl10: TLabel Left = 536 Top = 95 Width = 77 Height = 12 Caption = 'DATE SAILED' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object lbl11: TLabel Left = 6 Top = 111 Width = 36 Height = 12 Caption = #36215#36816#28207 Transparent = True end object lbl12: TLabel Left = 6 Top = 128 Width = 63 Height = 12 Caption = 'LOAD PORT' Font.Charset = GB2312_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object shp6: TShape Left = 69 Top = 139 Width = 169 Height = 1 end object lbl13: TLabel Left = 249 Top = 111 Width = 36 Height = 12 Caption = #21368#36135#28207 Transparent = True end object lbl14: TLabel Left = 249 Top = 128 Width = 56 Height = 12 Caption = 'DIS PORT' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object shp7: TShape Left = 304 Top = 139 Width = 199 Height = 1 end object lbl15: TLabel Left = 505 Top = 111 Width = 36 Height = 12 Caption = #30446#30340#28207 Transparent = True end object lbl16: TLabel Left = 505 Top = 128 Width = 77 Height = 12 Caption = 'DESTINATION' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object shp8: TShape Left = 582 Top = 139 Width = 170 Height = 1 end object shp9: TShape Left = 1 Top = 168 Width = 751 Height = 1 end object lbl17: TLabel Left = 9 Top = 150 Width = 222 Height = 12 Caption = #25910#36153#20869#23481#65288#36135#29289#21517#31216#65292#25968#37327#65292#27611#37325', '#23610#30721')' Transparent = True end object shp10: TShape Left = 429 Top = 144 Width = 1 Height = 160 end object shp11: TShape Left = 587 Top = 144 Width = 1 Height = 160 end object shp12: TShape Left = 3 Top = 265 Width = 749 Height = 1 end object lbl18: TLabel Left = 432 Top = 150 Width = 24 Height = 12 Caption = #37329#39069 Transparent = True end object lbl19: TLabel Left = 439 Top = 187 Width = 56 Height = 12 Caption = '(AMOUNT)' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object shp13: TShape Left = 105 Top = 265 Width = 1 Height = 38 end object lbl20: TLabel Left = 8 Top = 270 Width = 96 Height = 12 Caption = #37329#39069#21512#35745#65288#22823#20889#65289 Transparent = True end object lbl21: TLabel Left = 8 Top = 287 Width = 96 Height = 12 Caption = 'TOTAL IN CAPITAL' Font.Charset = GB2312_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False Transparent = True end object lbl22: TLabel Left = 589 Top = 279 Width = 48 Height = 12 Caption = #21457#31080#24065#21035 Transparent = True end object lbl23: TLabel Left = 431 Top = 279 Width = 48 Height = 12 Caption = #21512#35745#37329#39069 Transparent = True end object lbl24: TLabel Left = 590 Top = 150 Width = 24 Height = 12 Caption = #22791#27880 Transparent = True end object lbl25: TLabel Left = 623 Top = 151 Width = 49 Height = 12 Caption = 'REMARKS' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object lbl26: TLabel Left = 6 Top = 445 Width = 84 Height = 12 Caption = #20225' '#19994' '#31614' '#31456 Transparent = True end object lbl27: TLabel Left = 6 Top = 464 Width = 84 Height = 12 Caption = 'BUSNESS SEAL' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object lbl28: TLabel Left = 106 Top = 445 Width = 72 Height = 12 Caption = #24037#21830#30331#35760#21495#65306 Transparent = True end object lbl29: TLabel Left = 106 Top = 470 Width = 72 Height = 12 Caption = #31246#21153#30331#35760#21495#65306 Transparent = True end object lbl30: TLabel Left = 431 Top = 445 Width = 48 Height = 12 Caption = #21046' '#21333' '#20154 Transparent = True end object lbl31: TLabel Left = 431 Top = 470 Width = 48 Height = 12 Caption = #22797' '#26680' '#20154 Transparent = True end object lbl32: TLabel Left = 589 Top = 470 Width = 48 Height = 12 Caption = #22797#26680#26085#26399 Transparent = True end object shp14: TShape Left = 56 Top = 74 Width = 252 Height = 1 end object lbl33: TLabel Left = 536 Top = 58 Width = 48 Height = 12 Caption = #22996#25176#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object lbl34: TLabel Left = 536 Top = 33 Width = 48 Height = 12 Caption = #38134#34892#36134#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object lbl35: TLabel Left = 536 Top = 9 Width = 48 Height = 12 Caption = #24320#25143#38134#34892 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object lbl36: TLabel Left = 28 Top = 8 Width = 180 Height = 29 Caption = #21457#31080#26126#32454#26597#30475 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Transparent = True end object wwDBDateTimePicker1: TwwDBDateTimePicker Left = 390 Top = 53 Width = 142 Height = 20 BiDiMode = bdLeftToRight CalendarAttributes.Font.Charset = DEFAULT_CHARSET CalendarAttributes.Font.Color = clWindowText CalendarAttributes.Font.Height = -11 CalendarAttributes.Font.Name = 'MS Sans Serif' CalendarAttributes.Font.Style = [] CalendarAttributes.PopupYearOptions.NumberColumns = 4 CalendarAttributes.PopupYearOptions.StartYear = 2000 CalendarAttributes.PopupYearOptions.ShowEditYear = True Color = 15189677 DataField = #24320#31080#26085#26399 DateFormat = dfLong DataSource = t_ch_invoice1 Date = 38803 Epoch = 1950 ButtonEffects.Flat = True ParentBiDiMode = False ReadOnly = True ShowButton = True TabOrder = 0 DisplayFormat = 'yyyy/mm/dd' end object DE_ShipName: TDBEdit Left = 78 Top = 85 Width = 229 Height = 20 Color = 15189677 DataField = #33337#21517#33322#27425 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 1 end object DE_BLNO: TDBEdit Left = 372 Top = 85 Width = 160 Height = 20 Color = 15189677 DataField = #25552#21333#21495 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 2 end object wwDBDateTimePicker2: TwwDBDateTimePicker Left = 610 Top = 85 Width = 142 Height = 20 BiDiMode = bdLeftToRight CalendarAttributes.Font.Charset = DEFAULT_CHARSET CalendarAttributes.Font.Color = clWindowText CalendarAttributes.Font.Height = -11 CalendarAttributes.Font.Name = 'MS Sans Serif' CalendarAttributes.Font.Style = [] CalendarAttributes.PopupYearOptions.NumberColumns = 4 CalendarAttributes.PopupYearOptions.StartYear = 2000 CalendarAttributes.PopupYearOptions.ShowEditYear = True Color = 15189677 DataField = #24320#33337#26085#26399 DateFormat = dfLong DataSource = t_ch_invoice1 Date = 38504 Epoch = 1950 ButtonEffects.Flat = True ParentBiDiMode = False ReadOnly = True ShowButton = True TabOrder = 3 DisplayFormat = 'yyyy/mm/dd' end object dbmmoDM_ChaCon: TDBMemo Left = 6 Top = 169 Width = 245 Height = 96 Color = 15189677 DataField = #36135#29289#25551#36848 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 4 end object dbmmoDM_CostType: TDBMemo Left = 250 Top = 169 Width = 179 Height = 96 Color = 15189677 DataField = #36153#29992#21015#34920 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 5 end object dbmmoDM_Money: TDBMemo Left = 430 Top = 169 Width = 156 Height = 96 Alignment = taRightJustify BiDiMode = bdLeftToRight Color = 15189677 DataField = #37329#39069#21015#34920 DataSource = t_ch_invoice1 ParentBiDiMode = False ReadOnly = True TabOrder = 6 end object dbmmoDM: TDBMemo Left = 585 Top = 169 Width = 167 Height = 96 Color = 15189677 DataField = #22791#27880 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 7 end object DE_SumUpper: TDBEdit Left = 106 Top = 275 Width = 323 Height = 20 Color = 15189677 DataField = #37329#39069#22823#20889 DataSource = t_ch_invoice1 TabOrder = 8 end object DBSumLower: TDBEdit Left = 479 Top = 276 Width = 108 Height = 20 BiDiMode = bdLeftToRight Color = 15189677 DataField = #21512#35745#37329#39069 DataSource = t_ch_invoice1 ParentBiDiMode = False ReadOnly = True TabOrder = 9 end object DE_BusnessNo: TDBEdit Left = 180 Top = 442 Width = 249 Height = 20 Color = 15189677 DataField = #24037#21830#30331#35760#21495 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 10 end object DE_TaxNo: TDBEdit Left = 180 Top = 467 Width = 249 Height = 20 Color = 15189677 DataField = #31246#21153#30331#35760#21495 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 11 end object DE_Maker: TDBEdit Left = 479 Top = 441 Width = 108 Height = 20 Color = 15189677 DataField = #21046#21333#20154 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 12 end object wwDBDateTimePicker3: TwwDBDateTimePicker Left = 635 Top = 467 Width = 117 Height = 20 BiDiMode = bdLeftToRight CalendarAttributes.Font.Charset = DEFAULT_CHARSET CalendarAttributes.Font.Color = clWindowText CalendarAttributes.Font.Height = -11 CalendarAttributes.Font.Name = 'MS Sans Serif' CalendarAttributes.Font.Style = [] CalendarAttributes.PopupYearOptions.NumberColumns = 4 CalendarAttributes.PopupYearOptions.StartYear = 2000 CalendarAttributes.PopupYearOptions.ShowEditYear = True Color = 15189677 DataField = #22797#26680#26085#26399 DateFormat = dfLong DataSource = t_ch_invoice1 Epoch = 1950 ButtonEffects.Transparent = True ButtonEffects.Flat = True ParentBiDiMode = False ReadOnly = True ShowButton = True TabOrder = 13 DisplayFormat = 'yyyy/mm/dd' end object wwDBLookupCombo6: TwwDBLookupCombo Left = 635 Top = 276 Width = 117 Height = 20 DropDownAlignment = taLeftJustify Selected.Strings = ( #24065#21035#9'3'#9#24065#21035#9'F'#9 #20013#25991#21517#9'20'#9#20013#25991#21517#9'F'#9) DataField = #24065#21035 DataSource = t_ch_invoice1 LookupTable = frm_data_share.t_code_currency LookupField = #24065#21035 Color = 15189677 ButtonEffects.Transparent = True ButtonEffects.Flat = True ReadOnly = True TabOrder = 14 AutoDropDown = True ShowButton = True PreciseEditRegion = False AllowClearKey = False ShowMatchText = True end object wwDBLookupCombo7: TwwDBLookupCombo Left = 479 Top = 467 Width = 108 Height = 20 DropDownAlignment = taLeftJustify Selected.Strings = ( #22995#21517#9'10'#9#22995#21517#9'F'#9) DataField = #22797#26680#20154 DataSource = t_ch_invoice1 LookupTable = frm_data_share.t_sys_employee LookupField = #22995#21517 Color = 15189677 ButtonEffects.Transparent = True ButtonEffects.Flat = True ReadOnly = True TabOrder = 15 AutoDropDown = True ShowButton = True PreciseEditRegion = False AllowClearKey = False ShowMatchText = True end object DBCheckBox3: TDBCheckBox Left = 587 Top = 443 Width = 64 Height = 17 Alignment = taLeftJustify BiDiMode = bdLeftToRight Caption = #22797#26680#29366#24577 Color = 15189677 DataField = #22797#26680#29366#24577 DataSource = t_ch_invoice1 Font.Charset = GB2312_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentBiDiMode = False ParentColor = False ParentFont = False ReadOnly = True TabOrder = 16 ValueChecked = 'True' ValueUnchecked = 'False' end object wwDBLookupCombo10: TwwDBLookupCombo Left = 70 Top = 118 Width = 169 Height = 20 DropDownAlignment = taLeftJustify Selected.Strings = ( #33521#25991#21517#9'60'#9#33521#25991#21517#9'F') DataField = #21551#36816#28207 DataSource = t_ch_invoice1 LookupTable = frm_data_share.t_code_loaport LookupField = #33521#25991#21517 Color = 15189677 DropDownCount = 12 ButtonEffects.Transparent = True ButtonEffects.Flat = True ReadOnly = True TabOrder = 17 AutoDropDown = False ShowButton = True PreciseEditRegion = False AllowClearKey = False ShowMatchText = True end object wwDBLookupCombo11: TwwDBLookupCombo Left = 305 Top = 118 Width = 198 Height = 20 DropDownAlignment = taLeftJustify Selected.Strings = ( #33521#25991#21517#9'42'#9#33521#25991#21517#9'F'#9) DataField = #21368#36135#28207 DataSource = t_ch_invoice1 LookupTable = frm_data_share.t_code_disport LookupField = #33521#25991#21517 Color = 15189677 DropDownCount = 12 ButtonEffects.Transparent = True ButtonEffects.Flat = True ReadOnly = True TabOrder = 18 AutoDropDown = False ShowButton = True PreciseEditRegion = False AllowClearKey = False ShowMatchText = True end object wwDBLookupCombo12: TwwDBLookupCombo Left = 583 Top = 118 Width = 169 Height = 20 DropDownAlignment = taLeftJustify Selected.Strings = ( #33521#25991#21517#9'42'#9#33521#25991#21517#9'F'#9) DataField = #30446#30340#28207 DataSource = t_ch_invoice1 LookupTable = frm_data_share.t_code_disport LookupField = #33521#25991#21517 Color = 15189677 DropDownCount = 12 ButtonEffects.Transparent = True ButtonEffects.Flat = True ReadOnly = True TabOrder = 19 AutoDropDown = False ShowButton = True PreciseEditRegion = False AllowClearKey = False ShowMatchText = True end object DBEdit27: TDBEdit Left = 583 Top = 28 Width = 169 Height = 20 Color = 15189677 DataField = #38134#34892#36134#21495 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 20 end object DBEdit29: TDBEdit Left = 583 Top = 53 Width = 169 Height = 20 Color = 15189677 DataField = #22996#25176#32534#21495 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 21 end object ComboBoxObjBsCard: TDBComboBox Left = 56 Top = 51 Width = 249 Height = 20 Color = 15189677 DataField = #21457#31080#25260#22836 DataSource = t_ch_invoice1 ItemHeight = 12 TabOrder = 22 end object dbedt1: TDBEdit Left = 56 Top = 51 Width = 229 Height = 20 Color = 15189677 DataField = #21457#31080#25260#22836 DataSource = t_ch_invoice1 ReadOnly = True TabOrder = 23 end object RxDBLookupCombo2: TRxDBLookupCombo Left = 583 Top = 5 Width = 169 Height = 21 DropDownCount = 8 DropDownWidth = 320 DisplayAllFields = True Color = 15189677 DataField = #24320#25143#38134#34892 DataSource = t_ch_invoice1 LookupField = #38134#34892#21517#31216 LookupDisplay = #20195#30721';'#38134#34892#21517#31216 LookupSource = frm_data_share.t_sys_bank1 ReadOnly = True TabOrder = 24 end object cxGrid2: TcxGrid Left = 0 Top = 309 Width = 753 Height = 90 TabOrder = 25 object cxGridDBTableView1: TcxGridDBTableView DataController.DataSource = t_ch_invoice_item1 DataController.DetailKeyFieldNames = 'ITEMID' DataController.Filter.Criteria = {FFFFFFFF0000000000} DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Format = #21512#35745 Kind = skCount Column = cxGridDBColumn1 end item Format = ',0.00;-,0.00' Kind = skSum Column = cxGridDBColumn6 end item Format = ',0.00;-,0.00' Kind = skSum Column = cxGridDBColumn8 end item Format = #37329#39069 Kind = skCount Column = cxGridDBColumn5 end item Format = #31246#39069 Kind = skCount Column = cxGridDBColumn7 end> DataController.Summary.SummaryGroups = <> NavigatorButtons.ConfirmDelete = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Editing = False OptionsData.Inserting = False OptionsView.Footer = True OptionsView.GroupByBox = False object cxGridDBColumn1: TcxGridDBColumn HeaderAlignmentHorz = taCenter Options.Filtering = False Width = 113 DataBinding.FieldName = #21830#21697#21517#31216 end object cxGridDBColumn2: TcxGridDBColumn HeaderAlignmentHorz = taCenter Options.Filtering = False SortOrder = soAscending Width = 60 DataBinding.FieldName = #35268#26684#22411#21495 end object cxGridDBColumn3: TcxGridDBColumn HeaderAlignmentHorz = taCenter Options.Filtering = False Width = 60 DataBinding.FieldName = #35745#37327#21333#20301 end object cxGridDBColumn4: TcxGridDBColumn PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = ',0.00;-,0.00' HeaderAlignmentHorz = taCenter Options.Filtering = False Width = 48 DataBinding.FieldName = #25968#37327 end object cxGridDBColumn5: TcxGridDBColumn Caption = #21333#20215'('#19981#21547#31246')' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = ',0.00;-,0.00' HeaderAlignmentHorz = taCenter Options.Filtering = False Width = 96 DataBinding.FieldName = #21333#20215 end object cxGridDBColumn6: TcxGridDBColumn Caption = #37329#39069'('#19981#21547#31246')' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = ',0.00;-,0.00' HeaderAlignmentHorz = taCenter Options.Filtering = False Width = 93 DataBinding.FieldName = #37329#39069 end object cxGridDBColumn7: TcxGridDBColumn PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = ',0.00;-,0.00' HeaderAlignmentHorz = taCenter Options.Filtering = False Width = 55 DataBinding.FieldName = #31246#29575 end object cxGridDBColumn8: TcxGridDBColumn PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = ',0.00;-,0.00' HeaderAlignmentHorz = taCenter Options.Filtering = False Width = 50 DataBinding.FieldName = #31246#39069 end end object cxGridLevel1: TcxGridLevel GridView = cxGridDBTableView1 end end object t_ch_invoice1: TDataSource Left = 164 Top = 136 end object t_ch_invoice_item1: TDataSource DataSet = t_ch_invoice_item Left = 292 Top = 196 end object t_ch_invoice_item: TADOQuery Connection = frm_main.db CursorType = ctStatic DataSource = t_ch_invoice1 Parameters = < item Name = 'IN_ID' Attributes = [paSigned, paNullable] DataType = ftInteger Precision = 10 Size = 4 Value = Null end> SQL.Strings = ( 'select * from t_ch_invoice_item' 'where IN_ID=:IN_ID') Left = 264 Top = 228 end end