【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-BHDB_Form_u.pas,希望本篇文章对您学习有所帮助。
{
author: 肖景峰
create date :
discrption: 编号点播界面
}
unit BHDB_Form_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, ActnList, XPStyleActnCtrls, ActnMan, Grids,
DBGrids, StdCtrls, Public_unit_u, NNSREALmagicCtrl_TLB;
type
TBHDB_Form = class(TForm)
Image1: TImage;
DBGrid1: TDBGrid;
ActionManager1: TActionManager;
Close_Fun: TAction;
Clear_fun: TAction;
A: TAction;
Find_GQ: TAction;
back_rec: TAction;
Next_rec: TAction;
Select_Fun: TAction;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
Edit1: TEdit;
procedure Close_FunExecute(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Clear_funExecute(Sender: TObject);
procedure AExecute(Sender: TObject);
procedure Find_GQExecute(Sender: TObject);
procedure back_recExecute(Sender: TObject);
procedure Next_recExecute(Sender: TObject);
procedure Select_FunExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BHDB_Form: TBHDB_Form;
implementation
uses VOD_DataModule_u, CG_Form_u, MainForm_u;
{$R *.dfm}
procedure TBHDB_Form.Close_FunExecute(Sender: TObject);
begin
Close;
end;
procedure TBHDB_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
BHDB_Form:=nil;
end;
procedure TBHDB_Form.Clear_funExecute(Sender: TObject);
begin
Edit1.Text:='';
end;
procedure TBHDB_Form.AExecute(Sender: TObject);
var
Key:string;
begin
if Sender.ClassType = TAction then key:=TAction(Sender).Hint;
if Sender.ClassType = TImage then key:=TImage(Sender).Hint;
Edit1.Text:=Edit1.Text+Key;
//进行SQL查询
Find_GQ.Execute;
end;
procedure TBHDB_Form.Find_GQExecute(Sender: TObject);
begin
with VOD_DataModule.Music_ADO do
begin
close;
SQL.clear;
SQL.Add('select * from T_dia_music_info');
SQL.Add('where c_code Like ''%'+Edit1.Text+'%''');
Open;
end;
end;
procedure TBHDB_Form.back_recExecute(Sender: TObject);
begin
if VOD_DataModule.Music_ADO.Active then VOD_DataModule.Music_ADO.Prior;
end;
procedure TBHDB_Form.Next_recExecute(Sender: TObject);
begin
if VOD_DataModule.Music_ADO.Active then VOD_DataModule.Music_ADO.Next;
end;
procedure TBHDB_Form.Select_FunExecute(Sender: TObject);
begin
if (VOD_DataModule.Music_ADO.Active) and (VOD_DataModule.Music_ADO.RecordCount>0) then
begin
AddMusic(VOD_DataModule.Music_ADO.FieldByName('C_code').AsString,
VOD_DataModule.Music_ADO.FieldByName('C_name').AsString,
VOD_DataModule.Music_ADO.FieldByName('File_name').AsString);
if not assigned(CG_Form) then
begin
CG_Form:=TCG_Form.Create(self);
CG_Form.Show;
end;
if (MainForm.REALmagicCtrl1.DeviceState=dsCLOSED) or
(MainForm.REALmagicCtrl1.DeviceState=dsENDED) then
MainForm.Play.Execute;
end;
end;
procedure TBHDB_Form.FormShow(Sender: TObject);
begin
Self.Width:=image1.Width;
Self.Height:=image1.Height;
VOD_DataModule.Music_ADO.SQL.Clear;
VOD_DataModule.Music_ADO.SQL.Add('select * from T_dia_music_info');
VOD_DataModule.Music_ADO.ExecSQL;
VOD_DataModule.Music_ADO.Open;
VOD_DataModule.Music_ADO.Active:=true;
end;
end.
上一篇:
frmAResult.frm
下一篇:
多年来只想说一句,我不怪你