unitsulfdictionary.dfm

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

object FrmSulfDictionary: TFrmSulfDictionary
  Left = 242
  Top = 139
  BorderStyle = bsSingle
  Caption = 'FrmSulfDictionary'
  ClientHeight = 232
  ClientWidth = 291
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 291
    Height = 232
    ActivePage = TabSheet3
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '产品'
      object DBGrid1: TDBGrid
        Left = 0
        Top = 1
        Width = 462
        Height = 152
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        OnKeyPress = DBGrid1KeyPress
      end
      object DBNavigator1: TDBNavigator
        Left = 17
        Top = 160
        Width = 240
        Height = 25
        DataSource = DataSource1
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = '职工'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 3
        Width = 245
        Height = 135
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBGrid2DblClick
        OnKeyPress = DBGrid2KeyPress
      end
      object DBNavigator2: TDBNavigator
        Left = 2
        Top = 144
        Width = 240
        Height = 25
        DataSource = DataSource2
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = '检验员'
      ImageIndex = 2
      object DBGrid3: TDBGrid
        Left = 5
        Top = 2
        Width = 233
        Height = 120
        DataSource = DataSource3
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBGrid3DblClick
        OnKeyPress = DBGrid3KeyPress
      end
      object DBNavigator3: TDBNavigator
        Left = 6
        Top = 132
        Width = 220
        Height = 25
        DataSource = DataSource3
        TabOrder = 1
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = TableSulfDic
    Left = 21
    Top = 152
  end
  object TableSulfDic: TTable
    DatabaseName = 'JL2000'
    TableName = 'SulfCardDic.db'
    Left = 21
    Top = 120
    object TableSulfDicProdID: TStringField
      DisplayLabel = '产品编号'
      DisplayWidth = 8
      FieldName = 'ProdID'
      Size = 5
    end
    object TableSulfDicFigid: TStringField
      DisplayLabel = '图  号'
      DisplayWidth = 14
      FieldName = 'Figid'
      Size = 15
    end
    object TableSulfDicProdNameID: TStringField
      DisplayLabel = '产品名称'
      DisplayWidth = 11
      FieldName = 'ProdNameID'
      Size = 10
    end
    object TableSulfDicProdWeight: TFloatField
      DisplayLabel = '净重/克'
      DisplayWidth = 8
      FieldName = 'ProdWeight'
    end
    object TableSulfDicUnitSalary: TFloatField
      DisplayLabel = '加工价/元'
      DisplayWidth = 11
      FieldName = 'UnitSalary'
    end
    object TableSulfDicRubbPice: TFloatField
      DisplayLabel = '胶料价/元'
      DisplayWidth = 10
      FieldName = 'RubbPice'
    end
    object TableSulfDicProdPice: TFloatField
      DisplayLabel = '销售价/元'
      DisplayWidth = 10
      FieldName = 'ProdPice'
    end
  end
  object DataSource2: TDataSource
    DataSet = TableSulfName
    Left = 93
    Top = 152
  end
  object TableSulfName: TTable
    DatabaseName = 'JL2000'
    TableName = 'SulfCardDicName.db'
    Left = 93
    Top = 120
    object TableSulfNameNameID: TStringField
      DisplayLabel = '职工号'
      DisplayWidth = 11
      FieldName = 'NameID'
      Size = 8
    end
    object TableSulfNameName: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 13
      FieldName = 'Name'
      Size = 8
    end
  end
  object DataSource3: TDataSource
    DataSet = TableSulfCheck
    Left = 181
    Top = 152
  end
  object TableSulfCheck: TTable
    DatabaseName = 'JL2000'
    TableName = 'SulfCardDicCheck.db'
    Left = 181
    Top = 120
    object TableSulfCheckCheckID: TStringField
      DisplayLabel = '检验员号'
      DisplayWidth = 12
      FieldName = 'CheckID'
      Size = 8
    end
    object TableSulfCheckCheck: TStringField
      DisplayLabel = '检验员'
      DisplayWidth = 15
      FieldName = 'Check'
      Size = 8
    end
  end
end