jlookupf.dfm

超市系统开发 超市系统开发 超市系统开发 超市系统开发

object FMLOOKUP: TFMLOOKUP
  Left = 340
  Top = 25
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = '相关数据快速查询'
  ClientHeight = 533
  ClientWidth = 442
  Color = 14598887
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 5
    Top = 36
    Width = 24
    Height = 16
    Caption = '编号'
  end
  object Label2: TLabel
    Left = 150
    Top = 36
    Width = 24
    Height = 16
    Caption = '名称'
  end
  object BTNSER1: TSpeedButton
    Left = 96
    Top = 32
    Width = 50
    Height = 24
    Cursor = crHandPoint
    AllowAllUp = True
    Caption = '&1 查询'
    OnClick = BTNSER1Click
  end
  object BTNSER2: TSpeedButton
    Left = 241
    Top = 32
    Width = 50
    Height = 24
    Cursor = crHandPoint
    AllowAllUp = True
    Caption = '&2 查询'
    OnClick = BTNSER2Click
  end
  object BTNSER3: TSpeedButton
    Left = 391
    Top = 32
    Width = 50
    Height = 24
    Cursor = crHandPoint
    AllowAllUp = True
    Caption = '&3 查询'
    OnClick = BTNSER3Click
  end
  object Label3: TLabel
    Left = 295
    Top = 36
    Width = 48
    Height = 16
    Caption = '第二编号'
  end
  object BTNSER: TSpeedButton
    Left = 26
    Top = 2
    Width = 200
    Height = 25
    Cursor = crHandPoint
    AllowAllUp = True
    Caption = '&C 清除'
    OnClick = BTNSERClick
  end
  object BTNQUT: TSpeedButton
    Left = 226
    Top = 2
    Width = 200
    Height = 25
    Cursor = crHandPoint
    Caption = '&Q 取消 esc'
    OnClick = BTNQUTClick
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 60
    Width = 441
    Height = 471
    Ctl3D = False
    DataSource = DataSource1
    ImeName = '中文 (简体) - 智能 ABC'
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnCellClick = DBGrid1CellClick
    OnKeyDown = DBGrid1KeyDown
    OnTitleClick = DBGrid2TitleClick
    Columns = <
      item
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '相关编号'
        Title.Color = 15981773
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '相关名称'
        Title.Color = 8702971
        Width = 267
        Visible = True
      end>
  end
  object ED_IDNO: TEdit
    Left = 35
    Top = 32
    Width = 60
    Height = 22
    Ctl3D = False
    ImeName = '中文 (简体) - 智能 ABC'
    ParentCtl3D = False
    TabOrder = 1
    OnKeyDown = ED_IDNOKeyDown
  end
  object ED_NAME: TEdit
    Left = 180
    Top = 32
    Width = 60
    Height = 22
    Ctl3D = False
    ImeName = '中文 (简体) - 智能 ABC'
    ParentCtl3D = False
    TabOrder = 2
    OnKeyDown = ED_NAMEKeyDown
  end
  object DBGrid2: TDBGrid
    Left = 81
    Top = 72
    Width = 441
    Height = 471
    Ctl3D = False
    DataSource = DataSource1
    ImeName = '中文 (简体) - 智能 ABC'
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnCellClick = DBGrid1CellClick
    OnKeyDown = DBGrid1KeyDown
    OnTitleClick = DBGrid2TitleClick
    Columns = <
      item
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '相关编号'
        Title.Color = 9742846
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '相关名称'
        Title.Color = 16694659
        Width = 170
        Visible = True
      end
      item
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '相关信息'
        Title.Color = 16694659
        Width = 120
        Visible = True
      end>
  end
  object ED_MARK: TEdit
    Left = 350
    Top = 32
    Width = 40
    Height = 22
    Ctl3D = False
    ImeName = '中文 (简体) - 智能 ABC'
    ParentCtl3D = False
    TabOrder = 4
    OnKeyDown = ED_NAMEKeyDown
  end
  object QCHECK: TQuery
    Left = 305
    Top = 157
  end
  object DataSource1: TDataSource
    DataSet = QCHECK
    Left = 305
    Top = 205
  end
  object MainMenu1: TMainMenu
    Left = 400
    Top = 120
    object ESC: TMenuItem
      Caption = '取消ESC'
      ShortCut = 27
      Visible = False
      OnClick = ESCClick
    end
  end
end