一个关于《股票计价器》的程序源码 - VB6论坛

问题点数：0 回复次数：2

一个关于《股票计价器》的程序源码

Form=Mainfrm.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation
Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\WINDOWS\SYSTEM\DAO350.DLL#Microsoft DAO 3.51 Object Library
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; MSFLXGRD.OCX
Reference=*\G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado15.dll#Microsoft ActiveX Data Objects 2.5 Library
IconForm="frmMain"
Startup="frmMain"
HelpFile=""
Title="名片管理软件"
ExeName32="名片管理软件.exe"
Path32="C:\My Documents"
Command32=""
Name="名片管理软件"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="仁彬软件"
VersionLegalCopyright="Copyright 2000-2001 Rbcic所有"
VersionProductName="名片管理软件"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
DebugStartupOption=0

搜索更多相关主题的帖子: 股票计价器　源码　

第 2 楼

得分:0

Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmMain
Caption = "股市计算器"
ClientHeight = 4650
ClientLeft = 165
ClientTop = 165
ClientWidth = 6615
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4650
ScaleWidth = 6615
StartUpPosition = 2 '屏幕中心
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "D:\My basic\003\dabase.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 960
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Tabel"
Top = 7320
Visible = 0 'False
Width = 7575
End
Begin TabDlg.SSTab SSTab1
Height = 4620
Left = -15
TabIndex = 0
Top = -15
Width = 6585
_ExtentX = 11615
_ExtentY = 8149
_Version = 393216
Tabs = 4
Tab = 2
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "投资分析"
TabPicture(0) = "Mainfrm.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame4"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Command2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Command1"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Frame5"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).ControlCount= 4
TabCaption(1) = "除权除息"
TabPicture(1) = "Mainfrm.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command9"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Command8"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Frame3"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Frame2"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
TabCaption(2) = "参数设置"
TabPicture(2) = "Mainfrm.frx":0038
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "Frame1"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
TabCaption(3) = "关于"
TabPicture(3) = "Mainfrm.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Text18"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Picture1"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).ControlCount= 2
Begin VB.Frame Frame5
Caption = "输入数据"
Height = 2790
Left = -74700
TabIndex = 40
Top = 615
Width = 2865
Begin VB.TextBox Text16
BackColor = &H80000018&
Height = 270
Left = 1230
TabIndex = 56
Top = 2205
Width = 1000
End
Begin VB.TextBox Text15
BackColor = &H80000018&
Height = 270
Left = 1230
TabIndex = 55
Top = 1595
Width = 1000
End
Begin VB.TextBox Text14
BackColor = &H80000018&
Height = 270
Left = 1230
TabIndex = 54
Top = 985
Width = 1000
End
Begin VB.TextBox Text7
BackColor = &H80000018&
DataField = "网名"
DataSource = "Data1"
Height = 270
Left = 1230
Locked = -1 'True
TabIndex = 41
Top = 375
Width = 1000
End
Begin VB.Label Label30
AutoSize = -1 'True
Caption = "元"
Height = 180
Left = 2325
TabIndex = 59
Top = 2235
Width = 180
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "元"
Height = 180
Left = 2295
TabIndex = 58
Top = 1620
Width = 180
End

第 3 楼

得分:0

