inv_opadjustbill_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OpAdjustBill_B: TFrm_Inv_OpAdjustBill_B
  Left = 9
  Top = 70
  Caption = '委外加工材料结存调整单'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Height = 28
    Caption = '委外加工材料结存调整单'
  end
  inherited Pnl_Head: TPanel
    Top = 58
    Height = 58
    object Label1: TLabel
      Left = 18
      Top = 11
      Width = 48
      Height = 12
      Caption = '供应商：'
    end
    object Label2: TLabel
      Left = 335
      Top = 36
      Width = 42
      Height = 12
      Caption = '税率%：'
    end
    object Label3: TLabel
      Left = 439
      Top = 36
      Width = 36
      Height = 12
      Caption = '货币：'
    end
    object Label4: TLabel
      Left = 599
      Top = 11
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label5: TLabel
      Left = 587
      Top = 36
      Width = 60
      Height = 12
      Caption = '单据日期：'
    end
    object Label6: TLabel
      Left = 30
      Top = 36
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label7: TLabel
      Left = 375
      Top = 36
      Width = 36
      Height = 12
      Caption = 'Label7'
    end
    object Label8: TLabel
      Left = 478
      Top = 36
      Width = 36
      Height = 12
      Caption = 'Label8'
    end
    object edt_memo: TEdit
      Left = 72
      Top = 32
      Width = 247
      Height = 20
      TabOrder = 3
    end
    object Edit2: TEdit
      Left = 195
      Top = 8
      Width = 201
      Height = 20
      ReadOnly = True
      TabOrder = 1
    end
    object ledt_Vendor: TLinkEdit
      Left = 72
      Top = 8
      Width = 121
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 0
      OnButtonClick = VendorHint1
      OnExit = ledt_VendorExit
    end
    object edt_Billno: TEdit
      Left = 647
      Top = 8
      Width = 95
      Height = 20
      Enabled = False
      TabOrder = 2
    end
    object medt_Date: TMaskEdit
      Left = 647
      Top = 32
      Width = 95
      Height = 20
      EditMask = '9999.99.99;1;'
      MaxLength = 10
      TabOrder = 4
      Text = '    .  .  '
    end
  end
  inherited Pnl_Body: TPanel
    Top = 116
    Height = 326
    inherited DBGridEh: TDBGridEh
      Height = 326
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 243
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 26
          KeyList.Strings = ()
        end
        Item
          FieldName = 'opBillqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '调整数量'
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'opBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '调整金额(未税)'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    SQL.Strings = (
      
        'select ol.opBillid,ol.opBilllineno,ol.ItemCode,Item.ItemName as ' +
        'ItemName,'
      'u.UomName,ol.opBillqty,ol.opBillnotaxAmount,ol.BilllineremArk '
      'from opAdjustBillline ol '
      'left join Item on Item.ItemCode=ol.ItemCode '
      'left join Uom u on u.UomCode=Item.UomCode'
      'where ol.opBillid=1234')
  end
end