Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ağustos 2010 Cuma

Excel & Accsess Real Time Data Base Relations



'UserForm1

'A) VBProject References List

'Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\stdole2.tlb
'Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
'Name: ADOX, Description: Microsoft ADO Ext. 2.8 for DDL and Security, FullPath: C:\Program Files\Common Files\System\ado\msadox.dll [Picture:1]

'Name: ADODB, Description: Microsoft ActiveX Data Objects 2.8 Library, FullPath: C:\Program Files\Common Files\System\ado\msado15.dll [Picture:1]
'B) Addition Tools on UserForm1
'Image1, Label1, Label2
'Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11
'TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7
'ListBox1
'CommandButton1, CommandButton2, CommandButton3
'C) Microsoft Access Data Type ADO Equivalent, ADOX Data Type Corresponding Data Type in Access
'Microsoft Access Data Type... ADO Equivalent
'-------------------------------------- --------------------------------
'Binary..................................... adBinary
'Boolean.................................. adBoolean
'Byte........................................ adUnsignedTinyInt
'Currency................................ adCurrency
'Date....................................... adDate
'Numeric................................. adNumeric
'Double................................... adDouble
'Small Integer......................... adSmallInt
'Integer................................... adInteger
'Long Binary........................... adLongBinary
'Memo..................................... adLongVarWChar
'Single..................................... adSingle
'Text........................................ adWChar

'ADOX Data Type................... Corresponding Data Type in Access
'------------------------------------- ---------------------------------
'adBoolean.............................. Yes / No
'adUnsignedTinyInt................ Number(FieldSize = Byte)
'adSmalIInt............................. Number(FieldSize = Integer)
'adSingle................................. Number(FieldSize = Single)
'adDouble............................... Number(FieldSize = Double)
'adDecimal............................. Number(FieldSize = Decimal)
'adInteger............................... Number(FieldSize = LongInteger)
'Autonumber.......................... AutoIncrement(Start,Step)
'adCurrency........................... Currency
'adVarWChar........................ Text
'adDate.................................. Date / Time
'adLongVarBinary................. OLE Object
'dbMemo................................ Memo
'adLongVarWChar ................Hyperlink

Option Explicit
Private i As Integer, ii As Integer
Private DBCatalog As ADOX.Catalog
Private DBTable As ADOX.Table
Private DBKey As New ADOX.Key
Private DBConnection As ADODB.Connection
Private DBRecordset As ADODB.Recordset
Private DBUser As ADOX.User
Private DBFileString As String
Private DBConnectionString As String
Private DBTableString As String
Private DBFieldListString As String
Private DBValue As Variant
Private DBRecordID As Double
Private DBPreRecordID As Double
Private DBRecordIDNo As Double
Private DBAbsolutePositionIDNo As Double
Private DBRecordCount As Double
Private DBFieldCount As Double
Private HataNo As Double
Private DBBuffer(1 To 122, 1 To 7)

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Excel & Accsess Real Time Data Base Relations"
Call CreateUserForm
Call OpenDataBase
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

On Error Resume Next
DBConnection.Close
Set DBConnection = Nothing
End Sub
Private Sub ListBox1_Change()

On Error Resume Next
DBRecordID = ListBox1.ListIndex
If DBPreRecordID = -1 Then
Label3.Caption = "": TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = "": TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = ""
Call GetDataBaseRow(DBTableString, DBRecordID)
Else
Call PutDataBaseRow(DBTableString, DBPreRecordID)
Label3.Caption = "": TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = "": TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = ""
Call GetDataBaseRow(DBTableString, DBRecordID)
End If
DBPreRecordID = DBRecordID
End Sub
Private Sub CommandButton1_Click() 'Add Record

On Error Resume Next
Call AddDataBaseRow(DBTableString)
End Sub
Private Sub CommandButton2_Click() 'Delete Record

On Error Resume Next
Call DeleteDataBaseRow(DBTableString, DBRecordID, DBPreRecordID, DBRecordIDNo)
End Sub
Private Sub CommandButton3_Click() 'Delete All Records

On Error Resume Next
Call DeleteAllDataBaseRow(DBTableString, DBRecordID)
End Sub
Private Sub OpenDataBase()

On Error Resume Next
DBFileString = ThisWorkbook.Path & "\AnalizListesi.mdb"
DBTableString = "POSITIONLIST"
DBFieldListString = "(ID AutoIncrement(1, 1), POSITIONNO Char(18), POSITIONNAME Char(255), UNIT Char(18), QUANTITY Double, PRICE Currency, AMOUNT Currency)"
Call ConnectionDataBase(DBFileString)
If HataNo = -2147467259 Then
DBConnection.Close
Set DBConnection = Nothing
Call CreateDataSource
Call CreateDataBaseAndTable(DBFileString, DBTableString, DBFieldListString)
Call CreateDataBase(DBFileString, DBTableString)
Call ConnectionDataBase(DBFileString)
Call GetDataBaseRows(DBTableString)
HataNo = 0
End If
Call GetDataBaseRows(DBTableString)
End Sub
Private Sub CreateDataBaseAndTable(DBFileString, DBTableString, DBFieldListString)

On Error GoTo Hata
Set DBCatalog = New ADOX.Catalog
DBConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFileString
DBCatalog.Create DBConnectionString
Set DBConnection = DBCatalog.ActiveConnection
DBConnection.Execute "Create Table " & DBTableString & DBFieldListString & ";"
Devam:
Set DBCatalog = Nothing
Set DBConnection = Nothing
Exit Sub
Hata:
If Err.Number = -2147217897 Then
Kill DBFileString
Resume 0
Else
GoTo Devam
End If
End Sub
Private Sub CreateDataBase(DBFileString, DBTableString)

On Error GoTo Hata
Call ConnectionDataBase(DBFileString)
Call ConnectionDBRecordset(DBTableString)
With DBRecordset
.Open "Select * From " & DBTableString
For i = 1 To 122
.AddNew
!POSITIONNO = DBBuffer(i, 2)
!POSITIONNAME = DBBuffer(i, 3)
!UNIT = DBBuffer(i, 4)
!QUANTITY = DBBuffer(i, 5)
!PRICE = DBBuffer(i, 6)
!AMOUNT = DBBuffer(i, 7)
.Update
Next i
.Move 1, 1
End With
Set DBRecordset = Nothing
Exit Sub
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub ConnectionDataBase(DBFileString)

On Error GoTo Hata
Set DBConnection = New ADODB.Connection
With DBConnection
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.Mode = adModeReadWrite
.ConnectionString = "Data Source=" & DBFileString
.Open
End With
Exit Sub
Hata:
HataNo = VBA.Err.Number
Set DBConnection = Nothing
End Sub
Private Sub ConnectionDBRecordset(DBTableString)

