u_main.~dfm

该程序是用Delphi开发的斑马打印机支持系统

object DM: TDM
  OldCreateOrder = False
  Left = 384
  Top = 244
  Height = 362
  Width = 461
  object OS: TOraSession
    ConnectPrompt = False
    Options.Net = True
    Username = 'pes'
    Password = 'infstestadm'
    Server = '172.18.93.226:1522:pems1'
    Connected = True
    Left = 24
    Top = 16
  end
  object QWrapping: TOraQuery
    Session = OS
    SQL.Strings = (
      '')
    Left = 80
    Top = 16
    object QWrappingPLANNO: TStringField
      FieldName = 'PLANNO'
      Required = True
      Size = 10
    end
    object QWrappingMATNR: TStringField
      FieldName = 'MATNR'
      Required = True
      Size = 10
    end
    object QWrappingCHARG: TStringField
      FieldName = 'CHARG'
      Required = True
      Size = 10
    end
    object QWrappingFLAG: TStringField
      FieldName = 'FLAG'
      Required = True
      FixedChar = True
      Size = 2
    end
    object QWrappingRUKU: TFloatField
      FieldName = 'RUKU'
    end
    object QWrappingXBLNR: TFloatField
      FieldName = 'XBLNR'
    end
    object QWrappingPMN: TStringField
      FieldName = 'PMN'
      FixedChar = True
      Size = 1
    end
    object QWrappingBRANDNO: TStringField
      FieldName = 'BRANDNO'
      Size = 3
    end
    object QWrappingPAPERKIND: TStringField
      FieldName = 'PAPERKIND'
      Size = 4
    end
    object QWrappingGWEIGHT: TFloatField
      FieldName = 'GWEIGHT'
    end
    object QWrappingGRADE: TStringField
      FieldName = 'GRADE'
      Size = 12
    end
    object QWrappingSPECIFICATION: TStringField
      FieldName = 'SPECIFICATION'
    end
    object QWrappingCPID: TStringField
      FieldName = 'CPID'
      Size = 8
    end
    object QWrappingMPID: TStringField
      FieldName = 'MPID'
      Size = 8
    end
    object QWrappingNTGEW: TFloatField
      FieldName = 'NTGEW'
    end
    object QWrappingAREA: TStringField
      FieldName = 'AREA'
    end
    object QWrappingSTATUS: TStringField
      FieldName = 'STATUS'
      OnGetText = QWrappingSTATUSGetText
      FixedChar = True
      Size = 1
    end
    object QWrappingMEMO: TStringField
      FieldName = 'MEMO'
    end
    object QWrappingJIANYANDATE: TStringField
      FieldName = 'JIANYANDATE'
      Size = 10
    end
    object QWrappingJIANYANID: TStringField
      FieldName = 'JIANYANID'
      Size = 8
    end
    object QWrappingPAPER_FORMTXT: TStringField
      FieldName = 'PAPER_FORMTXT'
      Size = 30
    end
    object QWrappingADATE: TStringField
      FieldName = 'ADATE'
      Size = 10
    end
    object QWrappingCLASSNO: TStringField
      FieldName = 'CLASSNO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object QWrappingSHIFTNO: TStringField
      FieldName = 'SHIFTNO'
      Required = True
      Size = 4
    end
    object QWrappingSFID: TStringField
      FieldName = 'SFID'
      Size = 10
    end
    object QWrappingFF: TStringField
      FieldName = 'FF'
      FixedChar = True
      Size = 1
    end
    object QWrappingISLOAD: TStringField
      FieldName = 'ISLOAD'
      OnGetText = QWrappingISLOADGetText
      FixedChar = True
      Size = 1
    end
    object QWrappingPRINT_F: TStringField
      FieldName = 'PRINT_F'
      OnGetText = QWrappingPRINT_FGetText
      Size = 2
    end
    object QWrappingDATEIN: TDateTimeField
      FieldName = 'DATEIN'
      Required = True
    end
    object QWrappingPKSH: TIntegerField
      FieldName = 'PKSH'
    end
    object QWrappingSHPL: TIntegerField
      FieldName = 'SHPL'
    end
    object QWrappingPKPL: TIntegerField
      FieldName = 'PKPL'
    end
    object QWrappingUSERNO: TStringField
      FieldName = 'USERNO'
      Size = 10
    end
    object QWrappingRESERVERNO: TStringField
      FieldName = 'RESERVERNO'
      Size = 10
    end
    object QWrappingRESERVERITEM: TStringField
      FieldName = 'RESERVERITEM'
      Size = 10
    end
    object QWrappingPLANID: TStringField
      FieldName = 'PLANID'
      Size = 10
    end
    object QWrappingPLANID_ITEMNO: TStringField
      FieldName = 'PLANID_ITEMNO'
      Size = 10
    end
    object QWrappingLAYOUT: TStringField
      FieldName = 'LAYOUT'
      Size = 3
    end
    object QWrappingSKU: TStringField
      FieldName = 'SKU'
      Size = 30
    end
    object QWrappingMACHINENO_W: TStringField
      FieldName = 'MACHINENO_W'
      Size = 4
    end
    object QWrappingMACHINENO_L: TStringField
      FieldName = 'MACHINENO_L'
      Size = 4
    end
    object QWrappingT0436T: TStringField
      FieldName = 'T0436T'
      Size = 30
    end
    object QWrappingT0438T: TStringField
      FieldName = 'T0438T'
      Size = 30
    end
    object QWrappingT0439T: TStringField
      FieldName = 'T0439T'
      Size = 30
    end
    object QWrappingT0440T: TStringField
      FieldName = 'T0440T'
      Size = 30
    end
    object QWrappingT0468T: TStringField
      FieldName = 'T0468T'
      Size = 30
    end
    object QWrappingT0460T: TStringField
      FieldName = 'T0460T'
      Size = 30
    end
    object QWrappingT0448: TFloatField
      FieldName = 'T0448'
    end
    object QWrappingT0436: TStringField
      FieldName = 'T0436'
      Size = 3
    end
    object QWrappingT0422: TStringField
      FieldName = 'T0422'
    end
    object QWrappingT0423: TStringField
      FieldName = 'T0423'
    end
    object QWrappingT0426: TStringField
      FieldName = 'T0426'
    end
    object QWrappingT0421: TFloatField
      FieldName = 'T0421'
    end
  end
  object DS_QWrapping: TOraDataSource
    DataSet = QWrapping
    Left = 168
    Top = 16
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\Palert.mdb;' +
      'Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
    Top = 104
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'DELETE FROM PALERTX')
    Left = 152
    Top = 104
  end
  object METEOR_Insert: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'planno'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'bz'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'kz'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'gg1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'gg2'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'sku'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'qzbz'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'zs'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'tc'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'gloss'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'INSERT INTO PALERT(planno, bz, kz, gg1, gg2, sku, qzbz, zs, tc, ' +
        'gloss)'
      'VALUES'
      '(:planno, :bz, :kz, :gg1, :gg2, :sku, :qzbz, :zs, :tc, :gloss)')
    Left = 56
    Top = 184
  end
  object ADODelete: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'DELETE FROM PALERT')
    Left = 144
    Top = 200
  end
  object QFree2: TOraQuery
    Session = OS
    Left = 256
    Top = 168
  end
  object QSysdate: TOraQuery
    Session = OS
    SQL.Strings = (
      'SELECT SYSDATE FROM DUAL')
    Left = 256
    Top = 56
  end
  object HR_Insert: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'gg'
        Size = -1
        Value = Null
      end
      item
        Name = 'kz'
        Size = -1
        Value = Null
      end
      item
        Name = 'jz'
        Size = -1
        Value = Null
      end
      item
        Name = 'sl'
        Size = -1
        Value = Null
      end
      item
        Name = 'ean'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO RobertH(gg, kz, jz, sl, ean)'
      'VALUES'
      '(:gg, :kz, :jz, :sl, :ean)')
    Left = 32
    Top = 240
  end
  object HR_Delete: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'DELETE FROM RobertH')
    Left = 200
    Top = 272
  end
  object A: TOraQuery
    Session = OS
    Left = 320
    Top = 160
  end
end