sfc_monthsumqrybcp_d.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_MonthSumQrybcp_D: TFrm_Sfc_MonthSumQrybcp_D
  Left = 30
  Top = 49
  Caption = '没有对应外壳的印刷钢板记录'
  ClientHeight = 456
  ClientWidth = 733
  FormStyle = fsNormal
  Visible = False
  Windowstate = wsNormal
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 733
  end
  inherited Pnl_Title: TPanel
    Width = 733
    Caption = '没有对应外壳的印刷钢板记录'
  end
  inherited Pnl_Head: TPanel
    Width = 733
    inherited Lbl_Condition: TLabel
      Width = 36
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 424
    Width = 733
    Height = 32
    object Label1: TLabel
      Left = 304
      Top = 12
      Width = 60
      Height = 12
      Caption = '数量汇总：'
    end
    object Label2: TLabel
      Left = 504
      Top = 12
      Width = 60
      Height = 12
      Caption = '金额汇总：'
    end
    object Edit1: TEdit
      Left = 364
      Top = 6
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 563
      Top = 6
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 1
    end
  end
  inherited Pnl_Body: TPanel
    Width = 733
    Height = 327
    inherited DBGridEh: TDBGridEh
      Width = 733
      Height = 327
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 304
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Invoutqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '耗用数量'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoutAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '耗用金额'
          Width = 117
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 325
    Top = 179
  end
  inherited AdoQry_Main: 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 Temp01.ItemCode,Item.ItemName,Invoutqty,InvoutAmount from' +
        ' Temp01'
      'left join Item on Temp01.ItemCode=Item.ItemCode'
      ' where Temp01.ItemCode not in (select ItemCode from Temp02)'
      '')
    Left = 216
    Top = 217
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MainInvoutqty: TFloatField
      FieldName = 'Invoutqty'
    end
    object AdoQry_MainInvoutAmount: TFloatField
      FieldName = 'InvoutAmount'
    end
  end
end