frmadd.pas

花了两个多星期写的考勤系统

unit frmadd;

interface

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

type
  Tfrmaddjilu = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Chkasp: TCheckBox;
    Chkjava: TCheckBox;
    Chkdel: TCheckBox;
    Chkvc: TCheckBox;
    Chkzucheng: TCheckBox;
    Chkjiekou: TCheckBox;
    ChkSql: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    Chkxuehao: TCheckBox;
    chkname: TCheckBox;
    chkclass: TCheckBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    edtkemu1: TEdit;
    edtright: TEdit;
    edtname: TEdit;
    edtmima: TEdit;
    edtzhanghao: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    edtkemu5: TEdit;
    edtkemu4: TEdit;
    edtkemu3: TEdit;
    edtkemu2: TEdit;
    addjiaoshi: TButton;
    btnxiugai: TButton;
    opmingzi: TLabel;
    edtnew1: TEdit;
    edtnew2: TEdit;
    Edit6: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    Timer1: TTimer;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure addjiaoshiClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnxiugaiClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmaddjilu: Tfrmaddjilu;

implementation
uses
 dmunit;

{$R *.dfm}

procedure Tfrmaddjilu.BitBtn1Click(Sender: TObject);
var       /////添加记录
  strsql:string;
  i,j,k,l,m,n,s:Integer;
begin
   if Edit1.Text='' then
    ShowMessage('学号不能为空')
    else
    begin

     dm.ADOQuery1.SQL.Clear;
     strsql:='select StuNO,StuName from StuInfo where StuNo='+trim(edit1.text);
     dm.ADOQuery1.SQL.Add(strsql);
     dm.ADOQuery1.Open;
     if dm.ADOQuery1.RecordCount>0 then
       ShowMessage('该学号已存在，请使用其他学号')
     else
       begin
         i:=0;
         j:=0;
         k:=0;
         l:=0;
         m:=0;
         n:=0;
         s:=0;
         if not chkasp.Checked then
            i:=-1 ;
         if not Chkjava.Checked then
            j:=-1;
         if not Chkdel.Checked then
            k:=-1;
         if not chkvc.Checked then
            l:=-1;
         if not Chkdel.Checked then
            m:=-1;
         if not Chkzucheng.Checked then
            n:=-1;
         if not Chkjiekou.Checked then
            s:=-1;

        dm.ADOTable1.Close;
        dm.ADOTable1.TableName:='StuInfo';
         if not dm.AdoTable1.Active then dm.AdoTable1.Open ;
           begin
             dm.ADOTable1.insertRecord([Edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit5.text,i,j,k,l,m,n,s]);
             ShowMessage('添加成功！');
           end;
       end;
       end;
end;

procedure Tfrmaddjilu.BitBtn3Click(Sender: TObject);
var
 strsql:string;
begin
   if not Chkxuehao.Checked  and not chkname.Checked and not chkclass.Checked then
   begin
     dm.ADOQuery2.SQL.Clear;
     strsql:='select * from StuInfo';
     dm.ADOQuery2.SQL.Add(strsql);
     dm.ADOQuery2.Open;
   end
   else
    if Chkxuehao.Checked then
      begin
        if trim(Edit1.Text)='' then
        ShowMessage('请输入学号')
        else
         begin
        dm.ADOQuery2.SQL.Clear;
        strsql:='select * from StuInfo where StuNo='+(trim(Edit1.Text));
        dm.ADOQuery2.SQL.Add(strsql);
        dm.ADOQuery2.Open;
        end;
         end
      else
      if chkname.Checked then
       begin
        dm.ADOQuery2.SQL.Clear;
        strsql:='select * from StuInfo where StuName='+QuotedStr(trim(Edit2.Text));
        dm.ADOQuery2.SQL.Add(strsql);
        dm.ADOQuery2.Open;
       end
       else
       if chkclass.Checked then
       begin
        dm.ADOQuery2.SQL.Clear;
        strsql:='select * from StuInfo where class='+QuotedStr(trim(Edit4.Text));
        dm.ADOQuery2.SQL.Add(strsql);
        dm.ADOQuery2.Open;
       end;

