طراحی و پیاده سازی سیستم ارزیابی مناقصه کنندگان در طرح‌های عمرانی

هدف از طراحی سیستم ارزیابی مناقصه کنندگان عبارت است از

• تقسیم موارد امتیاز دهی تا حداقل 3 سطح جهت بررسی موشکافانه موارد فنی ، تولیدکنندگان تجهیزات ، آموزش ، برنامه زمان بندی پیشنهادی و … در مدارک پیشنهاد شده توسط  مناقصه کنندگان
• گزارش گیری آسان با فرمول دلخواه که بر اساس سیاست تعیین شده توسط کارفرما و مشاور است (در صد وزنی موارد تعیین شده در هر سطح)
• داشتن سند معتبر جهت پاسخ به شکایات
• جلوگیری از اعمال سلیقه و تقلب در امتیاز دهی توسط کارشناس
• یکسان سازی موارد مورد مقایسه در امتیاز دهی
• امکان بررسی تک تک مراحل تولید امتیاز نهایی
• نگهداری کلیه مشخصات ارائه شده از مناقصه کنندگان

بدین جهت در این مدرک به ترتیب ذیل توضیحاتی آورده شده است:

در فصل اول ارائه تعاریف کلی و فنی جهت جلوگیری از به وجود آمدن هر گونه مشکل در توضیح روند کار آورده شده است.

در فصل دوم به توضیح سیاست کلی و روند برنامه و چگونگی عمل امتیاز دهی شده است

فصل سوم شامل موارد طراحی از جمله ER,DFD0,DFD1 است

فصل چهارم شامل کد ها و توضیحات مربوط به برنامه و گزارشات می باشد.

فصل اول تعاریف

مقدمه

در سیستم امتیازدهی یک سری اصطلاحات فنی به شرح زیر موجود است که در ذیل توضیح مختصری جهت هر یک ارائه می گردد:

Tender

در ابتدای کار شرکت برگزار کننده مناقصه یک مدرک شامل حداقل نیاز های مربوط به طرح مورد مناقصه را با ذکر یک سری استانداردهای موجود یا طرح های انجام شده قبلی جمع آوری می کند. این مدرک هم چنین شامل اطلاعاتی است که از نظر کارشناسان فنی شرکت برگزارکننده مناقصه باید توسط مناقصه کنندگان پر شود.

مناقصه کننده (Bidder)

کنسرسیومی که پس از احراز صلاحیت خود موظف است Tender را خریداری نموده و مطابق مطالب خواسته شده مشخصات طرح را تعریف کند.

Proposal

مدرک ارائه شده توسط مناقصه کننده که شامل معرفی خود ، تجربیات و طرح های گذشته و کلیه مشخصات پیشنهادی جهت طرح فعلی است.

Proposal Evaluation

عملی که طی آن مدارک ارائه شده بررسی و امتیاز دهی می شود و در نهایت در پاکت فنی مربوط به مناقصه مورد نظر به ترتیب امتیاز هریک از کنسرسیوم های مورد بررسی به مرجع اعلام نتایج ارائه می گردد.

Selection of Main Contractor

پس از بازشدن پاکت مالی ارائه شده توسط کنسرسیوم ها و پاکت فنی ارائه شده توسط برگزار دهنده و امتیاز دهنده مناقصه، برنده مناقصه اعلام می گردد

Criteria

موضوعاتی که مورد ارزیابی قرار می گیرند و خود به موضوعات ریزتر نیز تقسیم بندی می شوند و بدین ترتیب سطوح (Level) های ارزیابی را می سازند.

Vendor

اصطلاحا به کارخانه فروشنده و صاحب تکنولوژی تجهیزات کلی طرح گفته می شود که نقش مهمی در ارزش طرح کلی بازی می کند.

مقدمه

جهت طراحی پایگاه داده ها پس از انجام مصاحبه و جلسات متعدد نمودار جریان داده ها در دو سطح صفر و یک به شرح زیر کشیده شد:

DFD سطح صفر

DFD سطح یک

دیاگرام

پس از نرمال سازی جداول ER پایگاه داده ها به صورت زیر در SQL Server 2005  طراحی شد. که در ادامه کد ساخت دیتابیس و جداول نیز آورده شده است.

کد ایجاد Stored Procedure

جهت ورود اطلاعات به سه جدول Stored Procedure هایی نوشته شد که در فرم ورود اطلاعات فراخوانی می شود که کد ساخت در پایین قابل مشاهده است.

لازم به ذکر است جهت دادن شماره کد سریالی به آیتم جدید ثبت شده در دو مورد آخر با استفاده از دستور Select بزرگترین شماره کد گرفته شده و یک واحد افزایش می یابد و سپس به عنوان کد آیتم در رکورد جدید ثبت می شود.

کد ایجاد Trigger

جهت انجام امر امتیاز دهی صحیح دو Trigger که در صورت تغییرهر رکوردی در  دو جدول Country و  Evaluation بلافاصله اجرا می گردد، طراحی شد:

