📄 unit1.pas
字号:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, IniFiles, StdCtrls, Buttons,
WinSkinData;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
BitBtn1: TBitBtn;
Button3: TButton;
Memo2: TMemo;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
ADOQuery2: TADOQuery;
DataSource3: TDataSource;
ADOQuery3: TADOQuery;
DBGrid3: TDBGrid;
Memo3: TMemo;
Label1: TLabel;
DataSource4: TDataSource;
red1query: TADOQuery;
DBGrid4: TDBGrid;
DataSource5: TDataSource;
red2query: TADOQuery;
DBGrid5: TDBGrid;
DataSource6: TDataSource;
red3query: TADOQuery;
DBGrid6: TDBGrid;
DataSource7: TDataSource;
red4query: TADOQuery;
DBGrid7: TDBGrid;
DataSource8: TDataSource;
red5query: TADOQuery;
DBGrid8: TDBGrid;
DataSource9: TDataSource;
red6query: TADOQuery;
DBGrid9: TDBGrid;
DataSource10: TDataSource;
bluequery: TADOQuery;
DBGrid10: TDBGrid;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
SkinData1: TSkinData;
GroupBox1: TGroupBox;
Label10: TLabel;
HMEdit: TEdit;
Button4: TButton;
GroupBox2: TGroupBox;
Label9: TLabel;
Edit1: TEdit;
Button5: TButton;
Label11: TLabel;
REDCB: TComboBox;
GroupBox3: TGroupBox;
Label12: TLabel;
OEdit: TEdit;
Button6: TButton;
Label13: TLabel;
TEdit: TEdit;
Label14: TLabel;
SEdit: TEdit;
Label15: TLabel;
ComboBox1: TComboBox;
GroupBox4: TGroupBox;
Label16: TLabel;
blueEdit: TEdit;
Button7: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure ComboBox1Select(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;'
+ 'Data Source=' + ExtractFilePath(Application.EXEName) + '\' + 'cp.mdb';
end;
procedure TForm1.Button1Click(Sender: TObject);
var filename: string;
begin
filename := ExtractFilePath(Application.EXEName) + 'haoma.txt';
Memo1.Lines.LoadFromFile(filename);
end;
procedure TForm1.Button2Click(Sender: TObject);
var i, j: integer;
s: string;
str1: string;
str2: string;
a, a1, a2, a3, a4, a5, a6, a7, a8: string;
var msgoa: array[0..7] of string;
begin
//for i:=0 to 100 do
//begin
s := copy(Memo1.Text, 1, pos('=', Memo1.Text) - 1);
for i := 0 to 7 do begin
msgoa[i] := copy(s, 1, pos(',', s) - 1);
s := copy(s, pos(',', s) + 1, 100);
end;
a := msgoa[0];
a1 := msgoa[1];
a2 := msgoa[2];
a3 := msgoa[3];
a4 := msgoa[4];
a5 := msgoa[5];
a6 := msgoa[6];
a7 := msgoa[7];
//a8:=msgoa[8];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into cexpect values(''' + a + ''',''' + a1 + ''',''' + a2 + ''',''' + a3 + ''',''' + a4 + ''',''' + a5 + ''',''' + a6 + ''',''' + a7 + ''')');
//ADOQuery1.params[0].asstring:=;
{ADOQuery1.FieldValues[0]:=a;
ADOQuery1.FieldByName('a1').AsString:=a1;
ADOQuery1.FieldByName('a2').AsString:=a2;
ADOQuery1.FieldByName('a3').AsString:=a3;
ADOQuery1.FieldByName('a4').AsString:=a4;
ADOQuery1.FieldByName('a5').AsString:=a5;
ADOQuery1.FieldByName('a6').AsString:=a6;
ADOQuery1.FieldByName('a7').AsString:=a7; }
ADOQuery1.execsql;
Memo1.Lines.Delete(0);
Memo1.Lines.SaveToFile(ExtractFilePath(Application.EXEName) + 'haoma.txt');
//ADOQuery1.Open;
//end
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from cexpect order by qs desc');
ADOQuery1.Open;
ADOQuery1.Active := true;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from cishu order by cishu desc');
ADOQuery2.Open;
ADOQuery2.Active := true;
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select * from bcishu order by bcishu desc');
ADOQuery3.Open;
ADOQuery3.Active := true;
end;
procedure TForm1.Button3Click(Sender: TObject);
var ccount: array[1..33] of string;
var a,b: array[1..33] of integer;
var red1, red2, red3, red4, red5, red6, red7: string;
i, j,k: integer;
a1, a2, a3, a4, a5, a6, a7: integer;
var r0,r1,r2,r3,r4:string;
b0,b1,b2,b3,b4:string;
c0,c1,c2,c3,c4:string;
var redq1:array[1..33] of string;
var redq2:array[1..33] of string;
var redq3:array[1..33] of string;
var redq4:array[1..33] of string;
var redq5:array[1..33] of string;
var redq6:array[1..33] of string;
var blue:array[1..16] of string;
begin
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('delete * from cishu');
ADOQuery2.execsql;
end;
begin
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('delete * from bcishu');
ADOQuery3.execsql;
end;
begin
red1query.Close;
red1query.SQL.Clear;
red1query.SQL.Add('delete * from red1');
red1query.execsql;
end;
begin
red2query.Close;
red2query.SQL.Clear;
red2query.SQL.Add('delete * from red2');
red2query.execsql;
end;
begin
red3query.Close;
red3query.SQL.Clear;
red3query.SQL.Add('delete * from red3');
red3query.execsql;
end;
begin
red4query.Close;
red4query.SQL.Clear;
red4query.SQL.Add('delete * from red4');
red4query.execsql;
end;
begin
red5query.Close;
red5query.SQL.Clear;
red5query.SQL.Add('delete * from red5');
red5query.execsql;
end;
begin
red6query.Close;
red6query.SQL.Clear;
red6query.SQL.Add('delete * from red6');
red6query.execsql;
end;
begin
bluequery.Close;
bluequery.SQL.Clear;
bluequery.SQL.Add('delete * from blue');
bluequery.execsql;
end;
a[1]:=0;
a[2]:=0;
a[3]:=0;
a[4]:=0;
a[5]:=0;
a[6]:=0;
a[7]:=0;
a[8]:=0;
a[9]:=0;
a[10]:=0;
a[11]:=0;
a[12]:=0;
a[13]:=0;
a[14]:=0;
a[15]:=0;
a[16]:=0;
a[17]:=0;
a[18]:=0;
a[19]:=0;
a[20]:=0;
a[21]:=0;
a[22]:=0;
a[23]:=0;
a[24]:=0;
a[25]:=0;
a[26]:=0;
a[27]:=0;
a[28]:=0;
a[29]:=0;
a[30]:=0;
a[31]:=0;
a[32]:=0;
a[33]:=0;
b[1]:=0;
b[2]:=0;
b[3]:=0;
b[4]:=0;
b[5]:=0;
b[6]:=0;
b[7]:=0;
b[8]:=0;
b[9]:=0;
b[10]:=0;
b[11]:=0;
b[12]:=0;
b[13]:=0;
b[14]:=0;
b[15]:=0;
b[16]:=0;
//for i:=0 to 32 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from cexpect');
// ccount[i]:=Adoquery1.Fields[0].AsString; //FieldByName('cc').AsString;
ADOQuery1.Open;
//memo1.Lines.Add(ccount[i]);
end;
if not ADOQuery1.IsEmpty then begin
while not ADOQuery1.Eof do begin
red1 := ADOQuery1.FieldByName('red1').AsString;
red2 := ADOQuery1.FieldByName('red2').AsString;
red3 := ADOQuery1.FieldByName('red3').AsString;
red4 := ADOQuery1.FieldByName('red4').AsString;
red5 := ADOQuery1.FieldByName('red5').AsString;
red6 := ADOQuery1.FieldByName('red6').AsString;
//red7 := ADOQuery1.FieldByName('red7').AsString;
//red:=ADOQuery1.FieldByName('red1').AsString;
{for i:=1 to 33 do
begin
if i=strtoint(red1) then
if i=strtoint(red2) then
if i=strtoint(red3) then
if i=strtoint(red4) then
if i=strtoint(red5) then
if i=strtoint(red6) then
if i=strtoint(red7) then
begin
a[i]:=a[i]+1;
end; }
for i := 1 to 33 do
begin
if strtoint(red1) = i then
a[i] := a[i] + 1;
if strtoint(red2) = i then
a[i] := a[i] + 1;
if strtoint(red3) = i then
a[i] := a[i] + 1;
if strtoint(red4) = i then
a[i] := a[i] + 1;
if strtoint(red5) = i then
a[i] := a[i] + 1;
if strtoint(red6) = i then
a[i] := a[i] + 1;
//if strtoint(red7) = i then
//a[i] := a[i] + 1;
end;
ADOQuery1.Next;
end;
end;
{for i:=1 to 33 do
begin
//for j:=1 to 33 do
begin
if a[i]>a[i+1] then
end;
end; }
for k:=1 to 33 do
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('insert into cishu values( '''+inttostr(k)+''' ,''' + inttostr(a[k]) + ''' )');
ADOQuery2.execsql;
end;
//Memo2.Text:='1'+inttostr(a[1])+'2'+inttostr(a[2]);
memo2.Clear;
for j := 1 to 33 do begin
i:=j;
Memo2.Lines.Add(inttostr(i)+' 出现次数 '+inttostr(a[i]));
end;
begin
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select * from cexpect');
ADOQuery3.Open;
end;
if not ADOQuery3.IsEmpty then begin
while not ADOQuery3.Eof do begin
red7 := ADOQuery3.FieldByName('red7').AsString;
for i := 1 to 16 do
begin
if strtoint(red7) = i then
b[i] := b[i] + 1;
end;
ADOQuery3.Next;
end;
end;
for k:=1 to 16 do
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('insert into bcishu values( '''+inttostr(k)+''' ,''' + inttostr(b[k]) + ''' )');
ADOQuery2.execsql;
end;
//red10
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select count(*) from cexpect where red10="0" ');
ADOQuery1.Open;
r0:=ADOQuery1.Fields.Fields[0].Value;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select count(*) from cexpect where red10="1" ');
ADOQuery1.Open;
r1:=ADOQuery1.Fields.Fields[0].Value;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select count(*) from cexpect where red10="2" ');
ADOQuery1.Open;
r2:=ADOQuery1.Fields.Fields[0].Value;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select count(*) from cexpect where red10="3" ');
ADOQuery1.Open;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -