unit u_ch_invoice_view; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, RxLookup, StdCtrls, DBCtrls, wwdblook, Mask, wwdbdatetimepicker, ExtCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxCurrencyEdit, ADODB, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid; type Tfrm_ch_invoice_view = class(TForm) t_ch_invoice1: TDataSource; shp1: TShape; lbl1: TLabel; lbl2: TLabel; lbl3: TLabel; lbl4: TLabel; shp2: TShape; lbl5: TLabel; lbl6: TLabel; shp3: TShape; lbl7: TLabel; lbl8: TLabel; shp4: TShape; shp5: TShape; lbl9: TLabel; lbl10: TLabel; lbl11: TLabel; lbl12: TLabel; shp6: TShape; lbl13: TLabel; lbl14: TLabel; shp7: TShape; lbl15: TLabel; lbl16: TLabel; shp8: TShape; shp9: TShape; lbl17: TLabel; shp10: TShape; shp11: TShape; shp12: TShape; lbl18: TLabel; lbl19: TLabel; shp13: TShape; lbl20: TLabel; lbl21: TLabel; lbl22: TLabel; lbl23: TLabel; lbl24: TLabel; lbl25: TLabel; lbl26: TLabel; lbl27: TLabel; lbl28: TLabel; lbl29: TLabel; lbl30: TLabel; lbl31: TLabel; lbl32: TLabel; shp14: TShape; lbl33: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; DE_ShipName: TDBEdit; DE_BLNO: TDBEdit; wwDBDateTimePicker2: TwwDBDateTimePicker; dbmmoDM_ChaCon: TDBMemo; dbmmoDM_CostType: TDBMemo; dbmmoDM_Money: TDBMemo; dbmmoDM: TDBMemo; DE_SumUpper: TDBEdit; DBSumLower: TDBEdit; DE_BusnessNo: TDBEdit; DE_TaxNo: TDBEdit; DE_Maker: TDBEdit; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBLookupCombo6: TwwDBLookupCombo; wwDBLookupCombo7: TwwDBLookupCombo; DBCheckBox3: TDBCheckBox; wwDBLookupCombo10: TwwDBLookupCombo; wwDBLookupCombo11: TwwDBLookupCombo; wwDBLookupCombo12: TwwDBLookupCombo; DBEdit27: TDBEdit; DBEdit29: TDBEdit; ComboBoxObjBsCard: TDBComboBox; dbedt1: TDBEdit; lbl34: TLabel; lbl35: TLabel; RxDBLookupCombo2: TRxDBLookupCombo; lbl36: TLabel; cxGrid2: TcxGrid; cxGridDBTableView1: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; t_ch_invoice_item1: TDataSource; t_ch_invoice_item: TADOQuery; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_ch_invoice_view: Tfrm_ch_invoice_view; implementation {$R *.dfm} procedure Tfrm_ch_invoice_view.FormShow(Sender: TObject); begin t_ch_invoice_item.Close; t_ch_invoice_item.Open; end; end.