1. tblweightTrigger.vb
به علت آنکه در امتیاز دهی کارخانه صاحب تکنولوژی، شرکت کننده در مناقصه مختار است لیستی از کارخانه ها و کشور های مورد نظر خود را معرفی کند و در زمان ورود اطلاعات نیز تمامی لیست وارد جدول Evaluation می شود جهت امتیاز دهی لازم است مبنایی برای دادن امتیاز به آن آیتم در نظر گرفته شود.

پس از بررسی جوانب مختلف کارشناسان فنی مبنا را به صورت زیر اعلام کردند:

“امتیاز به صورت امتیازمیانگین 3 عدد کمینه حاصلضرب امتیاز کارخانه در امتیاز کشور محاسبه خواهد شد”

بدین سبب در هنگام تغییر هر رکورد که شامل سه تغییر Insert, Update , Delete می شود کد آیتم و کنسرسیوم از رکورد مورد تغییر گرفته شده و در جدول Evaluation تمامی موارد مشترک در این دو آیتم Select شده و میانگین 3 عدد کمترین حاصلضرب امتیاز کارخانه در امتیاز کشور گرفته شده و در جدول Weight  ثبت می شود. (اگر آیتم موجود نباشد Insert اگر موجود باشد Update و در صورت اینکه تغییر سطر موجب حذف امتیاز شده باشد Delete صورت می پذیرد)

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server

Partial Public Class Triggers
    ' Enter existing table or view for the target and uncomment the attribute line
    <Microsoft.SqlServer.Server.SqlTrigger(Name:="tblweightTrigger", Target:="Evaluation", Event:="FOR UPDATE, INSERT, DELETE")> _
    Public Shared Sub tblweightTrigger()
        ' Replace with your own code
        Dim i As Integer = 0
        Dim sqlCn As New SqlConnection("Context Connection=true")
        Dim sqlCm As New SqlCommand
        Dim sqlTrCtx As SqlTriggerContext = SqlContext.TriggerContext
        Dim spPipe As SqlPipe = SqlContext.Pipe
        Dim sXml As SqlXml = sqlTrCtx.EventData()
        Dim sqlDr, dr, drin As SqlDataReader
        If sqlTrCtx.TriggerAction = TriggerAction.Delete Then
            sqlCm.CommandText = "select tenderer,criteria from deleted"
        Else
            sqlCm.CommandText = "select tenderer,criteria from inserted"
        End If
        sqlCm.Connection = sqlCn
        sqlCn.Open()
        sqlDr = sqlCm.ExecuteReader
        Dim criteria, tenderer As String
        sqlDr.Read()
        criteria = sqlDr.GetValue(1).ToString
        tenderer = sqlDr.GetValue(0).ToString
        sqlDr.Close()
        sqlCm.CommandText = "select top(3) weightcountry*vendorweight from evaluationview where tenderer='" & tenderer & "' and criteriaid = '" & criteria & "' and weightcountry*vendorweight<>0 order by weightcountry*vendorweight"
        dr = sqlCm.ExecuteReader
        Dim av As Single = 0
        Dim count As Integer = 0
        For i = 0 To 2
            If dr.Read() Then
                av += CType(dr.GetValue(0), Single)
                count += 1
            End If
        Next
        av = av / count
        dr.Close()
        If count <> 0 Then
            sqlCm.CommandText = "select * from weight where tenderer='" & tenderer & "' and criteriaid = '" & criteria & "'"
            drin = sqlCm.ExecuteReader
            If drin.Read Then
                sqlCm.CommandText = "update  weight set weight=" & av & " where tenderer='" & tenderer & "' and criteriaid = '" & criteria & "'"
            Else
                sqlCm.CommandText = "insert into  weight(criteriaid,tenderer,weight)  values('" & criteria & "','" & tenderer & "'," & av & ")"
            End If
            drin.Close()
            sqlCm.ExecuteNonQuery()
            
        Else
            sqlCm.CommandText = "delete from weight where tenderer='" & tenderer & "' and criteriaid = '" & criteria & "'"
            sqlCm.ExecuteNonQuery()
        End If
        sqlCn.Close()
    End Sub
End Class

    

• چکیده – 3
• فهرست – 4
• پیشگفتار – 6
• تعاریف – 7
• مقدمه – 8
• Tender – 8
• مناقصه کننده (Bidder) – 8
• Proposal – 8
• Proposal Evaluation – 8
• Selection of Main Contractor – 8
• Criteria – 8
• Vendor – 8
• تحلیل برنامه ارزیابی – 9
• مقدمه – 10
• تعریف سیستم – 10
• اهداف – 10
• مخاطبین – 10
• سرویس های اصلی – 11
• امتیاز دهی – 11
• گزارش گیری – 11
• معماری سایت – 12
• واسط کاربر – 12
• پایگاه داده – 12
• پردازش ها – 12
• طراحی – 13
• مقدمه – 14
• DFDسطح صفر – 14
• DFDسطح یک – 14
• پیاده سازی – 17
• دیاگرام – 18
• کد ایجاد Stored Procedure – 18
• کد ایجاد Trigger – 20
• نقشه سایت – 24
• فرم های واسط کاربر – 24
• گزارش نهایی – 41