On Error GoTo Hata
Set DBRecordset = New ADODB.Recordset
With DBRecordset
.ActiveConnection = DBConnection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "SELECT * FROM " & DBTableString
.Open
DBFieldCount = .Fields.count
DBRecordCount = .RecordCount
If DBRecordCount > 0 Then DBValue = .GetRows(DBRecordCount)
.Close
End With
Exit Sub
Hata:
DBRecordset.Close
Set DBRecordset = Nothing
End Sub
Private Sub GetDataBaseRows(DBTableString)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
ListBox1.Clear
For i = 0 To (DBRecordCount - 1)
ListBox1.AddItem
For ii = 0 To (DBFieldCount - 1)
ListBox1.List(i, ii) = VBA.Trim(DBValue(ii, i))
Next ii
Next i
DBPreRecordID = -1
ListBox1.ListIndex = 0
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub GetDataBaseRow(DBTableString, DBRecordID)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
Label3.Caption = VBA.Trim(DBValue(0, DBRecordID)) 'ID
TextBox1.Value = VBA.Trim(DBValue(1, DBRecordID)) 'POSITIONNO

TextBox2.Value = VBA.Trim(DBValue(2, DBRecordID)) 'POSITIONNAME
TextBox3.Value = VBA.Trim(DBValue(3, DBRecordID)) 'UNIT

TextBox4.Value = VBA.Trim(DBValue(4, DBRecordID)) 'QUANTITY
TextBox5.Value = VBA.Trim(DBValue(5, DBRecordID)) 'PRICE
TextBox6.Value = VBA.Trim(DBValue(6, DBRecordID)) 'AMOUNT
Hata:
Set DBRecordset = Nothing
End Sub
Sub PutDataBaseRow(DBTableString, DBPreRecordID)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
DBRecordIDNo = VBA.Trim(DBValue(0, DBPreRecordID))
With DBRecordset
.Source = "SELECT * FROM " & DBTableString & " WHERE" & " ID= " & DBRecordIDNo & ""
.Open
.Fields("POSITIONNO").Value = TextBox1.text
.Fields("POSITIONNAME").Value = TextBox2.text
.Fields("UNIT").Value = TextBox3.text
.Fields("QUANTITY").Value = TextBox4.Value
.Fields("PRICE").Value = TextBox5.Value
.Fields("AMOUNT").Value = TextBox6.Value
.Update
.Close
End With
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub AddDataBaseRow(DBTableString)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
With DBRecordset
.Open
.AddNew Array("POSITIONNO", "POSITIONNAME", "UNIT", "QUANTITY", "PRICE", "AMOUNT"), Array("", "", "", 0, 0, 0)
.Update
DBAbsolutePositionIDNo = .AbsolutePosition 'Row Number
DBValue = .GetRows(DBRecordCount)
.Close
End With
Call GetDataBaseRows(DBTableString)
ListBox1.ListIndex = (DBAbsolutePositionIDNo - 1)
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub DeleteDataBaseRow(DBTableString, DBRecordID, DBPreRecordID, DBRecordIDNo)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
DBRecordIDNo = VBA.Trim(DBValue(0, DBRecordID))
With DBRecordset
.Open "SELECT * FROM " & DBTableString & " WHERE ID = " & DBRecordIDNo
.Delete
DBAbsolutePositionIDNo = (DBPreRecordID - 1) 'Row Number
.Close
End With
DBPreRecordID = -1
Call GetDataBaseRows(DBTableString)
ListBox1.ListIndex = DBAbsolutePositionIDNo
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub DeleteAllDataBaseRow(DBTableString, DBRecordID)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
With DBRecordset
.Open "SELECT * FROM " & DBTableString
.MoveFirst
Do While Not .EOF
If !ID > 0 Then
.Delete adAffectCurrent
DBRecordID = DBRecordID + 1
End If
.moveNext
Loop
.Close
End With
DBPreRecordID = -1
Call GetDataBaseRows(DBTableString)
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub CreateDataSource()

