unitqueryid.dfm

此代码为企业原料管理代码

object frmCommQueryID: TfrmCommQueryID
  Left = 192
  Top = 123
  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 TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Label1: TLabel
        Left = 24
        Top = 8
        Width = 24
        Height = 12
        Caption = '简称'
      end
      object Label2: TLabel
        Left = 160
        Top = 8
        Width = 60
        Height = 12
        Caption = '原材料名称'
      end
      object eMaterShortCut: TEdit
        Left = 24
        Top = 24
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 0
        OnChange = eMaterShortCutChange
        OnKeyDown = eMaterShortCutKeyDown
      end
      object dbeMaterName: TDBEdit
        Left = 160
        Top = 24
        Width = 121
        Height = 20
        Color = clYellow
        DataField = 'MaterName'
        TabOrder = 1
      end
      object dbgDictionary: TDBGrid
        Left = 32
        Top = 80
        Width = 329
        Height = 177
        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 = []
        OnDblClick = dbgDictionaryDblClick
      end
      object cbFindStyle: TCheckBox
        Left = 303
        Top = 25
        Width = 97
        Height = 17
        Caption = '使用精确查找'
        Checked = True
        State = cbChecked
        TabOrder = 3
      end
    end
    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
        OnChange = eStaffIDChange
        OnKeyDown = eStaffIDKeyDown
      end
      object dbeStaffName: TDBEdit
        Left = 160
        Top = 26
        Width = 121
        Height = 20
        Color = clYellow
        DataField = 'StaffName'
        DataSource = DataSource1
        TabOrder = 1
      end
      object dbgStaff: TDBGrid
        Left = 16
        Top = 72
        Width = 345
        Height = 169
        DataSource = DataSource1
        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 = []
        OnDblClick = dbgStaffDblClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      object Label5: TLabel
        Left = 24
        Top = 8
        Width = 60
        Height = 12
        Caption = '制造商代号'
      end
      object Label6: TLabel
        Left = 192
        Top = 8
        Width = 36
        Height = 12
        Caption = '制造商'
      end
      object eManufacturerID: TEdit
        Left = 24
        Top = 24
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 0
        Text = 'eManufacturerID'
        OnChange = eManufacturerIDChange
        OnKeyDown = eManufacturerIDKeyDown
      end
      object dbeManufacturer: TDBEdit
        Left = 192
        Top = 24
        Width = 137
        Height = 20
        Color = clYellow
        DataField = 'Manufacturer'
        TabOrder = 1
      end
      object dbgManufacturer: TDBGrid
        Left = 24
        Top = 72
        Width = 345
        Height = 185
        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 = []
        OnDblClick = dbgManufacturerDblClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'TabSheet4'
      ImageIndex = 3
      object Label7: TLabel
        Left = 24
        Top = 8
        Width = 48
        Height = 12
        Caption = '车间代号'
      end
      object Label8: TLabel
        Left = 192
        Top = 8
        Width = 48
        Height = 12
        Caption = '车间名称'
      end
      object dbgWorkshop: TDBGrid
        Left = 24
        Top = 80
        Width = 369
        Height = 180
        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 = []
        OnDblClick = dbgWorkshopDblClick
      end
      object dbeWorkShop: TDBEdit
        Left = 192
        Top = 27
        Width = 121
        Height = 20
        Color = clYellow
        TabOrder = 1
      end
      object eWorkShopID: TEdit
        Left = 24
        Top = 27
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 2
        Text = 'eWorkShopID'
        OnChange = eWorkShopIDChange
        OnKeyDown = eWorkShopIDKeyDown
      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 = DataSource2
        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 = []
        OnDblClick = dbgProdDictionaryDblClick
      end
      object eProdID: TEdit
        Left = 48
        Top = 24
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 1
        OnChange = eProdIDChange
        OnKeyDown = eProdIDKeyDown
      end
      object DBEdit1: TDBEdit
        Left = 232
        Top = 24
        Width = 121
        Height = 20
        Color = clYellow
        DataField = 'ProdName'
        DataSource = DataSource2
        TabOrder = 2
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'TabSheet6'
      ImageIndex = 5
      object Label11: TLabel
        Left = 32
        Top = 8
        Width = 48
        Height = 12
        Caption = '配方编号'
      end
      object Label12: TLabel
        Left = 240
        Top = 8
        Width = 48
        Height = 12
        Caption = '产品名称'
      end
      object dbgRubbMethod: TDBGrid
        Left = 32
        Top = 96
        Width = 320
        Height = 120
        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 = []
        OnDblClick = dbgRubbMethodDblClick
      end
      object eRubbMethodID: TEdit
        Left = 32
        Top = 24
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 1
        Text = 'eRubbMethodID'
        OnChange = eRubbMethodIDChange
        OnKeyDown = eRubbMethodIDKeyDown
      end
      object dbeMethod: TDBEdit
        Left = 240
        Top = 24
        Width = 121
        Height = 20
        Color = clYellow
        DataField = 'ProdName'
        TabOrder = 2
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'TabSheet7'
      ImageIndex = 6
      object Label13: TLabel
        Left = 32
        Top = 24
        Width = 48
        Height = 12
        Caption = '胶料编号'
      end
      object Label14: TLabel
        Left = 184
        Top = 24
        Width = 48
        Height = 12
        Caption = '胶料名称'
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 88
        Width = 320
        Height = 177
        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 = []
        OnDblClick = DBGrid1DblClick
      end
      object eRubbID: TEdit
        Left = 32
        Top = 40
        Width = 121
        Height = 20
        Color = clAqua
        TabOrder = 1
        Text = 'eRubbID'
        OnChange = eRubbIDChange
      end
      object dbeRubbName: TDBEdit
        Left = 184
        Top = 40
        Width = 121
        Height = 20
        Color = clYellow
        DataField = 'RubbName'
        TabOrder = 2
      end
    end
  end
  object Tablename: TTable
    Active = True
    DatabaseName = 'JL2000'
    TableName = 'CommStaff.db'
    Left = 83
    Top = 155
  end
  object DataSource1: TDataSource
    DataSet = Tablename
    Left = 83
    Top = 187
  end
  object Tableprod: TTable
    Active = True
    DatabaseName = 'JL2000'
    TableName = 'ProdDictionary.DB'
    Left = 267
    Top = 155
  end
  object DataSource2: TDataSource
    DataSet = Tableprod
    Left = 267
    Top = 187
  end
end