bas_batch_b.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Batch_B: TFrm_Bas_Batch_B
  Left = 11
  Top = 11
  Caption = #25209#27425#20027#25991#20214#32500#25252
  ClientHeight = 523
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #25209#27425#20027#25991#20214#32500#25252
  end
  inherited Pnl_Head: TPanel
    Height = 82
    inherited Image1: TImage
      Height = 82
    end
    object Label2: TLabel
      Left = 28
      Top = 7
      Width = 60
      Height = 12
      Caption = #29289#26009#20195#30721#65306
    end
    object Label3: TLabel
      Left = 28
      Top = 32
      Width = 60
      Height = 12
      Caption = #35745#37327#21333#20301#65306
    end
    object Label5: TLabel
      Left = 52
      Top = 58
      Width = 36
      Height = 12
      Caption = #22791#27880#65306
    end
    object Lbl_ItemName: TLabel
      Left = 222
      Top = 7
      Width = 72
      Height = 12
      Caption = 'Lbl_ItemName'
    end
    object Lbl_UomName: TLabel
      Left = 91
      Top = 32
      Width = 66
      Height = 12
      Caption = 'Lbl_UomName'
    end
    object Label1: TLabel
      Left = 192
      Top = 32
      Width = 108
      Height = 12
      Caption = #26159#21542#20801#35768#25289#24335#39046#26009#65306
    end
    object ExtEdt_ItemCode: TExtEdit
      Left = 89
      Top = 3
      Width = 125
      Height = 20
      TabOrder = 0
      Text = 'ExtEdt_ItemCode'
      OnChange = ExtEdt_ItemCodeChange
      OnExit = ExtEdt_ItemCodeExit
      OnKeyDown = ExtEdt_ItemCodeKeyDown
      DispLabel = Lbl_ItemName
    end
    object Edt_RemArk: TEdit
      Left = 89
      Top = 54
      Width = 647
      Height = 20
      TabOrder = 2
      Text = 'Edt_RemArk'
      OnExit = TextCheck
    end
    object cmbx_Backflush: TComboBox
      Left = 301
      Top = 28
      Width = 44
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        #21542
        #26159)
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 497
  end
  inherited Pnl_Body: TPanel
    Top = 139
    Height = 358
    inherited Image3: TImage
      Height = 358
    end
    inherited DBGridEh: TDBGridEh
      Height = 358
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'Batchno'
          Footers = <>
          Title.Caption = #25209#27425#21495
          Width = 89
        end
        Item
          EditButtons = <>
          FieldName = 'BatchName'
          Footers = <>
          Title.Caption = #25209#27425#25551#36848
          Width = 181
        end
        Item
          EditButtons = <>
          FieldName = 'usefulCtrl'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#25511#21046#26377#25928#26399
          Width = 52
        end
        Item
          EditButtons = <>
          FieldName = 'usefuldate'
          Footers = <>
          Title.Caption = #26377#25928#22825#25968
          Width = 34
        end
        Item
          EditButtons = <>
          FieldName = 'Batchstatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #25171#24320
            #20851#38381)
          Title.Caption = #25209#27425#29366#24577
          Width = 34
        end
        Item
          EditButtons = <>
          FieldName = 'VendorCode'
          Footers = <>
          Title.Caption = #20379#24212#21830#20195#30721
          Width = 67
        end
        Item
          EditButtons = <>
          FieldName = 'VendorName'
          Footers = <>
          Title.Caption = #20379#24212#21830#25551#36848
          Width = 190
        end
        Item
          EditButtons = <>
          FieldName = 'VendorBatchno'
          Footers = <>
          Title.Caption = #20379#24212#21830#25209#27425#21495
          Width = 77
        end
        Item
          EditButtons = <>
          FieldName = 'BatchlineremArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 250
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 168
    inherited Act_New: TAction
      Visible = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_test_zcw;Data Source=192' +
      '.168.0.151;Use procedure for Prepare=1;Auto Translate=True;Packe' +
      't Size=4096;Workstation ID=XYB'
    Prepared = True
    SQL.Strings = (
      
        'select a.Firstindate,a.Batchno,a.BatchName,a.VendorCode,a.Vendor' +
        'Batchno,'
      
        '           a.usefulCtrl,a.usefuldate,a.Batchstatus,a.Batchlinere' +
        'mArk,'
      '                      a.tmpfield,'
      '           b.VendorName from Batchline a join Vendor b on '
      '           a.VendorCode=b.VendorCode'
      ' '
      ' '
      ' ')
    object AdoQry_BodyBatchno: TStringField
      FieldName = 'Batchno'
      Size = 16
    end
    object AdoQry_BodyBatchName: TStringField
      FieldName = 'BatchName'
      Size = 60
    end
    object AdoQry_BodyVendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_BodyVendorBatchno: TStringField
      FieldName = 'VendorBatchno'
    end
    object AdoQry_BodyusefulCtrl: TIntegerField
      FieldName = 'usefulCtrl'
    end
    object AdoQry_Bodyusefuldate: TIntegerField
      FieldName = 'usefuldate'
    end
    object AdoQry_BodyBatchstatus: TIntegerField
      FieldName = 'Batchstatus'
    end
    object AdoQry_BodyBatchlineremArk: TStringField
      FieldName = 'BatchlineremArk'
      Size = 250
    end
    object AdoQry_BodyVendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_BodyFirstindate: TDateTimeField
      FieldName = 'Firstindate'
    end
    object AdoQry_Bodytmpfield: TIntegerField
      FieldName = 'tmpfield'
    end
  end
  object ActionList1: TActionList [9]
    Left = 696
    Top = 201
  end
end