English
mainboard.frm
资源名称：WebSite1.rar [点击查看]
上传用户：vtryaojia
上传日期：2020-04-18
资源大小：1214k
文件大小：12k
源码类别：
SCSI/ASPI
开发平台：
Others
- VERSION 5.00
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Begin VB.Form mainboard
- Caption = "主板"
- ClientHeight = 7065
- ClientLeft = 60
- ClientTop = 450
- ClientWidth = 8445
- LinkTopic = "Form1"
- ScaleHeight = 7065
- ScaleWidth = 8445
- StartUpPosition = 3 '窗口缺省
- Begin VB.Frame Frame1
- Caption = "主板"
- Height = 6735
- Left = 120
- TabIndex = 0
- Top = 120
- Width = 8055
- Begin MSAdodcLib.Adodc Adodc1
- Height = 495
- Left = 5760
- Top = 6000
- Visible = 0 'False
- Width = 1575
- _ExtentX = 2778
- _ExtentY = 873
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 8
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zzu.mdb;Persist Security Info=False"
- OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zzu.mdb;Persist Security Info=False"
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- RecordSource = ""
- Caption = "Adodc1"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- _Version = 393216
- End
- Begin VB.CommandButton Command2
- Caption = "返回"
- Height = 495
- Left = 3000
- TabIndex = 31
- Top = 6000
- Width = 1455
- End
- Begin VB.CommandButton Command1
- Caption = "添加"
- Height = 495
- Left = 840
- TabIndex = 30
- Top = 6000
- Width = 1335
- End
- Begin VB.TextBox Text14
- Height = 375
- Left = 1320
- TabIndex = 28
- Top = 5280
- Width = 2895
- End
- Begin VB.TextBox Text13
- Height = 375
- Left = 1320
- TabIndex = 27
- Top = 4680
- Width = 2175
- End
- Begin VB.TextBox Text12
- Height = 375
- Left = 4680
- TabIndex = 26
- Top = 3960
- Width = 2055
- End
- Begin VB.TextBox Text11
- Height = 375
- Left = 1320
- TabIndex = 25
- Top = 3960
- Width = 2175
- End
- Begin VB.TextBox Text10
- Height = 375
- Left = 4680
- TabIndex = 24
- Top = 3240
- Width = 2055
- End
- Begin VB.TextBox Text9
- Height = 375
- Left = 1320
- TabIndex = 23
- Top = 3240
- Width = 2175
- End
- Begin VB.TextBox Text8
- Height = 375
- Left = 4680
- TabIndex = 22
- Top = 2520
- Width = 2055
- End
- Begin VB.TextBox Text7
- Height = 375
- Left = 1320
- TabIndex = 21
- Top = 2520
- Width = 2175
- End
- Begin VB.TextBox Text6
- Height = 375
- Left = 4680
- TabIndex = 20
- Top = 1800
- Width = 2055
- End
- Begin VB.TextBox Text5
- Height = 375
- Left = 1320
- TabIndex = 19
- Top = 1800
- Width = 2175
- End
- Begin VB.TextBox Text4
- Height = 390
- Left = 4680
- TabIndex = 18
- Top = 1080
- Width = 2055
- End
- Begin VB.TextBox Text3
- Height = 375
- Left = 1320
- TabIndex = 17
- Top = 1080
- Width = 2175
- End
- Begin VB.TextBox Text2
- Height = 390
- Left = 4680
- TabIndex = 16
- Top = 360
- Width = 2055
- End
- Begin VB.TextBox Text1
- Height = 375
- Left = 1320
- TabIndex = 15
- Top = 360
- Width = 2175
- End
- Begin VB.Label Label15
- Caption = "注意格式：年-月-日"
- Height = 375
- Left = 4440
- TabIndex = 29
- Top = 5280
- Width = 1935
- End
- Begin VB.Label Label14
- Caption = "添加日期："
- Height = 255
- Left = 120
- TabIndex = 14
- Top = 5400
- Width = 975
- End
- Begin VB.Label Label13
- Caption = "网卡芯片："
- Height = 255
- Left = 120
- TabIndex = 13
- Top = 4680
- Width = 975
- End
- Begin VB.Label Label12
- Caption = "图片芯片："
- Height = 375
- Left = 3720
- TabIndex = 12
- Top = 3960
- Width = 1095
- End
- Begin VB.Label Label11
- Caption = "主板板型："
- Height = 375
- Left = 120
- TabIndex = 11
- Top = 4080
- Width = 1095
- End
- Begin VB.Label Label10
- Caption = "芯片组描："
- Height = 375
- Left = 3720
- TabIndex = 10
- Top = 3360
- Width = 975
- End
- Begin VB.Label Label9
- Caption = "总线频率："
- Height = 375
- Left = 120
- TabIndex = 9
- Top = 3360
- Width = 975
- End
- Begin VB.Label Label8
- Caption = "内存类型："
- Height = 255
- Left = 3720
- TabIndex = 8
- Top = 2640
- Width = 975
- End
- Begin VB.Label Label7
- Caption = "CPU_插槽："
- Height = 255
- Left = 240
- TabIndex = 7
- Top = 2640
- Width = 1095
- End
- Begin VB.Label Label6
- Caption = "集成芯片："
- Height = 255
- Left = 3720
- TabIndex = 6
- Top = 1920
- Width = 975
- End
- Begin VB.Label Label5
- Caption = "主芯片组："
- Height = 255
- Left = 240
- TabIndex = 5
- Top = 1920
- Width = 975
- End
- Begin VB.Label Label4
- Caption = "数量："
- Height = 255
- Left = 4080
- TabIndex = 4
- Top = 1200
- Width = 615
- End
- Begin VB.Label Label3
- Caption = "价格："
- Height = 375
- Left = 600
- TabIndex = 3
- Top = 1200
- Width = 735
- End
- Begin VB.Label Label2
- Caption = "品牌："
- Height = 255
- Left = 4080
- TabIndex = 2
- Top = 480
- Width = 735
- End
- Begin VB.Label Label1
- Caption = "产品名称："
- Height = 375
- Left = 240
- TabIndex = 1
- Top = 480
- Width = 975
- End
- End
- End
- Attribute VB_Name = "mainboard"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zzu.mdb;Persist Security Info=False"
- If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" And Trim(Text6.Text) <> "" And Trim(Text7.Text) <> "" And Trim(Text8.Text) <> "" And Trim(Text9.Text) <> "" And Trim(Text10.Text) <> "" And Trim(Text11.Text) <> "" And Trim(Text12.Text) <> "" And Trim(Text13.Text) <> "" And Trim(Text14.Text) <> "" Then
- Adodc1.RecordSource = "select * from mainboard where GoodsName='" & Trim(Text1.Text) & " '"
- Adodc1.Refresh
- If Adodc1.Recordset.EOF Then
- Adodc1.Recordset.AddNew
- Adodc1.Recordset.Fields("GoodsName") = Trim(Text1.Text)
- Adodc1.Recordset.Fields("GoodsBrand") = Trim(Text2.Text)
- Adodc1.Recordset.Fields("MarketPrice") = Trim(Text3.Text)
- Adodc1.Recordset.Fields("GoodsUnit") = Trim(Text4.Text)
- Adodc1.Recordset.Fields("PCIIDE") = Trim(Text5.Text)
- Adodc1.Recordset.Fields("Asic") = Trim(Text6.Text)
- Adodc1.Recordset.Fields("Slot") = Trim(Text7.Text)
- Adodc1.Recordset.Fields("Storagetype") = Trim(Text8.Text)
- Adodc1.Recordset.Fields("Frequency") = Trim(Text9.Text)
- Adodc1.Recordset.Fields("Chip") = Trim(Text10.Text)
- Adodc1.Recordset.Fields("ATX") = Trim(Text11.Text)
- Adodc1.Recordset.Fields("Picturechip") = Trim(Text12.Text)
- Adodc1.Recordset.Fields("Cardchip") = Trim(Text13.Text)
- Adodc1.Recordset.Fields("AddDate") = Trim(Text14.Text)
- Adodc1.Recordset.Update
- Adodc1.Refresh
- MsgBox (" 恭喜您已经添加成功到数据库！")
- End If
- Else
- MsgBox ("请您把信息填完整，信息不能为空！")
- End If
- End Sub
- Private Sub Command2_Click()
- xsp.Show
- End Sub
- Private Sub Form_Load()
- Text14.Text = Format(Now, "yyyy-mm-dd ")
- End Sub
