unit_rubb_matercard.~dfm

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

object Form_Rubb_MaterCard: TForm_Rubb_MaterCard
  Left = 238
  Top = 100
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  ActiveControl = BitBtn_Ins
  BorderStyle = bsDialog
  Caption = '宁波市巨龙橡塑有限公司 炼胶车间管理系统'
  ClientHeight = 399
  ClientWidth = 494
  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 DBGrid1: TDBGrid
    Left = 3
    Top = 5
    Width = 478
    Height = 201
    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 = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = '标识号'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = '主表标识号'
        Visible = False
      end
      item
        Expanded = False
        FieldName = '配方编号'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'riqi'
        Title.Alignment = taCenter
        Title.Caption = '日 期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = '材料名称'
        Title.Alignment = taCenter
        Width = 107
        Visible = True
      end
      item
        Expanded = False
        FieldName = '领料单号'
        Title.Alignment = taCenter
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = '用料数量'
        Title.Alignment = taCenter
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = '单价'
        Title.Alignment = taCenter
        Width = 39
        Visible = True
      end
      item
        Expanded = False
        FieldName = '金额'
        Title.Alignment = taCenter
        Width = 61
        Visible = True
      end>
  end
  object BitBtn_Ins: TBitBtn
    Left = 10
    Top = 222
    Width = 65
    Height = 25
    Caption = '添加'
    TabOrder = 1
    OnClick = BitBtn_InsClick
  end
  object BitBtn_Del: TBitBtn
    Left = 88
    Top = 222
    Width = 65
    Height = 25
    Caption = '删除'
    TabOrder = 2
    TabStop = False
    OnClick = BitBtn_DelClick
  end
  object BitBtn_Mod: TBitBtn
    Left = 168
    Top = 222
    Width = 65
    Height = 25
    Caption = '修改'
    TabOrder = 3
    TabStop = False
    OnClick = BitBtn_ModClick
  end
  object BitBtn_Post: TBitBtn
    Left = 248
    Top = 222
    Width = 65
    Height = 25
    Caption = '提交'
    TabOrder = 8
    OnClick = BitBtn_PostClick
  end
  object BitBtn_Cancel: TBitBtn
    Left = 328
    Top = 222
    Width = 65
    Height = 25
    Caption = '取消'
    TabOrder = 9
    TabStop = False
    OnClick = BitBtn_CancelClick
  end
  object Panel1: TPanel
    Left = 7
    Top = 278
    Width = 474
    Height = 99
    TabOrder = 4
    object Panel2: TPanel
      Left = 24
      Top = 38
      Width = 80
      Height = 22
      Caption = '材料名称'
      TabOrder = 6
    end
    object Panel3: TPanel
      Left = 24
      Top = 16
      Width = 80
      Height = 22
      Caption = '配方编号'
      TabOrder = 5
    end
    object Panel4: TPanel
      Left = 226
      Top = 38
      Width = 94
      Height = 22
      Caption = '单价(元)'
      TabOrder = 7
    end
    object Panel5: TPanel
      Left = 24
      Top = 60
      Width = 80
      Height = 22
      Caption = '领料单号'
      TabOrder = 8
    end
    object Panel6: TPanel
      Left = 226
      Top = 16
      Width = 94
      Height = 22
      Caption = '用料数量(kg)'
      TabOrder = 9
    end
    object DBEdit_IgdCode: TDBEdit
      Left = 104
      Top = 16
      Width = 121
      Height = 22
      DataField = '配方编号'
      DataSource = DS_MaterCard
      TabOrder = 0
      OnEnter = DBEdit_IgdCodeEnter
      OnExit = DBEdit_MaterExit
    end
    object DBEdit_Mater: TDBEdit
      Left = 104
      Top = 38
      Width = 121
      Height = 22
      DataField = '材料名称'
      DataSource = DS_MaterCard
      TabOrder = 1
      OnChange = DBEdit_MaterChange
      OnEnter = DBEdit_MaterEnter
      OnExit = DBEdit_MaterExit
    end
    object DBEdit_Per: TDBEdit
      Left = 320
      Top = 38
      Width = 121
      Height = 22
      DataField = '单价'
      DataSource = DS_MaterCard
      TabOrder = 4
      OnEnter = DBEdit_MaterEnter
      OnExit = DBEdit_MaterExit
    end
    object DBEdit_OutCardNum: TDBEdit
      Left = 104
      Top = 60
      Width = 121
      Height = 22
      DataField = '领料单号'
      DataSource = DS_MaterCard
      TabOrder = 2
      OnEnter = DBEdit_MaterEnter
      OnExit = DBEdit_MaterExit
    end
    object DBEdit_Wt: TDBEdit
      Left = 320
      Top = 16
      Width = 121
      Height = 22
      DataField = '用料数量'
      DataSource = DS_MaterCard
      TabOrder = 3
      OnEnter = DBEdit_MaterEnter
      OnExit = DBEdit_MaterExit
    end
    object Panel7: TPanel
      Left = 226
      Top = 60
      Width = 95
      Height = 26
      Caption = '领料日期'
      TabOrder = 10
    end
    object DateTimePicker1: TDateTimePicker
      Left = 320
      Top = 59
      Width = 121
      Height = 26
      CalAlignment = dtaLeft
      Date = 37229.0316832176
      Time = 37229.0316832176
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 11
    end
  end
  object DBEdit_Mid: TDBEdit
    Left = 376
    Top = 248
    Width = 65
    Height = 22
    DataField = '主表标识号'
    DataSource = DS_MaterCard
    TabOrder = 5
    Visible = False
  end
  object MID: TPanel
    Left = 328
    Top = 248
    Width = 48
    Height = 22
    Caption = 'MID'
    TabOrder = 6
    Visible = False
  end
  object DBEdit_Money: TDBEdit
    Left = 224
    Top = 248
    Width = 65
    Height = 22
    DataField = '金额'
    DataSource = DS_MaterCard
    TabOrder = 7
    Visible = False
  end
  object BitBtn1: TBitBtn
    Left = 408
    Top = 222
    Width = 65
    Height = 25
    Caption = '返回'
    TabOrder = 10
    TabStop = False
    Kind = bkClose
  end
  object Qry_MaterCard: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      
        'SELECT 标识号, 主表标识号, 配方编号, 材料名称, riqi, 领料单号, ' +
        '用料数量, 单价, 金额'
      'FROM "炼胶用料单.DB" 炼胶用料单')
    Left = 336
    Top = 32
  end
  object Tab_MaterCard: TTable
    DatabaseName = 'JL2000'
    TableName = '炼胶用料单.db'
    Left = 136
    Top = 40
  end
  object DS_Show: TDataSource
    DataSet = Qry_MaterCard
    Left = 320
    Top = 48
  end
  object DS_MaterCard: TDataSource
    DataSet = Tab_MaterCard
    Left = 128
    Top = 56
  end
  object Qry_exe: TQuery
    DatabaseName = 'JL2000'
    Left = 336
    Top = 104
  end
end