sal_qry_noshipsaleorder.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_NoShipSaleOrder: TFrm_Sal_Qry_NoShipSaleOrder
  Left = 88
  Top = 120
  Caption = '未发货销售订单查询'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '未发货销售订单查询'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 222
      Caption = '客户代码/下单日期/销售订单号/订单行号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slono'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolineno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 188
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Uomflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 29
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolinestatus'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolinedate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sloqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shipqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'notaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'notaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diSCountrate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 43
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diSCountAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxrate_Percent'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 130
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 93
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddresSCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotaltaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 72
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createrName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createrflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'editdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 77
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 261
    Top = 163
  end
  inherited ActionList: TActionList
    Left = 272
    Top = 240
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'select t1.customerCode,'
      '       customer.customerName,'
      
        '       t1.customerCode+'#39' '#39'+customer.customerName as customerflag' +
        ','
      '       t1.Createdate,'
      '       t2.slono,'