📄 form_redl.pas
字号:
unit Form_RedL;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Series, TeEngine, TeeProcs, Chart, EasyGrid,
ComCtrls, ImgList, DB, ADODB;
type
TForm_Red = class(TForm)
Image1: TImage;
Label1: TLabel;
Image2: TImage;
Bevel1: TBevel;
TabCtrl: TPageControl;
TabSheet1: TTabSheet;
Grid1: TEasyGrid;
TabSheet3: TTabSheet;
TabSheet5: TTabSheet;
TabSheet7: TTabSheet;
TabSheet10: TTabSheet;
TabSheet12: TTabSheet;
ImageList1: TImageList;
Bevel2: TBevel;
Panel1: TPanel;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
Panel2: TPanel;
PaintBox1: TPaintBox;
Panel3: TPanel;
Panel4: TPanel;
PaintBox3: TPaintBox;
Panel5: TPanel;
PaintBox4: TPaintBox;
Chart20: TChart;
FastLineSeries19: TFastLineSeries;
Chart21: TChart;
FastLineSeries20: TFastLineSeries;
Chart22: TChart;
FastLineSeries21: TFastLineSeries;
Chart23: TChart;
FastLineSeries22: TFastLineSeries;
PaintBox5: TPaintBox;
PaintBox6: TPaintBox;
ADOQuery1: TADOQuery;
Chart1: TChart;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Series1: TLineSeries;
Series2: TLineSeries;
Series3: TLineSeries;
Series4: TLineSeries;
Series5: TLineSeries;
Series6: TLineSeries;
Chart2: TChart;
LineSeries1: TLineSeries;
Chart3: TChart;
LineSeries2: TLineSeries;
Chart4: TChart;
LineSeries3: TLineSeries;
Chart5: TChart;
LineSeries4: TLineSeries;
Chart6: TChart;
LineSeries5: TLineSeries;
Chart7: TChart;
LineSeries6: TLineSeries;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Chart8: TChart;
LineSeries7: TLineSeries;
CheckBox1: TCheckBox;
Chart9: TChart;
LineSeries8: TLineSeries;
Chart10: TChart;
LineSeries9: TLineSeries;
Chart11: TChart;
LineSeries10: TLineSeries;
CheckBox2: TCheckBox;
Chart12: TChart;
LineSeries11: TLineSeries;
Chart13: TChart;
LineSeries12: TLineSeries;
Chart14: TChart;
LineSeries13: TLineSeries;
Chart15: TChart;
LineSeries14: TLineSeries;
Chart16: TChart;
LineSeries15: TLineSeries;
Chart17: TChart;
LineSeries16: TLineSeries;
CheckBox3: TCheckBox;
Chart18: TChart;
LineSeries17: TLineSeries;
Chart19: TChart;
LineSeries18: TLineSeries;
procedure FormCreate(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure TabCtrlDrawTab(Control: TCustomTabControl; TabIndex: Integer;
const Rect: TRect; Active: Boolean);
procedure TabCtrlChange(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
private
{ Private declarations }
//Function GetCpDataList():TStringList;
procedure WMNCHitTest(var msg:TWMNCHitTest);message WM_NCHitTest;
public
{ Public declarations }
end;
var
Form_Red: TForm_Red;
implementation
{$R *.dfm}
uses common;
Procedure TForm_Red.WMNCHitTest(var msg:TWMNCHitTest);
var
CapTionRect:TRect;
MousePt:TPoint;
begin
inherited;
CaptionRect:=Rect(Form_Red.Left,Form_Red.Top,900,40);
MousePt:=point(msg.XPos,msg.YPos);
MousePt:=ScreenToClient(MousePt);
if PtInRect(CaptionRect,MousePt) then
begin
msg.Result:=HTCaption;
end;
end;
procedure TForm_Red.FormCreate(Sender: TObject);
var
i:integer;
begin
ShowPloyForm(image1.Picture.Bitmap,handle);
//Form_Red.Top:=904;
grid1.ColWidths[1]:=45;
grid1.Cells[1,1].ForeText:='期号';
grid1.RowHeights[1]:=20;
for i:=2 to 34 do
begin
grid1.ColWidths[i]:=20;
grid1.cells[i,1].foretext:=inttostr(i-1);
end;
grid1.Cells[35,1].ForeText:='和值';
grid1.ColWidths[35]:=36;
grid1.Cells[36,1].ForeText:='奇偶';
grid1.ColWidths[36]:=36;
grid1.Cells[37,1].ForeText:='区域比';
grid1.ColWidths[37]:=45;
grid1.Cells[38,1].ForeText:='除3余数';
grid1.ColWidths[38]:=50;
grid1.Cells[39,1].ForeText:='大小';
grid1.ColWidths[39]:=36;
//GetCpData;
end;
procedure TForm_Red.Image2Click(Sender: TObject);
begin
CloseForm(handle);
end;
procedure TForm_Red.TabCtrlDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
TabTitle:Array[0..20] of string;
begin
TabTitle[0]:='红球分布图';
TabTitle[1]:='号码走势图';
TabTitle[2]:='行列分布图';
TabTitle[3]:='和值分析';
TabTitle[4]:='尾数走势';
TabTitle[5]:='尾和分析';
TabTitle[6]:='号码特征图';
TabTitle[7]:='极值分析';
//TabTitle[4]:='工龄段查询';
with Control.Canvas do
begin
if active then
begin
Font.Color:=clRed;
Font.Name:='宋体';
Font.Size:=10;
end
else
begin
Font.Style:=[];
Font.Name:='宋体';
Font.Size:=10;
end;
TextRect(Rect,Rect.Left+20,Rect.Top+3,TabTitle[TabIndex]);////输出标题
ImageList1.Draw(Control.Canvas,Rect.Left+2,Rect.Top+2,TabIndex);///画图标
end;///with
end;
procedure TForm_Red.TabCtrlChange(Sender: TObject);
var
R_CpData1:Array[1..6,0..100] of integer;
R_CPID:Array[0..100] of string;
R_CpData2:Array[1..100] of integer;
R_CpData3:Array[1..100] of integer;
R_CpData4:Array[1..100] of integer;
R_CpData5:Array[1..100] of integer;
R_CpData6:Array[1..100] of integer;
R_CpData7:Array[1..100] of integer;
FieldIndex:string;
CurrentPath:string;
strSql:string;
R_CPTotal:Array[1..100] of integer;/////存储和值///////////////////
R_CPTotalSub:Array[1..100] of integer;////存储和值之间的差值1///////////
R_CPTotalSub1:Array[1..100] of integer;////存储和值之间的差值2
R_CPLastNumber:Array[1..6,1..100] of integer;////存储尾数//////////
R_CPLastNumber1:Array[1..6,1..100] of integer;////存储尾数1//////////
R_CPLastNumberTotal:Array[1..100] of integer;////存储尾数和//////////
R_CPLastTotalSub:Array[1..100] of integer;/////存储尾数和之间的差///////
R_CPLastTotalSub1:Array[1..100] of integer;/////存储尾数和之间的差///////
i:integer;
j:integer;
begin
CurrentPath:=ExtractFilePath(paramStr(0));
///////TabCtrl.TabIndex=1号码走势图/////////////////////////
if TabCtrl.TabIndex=1 then
begin
///首先得到彩票的数据//////////
for j:=1 to 6 do
begin
with AdoQuery1 do
begin
connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
close;
sql.Clear;
strSql:='Select * From CPData Where ID<26 order by sID';
sql.Add(strSql);
prepared;
open;
if recordcount<>0 then
begin
i:=0;
while not eof do
begin
FieldIndex:='r'+inttostr(j);
R_CPData1[j,i]:=FieldByName(FieldIndex).AsInteger;
//R_CPData2[i]:=FieldByName('r2').AsInteger;
//R_CPData3[i]:=FieldByName('r3').AsInteger;
//R_CPData4[i]:=FieldByName('r4').AsInteger;
//R_CPData5[i]:=FieldByName('r5').AsInteger;
//R_CPData6[i]:=FieldByName('r6').AsInteger;
R_CPID[i]:=FieldByName('sID').AsString;
next;
inc(i);
end;///while
end;//if
end;///with
end;//forj
////画chart1曲线/////////////////
for i:=1 to 6 do
begin
chart1.Series[i-1].Clear;
//chart1.Series[i-1].Title:=trim(grid1.cells[4*i-2,1].foretext)+'年';
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -