unit_rubb_mixcard2.dfm

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

object Form_Rubb_MixCard2: TForm_Rubb_MixCard2
  Left = 229
  Top = 101
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsDialog
  Caption = '宁波市巨龙橡塑有限公司 炼胶车间管理系统'
  ClientHeight = 409
  ClientWidth = 469
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object BitBtn_Ins: TBitBtn
    Left = 20
    Top = 275
    Width = 60
    Height = 24
    Caption = '添加'
    TabOrder = 0
    OnClick = BitBtn_InsClick
  end
  object BitBtn_Del: TBitBtn
    Left = 88
    Top = 275
    Width = 60
    Height = 24
    Caption = '删除'
    TabOrder = 3
    TabStop = False
    OnClick = BitBtn_DelClick
  end
  object BitBtn_Mod: TBitBtn
    Left = 156
    Top = 275
    Width = 60
    Height = 24
    Caption = '修改'
    TabOrder = 4
    TabStop = False
    OnClick = BitBtn_ModClick
  end
  object BitBtn_Post: TBitBtn
    Left = 228
    Top = 275
    Width = 60
    Height = 24
    Caption = '提交'
    TabOrder = 2
    OnClick = BitBtn_PostClick
  end
  object BitBtn_Cancel: TBitBtn
    Left = 300
    Top = 275
    Width = 60
    Height = 24
    Caption = '取消'
    TabOrder = 5
    TabStop = False
    OnClick = BitBtn_CancelClick
  end
  object Panel1: TPanel
    Left = 16
    Top = 322
    Width = 435
    Height = 72
    TabOrder = 1
    TabStop = True
    object DBEdit_Mater: TDBEdit
      Left = 105
      Top = 14
      Width = 121
      Height = 22
      DataField = '材料名称'
      DataSource = DS_MixCard
      TabOrder = 1
      OnChange = DBEdit_MaterChange
      OnEnter = DBEdit_MaterEnter
      OnExit = DBEdit_MaterExit
    end
    object Panel2: TPanel
      Left = 32
      Top = 14
      Width = 73
      Height = 22
      Caption = '材料简称'
      TabOrder = 4
    end
    object Panel3: TPanel
      Left = 32
      Top = 36
      Width = 57
      Height = 22
      Caption = '百分比'
      TabOrder = 5
    end
    object Panel5: TPanel
      Left = 133
      Top = 36
      Width = 44
      Height = 22
      Caption = '份数'
      TabOrder = 6
    end
    object DBEdit_Per: TDBEdit
      Left = 81
      Top = 36
      Width = 50
      Height = 22
      DataField = '百分比'
      DataSource = DS_MixCard
      TabOrder = 2
      OnEnter = DBEdit_MaterEnter
      OnExit = DBEdit_PerExit
    end
    object DBEdit_Mul: TDBEdit
      Left = 177
      Top = 36
      Width = 49
      Height = 22
      Color = clBtnFace
      DataField = '份数'
      DataSource = DS_MixCard
      Enabled = False
      TabOrder = 3
      OnEnter = DBEdit_MaterEnter
      OnExit = DBEdit_MulExit
    end
    object RadioGroup1: TRadioGroup
      Left = 257
      Top = 8
      Width = 129
      Height = 51
      ItemIndex = 0
      Items.Strings = (
        '按百分比配方'
        '按份数配方')
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 12
    Top = 54
    Width = 442
    Height = 213
    TabStop = False
    DataSource = DS_Show
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 6
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '标识号'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '配方编号'
        Title.Alignment = taCenter
        Width = 52
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '材料名称'
        Title.Alignment = taCenter
        Width = 107
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '份数'
        Title.Alignment = taCenter
        Width = 56
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '百分比'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '制成品名称'
        Title.Alignment = taCenter
        Title.Caption = '胶料名称'
        Width = 122
        Visible = True
      end>
  end
  object DBEdit_MixCard: TDBEdit
    Left = 64
    Top = 300
    Width = 129
    Height = 22
    DataField = '配方编号'
    DataSource = DS_MixCard
    TabOrder = 7
    Visible = False
  end
  object DBEdit_Rubb: TDBEdit
    Left = 304
    Top = 300
    Width = 113
    Height = 22
    DataField = '制成品名称'
    DataSource = DS_MixCard
    TabOrder = 8
    Visible = False
  end
  object BitBtn1: TBitBtn
    Left = 378
    Top = 275
    Width = 60
    Height = 24
    Caption = '返回'
    TabOrder = 9
    TabStop = False
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object Panel6: TPanel
    Left = 12
    Top = 12
    Width = 443
    Height = 41
    Caption = '配 方 生 成 器'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -32
    Font.Name = '隶书'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object Tab_MixCard: TTable
    DatabaseName = 'JL2000'
    TableName = '炼胶配方表.db'
    Left = 106
    Top = 85
  end
  object DS_Show: TDataSource
    DataSet = Qry_MixCard
    Left = 250
    Top = 85
  end
  object Qry_MixCard: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'SELECT 标识号, 配方编号, 制成品名称, 材料名称, 份数, 百分比'
      'FROM "炼胶配方表.db" 炼胶配方表')
    Left = 290
    Top = 77
  end
  object DS_MixCard: TDataSource
    DataSet = Tab_MixCard
    Left = 154
    Top = 93
  end
  object Qry_exe: TQuery
    DatabaseName = 'JL2000'
    Left = 362
    Top = 21
  end
end