pianchen.pas

这是一个有DELPHI编写的自动作息时间打铃控制程序,具有灵活的权限分配,能灵活编写作时间,并有手动打铃功能,能自已加入铃声.你自己看吧

unit pianchen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons, ExtDlgs, DBCtrls, 
  DBTables, Mask, Grids, DBGrids, DB;

type
  Ttimeedit = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox4: TGroupBox;
    GroupBox7: TGroupBox;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    OpenDialog1: TOpenDialog;
    BitBtn5: TBitBtn;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);

   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  timeedit: Ttimeedit;
  i:integer;

implementation

uses zrzxkzxt,uGloabVar;

{$R *.dfm}


procedure Ttimeedit.FormCreate(Sender: TObject);
var
k:string;
begin
    combobox1.ItemIndex:=dayofweek(Date)-1;
    table1.DatabaseName:=DBName;
    k:=inttostr(dayofweek(Date)-1);
    table1.TableName:='datatimebiao'+k+'.DB';//table1.TableName:='datatimebiao.DB';
    dbgrid1.Columns.Add.FieldName:='xianmu';
    dbgrid1.Columns.Add.FieldName:='stime';
    dbgrid1.Columns.Add.FieldName:='ftime';
    dbgrid1.Columns.Add.FieldName:='mtime';
    dbgrid1.Columns.Add.FieldName:='pathname';
    dbgrid1.Columns[0].Title.caption:='序号';
    dbgrid1.Columns[1].Title.caption:='时';
    dbgrid1.Columns[2].Title.caption:='分';
    dbgrid1.Columns[3].Title.caption:='秒';
    dbgrid1.Columns[4].Title.caption:='铃声路径';
    table1.Active:=true;
    GroupBox4.Visible:=false;
    dbnavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast];
    dbgrid1.ReadOnly:=true;
    bitbtn1.Enabled:=false;
    bitbtn4.Enabled:=false;

   end;

procedure Ttimeedit.FormClose(Sender: TObject; var Action: TCloseAction);
begin

if MessageBox(0,PChar('确实要退出时间表编辑窗口吗？'),'返回',MB_ICONQUESTION or MB_YESNO)=IDNO then
    Exit;
zrzxkzxt.Form1.Loged:=-1;
zrzxkzxt.Form1.Init(-1);
form1.MediaPlayer1.Close;
form1.bitbtn2.Enabled:=false; //如果没有用户登录则“查看、编辑、升旗、特殊功能”都不能用
form1.bitbtn3.Enabled:=false;
form1.bitbtn4.Enabled:=false;
form1.bitbtn5.Enabled:=false;
form1.bitbtn6.Enabled:=false;
end;
 



procedure Ttimeedit.BitBtn4Click(Sender: TObject);
//var s,k:string;
begin
try
   if opendialog1.Execute then
   edit1.Text:=opendialog1.FileName;
   bitbtn1.Enabled:=true;
   bitbtn2.Enabled:=true;
   except on e: ereaderror do
showmessage('打开文件失败');
end;
end;

procedure Ttimeedit.BitBtn1Click(Sender: TObject);

begin
table1.Active:=true;
table1.Edit;
table1.FieldByName('PathName').AsString:=ExtractFileName(edit1.Text);
table1.Post;

end;


procedure Ttimeedit.BitBtn6Click(Sender: TObject);
var
BellNewName:string;  //新的铃声路径
FileNewName:string;  //新的铃声名
i,c: Integer;
begin
FileNewName:=ExtractFileName(edit1.Text);
BellNewName:=BellName+'\'+FileNewName;
c:=Length(FileNewName);
If c > 0 then
begin               //检查铃声是否重名
      i:= SendMessage( combobox2.handle, cB_FINDSTRINGExact,combobox2.ItemIndex-1, longint(@FileNewName));
         If i = -1 Then
         begin
           combobox2.Items.add(FileNewName);
           copyfile('\\?\dbedit1.Text','\\?\BellNewName',true) //把铃声复制到当前路径
         end
         else
          begin
           combobox2.ItemIndex := i;
           showmessage('列表中已有这个铃声！');
           end;
end;
end;


procedure Ttimeedit.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
if button=nbedit then
begin
if edit1.text<>'' then
    bitbtn2.Enabled:=true
 else bitbtn2.Enabled:=false;
bitbtn4.Enabled:=true;
end;
end;

procedure Ttimeedit.BitBtn2Click(Sender: TObject);

begin
form1.MediaPlayer1.FileName:=edit1.Text;
form1.MediaPlayer1.Open;
form1.MediaPlayer1.Play;
end;

procedure Ttimeedit.BitBtn3Click(Sender: TObject);
begin
form1.MediaPlayer1.Stop;
end;



procedure Ttimeedit.ComboBox1Click(Sender: TObject);
var
k:string;
begin
  table1.Active:=false;
  k:=inttostr(combobox1.ItemIndex);
  table1.DatabaseName:=DBName;
  table1.TableName:='datatimebiao'+k+'.DB';
  table1.Active:=true;
end;

procedure Ttimeedit.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure Ttimeedit.ComboBox1Change(Sender: TObject);
var
k:string;
begin
  table1.Close;
  k:=inttostr(combobox1.ItemIndex);
  table1.DatabaseName:=DBName;
  table1.TableName:='datatimebiao'+k+'.DB';
  table1.Active:=true;
end;

procedure Ttimeedit.ComboBox2Click(Sender: TObject);
begin
Edit1.text:=BellName+'\'+combobox2.Text;
if edit1.text<>'' then
begin
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
end;
end;



end.