ts.pas

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

unit ts;

interface

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

type
  TtsForm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    Table1: TTable;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tsForm: TtsForm;

implementation

uses  zrzxkzxt,ulong,uGloabVar;

{$R *.dfm}

procedure TtsForm.BitBtn1Click(Sender: TObject);
begin
form1.Timer2.Enabled:=false;
form1.Timer3.Enabled:=true;
end;

procedure TtsForm.BitBtn2Click(Sender: TObject);
begin
form1.Timer2.Enabled:=true;
form1.Timer3.Enabled:=false;
end;

procedure TtsForm.BitBtn3Click(Sender: TObject);
begin
form1.Timer2.Enabled:=true;
form1.Timer3.Enabled:=false;
tsform.Free;
tsform.Close;
end;

procedure TtsForm.FormCreate(Sender: TObject);
//var
//szSQL:string;
begin
table1.Close;
table1.DatabaseName:=DBName;
table1.TableName:='tstime.DB';
table1.Active:=true;
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:='铃声';
//szSQL:='SELECT *  FROM tstime.DB';
//table1.SQL.Add(szSQL);
table1.Open;

end;

procedure TtsForm.ComboBox1Change(Sender: TObject);
begin
table1.FieldByName('PathName').AsString:=combobox1.text;
end;

procedure TtsForm.ComboBox1Click(Sender: TObject);
begin
table1.Active:=true;
table1.Edit;
table1.FieldByName('PathName').AsString:=combobox1.Text;
table1.Post;
end;

procedure TtsForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.bitbtn2.Enabled:=false; //如果没有用户登录则“查看、编辑、升旗、特殊功能”都不能用
form1.bitbtn3.Enabled:=false;
form1.bitbtn4.Enabled:=false;
form1.bitbtn5.Enabled:=false;
form1.bitbtn6.Enabled:=false;
end;

end.