unit_rubb_sqljiaoliao.dfm

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

object Form_Rubb_sqljiaoliao: TForm_Rubb_sqljiaoliao
  Left = 171
  Top = 88
  Width = 584
  Height = 452
  Caption = '宁 波 市 巨 龙 橡 塑 有 限 公 司'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 19
    Top = 234
    Width = 65
    Height = 16
    Caption = '生产批号：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 167
    Top = 234
    Width = 78
    Height = 16
    Caption = '胶料合格率：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 290
    Top = 230
    Width = 14
    Height = 20
    Caption = '%'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 308
    Top = 233
    Width = 59
    Height = 16
    AutoSize = False
    Caption = '产品净重：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 434
    Top = 232
    Width = 59
    Height = 16
    AutoSize = False
    Caption = '领料总量：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 20
    Top = 89
    Width = 530
    Height = 136
    BiDiMode = bdLeftToRight
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentBiDiMode = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '生产批号'
        Title.Alignment = taCenter
        Title.Caption = ' 生产批号'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 69
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '制成品名称'
        Title.Alignment = taCenter
        Title.Caption = '胶料名称'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 117
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '配料用料量'
        Title.Alignment = taCenter
        Title.Caption = '胶料重量'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 121
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '单价'
        Title.Alignment = taCenter
        Title.Caption = '胶料单价'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 91
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 20
    Top = 253
    Width = 533
    Height = 152
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'ProdName'
        Title.Alignment = taCenter
        Title.Caption = '产品名称'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 109
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'FigID'
        Title.Alignment = taCenter
        Title.Caption = '图号'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 114
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'DrawWeight'
        Title.Alignment = taCenter
        Title.Caption = '领料重量'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 88
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'QcNum'
        Title.Alignment = taCenter
        Title.Caption = '合格品数'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 89
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 21
    Top = 1
    Width = 529
    Height = 89
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label2: TLabel
      Left = 194
      Top = 6
      Width = 132
      Height = 29
      Caption = '胶  料  查  询'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DateTimePicker_From0: TDateTimePicker
      Left = 33
      Top = 39
      Width = 91
      Height = 24
      CalAlignment = dtaLeft
      Date = 37063.7957755787
      Time = 37063.7957755787
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker_To0: TDateTimePicker
      Left = 150
      Top = 39
      Width = 91
      Height = 24
      CalAlignment = dtaLeft
      Date = 37063.7958887732
      Time = 37063.7958887732
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object Panel2: TPanel
      Left = 12
      Top = 39
      Width = 22
      Height = 26
      Caption = '从'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Panel3: TPanel
      Left = 126
      Top = 38
      Width = 24
      Height = 27
      Caption = '到'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object BitBtn1: TBitBtn
      Left = 245
      Top = 39
      Width = 93
      Height = 26
      Caption = '查生产批号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn1Click
    end
    object Button1: TButton
      Left = 452
      Top = 39
      Width = 67
      Height = 25
      Caption = '返回'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = Button1Click
    end
    object BitBtn2: TBitBtn
      Left = 343
      Top = 39
      Width = 104
      Height = 25
      Caption = '查胶料合格率'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn2Click
    end
  end
  object Edit1: TEdit
    Left = 79
    Top = 229
    Width = 83
    Height = 21
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object DBEdit1: TDBEdit
    Left = 238
    Top = 229
    Width = 50
    Height = 20
    AutoSize = False
    DataField = 'Rate'
    DataSource = DataSource2
    TabOrder = 4
  end
  object Edit2: TEdit
    Left = 366
    Top = 229
    Width = 60
    Height = 20
    AutoSize = False
    TabOrder = 5
  end
  object Edit3: TEdit
    Left = 493
    Top = 228
    Width = 55
    Height = 21
    TabOrder = 6
  end
  object Qry_Jiaoliao: TQuery
    AfterScroll = Qry_JiaoliaoAfterScroll
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select* from 炼胶工艺卡')
    Left = 349
    Top = 145
  end
  object DataSource1: TDataSource
    DataSet = Qry_Jiaoliao
    Left = 333
    Top = 161
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select* from SulfCard')
    Left = 460
    Top = 282
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 436
    Top = 298
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    Left = 208
    Top = 344
  end
end