On Error Resume Next
DBBuffer(1, 1) = 1: DBBuffer(1, 2) = "100-3": DBBuffer(1, 3) = "PROTECTION OF THE ENVIRONMENT": DBBuffer(1, 4) = "LUM SUM": DBBuffer(1, 5) = 1: DBBuffer(1, 6) = 48192: DBBuffer(1, 7) = 48192
DBBuffer(2, 1) = 2: DBBuffer(2, 2) = "100-4": DBBuffer(2, 3) = "TRAFFIC SAFETY AND CONTROL": DBBuffer(2, 4) = "LUM SUM": DBBuffer(2, 5) = 1: DBBuffer(2, 6) = 171000: DBBuffer(2, 7) = 171000
DBBuffer(3, 1) = 3: DBBuffer(3, 2) = "100-5": DBBuffer(3, 3) = "PROGRESS PHOTOGRAPHS ( EACH NO. INCLUDES MIN. 20 PHOTOS)": DBBuffer(3, 4) = "NO": DBBuffer(3, 5) = 24: DBBuffer(3, 6) = 37: DBBuffer(3, 7) = 888
DBBuffer(4, 1) = 4: DBBuffer(4, 2) = "100-6": DBBuffer(4, 3) = "SIGNBOARDS": DBBuffer(4, 4) = "NO": DBBuffer(4, 5) = 2: DBBuffer(4, 6) = 750: DBBuffer(4, 7) = 1500
DBBuffer(5, 1) = 5: DBBuffer(5, 2) = "100-7": DBBuffer(5, 3) = "ENGINEER'S SITE OFFICE, FURNITURE, AND EQUIPMENT": DBBuffer(5, 4) = "LUM SUM": DBBuffer(5, 5) = 1: DBBuffer(5, 6) = 169500: DBBuffer(5, 7) = 169500
DBBuffer(6, 1) = 6: DBBuffer(6, 2) = "100-8": DBBuffer(6, 3) = "ENGINEER'S SITE LABORATORY, FURNITURE, AND EQUIPMENT": DBBuffer(6, 4) = "LUM SUM": DBBuffer(6, 5) = 1: DBBuffer(6, 6) = 135000: DBBuffer(6, 7) = 135000
DBBuffer(7, 1) = 7: DBBuffer(7, 2) = "100-9": DBBuffer(7, 3) = "SURVEY EQUIPMENT": DBBuffer(7, 4) = "LUM SUM": DBBuffer(7, 5) = 1: DBBuffer(7, 6) = 27375: DBBuffer(7, 7) = 27375
DBBuffer(8, 1) = 8: DBBuffer(8, 2) = "100-10": DBBuffer(8, 3) = "PROTECTIVE CLOTHING": DBBuffer(8, 4) = "LUM SUM": DBBuffer(8, 5) = 1: DBBuffer(8, 6) = 750: DBBuffer(8, 7) = 750
DBBuffer(9, 1) = 9: DBBuffer(9, 2) = "100-11": DBBuffer(9, 3) = "RADIO COMMUNICATIONS SYSTEM": DBBuffer(9, 4) = "LUM SUM": DBBuffer(9, 5) = 1: DBBuffer(9, 6) = 30000: DBBuffer(9, 7) = 30000
DBBuffer(10, 1) = 10: DBBuffer(10, 2) = "100-12a": DBBuffer(10, 3) = "HOUSES AND FURNITURE FOR THE ENGINEER'S SUPERVISORY STAFF TYPE I": DBBuffer(10, 4) = "NO": DBBuffer(10, 5) = 5: DBBuffer(10, 6) = 40500: DBBuffer(10, 7) = 202500
DBBuffer(11, 1) = 11: DBBuffer(11, 2) = "100-12b": DBBuffer(11, 3) = "HOUSES AND FURNITURE FOR THE ENGINEER'S SUPERVISORY STAFF TYPE II": DBBuffer(11, 4) = "NO": DBBuffer(11, 5) = 4: DBBuffer(11, 6) = 40500: DBBuffer(11, 7) = 162000
DBBuffer(12, 1) = 12: DBBuffer(12, 2) = "100-13a": DBBuffer(12, 3) = "PROVISION VEHICLES TYPE I": DBBuffer(12, 4) = "NO": DBBuffer(12, 5) = 2: DBBuffer(12, 6) = 54000: DBBuffer(12, 7) = 108000
DBBuffer(13, 1) = 13: DBBuffer(13, 2) = "100-13b": DBBuffer(13, 3) = "PROVISION VEHICLES TYPE II": DBBuffer(13, 4) = "NO": DBBuffer(13, 5) = 9: DBBuffer(13, 6) = 15000: DBBuffer(13, 7) = 135000
DBBuffer(14, 1) = 14: DBBuffer(14, 2) = "100-14": DBBuffer(14, 3) = "MAINTENANCE OF THE ENGINEER'S SITE OFFICE AND ASSOCIATED EQUIPMENT": DBBuffer(14, 4) = "MONTH": DBBuffer(14, 5) = 24: DBBuffer(14, 6) = 3094.15: DBBuffer(14, 7) = 74259.6
DBBuffer(15, 1) = 15: DBBuffer(15, 2) = "100-15": DBBuffer(15, 3) = "MAINTENANCE OF THE ENGINEER'S SITE LABORATORY AND ASSOCIATED EQUIPMENT": DBBuffer(15, 4) = "MONTH": DBBuffer(15, 5) = 24: DBBuffer(15, 6) = 2094.75: DBBuffer(15, 7) = 50274
DBBuffer(16, 1) = 16: DBBuffer(16, 2) = "100-18": DBBuffer(16, 3) = "MAINTENANCE OF THE ENGINEER'S SURVEY EQUIPMENT": DBBuffer(16, 4) = "MONTH": DBBuffer(16, 5) = 24: DBBuffer(16, 6) = 228: DBBuffer(16, 7) = 5472
DBBuffer(17, 1) = 17: DBBuffer(17, 2) = "100-19": DBBuffer(17, 3) = "MAINTENANCE OF THE ENGINEER'S RADIO EQUIPMENT": DBBuffer(17, 4) = "MONTH": DBBuffer(17, 5) = 24: DBBuffer(17, 6) = 250: DBBuffer(17, 7) = 6000
DBBuffer(18, 1) = 18: DBBuffer(18, 2) = "100-20a": DBBuffer(18, 3) = "MAINTENANCE OF THE ENGINEER'S HOUSES AND EQUIPMENT TYPE I": DBBuffer(18, 4) = "HOUSE-MONTH": DBBuffer(18, 5) = 120: DBBuffer(18, 6) = 798: DBBuffer(18, 7) = 95760
DBBuffer(19, 1) = 19: DBBuffer(19, 2) = "100-20b": DBBuffer(19, 3) = "MAINTENANCE OF THE ENGINEER'S HOUSES AND EQUIPMENT TYPE II": DBBuffer(19, 4) = "HOUSE-MONTH": DBBuffer(19, 5) = 96: DBBuffer(19, 6) = 798: DBBuffer(19, 7) = 76608
DBBuffer(20, 1) = 20: DBBuffer(20, 2) = "100-21a": DBBuffer(20, 3) = "MAINTENANCE OF THE ENGINEER'S VEHICLES TYPE I": DBBuffer(20, 4) = "VEHICLES-MONTH": DBBuffer(20, 5) = 48: DBBuffer(20, 6) = 940.5: DBBuffer(20, 7) = 45144
DBBuffer(21, 1) = 21: DBBuffer(21, 2) = "100-21b": DBBuffer(21, 3) = "MAINTENANCE OF THE ENGINEER'S VEHICLES TYPE II": DBBuffer(21, 4) = "VEHICLES-MONTH": DBBuffer(21, 5) = 216: DBBuffer(21, 6) = 631.75: DBBuffer(21, 7) = 136458
DBBuffer(22, 1) = 22: DBBuffer(22, 2) = "100-22": DBBuffer(22, 3) = "AS-BUILT DRAWINGS": DBBuffer(22, 4) = "LUM SUM": DBBuffer(22, 5) = 1: DBBuffer(22, 6) = 15000: DBBuffer(22, 7) = 15000
DBBuffer(23, 1) = 23: DBBuffer(23, 2) = "100-23a": DBBuffer(23, 3) = "REMOVAL AND RELOCATION OF EXISTING POVER LINE 10 KV": DBBuffer(23, 4) = "P.SUM": DBBuffer(23, 5) = 1: DBBuffer(23, 6) = 15000: DBBuffer(23, 7) = 15000
DBBuffer(24, 1) = 24: DBBuffer(24, 2) = "100-23b": DBBuffer(24, 3) = "REMOVAL AND RELOCATION OF TELECOMMUNICATION": DBBuffer(24, 4) = "P.SUM": DBBuffer(24, 5) = 1: DBBuffer(24, 6) = 10000: DBBuffer(24, 7) = 10000
DBBuffer(25, 1) = 25: DBBuffer(25, 2) = "100-23c": DBBuffer(25, 3) = "RELOCATION OF EXISTING IRRIGATION WATER COURSES": DBBuffer(25, 4) = "P.SUM": DBBuffer(25, 5) = 1: DBBuffer(25, 6) = 15000: DBBuffer(25, 7) = 15000
DBBuffer(26, 1) = 26: DBBuffer(26, 2) = "100-24": DBBuffer(26, 3) = "EXTRA OVER ITEM 23. REMOVE AND RELOCATION OF EXISTING SERVICE": DBBuffer(26, 4) = "PERCENT": DBBuffer(26, 5) = 0.1: DBBuffer(26, 6) = 40000: DBBuffer(26, 7) = 4000
DBBuffer(27, 1) = 27: DBBuffer(27, 2) = "100-25": DBBuffer(27, 3) = "PROTECTION OF EXISTING SERVICES": DBBuffer(27, 4) = "LUM SUM": DBBuffer(27, 5) = 1: DBBuffer(27, 6) = 37500: DBBuffer(27, 7) = 37500
DBBuffer(28, 1) = 28: DBBuffer(28, 2) = "100-26": DBBuffer(28, 3) = "CATERING": DBBuffer(28, 4) = "MONTH": DBBuffer(28, 5) = 24: DBBuffer(28, 6) = 4455: DBBuffer(28, 7) = 106920
DBBuffer(29, 1) = 29: DBBuffer(29, 2) = "300-1": DBBuffer(29, 3) = "TOPOGRAHIC SURVEY": DBBuffer(29, 4) = "KM": DBBuffer(29, 5) = 38: DBBuffer(29, 6) = 1500: DBBuffer(29, 7) = 57000
DBBuffer(30, 1) = 30: DBBuffer(30, 2) = "400-1": DBBuffer(30, 3) = "SITE CLEARANCE": DBBuffer(30, 4) = "LUM SUM": DBBuffer(30, 5) = 1: DBBuffer(30, 6) = 37500: DBBuffer(30, 7) = 37500
DBBuffer(31, 1) = 31: DBBuffer(31, 2) = "500-1": DBBuffer(31, 3) = "REMOVAL OF TOPSOIL": DBBuffer(31, 4) = "M3": DBBuffer(31, 5) = 42000: DBBuffer(31, 6) = 0.52: DBBuffer(31, 7) = 21840
DBBuffer(32, 1) = 32: DBBuffer(32, 2) = "500-2": DBBuffer(32, 3) = "EXCAVATION OF SUITABLE MATERIAL": DBBuffer(32, 4) = "M3": DBBuffer(32, 5) = 600000: DBBuffer(32, 6) = 0.97: DBBuffer(32, 7) = 582000
DBBuffer(33, 1) = 33: DBBuffer(33, 2) = "500-3": DBBuffer(33, 3) = "EXCAVATION OF UNSUITABLE MATERIAL": DBBuffer(33, 4) = "M3": DBBuffer(33, 5) = 1000: DBBuffer(33, 6) = 3: DBBuffer(33, 7) = 3000
DBBuffer(34, 1) = 34: DBBuffer(34, 2) = "500-4": DBBuffer(34, 3) = "EXCAVATION IN ROCK AND REINFORCED CONCRETE": DBBuffer(34, 4) = "M3": DBBuffer(34, 5) = 700000: DBBuffer(34, 6) = 3.15: DBBuffer(34, 7) = 2205000
DBBuffer(35, 1) = 35: DBBuffer(35, 2) = "500-5": DBBuffer(35, 3) = "PREPARATION OF EXISTING GROUND BELOW EMBANKMENTS": DBBuffer(35, 4) = "M2": DBBuffer(35, 5) = 520000: DBBuffer(35, 6) = 0.15: DBBuffer(35, 7) = 78000
DBBuffer(36, 1) = 36: DBBuffer(36, 2) = "500-6": DBBuffer(36, 3) = "DEPOSITION OF SUITABLE FILL IN EMBANKMENTS AND OTHER FILL AREAS": DBBuffer(36, 4) = "M3": DBBuffer(36, 5) = 1125000: DBBuffer(36, 6) = 0.67: DBBuffer(36, 7) = 753750
DBBuffer(37, 1) = 37: DBBuffer(37, 2) = "500-7": DBBuffer(37, 3) = "IMPORTED SUITABLE FILL": DBBuffer(37, 4) = "M3": DBBuffer(37, 5) = 500: DBBuffer(37, 6) = 4.35: DBBuffer(37, 7) = 2175
DBBuffer(38, 1) = 38: DBBuffer(38, 2) = "500-8": DBBuffer(38, 3) = "DISPOSAL SURPLUS SUITABLE MATERIAL": DBBuffer(38, 4) = "M3": DBBuffer(38, 5) = 175000: DBBuffer(38, 6) = 0.6: DBBuffer(38, 7) = 105000
DBBuffer(39, 1) = 39: DBBuffer(39, 2) = "500-9": DBBuffer(39, 3) = "COMPACTION OF FILL IN EMBANKMENTS": DBBuffer(39, 4) = "M3": DBBuffer(39, 5) = 1125000: DBBuffer(39, 6) = 0.37: DBBuffer(39, 7) = 416250
DBBuffer(40, 1) = 40: DBBuffer(40, 2) = "500-10": DBBuffer(40, 3) = "COMPLETION OF FORMATION": DBBuffer(40, 4) = "M2": DBBuffer(40, 5) = 471000: DBBuffer(40, 6) = 0.07: DBBuffer(40, 7) = 32970
DBBuffer(41, 1) = 41: DBBuffer(41, 2) = "500-11": DBBuffer(41, 3) = "CLEARING AND REGARDING OF EXISTING WATERCOURSES": DBBuffer(41, 4) = "M3": DBBuffer(41, 5) = 1000: DBBuffer(41, 6) = 3: DBBuffer(41, 7) = 3000
DBBuffer(42, 1) = 42: DBBuffer(42, 2) = "500-12": DBBuffer(42, 3) = "TOPSOIL SPREADING": DBBuffer(42, 4) = "M2": DBBuffer(42, 5) = 35000: DBBuffer(42, 6) = 0.75: DBBuffer(42, 7) = 26250
DBBuffer(43, 1) = 43: DBBuffer(43, 2) = "500-13": DBBuffer(43, 3) = "ROCK BOLTING": DBBuffer(43, 4) = "LM": DBBuffer(43, 5) = 1500: DBBuffer(43, 6) = 97.5: DBBuffer(43, 7) = 146250
DBBuffer(44, 1) = 44: DBBuffer(44, 2) = "500-14": DBBuffer(44, 3) = "ROCK NAILS": DBBuffer(44, 4) = "LM": DBBuffer(44, 5) = 23000: DBBuffer(44, 6) = 12: DBBuffer(44, 7) = 276000
DBBuffer(45, 1) = 45: DBBuffer(45, 2) = "500-15": DBBuffer(45, 3) = "GALVANIZED NETTING": DBBuffer(45, 4) = "M2": DBBuffer(45, 5) = 6400: DBBuffer(45, 6) = 27: DBBuffer(45, 7) = 172800
DBBuffer(46, 1) = 46: DBBuffer(46, 2) = "500-16": DBBuffer(46, 3) = "GALVANIZED NETTING AND CONCRETING": DBBuffer(46, 4) = "M2": DBBuffer(46, 5) = 11400: DBBuffer(46, 6) = 90: DBBuffer(46, 7) = 1026000
DBBuffer(47, 1) = 47: DBBuffer(47, 2) = "500-17": DBBuffer(47, 3) = "CYCLOPEAN CONCRETE FOR THE TREATMENT OF CAVITIES": DBBuffer(47, 4) = "M3": DBBuffer(47, 5) = 2295: DBBuffer(47, 6) = 120: DBBuffer(47, 7) = 275400
DBBuffer(48, 1) = 48: DBBuffer(48, 2) = "500-18": DBBuffer(48, 3) = "STRUCTURAL EXCAVATION IN UNSUITABLE MATERIAL": DBBuffer(48, 4) = "M3": DBBuffer(48, 5) = 1000: DBBuffer(48, 6) = 3.75: DBBuffer(48, 7) = 3750
DBBuffer(49, 1) = 49: DBBuffer(49, 2) = "500-19": DBBuffer(49, 3) = "STRUCTURAL EXCAVATION IN SUITABLE MATERIAL (BRIDGE,RETAINING WALLS,GABIONS,DRAINAGE DITCHES)": DBBuffer(49, 4) = "M3": DBBuffer(49, 5) = 97000: DBBuffer(49, 6) = 2.4: DBBuffer(49, 7) = 232800
DBBuffer(50, 1) = 50: DBBuffer(50, 2) = "500-20": DBBuffer(50, 3) = "COMPACTION OF SUITABLE FILL ADJACENT TO STRUCTURES": DBBuffer(50, 4) = "M3": DBBuffer(50, 5) = 19500: DBBuffer(50, 6) = 0.45: DBBuffer(50, 7) = 8775
DBBuffer(51, 1) = 51: DBBuffer(51, 2) = "500-21": DBBuffer(51, 3) = "COMPACTION OF GRANULAR FILL ADJACENT TO STRUCTURES": DBBuffer(51, 4) = "M3": DBBuffer(51, 5) = 21100: DBBuffer(51, 6) = 0.9: DBBuffer(51, 7) = 18990
DBBuffer(52, 1) = 52: DBBuffer(52, 2) = "500-22": DBBuffer(52, 3) = "PROTECTION FENCE": DBBuffer(52, 4) = "LM": DBBuffer(52, 5) = 200: DBBuffer(52, 6) = 15: DBBuffer(52, 7) = 3000
DBBuffer(53, 1) = 53: DBBuffer(53, 2) = "600-1-1": DBBuffer(53, 3) = "PRECAST CONCRETE PIPE CULVERTS PIPE DIAMETER 1.5 M": DBBuffer(53, 4) = "LM": DBBuffer(53, 5) = 1150: DBBuffer(53, 6) = 311: DBBuffer(53, 7) = 357650
DBBuffer(54, 1) = 54: DBBuffer(54, 2) = "600-1-2": DBBuffer(54, 3) = "PRECAST CONCRETE PIPE CULVERTS PIPE DIAMETER 2 (1.50) M": DBBuffer(54, 4) = "LM": DBBuffer(54, 5) = 550: DBBuffer(54, 6) = 399: DBBuffer(54, 7) = 219450
DBBuffer(55, 1) = 55: DBBuffer(55, 2) = "600-2-1": DBBuffer(55, 3) = "REINFORCED CONCRETE BOX CULVERTS BOX (2.0X2.0)M": DBBuffer(55, 4) = "LM": DBBuffer(55, 5) = 230: DBBuffer(55, 6) = 375: DBBuffer(55, 7) = 86250
DBBuffer(56, 1) = 56: DBBuffer(56, 2) = "600-2-2": DBBuffer(56, 3) = "REINFORCED CONCRETE BOX CULVERTS BOX 2(2.0X2.0)M": DBBuffer(56, 4) = "LM": DBBuffer(56, 5) = 270: DBBuffer(56, 6) = 638: DBBuffer(56, 7) = 172260
DBBuffer(57, 1) = 57: DBBuffer(57, 2) = "600-2-3": DBBuffer(57, 3) = "REINFORCED CONCRETE BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(57, 4) = "LM": DBBuffer(57, 5) = 190: DBBuffer(57, 6) = 902: DBBuffer(57, 7) = 171380
DBBuffer(58, 1) = 58: DBBuffer(58, 2) = "600-3-1": DBBuffer(58, 3) = "REINFORCED CONCRETE HEADWALL ELEMENTS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 1.5 M/BOX (2.0X2.0)M": DBBuffer(58, 4) = "NO": DBBuffer(58, 5) = 86: DBBuffer(58, 6) = 1114: DBBuffer(58, 7) = 95804
DBBuffer(59, 1) = 59: DBBuffer(59, 2) = "600-3-2": DBBuffer(59, 3) = "REINFORCED CONCRETE HEADWALL ELEMENTS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 2 (1.50) M / BOX (2.0X2.0)M": DBBuffer(59, 4) = "NO": DBBuffer(59, 5) = 21: DBBuffer(59, 6) = 1440: DBBuffer(59, 7) = 30240
DBBuffer(60, 1) = 60: DBBuffer(60, 2) = "600-3-3": DBBuffer(60, 3) = "REINFORCED CONCRETE HEADWALL ELEMENTS FOR PIPE CULVERT AND BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(60, 4) = "NO": DBBuffer(60, 5) = 1: DBBuffer(60, 6) = 1618: DBBuffer(60, 7) = 1618
DBBuffer(61, 1) = 61: DBBuffer(61, 2) = "600-4-1": DBBuffer(61, 3) = "REINFORCED CONCRETE WING WALLS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 1.5 M / BOX (2.0X2.0)M": DBBuffer(61, 4) = "NO": DBBuffer(61, 5) = 72: DBBuffer(61, 6) = 300: DBBuffer(61, 7) = 21600
DBBuffer(62, 1) = 62: DBBuffer(62, 2) = "600-4-2": DBBuffer(62, 3) = "REINFORCED CONCRETE WING WALLS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 2 (1.50) M / BOX (2.0X2.0)M": DBBuffer(62, 4) = "NO": DBBuffer(62, 5) = 57: DBBuffer(62, 6) = 300: DBBuffer(62, 7) = 17100
DBBuffer(63, 1) = 63: DBBuffer(63, 2) = "600-4-3": DBBuffer(63, 3) = "REINFORCED CONCRETE WING WALLS FOR PIPE CULVERT AND BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(63, 4) = "NO": DBBuffer(63, 5) = 13: DBBuffer(63, 6) = 409: DBBuffer(63, 7) = 5317
DBBuffer(64, 1) = 64: DBBuffer(64, 2) = "600-5-1": DBBuffer(64, 3) = "REINFORCED CONCRETE DROP MANHOLES FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 1.5 M / BOX (2.0X2.0)M": DBBuffer(64, 4) = "NO": DBBuffer(64, 5) = 6: DBBuffer(64, 6) = 425: DBBuffer(64, 7) = 2550
DBBuffer(65, 1) = 65: DBBuffer(65, 2) = "600-5-2": DBBuffer(65, 3) = "REINFORCED CONCRETE DROP MANHOLES FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 2 (1.50) M / BOX (2.0X2.0)M": DBBuffer(65, 4) = "NO": DBBuffer(65, 5) = 6: DBBuffer(65, 6) = 995: DBBuffer(65, 7) = 5970
DBBuffer(66, 1) = 66: DBBuffer(66, 2) = "600-5-3": DBBuffer(66, 3) = "REINFORCED CONCRETE DROP MANHOLES FOR PIPE CULVERT AND BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(66, 4) = "NO": DBBuffer(66, 5) = 2: DBBuffer(66, 6) = 1428: DBBuffer(66, 7) = 2856
DBBuffer(67, 1) = 67: DBBuffer(67, 2) = "600-6": DBBuffer(67, 3) = "RIP RAP PROTECTION WORKS (ROAD EMBANKMENT,BRIDGE LOCATIONS,DIVERSIONS) ROCK DIAMETER <> 1.10 M.)": DBBuffer(68, 4) = "M3": DBBuffer(68, 5) = 8000: DBBuffer(68, 6) = 12: DBBuffer(68, 7) = 96000
DBBuffer(69, 1) = 69: DBBuffer(69, 2) = "600-7": DBBuffer(69, 3) = "PRECAST / IN-SITU CONCRETE PROTECTION ( CLASS 20/20 ) FOR BERMS": DBBuffer(69, 4) = "M3": DBBuffer(69, 5) = 650: DBBuffer(69, 6) = 140.5: DBBuffer(69, 7) = 91325
DBBuffer(70, 1) = 70: DBBuffer(70, 2) = "600-8": DBBuffer(70, 3) = "PROTECTION FOR DROP INLET FACES": DBBuffer(70, 4) = "M3": DBBuffer(70, 5) = 650: DBBuffer(70, 6) = 140.5: DBBuffer(70, 7) = 91325
DBBuffer(71, 1) = 71: DBBuffer(71, 2) = "600-9": DBBuffer(71, 3) = "CONCRETE CHANNEL DOWN EMBANKMENT SIDE SLOPE ( SCOUR CHECKS )": DBBuffer(71, 4) = "M3": DBBuffer(71, 5) = 200: DBBuffer(71, 6) = 140.5: DBBuffer(71, 7) = 28100
DBBuffer(72, 1) = 72: DBBuffer(72, 2) = "600-10": DBBuffer(72, 3) = "GROUTED RIP-RAP PROTECTION WORKS": DBBuffer(72, 4) = "M3": DBBuffer(72, 5) = 13350: DBBuffer(72, 6) = 17.8: DBBuffer(72, 7) = 237630
DBBuffer(73, 1) = 73: DBBuffer(73, 2) = "600-11": DBBuffer(73, 3) = "LINED OPEN DRAIN DITCHES (SIDE DITCHES)": DBBuffer(73, 4) = "LM": DBBuffer(73, 5) = 16800: DBBuffer(73, 6) = 10.5: DBBuffer(73, 7) = 176400
DBBuffer(74, 1) = 74: DBBuffer(74, 2) = "600-12A": DBBuffer(74, 3) = "CONCRETE KERBS TYPE I": DBBuffer(74, 4) = "LM": DBBuffer(74, 5) = 11700: DBBuffer(74, 6) = 9.7: DBBuffer(74, 7) = 113490
DBBuffer(75, 1) = 75: DBBuffer(75, 2) = "600-12B": DBBuffer(75, 3) = "CONCRETE KERBS TYPE II": DBBuffer(75, 4) = "LM": DBBuffer(75, 5) = 9300: DBBuffer(75, 6) = 6.7: DBBuffer(75, 7) = 62310
DBBuffer(76, 1) = 76: DBBuffer(76, 2) = "600-13": DBBuffer(76, 3) = "DRAINAGE PIPE BEHIND STRUCTURES": DBBuffer(76, 4) = "LM": DBBuffer(76, 5) = 1700: DBBuffer(76, 6) = 14.2: DBBuffer(76, 7) = 24140
DBBuffer(77, 1) = 77: DBBuffer(77, 2) = "700-1": DBBuffer(77, 3) = "GRANULAR SUB BASE": DBBuffer(77, 4) = "M3": DBBuffer(77, 5) = 73000: DBBuffer(77, 6) = 3.9: DBBuffer(77, 7) = 284700
DBBuffer(78, 1) = 78: DBBuffer(78, 2) = "700-2": DBBuffer(78, 3) = "SHOULDER MATERIAL": DBBuffer(78, 4) = "M3": DBBuffer(78, 5) = 32000: DBBuffer(78, 6) = 7.2: DBBuffer(78, 7) = 230400
DBBuffer(79, 1) = 79: DBBuffer(79, 2) = "700-3": DBBuffer(79, 3) = "CRUSHED STONE ROAD BASE": DBBuffer(79, 4) = "M3": DBBuffer(79, 5) = 52000: DBBuffer(79, 6) = 21.6: DBBuffer(79, 7) = 1123200
DBBuffer(80, 1) = 80: DBBuffer(80, 2) = "800-1": DBBuffer(80, 3) = "PRIME COAT": DBBuffer(80, 4) = "KG": DBBuffer(80, 5) = 393000: DBBuffer(80, 6) = 0.67: DBBuffer(80, 7) = 263310
DBBuffer(81, 1) = 81: DBBuffer(81, 2) = "800-2": DBBuffer(81, 3) = "TACK COAT": DBBuffer(81, 4) = "KG": DBBuffer(81, 5) = 401800: DBBuffer(81, 6) = 0.97: DBBuffer(81, 7) = 389746
DBBuffer(82, 1) = 82: DBBuffer(82, 2) = "800-3": DBBuffer(82, 3) = "ASPHALTIC CONCRETE BASE COURSE": DBBuffer(82, 4) = "M3": DBBuffer(82, 5) = 16100: DBBuffer(82, 6) = 75: DBBuffer(82, 7) = 1207500
DBBuffer(83, 1) = 83: DBBuffer(83, 2) = "900-1": DBBuffer(83, 3) = "CAST-IN-PLACE REINFORCED CONCRETE CLASS 40 / 20": DBBuffer(83, 4) = "M3": DBBuffer(83, 5) = 15600: DBBuffer(83, 6) = 86.8: DBBuffer(83, 7) = 1354080
DBBuffer(84, 1) = 84: DBBuffer(84, 2) = "900-2a": DBBuffer(84, 3) = "A- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 ABUTMENT AND WING WALLS": DBBuffer(84, 4) = "M3": DBBuffer(84, 5) = 3150: DBBuffer(84, 6) = 85: DBBuffer(84, 7) = 267750
DBBuffer(85, 1) = 85: DBBuffer(85, 2) = "900-2b": DBBuffer(85, 3) = "B- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 APRON SLABS": DBBuffer(85, 4) = "M3": DBBuffer(85, 5) = 150: DBBuffer(85, 6) = 85: DBBuffer(85, 7) = 12750
DBBuffer(86, 1) = 86: DBBuffer(86, 2) = "900-2c": DBBuffer(86, 3) = "C- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 PIERS": DBBuffer(86, 4) = "M3": DBBuffer(86, 5) = 135: DBBuffer(86, 6) = 85: DBBuffer(86, 7) = 11475
DBBuffer(87, 1) = 87: DBBuffer(87, 2) = "900-2d": DBBuffer(87, 3) = "D- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 PIER FOUNDATION": DBBuffer(87, 4) = "M3": DBBuffer(87, 5) = 210: DBBuffer(87, 6) = 85: DBBuffer(87, 7) = 17850
DBBuffer(88, 1) = 88: DBBuffer(88, 2) = "900-2e": DBBuffer(88, 3) = "E- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 RETAINING WALLS": DBBuffer(88, 4) = "M3": DBBuffer(88, 5) = 25200: DBBuffer(88, 6) = 85: DBBuffer(88, 7) = 2142000
DBBuffer(89, 1) = 89: DBBuffer(89, 2) = "900-3": DBBuffer(89, 3) = "CAST-IN-PLACE PLAIN CONCRETE CLASS 15 / 25": DBBuffer(89, 4) = "M3": DBBuffer(89, 5) = 1850: DBBuffer(89, 6) = 82.3: DBBuffer(89, 7) = 152255
DBBuffer(90, 1) = 90: DBBuffer(90, 2) = "900-4": DBBuffer(90, 3) = "REINFORCEMENT": DBBuffer(90, 4) = "TONNE": DBBuffer(90, 5) = 6300: DBBuffer(90, 6) = 555: DBBuffer(90, 7) = 3496500
DBBuffer(91, 1) = 91: DBBuffer(91, 2) = "900-5a": DBBuffer(91, 3) = "A- PRECAST REINFORCED CONCRETE DECK ELEMENTS PANEL TYPE ""1"" INCLUDING REINFORCEMENT,AS SHOWN ON DRAWINGS": DBBuffer(91, 4) = "NO": DBBuffer(91, 5) = 114: DBBuffer(91, 6) = 402: DBBuffer(91, 7) = 45828
DBBuffer(92, 1) = 92: DBBuffer(92, 2) = "900-5b": DBBuffer(92, 3) = "B- PRECAST REINFORCED CONCRETE DECK ELEMENTS PANEL TYPE ""2"" INCLUDING REINFORCEMENT,AS SHOWN ON DRAWINGS": DBBuffer(92, 4) = "NO": DBBuffer(92, 5) = 28: DBBuffer(92, 6) = 304.5: DBBuffer(92, 7) = 8526
DBBuffer(93, 1) = 93: DBBuffer(93, 2) = "1200-1a": DBBuffer(93, 3) = "A- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1150 KN VERTICAL CAPACITY - 160 KN HORIZ.": DBBuffer(93, 4) = "NO": DBBuffer(93, 5) = 8: DBBuffer(93, 6) = 10395: DBBuffer(93, 7) = 83160
DBBuffer(94, 1) = 94: DBBuffer(94, 2) = "1200-1b": DBBuffer(94, 3) = "B- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 800 KN VERTICAL CAPACITY - 120 KN HORIZ.": DBBuffer(94, 4) = "NO": DBBuffer(94, 5) = 8: DBBuffer(94, 6) = 10395: DBBuffer(94, 7) = 83160
DBBuffer(95, 1) = 95: DBBuffer(95, 2) = "1200-1c": DBBuffer(95, 3) = "C- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1400 KN VERTICAL CAPACITY - 250 KN HORIZ.": DBBuffer(95, 4) = "NO": DBBuffer(95, 5) = 8: DBBuffer(95, 6) = 15592.5: DBBuffer(95, 7) = 124740
DBBuffer(96, 1) = 96: DBBuffer(96, 2) = "1200-1d": DBBuffer(96, 3) = "D- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1000 KN VERTICAL CAPACITY - 200 KN HORIZ.": DBBuffer(96, 4) = "NO": DBBuffer(96, 5) = 8: DBBuffer(96, 6) = 15592.5: DBBuffer(96, 7) = 124740
DBBuffer(97, 1) = 97: DBBuffer(97, 2) = "1200-1e": DBBuffer(97, 3) = "E- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1000 KN VERTICAL CAPACITY - 110 KN HORIZ.": DBBuffer(97, 4) = "NO": DBBuffer(97, 5) = 12: DBBuffer(97, 6) = 7087.5: DBBuffer(97, 7) = 85050
DBBuffer(98, 1) = 98: DBBuffer(98, 2) = "1200-1f": DBBuffer(98, 3) = " F- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 700 KN VERTICAL CAPACITY - 75 KN HORIZ.": DBBuffer(98, 4) = "NO": DBBuffer(98, 5) = 12: DBBuffer(98, 6) = 7087.5: DBBuffer(98, 7) = 85050
DBBuffer(99, 1) = 99: DBBuffer(99, 2) = "1200-2": DBBuffer(99, 3) = "EXPANSION JOINTS": DBBuffer(99, 4) = "LM": DBBuffer(99, 5) = 370: DBBuffer(99, 6) = 22.5: DBBuffer(99, 7) = 8325
DBBuffer(100, 1) = 100: DBBuffer(100, 2) = "1200-3": DBBuffer(100, 3) = "BRIDGE DECK WATERPROOFING MEMBRANE": DBBuffer(100, 4) = "M2": DBBuffer(100, 5) = 2030: DBBuffer(100, 6) = 10.5: DBBuffer(100, 7) = 21315
DBBuffer(101, 1) = 101: DBBuffer(101, 2) = "1200-4": DBBuffer(101, 3) = "PEDESTRIAN HANDRAIL": DBBuffer(101, 4) = "LM": DBBuffer(101, 5) = 481: DBBuffer(101, 6) = 75: DBBuffer(101, 7) = 36075
DBBuffer(102, 1) = 102: DBBuffer(102, 2) = "1200-5": DBBuffer(102, 3) = "ROOF WATERPROOFING MEMBRANE": DBBuffer(102, 4) = "M2": DBBuffer(102, 5) = 10425: DBBuffer(102, 6) = 12: DBBuffer(102, 7) = 125100
DBBuffer(103, 1) = 103: DBBuffer(103, 2) = "1200-6": DBBuffer(103, 3) = "PERMEABLE BACKING": DBBuffer(103, 4) = "M3": DBBuffer(103, 5) = 335: DBBuffer(103, 6) = 15: DBBuffer(103, 7) = 5025
DBBuffer(104, 1) = 104: DBBuffer(104, 2) = "1200-7": DBBuffer(104, 3) = "DRAINAGE GULLIES FOR BRIDGE DECK": DBBuffer(104, 4) = "NO": DBBuffer(104, 5) = 24: DBBuffer(104, 6) = 150: DBBuffer(104, 7) = 3600
DBBuffer(105, 1) = 105: DBBuffer(105, 2) = "1300-1a": DBBuffer(105, 3) = "MARKER POSTS ROAD RESERVE BOUNDARY POSTS": DBBuffer(105, 4) = "NO": DBBuffer(105, 5) = 152: DBBuffer(105, 6) = 30: DBBuffer(105, 7) = 4560
DBBuffer(106, 1) = 106: DBBuffer(106, 2) = "1300-1b": DBBuffer(106, 3) = "MARKER POSTS EDGE MARKER POSTS": DBBuffer(106, 4) = "NO": DBBuffer(106, 5) = 1500: DBBuffer(106, 6) = 16.5: DBBuffer(106, 7) = 24750
DBBuffer(107, 1) = 107: DBBuffer(107, 2) = "1300-1c": DBBuffer(107, 3) = "MARKER POSTS KILOMETER MARKER POSTS": DBBuffer(107, 4) = "NO": DBBuffer(107, 5) = 76: DBBuffer(107, 6) = 16.5: DBBuffer(107, 7) = 1254
DBBuffer(108, 1) = 108: DBBuffer(108, 2) = "1300-2": DBBuffer(108, 3) = "PERMANENT ROAD SIGNS - SIGN POSTS": DBBuffer(108, 4) = "NO": DBBuffer(108, 5) = 380: DBBuffer(108, 6) = 25.2: DBBuffer(108, 7) = 9576
DBBuffer(109, 1) = 109: DBBuffer(109, 2) = "1300-3a": DBBuffer(109, 3) = "PERMANENT ROAD SIGNS - FACE PLATES <> 5 M2 (OVER 5 M2 )": DBBuffer(112, 4) = "NO": DBBuffer(112, 5) = 5: DBBuffer(112, 6) = 1050: DBBuffer(112, 7) = 5250
DBBuffer(113, 1) = 113: DBBuffer(113, 2) = "1300-4a": DBBuffer(113, 3) = "STEEL GUARD - RAIL": DBBuffer(113, 4) = "LM": DBBuffer(113, 5) = 4000: DBBuffer(113, 6) = 45: DBBuffer(113, 7) = 180000
DBBuffer(114, 1) = 114: DBBuffer(114, 2) = "1300-4b": DBBuffer(114, 3) = "CONCRETE BARRIER GUARD - RAIL": DBBuffer(114, 4) = "LM": DBBuffer(114, 5) = 4000: DBBuffer(114, 6) = 37.5: DBBuffer(114, 7) = 150000
DBBuffer(115, 1) = 115: DBBuffer(115, 2) = "1300-4c": DBBuffer(115, 3) = "MASONRY BARRIER GUARD - RAIL": DBBuffer(115, 4) = "LM": DBBuffer(115, 5) = 17000: DBBuffer(115, 6) = 37.5: DBBuffer(115, 7) = 637500
DBBuffer(116, 1) = 116: DBBuffer(116, 2) = "1300-5": DBBuffer(116, 3) = "BUS STOP SHELTER": DBBuffer(116, 4) = "NO": DBBuffer(116, 5) = 21: DBBuffer(116, 6) = 1125: DBBuffer(116, 7) = 23625
DBBuffer(117, 1) = 117: DBBuffer(117, 2) = "1300-6": DBBuffer(117, 3) = "ROAD LIGHTING IN SETTLEMENT AREAS": DBBuffer(117, 4) = "LM": DBBuffer(117, 5) = 4000: DBBuffer(117, 6) = 30: DBBuffer(117, 7) = 120000
DBBuffer(118, 1) = 118: DBBuffer(118, 2) = "1400-1": DBBuffer(118, 3) = "ROAD TRAFFIC MARKINGS - WHITE LINES": DBBuffer(118, 4) = "M2": DBBuffer(118, 5) = 16000: DBBuffer(118, 6) = 10.1: DBBuffer(118, 7) = 161600
DBBuffer(119, 1) = 119: DBBuffer(119, 2) = "1500-1": DBBuffer(119, 3) = "BUILT UP GIRDERS": DBBuffer(119, 4) = "TONNE": DBBuffer(119, 5) = 355: DBBuffer(119, 6) = 1132.394366: DBBuffer(119, 7) = 401999.99993
DBBuffer(120, 1) = 120: DBBuffer(120, 2) = "1500-2": DBBuffer(120, 3) = "CROSS DIAPHRAGMS": DBBuffer(120, 4) = "TONNE": DBBuffer(120, 5) = 60: DBBuffer(120, 6) = 1425: DBBuffer(120, 7) = 85500
DBBuffer(121, 1) = 121: DBBuffer(121, 2) = "1600-1": DBBuffer(121, 3) = "BUILDING UP GABIONS STRUCTURES": DBBuffer(121, 4) = "M3": DBBuffer(121, 5) = 90000: DBBuffer(121, 6) = 16.5: DBBuffer(121, 7) = 1485000
DBBuffer(122, 1) = 122: DBBuffer(122, 2) = "SP": DBBuffer(122, 3) = "DAYWORKS": DBBuffer(122, 4) = "LS": DBBuffer(122, 5) = 1: DBBuffer(122, 6) = 353000: DBBuffer(122, 7) = 353000
End Sub
Private Sub CreateUserForm()

