yyty.pas

这是一个delphi源码

unit YYTY;

interface

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

type
  TYYTYForm = class(TForm)
    LeftImage: TImage;
    RightImage: TImage;
    Image1: TImage;
    SelectedImage: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    CurItem:Integer;
    SelImage:Array [1..7] of TImage;
    procedure SelectItem(ItemIndex:Integer);
    procedure AgreeCurSel;
    procedure NextItem;
    procedure PriorItem;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YYTYForm: TYYTYForm;

implementation

uses Data, SelectMusic;

{$R *.DFM}

procedure TYYTYForm.NextItem;
begin
  SelectItem(CurItem mod 7 +1)
end;
procedure TYYTYForm.PriorItem;
begin
  SelectItem((CurItem+5) mod 7 +1)
end;
procedure TYYTYForm.SelectItem(ItemIndex:Integer);
begin
CurItem:=ItemIndex;
SelectedImage.Top:=SelImage[CurItem].Top+SelImage[CurItem].Height-3;
end;
procedure TYYTYForm.AgreeCurSel;
var
  TempString:String;
begin
Case CurItem of
  1:TempString:='YZFL=''粤台'' and GQZS<=2';
  2:TempString:='YZFL=''粤台'' and GQZS=3';
  3:TempString:='YZFL=''粤台'' and GQZS=4';
  4:TempString:='YZFL=''粤台'' and GQZS=5';
  5:TempString:='YZFL=''粤台'' and GQZS=6';
  6:TempString:='YZFL=''粤台'' and GQZS=7';
  7:TempString:='YZFL=''粤台'' and GQZS>=8';
end;
DataMod.GQKDataSet.Close;
DataMod.GQKDataSet.SQL.Text:='select * from gqk where '+TempString+' order by gmpy,gqzs';
DataMod.GQKDataSet.Open;
SelectMusicForm:=TSelectMusicForm.Create(self);
SelectMusicForm.ShowModal;
end;

procedure TYYTYForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TYYTYForm.FormCreate(Sender: TObject);
begin
Left:=0;
Top:=0;

end;

procedure TYYTYForm.FormShow(Sender: TObject);
begin
  SelImage[1]:=Image1;
  SelImage[2]:=Image2;
  SelImage[3]:=Image3;
  SelImage[4]:=Image4;
  SelImage[5]:=Image5;
  SelImage[6]:=Image6;
  SelImage[7]:=Image7;
  SelectItem(1);
end;

procedure TYYTYForm.Image1Click(Sender: TObject);
begin
SelectItem(TImage(Sender).Tag);
AgreeCurSel;
end;

procedure TYYTYForm.Image8Click(Sender: TObject);
begin
Close;
end;

procedure TYYTYForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_UP then
  PriorItem;
if Key=VK_DOWN then
  NextItem;
if (Key=$32) or (Key=VK_NUMPAD2) then
  begin
    SelectItem(1);
    AgreeCurSel;
  end;
if (Key=$33) or (Key=VK_NUMPAD3) then
  begin
    SelectItem(2);
    AgreeCurSel;
  end;
if (Key=$34) or (Key=VK_NUMPAD4) then
  begin
    SelectItem(3);
    AgreeCurSel;
  end;
if (Key=$35) or (Key=VK_NUMPAD5) then
  begin
    SelectItem(4);
    AgreeCurSel;
  end;
if (Key=$36) or (Key=VK_NUMPAD6) then
  begin
    SelectItem(5);
    AgreeCurSel;
  end;
if (Key=$37) or (Key=VK_NUMPAD7) then
  begin
    SelectItem(6);
    AgreeCurSel;
  end;
if (Key=$38) or (Key=VK_NUMPAD8) then
  begin
    SelectItem(7);
    AgreeCurSel;
  end;
if (Key=72) or (Key=13) then
  AgreeCurSel;
if (Key=70) then
    Close;
end;
end.