Begin VB.Label Label28
AutoSize = -1 'True
Caption = "股"
Height = 180
Left = 2295
TabIndex = 57
Top = 1020
Width = 180
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "卖出价位"
Height = 180
Left = 210
TabIndex = 53
Top = 2250
Width = 720
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "买入价位"
Height = 180
Left = 210
TabIndex = 52
Top = 1640
Width = 720
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "持股数量"
Height = 180
Left = 210
TabIndex = 51
Top = 1030
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "股票代号"
Height = 180
Left = 210
TabIndex = 43
Top = 420
Width = 720
End
End
Begin VB.CommandButton Command1
Caption = "计算"
Height = 375
Left = -74700
TabIndex = 34
Top = 3735
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "清空"
Height = 375
Left = -73200
TabIndex = 33
Top = 3735
Width = 1335
End
Begin VB.PictureBox Picture1
Height = 3570
Left = -74670
ScaleHeight = 3510
ScaleWidth = 2400
TabIndex = 32
Top = 630
Width = 2460
End
Begin VB.TextBox Text18
Height = 3600
Left = -71835
TabIndex = 31
Top = 630
Width = 2790
End
Begin VB.Frame Frame1
Caption = "手续费用参数"
Height = 3420
Left = 435
TabIndex = 23
Top = 660
Width = 5655
Begin VB.TextBox Text17
BackColor = &H80000018&
Height = 330
Left = 1440
TabIndex = 26
Text = "0.003"
Top = 525
Width = 1575
End
Begin VB.TextBox Text19
BackColor = &H80000018&
Height = 360
Left = 1440
TabIndex = 25
Text = "0.003"
Top = 1275
Width = 1575
End
Begin VB.TextBox Text20
BackColor = &H80000018&
Height = 360
Left = 1440
TabIndex = 24
Text = "10"
Top = 2055
Width = 1575
End
Begin VB.Label Label21
Caption = "元"
Height = 285
Left = 3075
TabIndex = 30
Top = 2100
Width = 360
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "印花税率"
Height = 180
Left = 495
TabIndex = 29
Top = 600
Width = 720
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "佣金比率"
Height = 180
Left = 495
TabIndex = 28
Top = 1380
Width = 720
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "最低费用"
Height = 180
Left = 495
TabIndex = 27
Top = 2160
Width = 720
End
End
Begin VB.Frame Frame2
Caption = "输入数据"
Height = 2220
Left = -74835
TabIndex = 12
Top = 465
Width = 5910
Begin VB.TextBox Text8
BackColor = &H80000018&
DataField = "住宅电话"
DataSource = "Data1"
Height = 270
Left = 3975
Locked = -1 'True
TabIndex = 17
Top = 915
Width = 1455
End
Begin VB.TextBox Text9
BackColor = &H80000018&
DataField = "手机号码"
DataSource = "Data1"
Height = 270
Left = 1170
Locked = -1 'True
TabIndex = 16
Top = 465
Width = 1455
End
Begin VB.TextBox Text10
BackColor = &H80000018&
DataField = "传真号码"
DataSource = "Data1"
Height = 270
Left = 3990
Locked = -1 'True
TabIndex = 15
Top = 1485
Width = 1455
End
Begin VB.TextBox Text11
BackColor = &H80000018&
DataField = "家庭住址"
DataSource = "Data1"
Height = 270
Left = 1170
Locked = -1 'True
TabIndex = 14
Top = 1470
Width = 1455
End
Begin VB.TextBox Text12
BackColor = &H80000018&
DataField = "E-MAIL"
DataSource = "Data1"
Height = 270
Left = 1170
Locked = -1 'True
TabIndex = 13
Top = 930
Width = 1455
End
Begin VB.Label Label14
Caption = "每股送股"
Height = 255
Left = 225
TabIndex = 22
Top = 930
Width = 735
End
Begin VB.Label Label16
Caption = "每股分红"
Height = 255
Left = 240
TabIndex = 21
Top = 1500
Width = 735
End
Begin VB.Label Label15
Caption = "配股价位"
Height = 255
Left = 3030
TabIndex = 20
Top = 1485
Width = 735
End
Begin VB.Label Label9
Caption = "每股配股"
Height = 255
Left = 2940
TabIndex = 19
Top = 975
Width = 735
End
Begin VB.Label Label8
Caption = "当前价位"
Height = 330
Left = 240
TabIndex = 18
Top = 435
Width = 750
End
End
Begin VB.Frame Frame3
Caption = "输出结果"
Height = 1170
Left = -74700
TabIndex = 9
Top = 3000
Width = 3300
Begin VB.TextBox Text13
BackColor = &H80000018&
DataField = "网址"
DataSource = "Data1"
Height = 270
Left = 1620
Locked = -1 'True
TabIndex = 10
Top = 540
Width = 1455
End
Begin VB.Label Label10
Caption = "手机号码"
Height = 255
Left = 330
TabIndex = 11
Top = 540
Width = 735
End
End
Begin VB.CommandButton Command8
Caption = "清空"
Height = 300
Left = -70905
TabIndex = 8
Top = 3795
Width = 1620
End
Begin VB.CommandButton Command9
Caption = "计算"
Height = 300
Left = -70920
TabIndex = 7
Top = 3255
Width = 1695
End
Begin VB.Frame Frame4
Caption = "输出结果"
Height = 3660
Left = -71535
TabIndex = 1
Top = 600
Width = 2835
Begin VB.TextBox Text2
BackColor = &H80000018&
DataField = "性别"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 1155
Locked = -1 'True
MaxLength = 1
TabIndex = 42
Top = 891
Width = 1000
End
Begin VB.TextBox Text1
BackColor = &H80000018&
DataField = "姓名"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 1155
Locked = -1 'True