uaccept.dfm

相关的销售服务管理行业的一个软件

            Width = 73
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'difsum'
            Title.Caption = '差价'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -16
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end>
      end
      object Panel10: TPanel
        Left = 0
        Top = 0
        Width = 675
        Height = 121
        Align = alTop
        BevelOuter = bvLowered
        TabOrder = 1
        object Label8: TLabel
          Left = 224
          Top = 10
          Width = 101
          Height = 24
          Caption = '验 收 单'
          Color = clMenu
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -24
          Font.Name = '宋体'
          Font.Style = [fsBold, fsUnderline]
          ParentColor = False
          ParentFont = False
        end
        object Label9: TLabel
          Left = 474
          Top = 16
          Width = 27
          Height = 16
          Caption = 'NO.'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = '宋体'
          Font.Style = [fsBold, fsItalic]
          ParentFont = False
        end
        object Panel11: TPanel
          Left = 1
          Top = 40
          Width = 673
          Height = 80
          Align = alBottom
          BevelOuter = bvNone
          Color = clGray
          TabOrder = 0
          object Label6: TLabel
            Left = 40
            Top = 54
            Width = 75
            Height = 15
            Caption = '付款日期：'
          end
          object Label4: TLabel
            Left = 41
            Top = 8
            Width = 45
            Height = 15
            Caption = '部门：'
          end
          object Label5: TLabel
            Left = 297
            Top = 55
            Width = 45
            Height = 15
            Caption = '制单：'
          end
          object Label7: TLabel
            Left = 40
            Top = 31
            Width = 75
            Height = 15
            Caption = '结算方式：'
          end
          object Label10: TLabel
            Left = 432
            Top = 8
            Width = 60
            Height = 15
            Caption = '采购单：'
          end
          object Label11: TLabel
            Left = 433
            Top = 30
            Width = 75
            Height = 15
            Caption = '存放地点：'
          end
          object Label12: TLabel
            Left = 433
            Top = 53
            Width = 75
            Height = 15
            Caption = '验收日期：'
          end
          object DBEdit2: TDBEdit
            Left = 114
            Top = 5
            Width = 49
            Height = 23
            Color = clInfoBk
            DataField = 'DepCode'
            DataSource = DataSource1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
          end
          object DBEdit4: TDBEdit
            Left = 504
            Top = 4
            Width = 121
            Height = 23
            Color = clInfoBk
            DataField = 'OrderNo'
            DataSource = DataSource1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
          end
          object DBEdit5: TDBEdit
            Left = 114
            Top = 28
            Width = 170
            Height = 23
            Color = clInfoBk
            DataField = 'SqaureMode'
            DataSource = DataSource1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 2
          end
          object DBEdit6: TDBEdit
            Left = 163
            Top = 5
            Width = 121
            Height = 23
            Color = clInfoBk
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 3
          end
          object DBEdit3: TDBEdit
            Left = 504
            Top = 27
            Width = 121
            Height = 23
            Color = clInfoBk
            DataField = 'Place'
            DataSource = DataSource1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 4
          end
          object DBEdit7: TDBEdit
            Left = 113
            Top = 51
            Width = 171
            Height = 23
            Color = clInfoBk
            DataField = 'PayDate'
            DataSource = DataSource1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 5
          end
          object DBEdit8: TDBEdit
            Left = 504
            Top = 50
            Width = 121
            Height = 23
            Color = clInfoBk
            DataField = 'AcceptDate'
            DataSource = DataSource1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 6
          end
          object DBEdit9: TDBEdit
            Left = 331
            Top = 51
            Width = 94
            Height = 23
            Color = clInfoBk
            DataField = 'ZhiDan'
            DataSource = DataSource1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 7
          end
        end
        object DBEdit1: TDBEdit
          Left = 505
          Top = 13
          Width = 121
          Height = 23
          Color = clInfoBk
          DataField = 'AcceptNo'
          DataSource = DataSource1
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOStoredProc1
    Left = 308
    Top = 236
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 396
    Top = 236
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from yuaccept')
    Left = 276
    Top = 236
  end
  object PopupMenu1: TPopupMenu
    Left = 296
    Top = 112
    object N1: TMenuItem
      Caption = '快速查找'
    end
    object N2: TMenuItem
      Caption = '筛选'
    end
    object N3: TMenuItem
      Caption = '取消筛选'
    end
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from AcceptDetail where acceptno = 1')
    Left = 428
    Top = 237
    object ADOQuery2AcceptNo: TIntegerField
      FieldName = 'AcceptNo'
    end
    object ADOQuery2PluCode: TWideStringField
      FieldName = 'PluCode'
      Size = 13
    end
    object ADOQuery2barcode: TWideStringField
      FieldName = 'barcode'
    end
    object ADOQuery2PluName: TWideStringField
      FieldName = 'PluName'
      Size = 30
    end
    object ADOQuery2CargoNo: TWideStringField
      FieldName = 'CargoNo'
    end
    object ADOQuery2Spec: TWideStringField
      FieldName = 'Spec'
      Size = 10
    end
    object ADOQuery2Unit: TWideStringField
      FieldName = 'Unit'
      Size = 4
    end
    object ADOQuery2JPrice: TBCDField
      FieldName = 'JPrice'
      Precision = 19
    end
    object ADOQuery2NetJPrice: TBCDField
      FieldName = 'NetJPrice'
      Precision = 19
    end
    object ADOQuery2Price: TBCDField
      FieldName = 'Price'
      Precision = 19
    end
    object ADOQuery2Count1: TBCDField
      FieldName = 'Count1'
      Precision = 19
    end
    object ADOQuery2Count2: TBCDField
      FieldName = 'Count2'
      Precision = 19
    end
    object ADOQuery2Cost: TBCDField
      FieldName = 'Cost'
      Precision = 19
    end
    object ADOQuery2NetCost: TBCDField
      FieldName = 'NetCost'
      Precision = 19
    end
    object ADOQuery2Total: TBCDField
      FieldName = 'Total'
      Precision = 19
    end
    object ADOQuery2JTaxRate: TWordField
      FieldName = 'JTaxRate'
    end
    object ADOQuery2ProductDate: TDateTimeField
      FieldName = 'ProductDate'
    end
    object ADOQuery2QualityDate: TDateTimeField
      FieldName = 'QualityDate'
    end
    object ADOQuery2ThCount: TBCDField
      FieldName = 'ThCount'
      Precision = 19
    end
    object ADOQuery2difsum: TBCDField
      FieldName = 'difsum'
      Precision = 19
    end
    object ADOQuery2Tag: TWideStringField
      FieldName = 'Tag'
      Size = 1
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initi' +
      'al Catalog=report;Data Source=CJZ;Use Procedure for Prepare=1;Au' +
      'to Translate=True;Packet Size=4096;Workstation ID=CJZ'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 152
    Top = 40
  end
  object ADOStoredProc1: TADOStoredProc
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    ProcedureName = 'aa;1'
    Parameters = <>
    Left = 220
    Top = 37
  end
end