?? mainform.pas
字號:
unit mainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, StdCtrls, ExtCtrls, dxCntner, dxTL, dxDBCtrl,
dxDBGrid, ComCtrls, DB, ADODB, DBCtrls, Mask, TeeProcs, TeEngine, Chart,DateUtils,
Series, RzBHints, Buttons, RzDTP, RzDBDTP, Grids, OleCtrls, SHDocVw;
type
TfrmMainForm = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
DG: TdxDBGrid;
Panel1: TPanel;
Label1: TLabel;
QH: TDBEdit;
H1: TDBEdit;
H2: TDBEdit;
H3: TDBEdit;
H4: TDBEdit;
H5: TDBEdit;
H6: TDBEdit;
L1: TDBEdit;
DBN: TDBNavigator;
DS: TDataSource;
AT: TADOTable;
AC: TADOConnection;
DGColumn1: TdxDBGridColumn;
DGColumn2: TdxDBGridColumn;
DGColumn3: TdxDBGridColumn;
DGColumn4: TdxDBGridColumn;
DGColumn5: TdxDBGridColumn;
DGColumn6: TdxDBGridColumn;
DGColumn7: TdxDBGridColumn;
DGColumn8: TdxDBGridColumn;
tc: TChart;
Panel2: TPanel;
Label2: TLabel;
FQFW: TComboBox;
Label3: TLabel;
TBFS: TComboBox;
AQ: TADOQuery;
Series1: TBarSeries;
TabSheet5: TTabSheet;
RBH: TRzBalloonHints;
btnSave: TBitBtn;
Panel3: TPanel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBNavigator1: TDBNavigator;
GDG: TdxDBGrid;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
GAT: TADOTable;
GDS: TDataSource;
GDGColumn9: TdxDBGridColumn;
GMRQ: TRzDBDateTimePicker;
Label5: TLabel;
tb: TStringGrid;
StatusBar1: TStatusBar;
TabSheet4: TTabSheet;
GMTB: TStringGrid;
TabSheet6: TTabSheet;
wb: TWebBrowser;
procedure DGColumnClick(Sender: TObject; Column: TdxDBTreeListColumn);
procedure FormCreate(Sender: TObject);
procedure FQFWChange(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure TBFSChange(Sender: TObject);
procedure tcDblClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure TabSheet5Show(Sender: TObject);
procedure ATAfterEdit(DataSet: TDataSet);
procedure ATAfterDelete(DataSet: TDataSet);
procedure ATAfterInsert(DataSet: TDataSet);
procedure tbDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
procedure GATAfterEdit(DataSet: TDataSet);
procedure GATAfterInsert(DataSet: TDataSet);
procedure GATAfterDelete(DataSet: TDataSet);
procedure TabSheet4Show(Sender: TObject);
procedure GMTBDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure TabSheet4Hide(Sender: TObject);
procedure wbNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure TabSheet6Show(Sender: TObject);
private
blshow,blgmshow : boolean;
{ Private declarations }
public
Adata,Atb : array of integer;
procedure Totaldata();
procedure SetValue(tc : Tchart);
{ Public declarations }
end;
var
frmMainForm: TfrmMainForm;
implementation
uses zs;
{$R *.dfm}
procedure TfrmMainForm.DGColumnClick(Sender: TObject;
Column: TdxDBTreeListColumn);
begin
AT.IndexFieldNames := column.FieldName ;
end;
procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
setlength(adata,34);
setlength(atb,17);
blshow :=false;
blgmshow :=false;
end;
procedure TfrmMainForm.Totaldata();
function getDate(ij : integer) : string;
begin
result := 'select top ' + inttostr(ij) + ' * from 開獎數據 order by 期號 desc' ;
end;
var
strsql,strsql1 : string;
i,w : integer;
intYear,intMonth : integer;
begin
intyear := yearof(date);
intMonth := monthof(date);
case fqfw.ItemIndex of
0: strsql := 'select * from 開獎數據';
1: strsql := 'select * from 開獎數據 where 期號 like ''%' + inttostr(intyear) + '%''';
2: strsql := getdate(99);
3: strsql := getdate(96);
4: strsql := getdate(80);
5: strsql := getdate(66);
6: strsql := getdate(64);
7: strsql := getdate(48);
8: strsql := getdate(33);
9: strsql := getdate(32);
10: strsql := getdate(16);
end;
for i:= 1 to 33 do
adata[i] :=0;
for i:= 1 to 16 do
atb[i] :=0;
aq.Close;
aq.SQL.Clear;
aq.SQL.Add(strsql);
aq.Open;
if aq.RecordCount >0 then
begin
if tbfs.ItemIndex <3 then
begin
aq.First;
while not aq.Eof do
begin
adata[aq.FieldByName('紅色1').AsInteger ] := adata[aq.FieldByName('紅色1').AsInteger ] +1;
adata[aq.FieldByName('紅色2').AsInteger ] := adata[aq.FieldByName('紅色2').AsInteger ] +1;
adata[aq.FieldByName('紅色3').AsInteger ] := adata[aq.FieldByName('紅色3').AsInteger ] +1;
adata[aq.FieldByName('紅色4').AsInteger ] := adata[aq.FieldByName('紅色4').AsInteger ] +1;
adata[aq.FieldByName('紅色5').AsInteger ] := adata[aq.FieldByName('紅色5').AsInteger ] +1;
adata[aq.FieldByName('紅色6').AsInteger ] := adata[aq.FieldByName('紅色6').AsInteger ] +1;
atb[aq.FieldByName('藍色').AsInteger ] := atb[aq.FieldByName('藍色').AsInteger ] +1;
aq.Next;
end;
end;
//==================
if tbfs.ItemIndex =3 then
begin
aq.First;
while not aq.Eof do
begin
if (aq.FieldByName('紅色1').AsInteger + 1 = aq.FieldByName('紅色2').AsInteger) then
begin
adata[aq.FieldByName('紅色1').AsInteger ] := adata[aq.FieldByName('紅色1').AsInteger ] +1;
end;
if (aq.FieldByName('紅色2').AsInteger + 1 = aq.FieldByName('紅色3').AsInteger) then
begin
adata[aq.FieldByName('紅色2').AsInteger ] := adata[aq.FieldByName('紅色2').AsInteger ] +1;
end;
if (aq.FieldByName('紅色3').AsInteger + 1 = aq.FieldByName('紅色4').AsInteger) then
begin
adata[aq.FieldByName('紅色3').AsInteger ] := adata[aq.FieldByName('紅色3').AsInteger ] +1;
end;
if (aq.FieldByName('紅色4').AsInteger + 1 = aq.FieldByName('紅色5').AsInteger) then
begin
adata[aq.FieldByName('紅色4').AsInteger ] := adata[aq.FieldByName('紅色4').AsInteger ] +1;
end;
if (aq.FieldByName('紅色5').AsInteger + 1 = aq.FieldByName('紅色6').AsInteger) then
begin
adata[aq.FieldByName('紅色5').AsInteger ] := adata[aq.FieldByName('紅色5').AsInteger ] +1;
end;
aq.Next;
end;
end;
//=====================
if tbfs.ItemIndex =4 then
begin
aq.First;
while not aq.Eof do
begin
if (aq.FieldByName('紅色1').AsInteger + 1 = aq.FieldByName('紅色2').AsInteger) and (aq.FieldByName('紅色2').AsInteger + 1 = aq.FieldByName('紅色3').AsInteger) then
begin
adata[aq.FieldByName('紅色1').AsInteger ] := adata[aq.FieldByName('紅色1').AsInteger ] +1;
end;
if (aq.FieldByName('紅色2').AsInteger + 1 = aq.FieldByName('紅色3').AsInteger) and (aq.FieldByName('紅色3').AsInteger + 1 = aq.FieldByName('紅色4').AsInteger) then
begin
adata[aq.FieldByName('紅色2').AsInteger ] := adata[aq.FieldByName('紅色2').AsInteger ] +1;
end;
if (aq.FieldByName('紅色3').AsInteger + 1 = aq.FieldByName('紅色4').AsInteger) and (aq.FieldByName('紅色4').AsInteger + 1 = aq.FieldByName('紅色5').AsInteger) then
begin
adata[aq.FieldByName('紅色3').AsInteger ] := adata[aq.FieldByName('紅色3').AsInteger ] +1;
end;
if (aq.FieldByName('紅色4').AsInteger + 1 = aq.FieldByName('紅色5').AsInteger) and (aq.FieldByName('紅色5').AsInteger + 1 = aq.FieldByName('紅色6').AsInteger) then
begin
adata[aq.FieldByName('紅色4').AsInteger ] := adata[aq.FieldByName('紅色4').AsInteger ] +1;
end;
aq.Next;
end;
end;
//===============
if tbfs.ItemIndex =5 then
begin
aq.First;
while not aq.Eof do
begin
if (aq.FieldByName('紅色1').AsInteger + 1 = aq.FieldByName('紅色2').AsInteger) and (aq.FieldByName('紅色2').AsInteger + 1 = aq.FieldByName('紅色3').AsInteger) and (aq.FieldByName('紅色3').AsInteger + 1 = aq.FieldByName('紅色4').AsInteger) then
begin
adata[aq.FieldByName('紅色1').AsInteger ] := adata[aq.FieldByName('紅色1').AsInteger ] +1;
end;
if (aq.FieldByName('紅色2').AsInteger + 1 = aq.FieldByName('紅色3').AsInteger) and (aq.FieldByName('紅色3').AsInteger + 1 = aq.FieldByName('紅色4').AsInteger) and (aq.FieldByName('紅色4').AsInteger + 1 = aq.FieldByName('紅色5').AsInteger) then
begin
adata[aq.FieldByName('紅色2').AsInteger ] := adata[aq.FieldByName('紅色2').AsInteger ] +1;
end;
if (aq.FieldByName('紅色3').AsInteger + 1 = aq.FieldByName('紅色4').AsInteger) and (aq.FieldByName('紅色4').AsInteger + 1 = aq.FieldByName('紅色5').AsInteger) and (aq.FieldByName('紅色5').AsInteger + 1 = aq.FieldByName('紅色6').AsInteger) then
begin
adata[aq.FieldByName('紅色3').AsInteger ] := adata[aq.FieldByName('紅色3').AsInteger ] +1;
end;
aq.Next;
end;
end;
//===========================
if tbfs.ItemIndex =6 then
begin
aq.First;
while not aq.Eof do
begin
if (aq.FieldByName('紅色1').AsInteger + 2 = aq.FieldByName('紅色2').AsInteger) then
begin
adata[aq.FieldByName('紅色1').AsInteger ] := adata[aq.FieldByName('紅色1').AsInteger ] +1;
end;
if (aq.FieldByName('紅色2').AsInteger + 2 = aq.FieldByName('紅色3').AsInteger) then
begin
adata[aq.FieldByName('紅色2').AsInteger ] := adata[aq.FieldByName('紅色2').AsInteger ] +1;
end;
if (aq.FieldByName('紅色3').AsInteger + 2 = aq.FieldByName('紅色4').AsInteger) then
begin
adata[aq.FieldByName('紅色3').AsInteger ] := adata[aq.FieldByName('紅色3').AsInteger ] +1;
end;
if (aq.FieldByName('紅色4').AsInteger + 2 = aq.FieldByName('紅色5').AsInteger) then
begin
adata[aq.FieldByName('紅色4').AsInteger ] := adata[aq.FieldByName('紅色4').AsInteger ] +1;
end;
if (aq.FieldByName('紅色5').AsInteger + 2 = aq.FieldByName('紅色6').AsInteger) then
begin
adata[aq.FieldByName('紅色5').AsInteger ] := adata[aq.FieldByName('紅色5').AsInteger ] +1;
end;
aq.Next;
end;
end;
//==================================
if tbfs.ItemIndex =7 then
begin
aq.First;
while not aq.Eof do
begin
if (aq.FieldByName('紅色1').AsInteger + 2 = aq.FieldByName('紅色2').AsInteger) and (aq.FieldByName('紅色2').AsInteger + 2 = aq.FieldByName('紅色3').AsInteger) then
begin
adata[aq.FieldByName('紅色1').AsInteger ] := adata[aq.FieldByName('紅色1').AsInteger ] +1;
end;
if (aq.FieldByName('紅色2').AsInteger + 2 = aq.FieldByName('紅色3').AsInteger) and (aq.FieldByName('紅色3').AsInteger + 2 = aq.FieldByName('紅色4').AsInteger) then
begin
adata[aq.FieldByName('紅色2').AsInteger ] := adata[aq.FieldByName('紅色2').AsInteger ] +1;
end;
if (aq.FieldByName('紅色3').AsInteger + 2 = aq.FieldByName('紅色4').AsInteger) and (aq.FieldByName('紅色4').AsInteger + 2 = aq.FieldByName('紅色5').AsInteger) then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -