unitqueryid.~dfm

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

object frmCommQueryID: TfrmCommQueryID
  Left = 259
  Top = 167
  BorderStyle = bsDialog
  Caption = '宁波巨龙橡塑有限公司'
  ClientHeight = 342
  ClientWidth = 398
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 5
    Top = 0
    Width = 388
    Height = 339
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = '职工名单'
      ImageIndex = 1
      object Label4: TLabel
        Left = 196
        Top = 6
        Width = 70
        Height = 14
        Caption = '职工姓名：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 70
        Height = 14
        Caption = '职工编号：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object eStaffID: TEdit
        Left = 72
        Top = 2
        Width = 88
        Height = 20
        CharCase = ecLowerCase
        Color = clWhite
        TabOrder = 1
        OnChange = eStaffIDChange
        OnKeyDown = eStaffIDKeyDown
      end
      object dbgStaff: TDBGrid
        Left = 0
        Top = 32
        Width = 380
        Height = 280
        BiDiMode = bdLeftToRight
        DataSource = DataSource3
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentBiDiMode = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = dbgStaffDblClick
        OnKeyPress = dbgStaffKeyPress
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'StaffID'
            Title.Alignment = taCenter
            Title.Caption = '编 号'
            Width = 76
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'StaffName'
            Title.Alignment = taCenter
            Title.Caption = '姓   名'
            Width = 119
            Visible = True
          end>
      end
      object dbeStaffName: TEdit
        Left = 259
        Top = 2
        Width = 79
        Height = 20
        ImeName = '智能ABC输入法'
        TabOrder = 2
        OnChange = dbeStaffNameChange
      end
    end
    object TabSheet5: TTabSheet
      Caption = '产品名称和图号'
      ImageIndex = 4
      object Label1: TLabel
        Left = 11
        Top = 259
        Width = 84
        Height = 14
        Caption = '请输入图号：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 122
        Top = 258
        Width = 112
        Height = 14
        Caption = '请输入产品名称：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object dbgProdDictionary: TDBGrid
        Left = 0
        Top = 0
        Width = 381
        Height = 249
        BiDiMode = bdLeftToRight
        DataSource = DataSource2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentBiDiMode = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = dbgProdDictionaryDblClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProdID'
            Title.Alignment = taCenter
            Title.Caption = '产品编号'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'FigID'
            Title.Alignment = taCenter
            Title.Caption = '图  号'
            Width = 118
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProdName'
            Title.Alignment = taCenter
            Title.Caption = '产品名称'
            Width = 135
            Visible = True
          end>
      end
      object BitBtn1: TBitBtn
        Left = 240
        Top = 276
        Width = 66
        Height = 26
        Caption = '确定'
        TabOrder = 1
        Kind = bkOK
      end
      object BitBtn2: TBitBtn
        Left = 314
        Top = 276
        Width = 64
        Height = 26
        Caption = '取消'
        TabOrder = 2
        Kind = bkCancel
      end
      object Edit1: TEdit
        Left = 11
        Top = 280
        Width = 97
        Height = 20
        TabOrder = 3
        OnChange = Edit1Change
      end
      object Edit2: TEdit
        Left = 123
        Top = 280
        Width = 105
        Height = 20
        TabOrder = 4
        OnChange = Edit2Change
      end
    end
    object TabSheet3: TTabSheet
      Caption = '客户单位名称'
      ImageIndex = 2
      object dbgManufacturer: TDBGrid
        Left = 0
        Top = 0
        Width = 380
        Height = 312
        DataSource = DataSource4
        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 = dbgStaffDblClick
        OnKeyPress = dbgManufacturerKeyPress
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ManufacturerID'
            Title.Alignment = taCenter
            Title.Caption = '编号'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Manufacturer'
            Title.Alignment = taCenter
            Title.Caption = '客户名称'
            Visible = True
          end>
      end
    end
    object TabSheet1: TTabSheet
      Caption = '公司部门'
      ImageIndex = 3
      object DBGrid1: TDBGrid
        Left = 1
        Top = 16
        Width = 377
        Height = 265
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        OnKeyPress = dbgStaffKeyPress
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'WorkShopID'
            Title.Alignment = taCenter
            Title.Caption = '编号'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'WorkShopName'
            Title.Alignment = taCenter
            Title.Caption = '部门名称'
            Width = 164
            Visible = True
          end>
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from ProdDictionary')
    Left = 241
    Top = 79
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 273
    Top = 79
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 89
    Top = 143
  end
  object Query3: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from commstaff')
    Left = 89
    Top = 111
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from Commworkshop')
    Left = 233
    Top = 191
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 185
    Top = 191
  end
  object Query4: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from CommManufacturer')
    Left = 185
    Top = 127
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 161
    Top = 95
  end
end