unit1.pas

此程序是本人按老板要求开发的自动打铃软件

             if (StrToInt(sec)-1<=StrToInt(adoquery1.fieldbyname('秒钟').ASstring)) and (StrToInt(adoquery1.fieldbyname('秒钟').ASstring)<=StrToInt(sec)+1) then
                begin
                 Edit8.Text:=adoquery1.fieldbyname('小时').ASstring+':'+adoquery1.fieldbyname('分钟').ASstring+':'+adoquery1.fieldbyname('秒钟').ASstring;
                 if (StrToInt(tm)>000000) and (StrToInt(tm)<100000) then
                    begin
                      SndPlaySound('saks01.wav',SND_ASYNC);
                      Timer3.Enabled:=true;
                    end;
                 if (StrToInt(tm)>100000) and (StrToInt(tm)<150000) then
                    begin
                      SndPlaySound('saks02.wav',SND_ASYNC);
                      Timer3.Enabled:=true;
                    end;
                 if (StrToInt(tm)>150000) and (StrToInt(tm)<240000) then
                    begin
                      SndPlaySound('saks03.wav',SND_ASYNC);
                      Timer3.Enabled:=true;
                    end;
               end;
           end;     
        adoquery1.Next;
      end;
   end;

if day=trim(Edit7.Text) then
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select 小时,分钟,秒钟 from TimeSys');
    adoquery1.Open;
    adoquery1.First ;
    while not adoquery1.Eof do
    begin
        if (trim(adoquery1.fieldbyname('小时').ASstring)=trim(Hou)) and (trim(adoquery1.fieldbyname('分钟').ASstring)=trim(Min)) then
           begin
             if (StrToInt(sec)-1<=StrToInt(adoquery1.fieldbyname('秒钟').ASstring)) and (StrToInt(adoquery1.fieldbyname('秒钟').ASstring)<=StrToInt(sec)+1) then
                begin
                 Edit8.Text:=adoquery1.fieldbyname('小时').ASstring+':'+adoquery1.fieldbyname('分钟').ASstring+':'+adoquery1.fieldbyname('秒钟').ASstring;
                 if (StrToInt(tm)>000000) and (StrToInt(tm)<100000) then
                    begin
                      SndPlaySound('saks01.wav',SND_ASYNC);
                      Timer3.Enabled:=true;
                    end;
                 if (StrToInt(tm)>100000) and (StrToInt(tm)<150000) then
                    begin
                      SndPlaySound('saks02.wav',SND_ASYNC);
                      Timer3.Enabled:=true;
                    end;
                 if (StrToInt(tm)>150000) and (StrToInt(tm)<240000) then
                    begin
                      SndPlaySound('saks03.wav',SND_ASYNC);
                      Timer3.Enabled:=true;
                    end;
               end;
           end;    
        adoquery1.Next;
      end;
   end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 DBEdit1.readonly:=false;
 DBEdit2.readonly:=false;
 DBEdit3.readonly:=false;
  Bitbtn2.enabled:=true;
  Bitbtn4.enabled:=true;
  Bitbtn3.enabled:=false;
  Bitbtn1.enabled:=false;
  Bitbtn5.enabled:=false;
  DataSource1.DataSet.Append;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 temp:string;
