unit_modeinput.dfm

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

object Form_modeinput: TForm_modeinput
  Left = 52
  Top = 97
  Width = 734
  Height = 462
  Caption = 'Form_modeinput'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 7
    Top = 155
    Width = 710
    Height = 271
    DataSource = DataSource1
    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 = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Tmonth'
        Title.Alignment = taCenter
        Title.Caption = '月份'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Riqi'
        Title.Alignment = taCenter
        Title.Caption = '日  期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Alignment = taCenter
        Title.Caption = '姓 名'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Prodname'
        Title.Alignment = taCenter
        Title.Caption = '产品名称'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Figid'
        Title.Alignment = taCenter
        Title.Caption = '图  号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 83
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Lin'
        Title.Alignment = taCenter
        Title.Caption = '领坯数/只'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Linhuang'
        Title.Alignment = taCenter
        Title.Caption = '领簧数'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 44
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Hao'
        Title.Alignment = taCenter
        Title.Caption = '合格品数/只'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 73
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Xioufei'
        Title.Alignment = taCenter
        Title.Caption = '修废数/只'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Huai'
        Title.Alignment = taCenter
        Title.Caption = '硫废数/只'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Subsalary'
        Title.Alignment = taCenter
        Title.Caption = '补贴/元'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dissalary'
        Title.Alignment = taCenter
        Title.Caption = '扣款/元'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Checke'
        Title.Alignment = taCenter
        Title.Caption = '检验员'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bathao'
        Title.Alignment = taCenter
        Title.Caption = '生产批号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Note'
        Title.Alignment = taCenter
        Title.Caption = '备   注'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 130
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 206
    Top = 0
    Width = 287
    Height = 33
    Caption = '整修车间数据录入'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = '隶书'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 8
    Top = 33
    Width = 709
    Height = 122
    TabOrder = 2
    object Bevel1: TBevel
      Left = 1
      Top = 82
      Width = 528
      Height = 13
      Shape = bsTopLine
    end
    object Label1: TLabel
      Left = 558
      Top = 58
      Width = 75
      Height = 15
      Caption = '职工姓名：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 528
      Top = 51
      Width = 8
      Height = 90
    end
    object Bevel3: TBevel
      Left = -1
      Top = 48
      Width = 720
      Height = 4
      Shape = bsBottomLine
    end
    object Button4: TButton
      Left = 320
      Top = 90
      Width = 75
      Height = 25
      Caption = '提 交'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      OnClick = Button4Click
    end
    object Button3: TButton
      Left = 223
      Top = 90
      Width = 75
      Height = 25
      Caption = '修 改'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      OnClick = Button3Click
    end
    object Button2: TButton
      Left = 125
      Top = 90
      Width = 75
      Height = 25
      Caption = '删 除'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 31
      Top = 90
      Width = 75
      Height = 25
      Caption = '添 加'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      OnClick = Button1Click
    end
    object DBEdit1: TDBEdit
      Left = 82
      Top = 24
      Width = 63
      Height = 22
      AutoSize = False
      DataField = 'Name'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnEnter = DBEdit1Enter
      OnExit = DBEdit1Exit
    end
    object DBEdit3: TDBEdit
      Left = 145
      Top = 56
      Width = 100
      Height = 22
      AutoSize = False
      DataField = 'Bathao'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnEnter = DBEdit3Enter
      OnExit = DBEdit1Exit
    end
    object DBEdit4: TDBEdit
      Left = 275
      Top = 24
      Width = 50
      Height = 22
      AutoSize = False
      DataField = 'Lin'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnEnter = DBEdit3Enter
      OnExit = DBEdit1Exit
    end
    object DBEdit5: TDBEdit
      Left = 324
      Top = 24
      Width = 50
      Height = 22
      AutoSize = False
      DataField = 'Linhuang'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnEnter = DBEdit3Enter
      OnExit = DBEdit1Exit
    end