DOS/V Power Report 1997 August/VPR9708A.ISO/D3TRIAL/INSTALL/DATA.Z/BRCSTORD.DFM/BRCSTORD.txt

Text File | 1997-05-13 | 4KB | 160 lines

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