begin

  DataSource1.DataSet.FieldValues['小时']:=DBEdit1.Text;
  DataSource1.DataSet.FieldValues['分钟']:=DBEdit2.Text;
  DataSource1.DataSet.FieldValues['秒钟']:=DBEdit3.Text;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select * from TimeSys where 小时='''+DBEdit1.Text+''' and 分钟='''+DBEdit2.Text+''' and 秒钟='''+DBEdit3.Text+'''';
  Adoquery1.Open;
  temp:=adoquery1.FieldByName('小时').AsString;
  if temp<>'' then
    begin
      Showmessage('此时间已设定，请更换其他时间后重试！');
       DBEdit1.Text:='';
       DBEdit2.Text:='';
       DBEdit3.Text:='';
       Bitbtn1.enabled:=false;
       Bitbtn2.enabled:=true;
       Bitbtn3.enabled:=false;
       Bitbtn4.enabled:=true;
       Bitbtn5.enabled:=false;
     END
   else
     begin
       DBEdit1.ReadOnly:=true;
       DBEdit2.ReadOnly:=true;
       DBEdit3.ReadOnly:=true;
       Datasource1.DataSet.Post;
     end;

  Bitbtn1.enabled:=true;
  Bitbtn2.enabled:=false;
  Bitbtn3.enabled:=true;
  Bitbtn4.enabled:=false;
  Bitbtn5.enabled:=true;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if (DBEdit1.Text='')  then
         ShowMessage('这里是空数据，禁止删除！')
  else
     begin
       if application.MessageBox('确实删除该数据？','删除',MB_OKCANCEL)=ID_OK then
          datasource1.dataset.delete;
     end;     
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  DataSource1.dataset.Cancel;
  Bitbtn1.enabled:=true;
  Bitbtn2.enabled:=false;
  Bitbtn3.enabled:=true;
  Bitbtn4.enabled:=false;
  Bitbtn5.enabled:=true;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
   DBEdit1.ReadOnly:=True;
   DBEdit2.ReadOnly:=True;
   DBEdit3.ReadOnly:=True;
   Bitbtn2.enabled:=false;
   bitbtn4.Enabled:=false;

   CheckBox1.Checked:=true;
   CheckBox2.Checked:=true;
   CheckBox3.Checked:=true;
   CheckBox4.Checked:=true;
   CheckBox5.Checked:=true;

   form1.Height:=467;
   form1.Width:=472;

end;



procedure TForm1.BitBtn5Click(Sender: TObject);
begin
 DBEdit1.readonly:=false;
 DBEdit2.readonly:=false;
 DBEdit3.readonly:=false;
 Bitbtn1.Enabled:=false;
 Bitbtn2.Enabled:=true;
 Bitbtn3.Enabled:=false;
 Bitbtn4.Enabled:=true;
 Bitbtn5.Enabled:=false;
 
 DataSource1.DataSet.Edit;
end;


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.checked then
     Edit1.Text:='1'
  else
     Edit1.text:='';
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   if CheckBox2.checked then
     Edit2.Text:='2'
  else
     Edit2.text:='';
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
    if CheckBox3.checked then
     Edit3.Text:='3'
  else
     Edit3.text:='';
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
    if CheckBox4.checked then
     Edit4.Text:='4'
  else
     Edit4.text:='';
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
    if CheckBox5.checked then
     Edit5.Text:='5'
  else
     Edit5.text:='';
end;

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
    if CheckBox6.checked then
     Edit6.Text:='6'
  else
     Edit6.text:='';
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
     if CheckBox7.checked then
     Edit7.Text:='7'
  else
     Edit7.text:='';

end;


procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
     Bitbtn2.Click;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  //inc(Fcount);
  //if Fcount> strtoint(edit10.text) then
  begin
    SndPlaySound(nil,SND_ASYNC);
    //Timer1.enabled:=true;
    Timer3.Enabled:=false;
    //Fcount:=0;
  end
end;

procedure TForm1.UpDown1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

   if Timer3.Enabled=true then
     Timer3.Enabled:=false;

end;

procedure TForm1.UpDown1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Timer3.Enabled=false then
     Timer3.Enabled:=true;     
end;

procedure TForm1.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     Bitbtn2.Click;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
day:string;
DateDay:Tdate;
begin
   Label2.Caption:='当前时间：'+TimeToStr(Time);
   DateDay:=date;
   Day:=IntTostr(DayofWeek((dateDay)-1));
   //Edit9.Text:=Day;
   if (trim(day)='1') then
     Label10.Caption:='一';
   if (trim(day)='2')then
     Label10.Caption:='二';
   if (trim(day)='3') then
     Label10.Caption:='三';
   if (trim(day)='4') then
     Label10.Caption:='四';
   if (trim(day)='5') then
     Label10.Caption:='五';
   if (trim(day)='6') then
     Label10.Caption:='六';
   if (trim(day)='7') then
     Label10.Caption:='日';
end;

procedure TForm1.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
     Timer3.Interval:=StrToInt(Edit10.Text)*1000;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
    Label9.Left:=label9.Left-5;
   IF Label9.Left<form1.Left-Label9.Width-500 then
      Label9.Left:=320;
end;

procedure TForm1.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
     Bitbtn2.Click;
end;

end.