On Error Resume Next
With Me
.Height = 426
.Width = 647
'.Picture = LoadPicture("C:\Documents and Settings\Administrator\Belgelerim\Mustafa ULUSARAÇ\VectorBackround.jpg")
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
.BackColor = vbWhite
With Image1
.Left = 6
.Top = 6
.Height = 24
.Width = 24
.BorderColor = &HFFFFFF
.BorderStyle = fmBorderStyleSingle
.BackStyle = fmBackStyleTransparent
'.Picture = LoadPicture("C:\Documents and Settings\Administrator\Belgelerim\Mustafa ULUSARAÇ\PBİD.ico").Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Top = 6
.Left = 36
.Height = 12
.Width = 228
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Mustafa ULUSARAÇ"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectFlat
.TextAlign = fmTextAlignLeft
End With
With Label2
.Top = 18
.Left = 36
.Height = 12
.Width = 228
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "01ulusarac@superonline.com"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectFlat
.TextAlign = fmTextAlignLeft
End With
With Label3
.Top = 48
.Left = 6
.Height = 18
.Width = 36
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = ""
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label4
.Top = 36
.Left = 6
.Height = 12
.Width = 36
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "ID"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label5
.Top = 36
.Left = 42
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Position No"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label6
.Top = 36
.Left = 108
.Height = 12
.Width = 252
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Position Name"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label7
.Top = 36
.Left = 360
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Unit"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label8
.Top = 36
.Left = 426
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Quantity"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label9
.Top = 36
.Left = 492
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Price"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label10
.Top = 36
.Left = 558
.Height = 12
.Width = 78
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Amount"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With TextBox1
.Left = 42
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox2
.Left = 108
.Top = 48
.Height = 18
.Width = 252
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox3
.Left = 360
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox4
.Left = 426
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox5
.Left = 492
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox6
.Left = 558
.Top = 48
.Height = 18
.Width = 78
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With ListBox1
.Left = 6
.Top = 66
.Height = 305.3
.Width = 630
.BackColor = &H80000005
.BorderStyle = fmBorderStyleNone
.BoundColumn = 1
.ColumnCount = 7
.ColumnWidths = "36;66;252;66;66;66;66;66"
.Font.Bold = False
.ForeColor = &H808000
.ListStyle = fmListStylePlain
.Locked = False
.MultiSelect = fmMultiSelectSingle
.SpecialEffect = fmSpecialEffectEtched
End With
With CommandButton1
.Left = 6
.Top = 378
.Height = 18
.Width = 72
.Caption = "Add Record"
.Font.Bold = True
.ForeColor = &H808000
End With
With CommandButton2
.Left = 78
.Top = 378
.Height = 18
.Width = 72
.Caption = "Delete Record"
.Font.Bold = True
.ForeColor = &H808000
End With
With CommandButton3
.Left = 156
.Top = 378
.Height = 18
.Width = 90
.Caption = "Cleare DataBase"
.Font.Bold = True
.ForeColor = &H808000
End With
With Label11
.Top = 378
.Left = 474
.Height = 18
.Width = 84
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = " Total Amount"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With TextBox7
.Left = 558
.Top = 378
.Height = 18
.Width = 78
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = &H808000
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
End With
End Sub

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.

Public URL As String
Public Const URL1 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod Kılavuzu [UserFormBackround]

Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Sub FormAç() 'Open UserForm
On Error Resume Next
UserForm1.Show 0
End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...

On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'Sub ReferecesList()

' Dim Eleman, ElemanNo
' Sheets("ReferencesList").Select
' ElemanNo = 1
' For Each Eleman In ThisWorkbook.VBProject.References
' Cells(ElemanNo, 1) = "Name: "
' Cells(ElemanNo, 2) = Eleman.Name
' Cells(ElemanNo, 3) = ", Description: "
' Cells(ElemanNo, 4) = Eleman.Description
' Cells(ElemanNo, 5) = ", FullPath: "
' Cells(ElemanNo, 6) = Eleman.FullPath
' Cells(ElemanNo, 7) = ", Guid: "
' Cells(ElemanNo, 8) = Eleman.GUID
' Cells(ElemanNo, 9) = ", Major: "
' Cells(ElemanNo, 10) = Eleman.major
' Cells(ElemanNo, 11) = ", Minor: "
' Cells(ElemanNo, 12) = Eleman.minor
' ElemanNo = ElemanNo + 1
' Next Eleman
'End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul