unit2.pas

一个完整的彩票软件的源代码

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.FormShow(Sender: TObject);
var
  i,j:integer;
begin
  form1.Query1.close;
  form1.Query1.DatabaseName:=form1.table1.databasename;
  form1.query1.sql.Clear;
  form1.Query1.sql.add('select * from '''+form1.table1.tablename+''' order by 期别  ');
  form1.query1.open;
  form2.width:=(maxdata+1)*15+10  +34;
  form2.height:=(form1.table1.recordcount+4)*15-2;

  image1.Height:=form2.height;
  image1.canvas.brush.color:=clinfobk;
  image1.Canvas.Rectangle(0,0,image1.width,image1.height);

  image1.canvas.TextOut(2,1,'期别');
  for i:=0 to maxdata do begin
    image1.canvas.moveto(34+i*15,0);
    image1.canvas.lineto(34+i*15,image1.height);
    image1.canvas.TextOut(34+2+i*15,1,inttostr(i));
  end;
  for i:=0 to form1.table1.recordcount+2 do begin
    image1.canvas.moveto(0,i*15);
    image1.canvas.lineto(image1.width,i*15);
  end;
  image1.canvas.brush.color:=$00ABC936;
  image1.canvas.Font.Color:=not clblue;
  form1.query1.First;
  for i:=0 to form1.table1.recordcount-1 do begin
    image1.canvas.brush.color:=$00A4E0A0;
    image1.canvas.Rectangle(1,(i+1)*15,35,(i+1)*15+16);
    image1.canvas.textout(2,2+(i+1)*15,form1.query1.fields[0].asstring);
    image1.canvas.brush.color:=$00ABC936;
    for j:=1 to form1.table1.fields.count-1 do begin
      if (j=form1.table1.fields.count-1) and (form1.checkbox1.Checked) then
        image1.canvas.Font.Color:=clred
      else
        image1.canvas.Font.Color:=not clblue;
      image1.canvas.Rectangle(34+form1.query1.fields[j].asinteger*15,(i+1)*15,34+form1.query1.fields[j].asinteger*15+16,(i+1)*15+16);
      image1.canvas.textout(34+2+form1.query1.fields[j].asinteger*15,2+(i+1)*15,inttostr(form1.query1.fields[j].asinteger));
    end;
    form1.query1.next;
  end;
  image1.canvas.brush.Color:=$00C08000;
  for j:=1 to form1.table1.fields.count-1 do begin
    if myedit[j].text<>'' then begin
      if (j=form1.table1.fields.count-1) and (form1.checkbox1.Checked) then
        image1.canvas.Font.Color:=clred
      else
        image1.canvas.Font.Color:=not clblue;

      image1.canvas.Rectangle(34+strtoint(myedit[j].text)*15,(form1.table1.recordcount+1)*15,34+strtoint(myedit[j].text)*15+16,(form1.table1.recordcount+1)*15+16);
      image1.canvas.textout(34+strtoint(myedit[j].text)*15,(form1.table1.recordcount+1)*15,inttostr(strtoint(myedit[j].text)));
    end;
  end;


end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
  form1.button7.enabled:=true;
end;

end.