gyxgpyfl.pas

这是一个delphi源码

unit GYXGPYFL;

interface

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

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

var
  GYXGPYFLForm: TGYXGPYFLForm;

implementation
{$R *.DFM}

uses Data, SelectMusic;

procedure TGYXGPYFLForm.SelectItem(ItemIndex:Integer);
begin
CurItem:=ItemIndex;
SelectedImage.Top:=SelImage[CurItem].Top+SelImage[CurItem].Height-3;
end;
procedure TGYXGPYFLForm.AgreeCurSel;
var
  TempString:String;
begin
Case CurItem of
  1:TempString:=' (GQMC like ''0%'' or GQMC like ''1%'' or GQMC like ''2%'' or GQMC like ''3%'' or GQMC like ''4%'' or GQMC like ''5%'' or GQMC like ''6%'' or GQMC like ''7%'' or GQMC like ''8%'' or GQMC like ''9%'' or GMPY like ''A%'' or GMPY like ''B%'' or GMPY like ''C%'')';
  2:TempString:=' (GMPY like ''D%'' or GMPY like ''E%'' or GMPY like ''F%'' or GMPY like ''G%'')';
  3:TempString:=' (GMPY like ''H%'' or GMPY like ''I%'' or GMPY like ''J%'' or GMPY like ''K%'')';
  4:TempString:=' (GMPY like ''L%'' or GMPY like ''M%'' or GMPY like ''N%'' or GMPY like ''O%'')';
  5:TempString:=' (GMPY like ''P%'' or GMPY like ''Q%'' or GMPY like ''R%'' or GMPY like ''S%'')';
  6:TempString:=' (GMPY like ''T%'' or GMPY like ''U%'' or GMPY like ''V%'' or GMPY like ''W%'')';
  7:TempString:=' (GMPY like ''X%'' or GMPY like ''Y%'' or GMPY like ''Z%'')';
  8:TempString:='';
end;
DataMod.GQKDataSet.Close;
if TempString='' then
  DataMod.GQKDataSet.SQL.Text:='Select * from gqk where '+TiaoJian+' order by gmpy,gqzs'
else
  DataMod.GQKDataSet.SQL.Text:='Select * from gqk where '+TiaoJian+' and '+TempString+' order by gmpy,gqzs';
DataMod.GQKDataSet.Open;
SelectMusicForm:=TSelectMusicForm.Create(self);
SelMusicImage.BringToFront;
SelectMusicForm.ShowModal;
SelMusicImage.SendToBack;
end;
procedure TGYXGPYFLForm.NextItem;
begin
  SelectItem(CurItem mod 8 +1)
end;
procedure TGYXGPYFLForm.PriorItem;
begin
  SelectItem((CurItem+6) mod 8 +1)
end;

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

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

procedure TGYXGPYFLForm.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;
  SelImage[8]:=Image8;
  SelectItem(1);
end;

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

procedure TGYXGPYFLForm.Image11Click(Sender: TObject);
begin
Close;
end;

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

end.