简体股票分析系统Word文档下载推荐.docx
《简体股票分析系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《简体股票分析系统Word文档下载推荐.docx(15页珍藏版)》请在冰豆网上搜索。
![简体股票分析系统Word文档下载推荐.docx](https://file1.bdocx.com/fileroot1/2023-1/10/2c5359c4-ccf5-435c-a56d-79ef266b094b/2c5359c4-ccf5-435c-a56d-79ef266b094b1.gif)
同时提高自身的软件设计开发能力。
1.1开发环境
操作系统:
WindowsXP;
编程环境:
Delphi7.0
数据库软件:
MicrosoftOfficeAccess2003
2.需求分析
2.0功能模块描述
经过对系统的需求进行分析,我们把软件的功能分为以下几个模块:
数据导入模块、数据分析模块、数据清楚模块。
数据导入模块:
向数据库中导入从internet上下载的txt格式的股票原始数据。
数据分析模块:
分析导入的数据,并显示分析结果;
查看导入数据库中的原始数据
数据清楚模块:
清除数据库中各表的数据或曾错误导入的数据。
2.1功能能划分和系统结构图
2.2功能描述
数据源:
用户可从中国股市数据网(),把博客当天的资金净流入个股排行以及个股大单成交比排行的数据各自保存在一个文本文档中,运行系统时可以直接导入系统进行分析。
功能的实现部分是在数据导入模块。
资金流入的分析:
分析的是一个时间段股票出现在每天资金净流入个股排行榜的次数排行以及一个时间段入榜总金额的排行,输出的结果是以数据坐标图的形式输出,横轴代表的是股票的代码,纵轴代表的是总次数(绿色)或者总金额(红色)。
个股大单的分析:
分析的是一个时间段股票出现在每天个股大单成交比排行的特大单、大单、换手率买入比数天各自的累加值,并且对他们分别排行输出。
输出的结果是以数据坐标图的形式输出,横轴代表的是股票的代码,纵轴代表的是特大单买入比(红色)/大单买入比(深绿色)/换手率买入比(蓝色)。
查看数据源:
可以查看存储在数据库中的股票信息。
3.数据库设计
3.0数据库的设计
1表名
表名
含义
T_Stock
股票信息表
T_InOutRang
资金净流入排行表
T_BSRang
个股成交大单比综合信息表
T_RatioRang
个股成交大单比表
T_Time
时间信息表
2表结构
1.T_Stock
字段名
数据类型
字段含义
约束
F_StockID
长整形
股票代码
PrimaryKey,NotNull
F_StockName
Char(20)
股票名称
NotNull
F_Memo
Char(50)
备注说明
2.T_InOutRang
F_ID
记录ID
PrimaryKey
F_InId
流入股票代码
ForeignKey(T_Stock),NotNull
F_InStock
流入股票名称
F_AddFund
Number(4,2)
增万元数
F_OutId
流出股票代码
F_OutStock
Char(11)
流出股票名称
F_ReduceFund
Number(4,0)
减万元数
F_Time
DateTime
记录时间
ForeignKey(T_Time),NotNull
3T_BSRang
F_SuperIn
Number(4,1)
特大买入
NotNull
F_BigIn
大单买入
F_MidIn
中单买入
F_SuperOut
特大卖出
F_BigOut
大单卖出
F_MidOut
中单卖出
F_ExRatio
换手率
4.T_RatioRang
F_Stock1
F_Rtio1
流入大单比
F_Stock2
入学年度
F_Rtio2
流出大单比
5.T_Time
3.1各表间关系
4.程序设计
4.0窗体的设计及代码的设计
股票分析软件主窗体的设计
模块说明:
股票分析软件主窗体包括资金导入、数据清除、数据分析3个功能块。
窗体主界面显示分析显示结果。
数据导入窗体的设计
“数据导入”菜单项
功能说明:
导入数据为“资金净流入个股排行”、“大单成交比排行”。
主要代码:
ifOpenDialog1.Executethen
begin
memo1.Lines.Clear;
memo1.Lines.LoadFromFile(OpenDialog1.FileName);
withmemo1do
fori:
=0tomemo1.Lines.Count-1do
vLine:
=trim(lines.Strings[i]);
temp1:
=Trim(Copy(vLine,32,35));
temp2:
=Trim(Copy(vLine,16,20));
temp3:
=Trim(Copy(vLine,23,25));
ifnotADOTable1.ActivethenADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldByName('
F_StockID'
).AsString:
=Trim(Copy(vLine,1,6));
ADOTable1.FieldByname('
F_Stock1'
=Trim(Copy(vLine,7,9));
F_Rtio1'
=Trim(Copy(temp2,0,6));
F_Stock2'
=Trim(Copy(temp3,1,8));
F_Rtio2'
=Trim(Copy(temp1,0,6));
F_Time'
).AsString:
=DateToStr(time);
end;
数据分析窗体的设计
“数据分析”菜单项
净资金流入分析的设计
用户可以对资金净流入选择从某一天到另一天连续多天的数据分析,选择按“入榜总金额”或“入榜次数”进行前几名的排名。
同时,在最下行可以根据“股票代码”查询“股票的名称”。
var
sql,times,stime,etime:
String;
begin
stime:
=DCstart.Text;
etime:
=DCend.Text;
AQbsgTimes.Active:
=true;
sql:
='
SELECTtop'
+CB10.Text+'
Count(*)*10000ASTimes,Val(F_InId)asInId,Sum(F_AddFund)asAddFund'
;
=sql+'
FROMT_InOutRang'
WHEREF_TimeBetween#'
+ComboBox1.Text+'
#And#'
+ComboBox2.Text+'
#'
//#2008-5-1#And#2008-5-8#'
GROUPBYVAL(F_InId)'
caseRG1.ItemIndexof
0:
ORDERBYSum(F_AddFund)DESC'
1:
ORDERBYCount(*)*10000DESC'
else
DoQuery(AQbsgTimes,sql);
Series2.DataSource:
=AQbsgTimes;
Series3.DataSource:
Series3.XLabelsSource:
InId'
Series3.YValues.ValueSource:
Times'
Series2.XLabelsSource:
Series2.YValues.ValueSource:
AddFund'
大单成交比分析的窗体设计
用户可以对个股大单选择从某一天到另一天连续多天的数据分析,选择按“特大单买入比”、“大单买入比”或“换手率比”进行前几名的排名。
procedureTFInOut.BitBtn3Click(Sender:
TObject);
sqlAvg:
String;
avg:
double;
SELECTtop'
+CB2.Text+'
sum(F_SuperIn)ASSuperIn,Sum(F_BigIn)asBigIn,'
+'
Sum(F_ExRatio)asExRatio,VAL(F_StockID)asStockID'
FROMT_BSRang'
+ComboBox3.Text+'
+ComboBox4.Text+'
GROUPBYVAL(F_StockID)'
caseRG3.ItemIndexof
ORDERBYsum(F_SuperIn)DESC'
ORDERBYsum(F_BigIn)DESC'
2:
ORDERBYsum(F_ExRatio)DESC'
AQBsg.Active:
DoQuery(AQBsg,sql);
Series1.DataSource:
=AQBsg;
Series4.DataSource:
Series5.DataSource:
Series1.XLabelsSource:
StockID'
Series1.YValues.ValueSource:
SuperIn'
Series4.XLabelsSource:
Series4.YValues.ValueSource:
BigIn'
Series5.XLabelsSource:
Series5.YValues.ValueSource:
ExRatio'
end;
查看源数据的窗体设计
用户可以查看到数据库里所有的资金净流入数据和大单成交比数据。
(略)
数据清除窗体的设计
“数据清除”菜单项
用户可以删除某一天的个股资金净流入个股排行数据或者删除某一天的个股大单成交比排行数据。
一键清空数据库的功能:
清除所有的个股资金净流入个股排行数据以及个股大单成交比排行数据。
procedureTFdelete.BitBtn1Click(Sender:
sql:
time:
caseRGdelete.ItemIndexof
DELETE*FROMT_InOutRangWHEREF_Time=#'
+DBdeleteTime.Text+'
delete*fromT_BSRangWHEREF_Time=#'
DoExecute(AQdelete,sql);
Showmessage('
已成功删除!
'
);
5.运行需求
5.0运行需求
硬件要求:
最低128M/2G自由空间
建议256M/4G自由空间或更高配置
软件要求:
操作系统采用WindowsXP/2000或更高配置
数据库采用MicsoftAccess2003