end;

procedure Tfrmaddjilu.BitBtn2Click(Sender: TObject);

begin       //////////////删除-----------

  begin
      if Application.MessageBox('您确定要删除此条记录吗','提示',MB_OKCANCEL+MB_ICONQUESTION)=mrOK then
        dm.ADOQuery2.Delete

      else
     ShowMessage('您取消了此操作！');

  end;

end;

procedure Tfrmaddjilu.addjiaoshiClick(Sender: TObject);
var
 strsql:string;
begin     //////---添加教师记录-----
   if (edtzhanghao.Text='') and (edtmima.Text='') and (edtname.Text='') and (edtright.Text='') then
     ShowMessage('帐号.密码.姓名.权限不能为空！')
     else
     begin
     dm.ADOQuery2.SQL.Clear;
     strsql:='select username from users where username='+QuotedStr(trim(edtzhanghao.Text));
     dm.ADOQuery2.SQL.Add(strsql);
     dm.ADOQuery2.Open;
     if dm.ADOQuery2.RecordCount>0 then
       ShowMessage('该帐号已存在，请使用其他帐号')
       else
       begin
            dm.ADOTable1.Close;
            dm.ADOTable1.TableName:='users';
         if not dm.AdoTable1.Active then dm.AdoTable1.Open ;

             dm.ADOTable1.insertRecord([edtzhanghao.Text,edtmima.Text,edtname.Text,edtright.Text,edtkemu1.Text,edtkemu2.Text,edtkemu3.Text,edtkemu4.Text,edtkemu5.Text]);
              edtzhanghao.Text:='';edtmima.Text:='';edtname.Text:='';edtright.Text:='';edtkemu1.Text:='';edtkemu2.Text:='';edtkemu3.Text:='';edtkemu4.Text:='';edtkemu5.Text:='';
             ShowMessage('添加成功，请牢记帐号密码！');

       end;
     end;
end;

procedure Tfrmaddjilu.FormShow(Sender: TObject);
begin
opmingzi.Caption:='您的帐号为: '+dm.opzhanghao;

StatusBar1.Panels[1].Text:=dm.opname;
StatusBar1.Panels[3].Text:=TimeToStr(Now);
StatusBar1.Panels[5].Text:=DateToStr(now);

StatusBar2.Panels[1].Text:=dm.opname;
StatusBar2.Panels[3].Text:=TimeToStr(Now);
StatusBar2.Panels[5].Text:=DateToStr(now);
end;

procedure Tfrmaddjilu.btnxiugaiClick(Sender: TObject);
var
 strsql:string;
begin
if edtnew1.Text=edtnew2.Text then
   begin
     dm.ADOQuery1.SQL.Clear;
     strsql:='select username from users where pwd='+QuotedStr(trim(edit6.Text));
     dm.ADOQuery1.SQL.Add(strsql);
     dm.ADOQuery1.Open;
     if dm.ADOQuery1.RecordCount=0 then
      begin
       ShowMessage('密码错，请重新输入');
       edit6.Text:='';
       end
         else
         begin
      dm.ADOQuery1.SQL.Clear;
      strsql:='update   users   set  pwd='+QuotedStr(trim(edtnew1.text))+' where username='+QuotedStr(trim(dm.opzhanghao));
      dm.ADOQuery1.SQL.Add(strsql);
      dm.adoquery1.ExecSQL;
      ShowMessage(' 密码修改成功');
      end;
       end


  else
   ShowMessage('两次新密码输入不一致！')
   end;


procedure Tfrmaddjilu.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[3].Text:=TimeToStr(Now);
StatusBar1.Panels[5].Text:=DateToStr(now);
StatusBar2.Panels[3].Text:=TimeToStr(Now);
StatusBar2.Panels[5].Text:=DateToStr(now);
end;

end.