kqsettime.~pas

毕业设计时候开发的人事管理系统

unit kqsettime;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  Tfrmkqsettime = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    edswsbtime: TEdit;
    edxwsbtime: TEdit;
    edwssbtime: TEdit;
    edswxbtime: TEdit;
    edxwxbtime: TEdit;
    edwsxbtime: TEdit;
    btnupdate: TBitBtn;
    btncancel: TBitBtn;
    Label7: TLabel;
    btnsave: TBitBtn;
    timeclick1: TDateTimePicker;
    timeclick2: TDateTimePicker;
    timeclick3: TDateTimePicker;
    timeclick4: TDateTimePicker;
    timeclick5: TDateTimePicker;
    timeclick6: TDateTimePicker;
    procedure btncancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnupdateClick(Sender: TObject);
    procedure timeclick1CloseUp(Sender: TObject);
    procedure timeclick2CloseUp(Sender: TObject);
    procedure timeclick3CloseUp(Sender: TObject);
    procedure timeclick4CloseUp(Sender: TObject);
    procedure timeclick5CloseUp(Sender: TObject);
    procedure timeclick6CloseUp(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkqsettime: Tfrmkqsettime;

implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrmkqsettime.btncancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrmkqsettime.FormShow(Sender: TObject);
begin
with dmrsgl.kqsettimeqry do
begin
close;
sql.Clear;
sql.Add('select * from kqsettime');
open;
if recordcount=0 then
begin
messagedlg('考勤时间表没初始化',mtwarning,[mbyes],0);   //add newdata
btnupdate.Caption:='添加';
edswsbtime.SetFocus;
end
else      // set init values
edswsbtime.Text:=(timetostr(fieldbyname('morningintime').asdatetime));
edswxbtime.Text:=(timetostr(fieldbyname('morningouttime').asdatetime));
edxwsbtime.Text:=(timetostr(fieldbyname('afternoonintime').asdatetime));
edxwxbtime.Text:=(timetostr(fieldbyname('afternoonouttime').asdatetime));
edwssbtime.Text:=(timetostr(fieldbyname('nightintime').asdatetime));
edwsxbtime.Text:=(timetostr(fieldbyname('nightouttime').asdatetime));
edswsbtime.Enabled:=false;
edswxbtime.Enabled:=false;
edxwsbtime.Enabled:=false;
edxwxbtime.Enabled:=false;
edwssbtime.Enabled:=false;
edwsxbtime.Enabled:=false;
btnupdate.Caption:='修改';
btnupdate.SetFocus;
end;
end;

procedure Tfrmkqsettime.btnupdateClick(Sender: TObject);
begin
if btnupdate.Caption='修改' then
begin
edswsbtime.Enabled:=true;
edswxbtime.Enabled:=true;
edxwsbtime.Enabled:=true;
edxwxbtime.Enabled:=true;
edwssbtime.Enabled:=true;
edwsxbtime.Enabled:=true;
edswsbtime.SetFocus;
if edswsbtime.Text='' then
   begin
   showmessage('上午上班时间不能设定为空,请写入正确时间.');
   edswsbtime.SetFocus;
   end
else
begin
if edswxbtime.Text='' then
   begin
   showmessage('上午下班时间不能设定为空,请写入正确时间.');
   edswxbtime.SetFocus;
   end
else
begin
if edxwsbtime.Text='' then
   begin
   showmessage('下午上班时间不能设定为空,请写入正确时间.');
   edxwsbtime.SetFocus;
   end
else
begin
if edxwxbtime.Text='' then
   begin
   showmessage('下午下班时间不能设定为空,请写入正确时间.');
   edxwxbtime.SetFocus;
   end
else
begin
if edwssbtime.Text='' then
   begin
   showmessage('晚上上班时间不能设定为空,请写入正确时间.');
   edwssbtime.SetFocus;
   end
else
begin
if edwsxbtime.Text='' then
   begin
   showmessage('晚上下班时间不能设定为空,请写入正确时间.');
   edwsxbtime.SetFocus;
   end
else
//btnsaveClick(btnsave); //调用保存过程
end;
end;
end;
end;
end;
end;
if btnupdate.Caption='添加' then
begin
edswsbtime.SetFocus;
if edswsbtime.Text='' then
   begin
   showmessage('上午上班时间不能设定为空,请写入正确时间.');
   edswsbtime.SetFocus;
   end
else
begin
if edswxbtime.Text='' then
   begin
   showmessage('上午下班时间不能设定为空,请写入正确时间.');
   edswxbtime.SetFocus;
   end
else
begin
if edxwsbtime.Text='' then
   begin
   showmessage('下午上班时间不能设定为空,请写入正确时间.');
   edxwsbtime.SetFocus;
   end
else
begin
if edxwxbtime.Text='' then
   begin
   showmessage('下午下班时间不能设定为空,请写入正确时间.');
   edxwxbtime.SetFocus;
   end
else
begin
if edwssbtime.Text='' then
   begin
   showmessage('晚上上班时间不能设定为空,请写入正确时间.');
   edwssbtime.SetFocus;
   end
else
begin
if edwsxbtime.Text='' then
   begin
   showmessage('晚上下班时间不能设定为空,请写入正确时间.');
   edwsxbtime.SetFocus;
   end
else
//btnsaveClick(btnsave); //调用保存过程
end;
end;
end;
end;
end;
end;
end;

procedure Tfrmkqsettime.timeclick1CloseUp(Sender: TObject);
begin
edswsbtime.Text:=formatdatetime('hh:mm:ss',timeclick1.DateTime);
end;

procedure Tfrmkqsettime.timeclick2CloseUp(Sender: TObject);
begin
edswxbtime.Text:=formatdatetime('hh:mm:ss',timeclick2.DateTime);
end;

procedure Tfrmkqsettime.timeclick3CloseUp(Sender: TObject);
begin
edxwsbtime.Text:=formatdatetime('hh:mm:ss',timeclick3.DateTime);
end;

procedure Tfrmkqsettime.timeclick4CloseUp(Sender: TObject);
begin
edxwxbtime.Text:=formatdatetime('hh:mm:ss',timeclick4.DateTime);
end;

procedure Tfrmkqsettime.timeclick5CloseUp(Sender: TObject);
begin
edwssbtime.Text:=formatdatetime('hh:mm:ss',timeclick5.DateTime);
end;

procedure Tfrmkqsettime.timeclick6CloseUp(Sender: TObject);
begin
edwsxbtime.Text:=formatdatetime('hh:mm:ss',timeclick6.DateTime);
end;

procedure Tfrmkqsettime.btnsaveClick(Sender: TObject);
begin
if btnupdate.Caption='修改' then
   begin
   with dmrsgl.kqsettimeqry do
   begin
   close;
   sql.Clear;
   sql.Add('select * from kqsettime');
   open;
   edit;
   fieldbyname('morningintime').asdatetime:=strtotime(edswsbtime.Text);
   fieldbyname('morningouttime').asdatetime:=strtotime(edswxbtime.Text);
   fieldbyname('afternoonintime').asdatetime:=strtotime(edxwsbtime.Text);
   fieldbyname('afternoonouttime').asdatetime:=strtotime(edxwxbtime.Text);
   fieldbyname('nightintime').asdatetime:=strtotime(edwssbtime.Text);
   fieldbyname('nightouttime').asdatetime:=strtotime(edwsxbtime.Text);
   if messagedlg('请确认修改的数据无误,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   post;
   btncancel.SetFocus;
   end;
   end;
   end
else
   begin
   with dmrsgl.kqsettimeqry do
   begin
   close;
   sql.Clear;
   sql.Add('select * from kqsettime');
   open;
   append;
   fieldbyname('morningintime').asdatetime:=strtotime(edswsbtime.Text);
   fieldbyname('morningouttime').asdatetime:=strtotime(edswxbtime.Text);
   fieldbyname('afternoonintime').asdatetime:=strtotime(edxwsbtime.Text);
   fieldbyname('afternoonouttime').asdatetime:=strtotime(edxwxbtime.Text);
   fieldbyname('nightintime').asdatetime:=strtotime(edwssbtime.Text);
   fieldbyname('nightouttime').asdatetime:=strtotime(edwsxbtime.Text);
   if messagedlg('请确认添加的数据无误,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   post;
   btncancel.SetFocus;
   end;
   end;
   end;
end;

end.