dchc.~pas

这是一个delphi源码

unit DCHC;

interface

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

type
  TDCHCForm = class(TForm)
    LeftImage: TImage;
    RightImage: TImage;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    SelectedImage: TImage;
    Image8: TImage;
    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);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  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
  DCHCForm: TDCHCForm;

implementation

uses Data, SelectMusic;

{$R *.DFM}

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

procedure TDCHCForm.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 TDCHCForm.Image1Click(Sender: TObject);
begin
SelectItem(TImage(Sender).Tag);
AgreeCurSel;
end;

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

procedure TDCHCForm.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) then
  AgreeCurSel;
if (Key=70) then
    Close;
end;

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

end.