object BrCustOrdForm: TBrCustOrdForm Left = 235 Top = 111 HelpContext = 1 ActiveControl = CustGrid BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Orders By Customer' ClientHeight = 260 ClientWidth = 343 Font.Charset = SHIFTJIS_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 11 object CtrlsPanel: TPanel Left = 0 Top = 0 Width = 343 Height = 30 Align = alTop BevelOuter = bvNone TabOrder = 1 object ActivateBtn: TSpeedButton Left = 238 Top = 3 Width = 80 Height = 22 AllowAllUp = True GroupIndex = 1 Caption = 'Activate Query' OnClick = ActivateQuery end object DefineBtn: TSpeedButton Left = 141 Top = 4 Width = 80 Height = 21 AllowAllUp = True Caption = '&Define Query' OnClick = SetQuery end object Bevel1: TBevel Left = 0 Top = 29 Width = 343 Height = 1 Align = alBottom Shape = bsTopLine end object Navigator: TDBNavigator Left = 7 Top = 4 Width = 110 Height = 21 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh] ParentShowHint = False ShowHint = True TabOrder = 0 end end object BtnPanel: TPanel Left = 0 Top = 229 Width = 343 Height = 31 Align = alClient BevelOuter = bvNone TabOrder = 3 object EditBtn: TButton Left = 187 Top = 5 Width = 71 Height = 21 Caption = '&Edit' TabOrder = 0 OnClick = EditBtnClick end object CloseBtn: TButton Left = 263 Top = 5 Width = 71 Height = 21 Cancel = True Caption = '&Close' Default = True TabOrder = 1 OnClick = CloseBtnClick end end object CustPanel: TPanel Left = 0 Top = 30 Width = 343 Height = 100 Align = alTop BevelOuter = bvNone TabOrder = 0 object CustGrid: TDBGrid Left = 5 Top = 3 Width = 333 Height = 93 DataSource = MastData.CustMasterSrc Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect] ReadOnly = True TabOrder = 0 TitleFont.Charset = SHIFTJIS_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = '�l�r �o�S�V�b�N' TitleFont.Style = [] OnDblClick = EditBtnClick OnEnter = CustGridEnter Columns = < item FieldName = 'CustNo' end item FieldName = 'Company' end item FieldName = 'Phone' end item FieldName = 'LastInvoiceDate' end> end end object OrdersPanel: TPanel Left = 0 Top = 130 Width = 343 Height = 99 Align = alTop BevelOuter = bvNone TabOrder = 2 object OrdersGrid: TDBGrid Left = 5 Top = 3 Width = 332 Height = 93 DataSource = MastData.OrdByCustSrc Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect] TabOrder = 0 TitleFont.Charset = SHIFTJIS_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = '�l�r �o�S�V�b�N' TitleFont.Style = [] OnDblClick = EditBtnClick OnEnter = OrdersGridEnter end end end