unitqueryid.dfm

来自「此代码为企业原料管理代码」· DFM 代码 · 共 145 行

object frmCommQueryID: TfrmCommQueryID
  Left = 205
  Top = 116
  Width = 522
  Height = 418
  Caption = 'frmCommQueryID'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object BitBtn1: TBitBtn
    Left = 336
    Top = 358
    Width = 75
    Height = 25
    TabOrder = 1
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 416
    Top = 358
    Width = 75
    Height = 25
    TabOrder = 2
    Kind = bkCancel
  end
  object PageControl1: TPageControl
    Left = 31
    Top = 12
    Width = 394
    Height = 325
    ActivePage = TabSheet5
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      object Label4: TLabel
        Left = 160
        Top = 8
        Width = 48
        Height = 12
        Caption = '员工姓名'
      end
      object Label3: TLabel
        Left = 24
        Top = 8
        Width = 48
        Height = 12
        Caption = '员工代号'
      end
      object eStaffID: TEdit
        Left = 24
        Top = 26
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 0
        OnKeyDown = eStaffIDKeyDown
      end
      object dbeStaffName: TDBEdit
        Left = 160
        Top = 26
        Width = 121
        Height = 20
        Color = clYellow
        DataField = 'StaffName'
        DataSource = DM.dsStaff
        TabOrder = 1
      end
      object dbgStaff: TDBGrid
        Left = 32
        Top = 80
        Width = 345
        Height = 169
        DataSource = DM.dsStaff
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 2
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'TabSheet5'
      ImageIndex = 4
      object Label9: TLabel
        Left = 48
        Top = 8
        Width = 48
        Height = 12
        Caption = '产品代号'
      end
      object Label10: TLabel
        Left = 232
        Top = 8
        Width = 54
        Height = 12
        Caption = '产品名称 '
      end
      object dbgProdDictionary: TDBGrid
        Left = 24
        Top = 80
        Width = 353
        Height = 185
        DataSource = DM.dsProdDictionary
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
      object eProdID: TEdit
        Left = 48
        Top = 24
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 1
        Text = 'eProdID'
        OnChange = eProdIDChange
        OnKeyDown = eProdIDKeyDown
      end
      object DBEdit1: TDBEdit
        Left = 232
        Top = 24
        Width = 121
        Height = 20
        Color = clYellow
        DataField = 'ProdName'
        DataSource = DM.dsProdDictionary
        TabOrder = 2
      end
    end
  end
end