关闭节日主题
早上领导说有台东风A9，这时我的反应是要给我一枚导弹，解决南海上的问题...
时长：05:42
时长：10:18
时长：13:47
时长：02:25
时长：04:00
时长：06:41
上市日期：7月20日
上市日期：7月12日
上市日期：7月6日
上市日期：6月21日
： （ ） （ ） （ ）
一个专业&有爱的汽车论坛
柚子哥哥的小时代
《易车口碑》
399178人 | 北京
2545人 | 济宁
458人 | 济宁
东风悦达起亚K5混动版上市回顾
首代MAZDA6的传承者，MAZDA CX-4未来轿跑SUV来了！正式价格14.08-21.58万...
这款车承载着凯翼汽车的梦想，承载着凯翼打造年轻人喜爱的智能互联汽车...
价格区间在7.98万到-11.28万元， 相比同级别国产6字辈SUV车型中...
百位专家在线答疑，5分钟就有靠谱答案！&
全国共有854,733辆二手车，
按价位挑选二手车
按级别挑选二手车
10751511014756846646675811618089
最好用的汽车服务平台！
千万用户的选择
买车无难事
底价自然来
二手车交易平台
汽车经纪人专属
购车热线：
周一至周日（9:00 & 21:00）法定假日除外传真：010-
管理关注的车
不能再继续添加了...
您最多可以添加9辆关注车型，去车库删除一部分车型后就可以继续添加了。vb编写的股票分析程序 展示 frmStock.frm源代码
- 下载整个 - 类型：.frm文件
VERSION 5.00
Object = &{86CF1D34-0C5F-11D2-A9FC-DA1}#2.0#0&; &mscomct2.ocx&
Object = &{831FDD16-0C5C-11D2-A9FC-DA1}#2.0#0&; &MSCOMCTL.OCX&
Object = &{6FB1-11D0-B148-00A0C922E820}#6.0#0&; &MSADODC.OCX&
Object = &{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0&; &MSDATGRD.OCX&
Begin VB.Form frmStock
& &BackColor & & & = & &H0080C0FF&
& &BorderStyle & & = & 1 &'Fixed Single
& Caption & & & & = & &股票显示系统&
& &ClientHeight & &= & 6480
& &ClientLeft & & &= & 1260
& &ClientTop & & & = & 2640
& &ClientWidth & & = & 8070
& &LinkTopic & & & = & &Form1&
& &MaxButton & & & = & 0 & 'False
& MinButton & & & = & 0 & 'False
& ScaleHeight & & = & 6480
& &ScaleWidth & & &= & 8070
& &StartUpPosition = & 2 &'屏幕中心
& Begin MSComctlLib.Toolbar Tlbar
& & & Align & & & & & = & 1 &'Align Top
& & &Height & & & & &= & 504
& & & Left & & & & & &= & 0
& & & TabIndex & & & &= & 0
& & & Top & & & & & & = & 0
& & & Width & & & & & = & 8064
& & & _ExtentX & & & &= & 14235
& & & _ExtentY & & & &= & 900
& & & ButtonWidth & & = & 609
& & & ButtonHeight & &= & 847
& & & Appearance & & &= & 1
& & & Style & & & & & = & 1
& & & ImageList & & & = & &ImList2&
& & & _Version & & & &= & 393216
& &Begin MSComCtl2.MonthView MonthView1
& & & Height & & & & &= & 2220
& & & Left & & & & & &= & 2280
& & & TabIndex & & & &= & 6
& & & Top & & & & & & = & 2400
& & & Width & & & & & = & 4065
& & & _ExtentX & & & &= & 7170
& & & _ExtentY & & & &= & 3916
& & & _Version & & & &= & 393216
& & & ForeColor & & & = & -
& & & BackColor & & & = & 8438015
& & & Appearance & & &= & 1
& & & StartOfWeek & & = &
& & & CurrentDate & & = & 38262
& &Begin VB.Data d1
& & & Caption & & & & = & &Data1&
& & & Connect & & & & = & &Access&
& & & DatabaseName & &= & &&
& & & DefaultCursorType= & 0 &'缺省游标
& & &DefaultType & & = & 2 &'使用 ODBC
& & &Exclusive & & & = & 0 & 'False
& & &Height & & & & &= & 372
& & & Left & & & & & &= & 4200
& & & Options & & & & = & 0
& & & ReadOnly & & & &= & 0 & 'False
& & &RecordsetType & = & 1 &'Dynaset
& & &RecordSource & &= & &&
& & & Top & & & & & & = & 5280
& & & Visible & & & & = & 0 & 'False
& & &Width & & & & & = & 1692
& &Begin VB.Frame fraStock
& & & BackColor & & & = & &H0080C0FF&
& & & Caption & & & & = & &股票信息&
& & & ForeColor & & & = & &H008080FF&
& & & Height & & & & &= & 2172
& & & Left & & & & & &= & 120
& & & TabIndex & & & &= & 3
& & & Top & & & & & & = & 720
& & & Width & & & & & = & 7695
& & & Begin VB.TextBox txtID
& & & & &Height & & & & &= & 375
& & & & &Left & & & & & &= & 6480
& & & & &TabIndex & & & &= & 25
& & & & &Text & & & & & &= & &Text1&
& & & & &Top & & & & & & = & 1560
& & & & &Visible & & & & = & 0 & 'False
& & & & Width & & & & & = & 735
& & & Begin VB.TextBox txtVol
& & & & &Height & & & & &= & 288
& & & & &Left & & & & & &= & 4320
& & & & &TabIndex & & & &= & 24
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 975
& & & Begin VB.TextBox txtName
& & & & &Height & & & & &= & 288
& & & & &Left & & & & & &= & 840
& & & & &TabIndex & & & &= & 23
& & & & &Top & & & & & & = & 1080
& & & & &Width & & & & & = & 975
& & & Begin VB.TextBox txtDate
& & & & &Height & & & & &= & 320
& & & & &Left & & & & & &= & 840
& & & & &TabIndex & & & &= & 22
& & & & &Top & & & & & & = & 1680
& & & & &Width & & & & & = & 975
& & & mandButton comDate
& & & & &Height & & & & &= & 360
& & & & &Left & & & & & &= & 1800
& & & & &Picture & & & & = & &frmStock.frx&:0000
& & & & &Style & & & & & = & 1 &'Graphical
& & & & TabIndex & & & &= & 21
& & & & &Top & & & & & & = & 1680
& & & & &Width & & & & & = & 372
& & & Begin VB.TextBox txtLast
& & & & &Height & & & & &= & 288
& & & & &Left & & & & & &= & 2640
& & & & &TabIndex & & & &= & 20
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 975
& & & Begin VB.TextBox txtToday
& & & & &Height & & & & &= & 270
& & & & &Left & & & & & &= & 2640
& & & & &TabIndex & & & &= & 19
& & & & &Top & & & & & & = & 1080
& & & & &Width & & & & & = & 975
& & & Begin VB.TextBox txtChange
& & & & &Height & & & & &= & 288
& & & & &Left & & & & & &= & 6360
& & & & &TabIndex & & & &= & 18
& & & & &Top & & & & & & = & 960
& & & & &Width & & & & & = & 975
& & & Begin VB.TextBox txtVolPrice
& & & & &Height & & & & &= & 288
& & & & &Left & & & & & &= & 4320
& & & & &TabIndex & & & &= & 17
& & & & &Top & & & & & & = & 1080
& & & & &Width & & & & & = & 975
& & & boBox Combo1
& & & & &Height & & & & &= & 300
& & & & &Left & & & & & &= & 6360
& & & & &Style & & & & & = & 2 &'Dropdown List
& & & & TabIndex & & & &= & 5
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 975
& & & Begin VB.TextBox txtCode
& & & & &Height & & & & &= & 288
& & & & &Left & & & & & &= & 840
& & & & &TabIndex & & & &= & 4
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 975
& & & Begin VB.Label Label6
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &股票名称&
& & & & &ForeColor & & & = & &H00FF0000&
& & & & &Height & & & & &= & 372
& & & & &Left & & & & & &= & 120
& & & & &TabIndex & & & &= & 15
& & & & &Top & & & & & & = & 1080
& & & & &Width & & & & & = & 612
& & & Begin VB.Label Label2
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &昨日收盘&
& & & & &ForeColor & & & = & &H00FF0000&
& & & & &Height & & & & &= & 372
& & & & &Left & & & & & &= & 1920
& & & & &TabIndex & & & &= & 14
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 852
& & & Begin VB.Label Label3
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &股票类型&
& & & & &ForeColor & & & = & &H00FF0000&
& & & & &Height & & & & &= & 372
& & & & &Index & & & & & = & 0
& & & & &Left & & & & & &= & 5520
& & & & &TabIndex & & & &= & 13
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 732
& & & Begin VB.Label Label7
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &今日开盘&
& & & & &ForeColor & & & = & &H00FF0000&
& & & & &Height & & & & &= & 252
& & & & &Left & & & & & &= & 1920
& & & & &TabIndex & & & &= & 12
& & & & &Top & & & & & & = & 1080
& & & & &Width & & & & & = & 852
& & & Begin VB.Label Label8
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &成交额&
& & & & &ForeColor & & & = & &H00FF0000&
& & & & &Height & & & & &= & 492
& & & & &Left & & & & & &= & 3600
& & & & &TabIndex & & & &= & 11
& & & & &Top & & & & & & = & 1080
& & & & &Width & & & & & = & 612
& & & Begin VB.Label Label5
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &涨跌&
& & & & &ForeColor & & & = & &H00FF0000&
& & & & &Height & & & & &= & 252
& & & & &Left & & & & & &= & 5640
& & & & &TabIndex & & & &= & 10
& & & & &Top & & & & & & = & 960
& & & & &Width & & & & & = & 612
& & & Begin VB.Label Label10
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &日期&
& & & & &ForeColor & & & = & &H00FF8080&
& & & & &Height & & & & &= & 252
& & & & &Left & & & & & &= & 120
& & & & &TabIndex & & & &= & 9
& & & & &Top & & & & & & = & 1680
& & & & &Width & & & & & = & 492
& & & Begin VB.Label Label4
& & & & &BackStyle & & & = & 0 &'Transparent
& & & & Caption & & & & = & &成交量&
& & & & &ForeColor & & & = & &H00FF0000&
& & & & &Height & & & & &= & 252
& & & & &Left & & & & & &= & 3600
& & & & &TabIndex & & & &= & 8
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 972
& & & Begin VB.Label Label1
& & & & &BackColor & & & = & &H0080C0FF&
& & & & &Caption & & & & = & &股票代码:&
& & & & &ForeColor & & & = & &H00FF8080&
& & & & &Height & & & & &= & 252
& & & & &Left & & & & & &= & 120
& & & & &TabIndex & & & &= & 7
& & & & &Top & & & & & & = & 480
& & & & &Width & & & & & = & 612
& &Begin MSComctlLib.StatusBar sbr
& & & Align & & & & & = & 2 &'Align Bottom
& & &Height & & & & &= & 372
& & & Left & & & & & &= & 0
& & & TabIndex & & & &= & 1
& & & Top & & & & & & = & 6108
& & & Width & & & & & = & 8064
& & & _ExtentX & & & &= & 14235
& & & _ExtentY & & & &= & 661
& & & _Version & & & &= & 393216
& & & BeginProperty Panels {8E6-11D1-B16A-00C0F0283628}
& & & & &NumPanels & & & = & 1
& & & & &BeginProperty Panel1 {8E3867AB--B16A-00C0F0283628}
& & & & &EndProperty
& & & EndProperty
& &Begin MSComctlLib.ImageList ImList2
& & & Left & & & & & &= & 1080
& & & Top & & & & & & = & 4080
& & & _ExtentX & & & &= & 1005
& & & _ExtentY & & & &= & 1005
& & & BackColor & & & = & -
& & & ImageWidth & & &= & 16
& & & ImageHeight & & = & 16
& & & MaskColor & & & = &
& & & _Version & & & &= & 393216
& & & BeginProperty Images {2C247F25--B16A-00C0F0283628}
& & & & &NumListImages & = & 16
& & & & &BeginProperty ListImage1 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:0672
& & & & & & Key & & & & & & = & &Print&
& & & & &EndProperty
& & & & &BeginProperty ListImage2 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:0786
& & & & & & Key & & & & & & = & &zj&
& & & & &EndProperty
& & & & &BeginProperty ListImage3 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:0AA2
& & & & & & Key & & & & & & = & &fl&
& & & & & & Object.Tag & & & & & & = & &fl&
& & & & &EndProperty
& & & & &BeginProperty ListImage4 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:0DBE
& & & & & & Key & & & & & & = & &sx&
& & & & &EndProperty
& & & & &BeginProperty ListImage5 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:1302
& & & & & & Key & & & & & & = & &ml&
& & & & &EndProperty
& & & & &BeginProperty ListImage6 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:1416
& & & & & & Key & & & & & & = & &Del&
& & & & &EndProperty
& & & & &BeginProperty ListImage7 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:152A
& & & & & & Key & & & & & & = & &Edit&
& & & & &EndProperty
& & & & &BeginProperty ListImage8 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:163E
& & & & & & Key & & & & & & = & &Save&
& & & & &EndProperty
& & & & &BeginProperty ListImage9 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:1752
& & & & & & Key & & & & & & = & &Undo&
& & & & &EndProperty
& & & & &BeginProperty ListImage10 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:1866
& & & & & & Key & & & & & & = & &Exit&
& & & & &EndProperty
& & & & &BeginProperty ListImage11 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:197A
& & & & & & Key & & & & & & = & &First&
& & & & &EndProperty
& & & & &BeginProperty ListImage12 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:1ECE
& & & & & & Key & & & & & & = & &Previous&
& & & & &EndProperty
& & & & &BeginProperty ListImage13 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:1FE2
& & & & & & Key & & & & & & = & &Next&
& & & & &EndProperty
& & & & &BeginProperty ListImage14 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:20F6
& & & & & & Key & & & & & & = & &Last&
& & & & &EndProperty
& & & & &BeginProperty ListImage15 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:264A
& & & & & & Key & & & & & & = & &Add&
& & & & &EndProperty
& & & & &BeginProperty ListImage16 {2C247F27--B16A-00C0F0283628}
& & & & & & Picture & & & & = & &frmStock.frx&:299E
& & & & & & Key & & & & & & = & &mc&
& & & & &EndProperty
& & & EndProperty
& &Begin VB.Frame Frame1
& & & BackColor & & & = & &H0080C0FF&
& & & Caption & & & & = & &股票列表&
& & & ForeColor & & & = & &H000000FF&
& & & Height & & & & &= & 3135
& & & Left & & & & & &= & 120
& & & TabIndex & & & &= & 2
& & & Top & & & & & & = & 2880
& & & Width & & & & & = & 7815
& & & Begin MSDataGridLib.DataGrid grdStock
& & & & &Bindings & & & &= & &frmStock.frx&:2CF2
& & & & &Height & & & & &= & 2775
& & & & &Left & & & & & &= & 120
& & & & &TabIndex & & & &= & 16
& & & & &Top & & & & & & = & 240
& & & & &Width & & & & & = & 7575
& & & & &_ExtentX & & & &= & 13361
& & & & &_ExtentY & & & &= & 4895
& & & & &_Version & & & &= & 393216
& & & & &AllowUpdate & & = & 0 & 'False
& & & & AllowArrows & & = & 0 & 'False
& & & & ForeColor & & & = &
& & & & &HeadLines & & & = & 1
& & & & &RowHeight & & & = & 15
& & & & &BeginProperty HeadFont {0BE-11CE-9DE3-00AA004BB851}
& & & & & & Name & & & & & &= & &宋体&
& & & & & & Size & & & & & &= & 9
& & & & & & Charset & & & & = & 134
& & & & & & Weight & & & & &= & 400
& & & & & & Underline & & & = & 0 & 'False
& & & & & &Italic & & & & &= & 0 & 'False
& & & & & &Strikethrough & = & 0 & 'False
& & & & EndProperty
& & & & &BeginProperty Font {0BE-11CE-9DE3-00AA004BB851}
& & & & & & Name & & & & & &= & &宋体&
& & & & & & Size & & & & & &= & 9
& & & & & & Charset & & & & = & 134
& & & & & & Weight & & & & &= & 400
& & & & & & Underline & & & = & 0 & 'False
& & & & & &Italic & & & & &= & 0 & 'False
& & & & & &Strikethrough & = & 0 & 'False
& & & & EndProperty
& & & & &ColumnCount & & = & 2
& & & & &BeginProperty Column00
& & & & & & DataField & & & = & &&
& & & & & & Caption & & & & = & &&
& & & & & & BeginProperty DataFormat {6DB-11D0-C91110ED}
& & & & & & & &Type & & & & & &= & 0
& & & & & & & &Format & & & & &= & &&
& & & & & & & &HaveTrueFalseNull= & 0
& & & & & & & &FirstDayOfWeek &= & 0
& & & & & & & &FirstWeekOfYear = & 0
& & & & & & & &LCID & & & & & &= & 2052
& & & & & & & &SubFormatType & = & 0
& & & & & & EndProperty
& & & & &EndProperty
& & & & &BeginProperty Column01
& & & & & & DataField & & & = & &&
& & & & & & Caption & & & & = & &&
& & & & & & BeginProperty DataFormat {6DB-11D0-C91110ED}
& & & & & & & &Type & & & & & &= & 0
& & & & & & & &Format & & & & &= & &&
& & & & & & & &HaveTrueFalseNull= & 0
& & & & & & & &FirstDayOfWeek &= & 0
& & & & & & & &FirstWeekOfYear = & 0
& & & & & & & &LCID & & & & & &= & 2052
& & & & & & & &SubFormatType & = & 0
& & & & & & EndProperty
& & & & &EndProperty
& & & & &SplitCount & & &= & 1
& & & & &BeginProperty Split0
& & & & & & MarqueeStyle & &= & 0
& & & & & & AllowRowSizing &= & 0 & 'False
& & & & & &BeginProperty Column00
& & & & & & EndProperty
& & & & & & BeginProperty Column01
& & & & & & EndProperty
& & & & &EndProperty
& & & Begin MSAdodcLib.Adodc adoStock
& & & & &Height & & & & &= & 495
& & & & &Left & & & & & &= & 4440
& & & & &Top & & & & & & = & 2160
& & & & &Width & & & & & = & 1335
& & & & &_ExtentX & & & &= & 2355
& & & & &_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 & & & = & -
& & & & &ForeColor & & & = & -
& & & & &Orientation & & = & 0
& & & & &Enabled & & & & = & -1
& & & & &Connect & & & & = & &&
& & & & &OLEDBString & & = & &&
& & & & &OLEDBFile & & & = & &&
& & & & &DataSourceName &= & &&
& & & & &OtherAttributes = & &&
& & & & &UserName & & & &= & &&
& & & & &Password & & & &= & &&
& & & & &RecordSource & &= & &&
& & & & &Caption & & & & = & &Adodc1&
& & & & &BeginProperty Font {0BE-11CE-9DE3-00AA004BB851}
& & & & & & Name & & & & & &= & &宋体&
& & & & & & Size & & & & & &= & 9
& & & & & & Charset & & & & = & 134
& & & & & & Weight & & & & &= & 400
& & & & & & Underline & & & = & 0 & 'False
& & & & & &Italic & & & & &= & 0 & 'False
& & & & & &Strikethrough & = & 0 & 'False
& & & & EndProperty
& & & & &_Version & & & &= & 393216
Attribute VB_Name = &frmStock&
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public IsModify As Boolean & & & &'用于判断记录修改后保存，还是添加后保存
Dim TotalRecord As Integer &'打开的数据表中的记录总数
Private Sub comDate_Click()
& MonthView1.Visible = True
Private Sub Form_Load()
& Dim i As Integer
& Dim strSQL &As String
& '确定窗体的初始位置
&frmStock.Left = 2000
& frmStock.Top = 250
& adoStock.LockType = adLockBatchOptimistic
& adoStock.ConnectionString = g_Conn.ConnectionString
& 'Download by
& Dim StockType & As Variant
& '将需要添加的股票类型设置为数组
&StockType = Array(&A股&, &B股&)
& For i = 0 To 1
& & & Combo1.AddItem StockType(i)
& Tlbar.Buttons.add 1, &Add&, &增加&, , &Add& & &'添加按钮
&Tlbar.Buttons.add 2, , , tbrSeparator & & & & &'添加分隔符
&Tlbar.Buttons.add 3, &Edit&, &修改&, , &Edit&
& Tlbar.Buttons.add 4, , , tbrSeparator
& Tlbar.Buttons.add 5, &Save&, &保存&, , &Save&
& Tlbar.Buttons.add 6, , , tbrSeparator
& Tlbar.Buttons.add 7, &Del&, &删除&, , &Del&
& Tlbar.Buttons.add 8, , , tbrSeparator
& Tlbar.Buttons.add 9, &Exit&, &退出&, , &Exit&
& Tlbar.Buttons(2).Enabled = False
& Tlbar.Buttons(3).Enabled = False
& Tlbar.Buttons(5).Enabled = False
& AllDisEnabled
& Combo1.Enabled = False
& MonthView1.Visible = False
& comDate.Enabled = False
& '选择表中必要的字段在表格中显示出来，并且按照StockChange中的索引号排序
&'Dim strSQL As String
&strSQL = &SELECT StockChange.ID, &
& strSQL = strSQL & & StockChange.Code as 股票代码, Name as 股票名称, &
& strSQL = strSQL & & Last as 昨日收盘, Today as 今日开盘, &
& strSQL = strSQL & & Volume as 交易量, [Volume Price] as 交易额, &
& strSQL = strSQL & & Change as 涨跌, TypeName as 类型, Day as 日期 &
& strSQL = strSQL & & FROM StockChange, StockInfo, StockType &&
& strSQL = strSQL & & WHERE StockChange.Code=StockInfo.Code AND &
& strSQL = strSQL & & StockInfo.TypeId=StockType.ID &
& strSQL = strSQL & & ORDER BY StockChange.ID &
& adoStock.RecordSource = strSQL
& adoStock.Refresh '更新数据源
& grdStock.Columns(0).Width = 300 '设置第一列的宽度
&'rec.MoveLast & & & & & & & & &'将记录指针移动到最后
&TotalRecord = adoStock.Recordset.RecordCount &'然后用这一条代码统计记录总数
&'rec.MoveFirst & & & & & & & & '指针移动到记录的最开始
& '在状态栏中显示记录总数
&sbr.Panels(1).Text = & 共 ：& & TotalRecord & &条记录&
Private Sub grdStock_SelChange(Cancel As Integer)
& If grdStock.Row = -1 Then Exit Sub
& Dim tt As String
& '一共有9个TextBox
&'grdStock.get
&On Error Resume Next
& With grdStock
& & txtID.Text = .Columns(0).CellValue(.RowBookmark(.Row))
& & txtCode.Text = .Columns(1).CellValue(.RowBookmark(.Row))
& & txtName.Text = .Columns(2).CellValue(.RowBookmark(.Row))
& & txtLast.Text = .Columns(3).CellValue(.RowBookmark(.Row))
& & txtToday.Text = .Columns(4).CellValue(.RowBookmark(.Row))
& & txtVol.Text = .Columns(5).CellValue(.RowBookmark(.Row))
& & txtVolPrice.Text = .Columns(6).CellValue(.RowBookmark(.Row))
& & txtChange.Text = .Columns(7).CellValue(.RowBookmark(.Row))
& & txtDate.Text = .Columns(9).CellValue(.RowBookmark(.Row))
& & If .Columns(8).CellValue(.RowBookmark(.Row)) = &A股& Then
& & & Combo1.ListIndex = 0
& & & Combo1.ListIndex = 1
& & End If
& End With
& '所有文本框禁用，使之不可修改
&AllDisEnabled
& '弹出日期控件的按钮禁用
&comDate.Enabled = False
& '判断并在组合框中显示每支股票的类型
& Tlbar.Buttons(3).Enabled = True & & '修改按钮可用
&Tlbar.Buttons(5).Enabled = False & &'保存按钮禁用
&Combo1.Enabled = False & & & & & & &'显示股票类型的组合框禁用
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
& txtDate.Text = MonthView1.Value
& MonthView1.Visible = False
'工具栏的按钮点击后处理函数
Private Sub Tlbar_ButtonClick(ByVal Button As MSComctlLib.Button)
& Dim strSQL As String
& Dim rst As VbMsgBoxResult
& '判别工具栏按钮的关键字
&Select Case Button.Key
& & Case &Add&
& & & add & & & & & &'调用add子过程
& &Case &Save&
& & & save
& & Case &Del& & & &'删除记录，
& & &'如果股票代码栏为空，则退出子过程
& & &If txtCode.Text = && Then Exit Sub
& & & rst = MsgBox(&确定要删除【& & txtName.Text & &】？(Y/N)&, _
& & & & & & & & vbQuestion + vbOKCancel + vbDefaultButton1, &股票分析系统&)
& & & If rst = 1 Then
& & & & '删除指定股票的一条记录
& & & &strSQL = & DELETE * FROM [StockChange] &
& & & & strSQL = strSQL & & WHERE Code='& & grdStock.Columns(0).CellValue(grdStock.RowBookmark(grdStock.Row)) & &'&
& & & & g_Conn.Execute strSQL
& & & & '对数据库数据操作后，必须进行更新
& & & &adoStock.Refresh
& & & & add
& & & & '如果记录指针没有移动到结尾，指针移动到最后一条记录
& & & &If Not adoStock.Recordset.EOF Then
& & & & & adoStock.Recordset.MoveLast
& & & & End If
& & & & '显示记录总数
& & & &TotalRecord = adoStock.Recordset.RecordCount
& & & & sbr.Panels(1).Text = & 共 ：& & TotalRecord & &条记录。&
& & & End If
& & & Clear & & & '调用Clear过程，设置文本框和按钮是否能用
& &Case &Edit&
& & & Edit & & & &'调用修改过程
& &Case &Exit&
& & & Unload Me & '退出该窗体
&End Select
'添加数据，将各个文本框设为可用状态，并且清空
Private Sub add()
& AllEnabled & & & & & & & &'所有文本框可用
&AllClear & & & & & & & & &'所有文本框清空
&comDate.Enabled = True & &'可以用comDate调用日期控件
&txtCode.SetFocus & & & & &'将txtCode设置为焦点
&IsModify = False & & & & & & & &'修改标志置为“否”
&Tlbar.Buttons(5).Enabled = True & '“保存”设置为可用
&Combo1.Enabled = True & & '显示股票类型的组合框可用
&txtCode.Locked = False
'保存数据修改
Private Sub save()
& Dim strSQL As String
& On Error GoTo ErrProcess
& '检查输入的数据，保证输入数据有效
&If Trim(txtCode.Text) = && Or _
& & Trim(txtLast.Text) = && Or _
& & Trim(txtName.Text) = && Or _
& & Trim(txtToday.Text) = && Or _
& & Trim(txtVolPrice.Text) = && Or _
& & Trim(txtDate.Text) = && Or _
& & Val(txtDate.Text) & #1/1/100# Or _
& & Val(txtDate.Text) & #12/31/9999# Or _
& & Not IsNumeric(txtToday.Text) Or _
& & Not IsNumeric(txtLast.Text) Or _
& & Not IsNumeric(txtVolPrice.Text) Or _
& & Not IsNumeric(txtVol.Text) Or _
& & Not IsNumeric(txtChange.Text) Then
& & & Call MsgBox(&数据非法，不能保存!&, 0 + 16, &股票分析系统&)
& & & Exit Sub
& '添加新的股票记录
&If IsModify = False Then
& & &g_Conn.BeginTrans
& & &'添加一条股票基本信息
& & strSQL = & INSERT INTO StockInfo([Code], [Name], [TypeId]) &
& & &strSQL = strSQL & & VALUES(&
& & &strSQL = strSQL & &'& & txtCode.Text & &',&
& & &strSQL = strSQL & &'& & txtName.Text & &',&
& & &strSQL = strSQL & Combo1.ListIndex + 1 & &)&
& & &g_Conn.Execute strSQL
& & &'在StockChange中添加一个新的记录
& & strSQL = & INSERT INTO StockChange([Code], [Last], [Volume], [Today], &
& & &strSQL = strSQL & & Change, [volume Price], [Day]) &
& & &strSQL = strSQL & & VALUES(&
& & &strSQL = strSQL & &'& & txtCode.Text & &',&
& & &strSQL = strSQL & txtLast.Text & &,&
& & &strSQL = strSQL & txtVol.Text & &,&
& & &strSQL = strSQL & txtToday.Text & &,&
& & &strSQL = strSQL & txtChange.Text & &,&
& & &strSQL = strSQL & txtVolPrice.Text & &,&
& & &strSQL = strSQL & &#& & txtDate.Text & &#)&
& & &g_Conn.Execute strSQL
& & &mitTrans
& & &adoStock.Refresh
& & &If Not adoStock.Recordset.EOF Then
& & & & adoStock.Recordset.MoveLast
& & &End If
& & &TotalRecord = adoStock.Recordset.RecordCount
& & &sbr.Panels(1).Text = & 共 ：& & TotalRecord & &条记录。&
& &Else & '修改股票信息
& & &'开始事务
& & &g_Conn.BeginTrans
& & & '更新Stockchange表
& & &strSQL = & UPDATE StockChange &
& & & strSQL = strSQL & & SET [Code] = '& & txtCode.Text & &',&
& & & strSQL = strSQL & & [Last] = & & txtLast.Text & &,&
& & & strSQL = strSQL & & [Volume] = & & txtVol.Text & &,&
& & & strSQL = strSQL & & [Today] = & & txtToday.Text & &,&
& & & strSQL = strSQL & & [Change] = & & txtChange.Text & &,&
& & & strSQL = strSQL & & [Volume Price] =& & txtVolPrice.Text
& & & strSQL = strSQL & & WHERE [ID]=& & txtID.Text
& & & g_Conn.Execute strSQL
& & & '同时更新StockInfo表
& & &strSQL = & UPDATE StockInfo &
& & & strSQL = strSQL & & SET Code='& & txtCode.Text & &',&
& & & strSQL = strSQL & & [Name] ='& & txtName.Text & &',&
& & & strSQL = strSQL & & TypeId=& & Combo1.ListIndex + 1
& & & strSQL = strSQL & & WHERE Code ='& & txtCode.Text & &'&
& & & g_Conn.Execute strSQL
& & & '接受事务
& & &mitTrans
& & & '刷新显示
& & &adoStock.Refresh
& &Exit Sub
ErrProcess:
& MsgBox Err.Description
Private Sub txt_Change(Index As Integer)
& Tlbar.Buttons(5).Enabled = True
'将文本框设置为可用状态
Private Sub Edit()
& IsModify = True & & & & & & & & &'修改标志为“是”
&AllEnabled & & & & & & & & '所有文本框可用
&Tlbar.Buttons(5).Enabled = True & &'保存按钮可用
&Combo1.Enabled = True & & &'用于选择股票类型的组合框可用
&comDate.Enabled = True & & '调用日期控件的按钮可用
&txtCode.Locked = True
Private Sub Clear()
& AllClear
& AllDisEnabled
& Tlbar.Buttons(3).Enabled = False
& Tlbar.Buttons(5).Enabled = False
& Combo1.Enabled = False
& comDate.Enabled = False
Private Sub AllClear()
& txtCode.Text = &&
& txtLast.Text = &&
& txtName.Text = &&
& txtVol.Text = &&
& txtToday.Text = &&
& txtChange.Text = &&
& txtVolPrice.Text = &&
'将各个text设置为不可用，即不能更改
Private Sub AllDisEnabled()
& fraStock.Enabled = False
Private Sub AllEnabled()
& fraStock.Enabled = True
- 下载整个
相关源码/软件：
- 基于VB的图形校验码程序，也就是网站上常用的验证码功能，它可以指定验证码是否是大写、英文、数字、随机...
- 收集了6款VB专用的曲线图、柱状图控件，每个都含有示例，用起来挺方便，这些曲线图有的是根据数据库数据...
- 100多个值得一看的VB小程序集，特别是对VB的新手朋友非常有帮助，这些小程序主要有：　　在...
- vb编程实现LISTVIEW报表的打印功能，完成页面预览、打印内容等比例缩放、自定义页码打英支持设置...
- VB公司或企业快递业务管理系统，基于Access数据库，主要功能：客户资料维护、企业资料管理、新建、...
- 一个网络与数据库相结合的VB实例，连接远程数据库读取数据，并尝试保存新增数据，主程序分为服务端和客户...
- VB客户信息维护管理系统（CRM），使用Access存储客户信息，界面方面使用了yfDNetMenu...
- 压缩包内有近40个VB ICO图标操作小程序，每一个都带有源代码，包括ICO图标引用、从资源文件中提...
- 在网页编程中大家都喜欢将自己的网站上放入一个“设为主页”的功能，那么VB编程怎么做呢？看一下这个小程...
- 主要是对QQ的透明动态图标的生成方法很好奇，因为QQ聊天所带的魔法表情简直太让我喜欢了，研究了好些天...
- QQ好友批量查询器,一组关于QQ的编程源代码
- 采用PRINTER对象直接对打印机操作，这次加入了边距设置功能。所用三方控件，LBBUTTON
- Excel二次开发SDK
- 利用Instagram&API实现Instagram客户端部分功能。需要拥有Instagr...
- 一个财务系统源码,大家可以看看。
- SiteVision&HTML编辑器
- 实现类似Window&Phone&8的app&bar功能。点击按钮，弹...
- 直接根据SVG生成CGPath/UIBezierPath。&&&&nb...
- 程序压缩加密，有GUI界面
- 实现效果不错的日历控件，可以按月、周、天来查看日历。不过只支持iOS6.0以上。貌似是因为NSDat...