inv_compareinvqty.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 204 行

inherited Frm_Inv_CompareInvQty: TFrm_Inv_CompareInvQty
  Left = -7
  Top = 268
  Caption = '新旧系统库存数量比较'
  ClientHeight = 480
  ClientWidth = 774
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 774
  end
  inherited Pnl_Title: TPanel
    Width = 774
    Caption = '新旧系统库存数量比较'
  end
  inherited Pnl_Head: TPanel
    Width = 774
    object chbx_CheckInv: TCheckBox
      Left = 568
      Top = 16
      Width = 129
      Height = 17
      Alignment = taLeftJustify
      BiDiMode = bdLeftToRight
      Caption = '包含新系统待检库存'
      ParentBiDiMode = False
      TabOrder = 0
      OnClick = chbx_CheckInvClick
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 448
    Width = 774
    Height = 32
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
    object DBText1: TDBText
      Left = 88
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemCode'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 640
      Top = 9
      Width = 48
      Height = 12
      Caption = '记录数：'
    end
    object edt_Count: TEdit
      Left = 688
      Top = 4
      Width = 72
      Height = 20
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  inherited Pnl_Body: TPanel
    Width = 774
    Height = 351
    inherited DBGridEh: TDBGridEh
      Width = 774
      Height = 351
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 311
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '旧系统物料代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'newInvQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '新系统库存量'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '旧系统库存量'
          Width = 93
          KeyList.Strings = ()
        end
        Item
          FieldName = 'old_New'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '差异（旧－新）'
          Width = 94
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 325
    Top = 195
  end
  inherited ActionList: TActionList
    Top = 176
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
    end
  end
  inherited AdoQry_Main: 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'
    CurSorType = ctStatic
    OnCalcFields = AdoQry_MainCalcFields
    SQL.Strings = (
      
        'select Item.ItemCode+'#39' '#39'+Item.ItemName ItemCode,oldSysInv.Itemco' +
        'de2,Uom.UomName,Item.newInvQty,'
      '       oldSysInv.InvQty '
      'from'
      '(select ItemCode,ItemCode2,ItemName,UomCode,'
      
        '       (CurrentonhandInv+CurrentfreezeInv+CurrentwasterInv+curre' +
        'ntonShipInv) newInvQty'
      '       from Item) Item'
      'left join '
      '(select b.ItemCode,b.InvQty,a.ItemCode2 from '
      
        '   (select ItemCode,sum(InvQty) InvQty from oldSysInv where Item' +
        'Code is not null group by ItemCode) b'
      '    join oldSysInv a  on a.ItemCode=b.ItemCode) oldSysInv'
      'on Item.ItemCode=oldSysInv.ItemCode'
      'join Uom on Item.UomCode=Uom.UomCode')
    Top = 177
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = '#Item_old'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainItemCode2: TStringField
      FieldName = 'ItemCode2'
      Origin = '#Item_old'
      Size = 16
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Origin = '#Item_old'
      Size = 10
    end
    object AdoQry_MainnewInvQty: TFloatField
      FieldName = 'newInvQty'
      Origin = '#Item_old'
    end
    object AdoQry_MainInvQty: TFloatField
      FieldName = 'InvQty'
      Origin = '#Item_old'
    end
    object AdoQry_Mainold_New: TFloatField
      FieldKind = fkCalculated
      FieldName = 'old_New'
      Calculated = True
    end
  end
  inherited DataSource: TDataSource
    Top = 185
  end
end