dbxs.pas

这是一个delphi源码

unit DBXS;

interface

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

type
  TDBXSForm = class(TForm)
    LeftImage: TImage;
    ItemSelect: TItemSelect;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ItemSelectReturnSelect(Sender: TObject);
    procedure ItemSelectItemSelect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DBXSForm: TDBXSForm;

implementation

uses Data, SelectVideo;

{$R *.DFM}

procedure TDBXSForm.FormShow(Sender: TObject);
begin
DataMod.XSKLBDataSet.Open;
ItemSelect.Init;
end;

procedure TDBXSForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataMod.XSKLBDataSet.Close;
Action:=caFree;
end;

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

procedure TDBXSForm.ItemSelectReturnSelect(Sender: TObject);
begin
Close;
end;

procedure TDBXSForm.ItemSelectItemSelect(Sender: TObject);
begin
DataMod.GQKDataSet.Close;
DataMod.GQKDataSet.SQL.Text:='Select * from XSJMK where LB='''+DataMod.XSKLBDataSet.FieldByName('FLMC').AsString+''' order by MC';
DataMod.GQKDataSet.Open;
SelectVideoForm:=TSelectVideoForm.Create(self);
SelectVideoForm.ShowModal;
DataMod.GQKDataSet.Close;
end;

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

end.