yhdl.pas

delphi编的排课管理系统

unit yhdl;

interface

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

type
  Tf_dl = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    e_mima: TEdit;
    e_dlrq: TEdit;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    Image2: TImage;
    dljl: TTable;
    Query1: TQuery;
    e_yhm: TDBLookupComboBox;
    user: TTable;
    ds_user: TDataSource;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure e_yhmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure e_mimaKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure e_yhmCloseUp(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  f_dl: Tf_dl;

implementation

uses  main, password, dl_main;

{$R *.dfm}

procedure Tf_dl.FormActivate(Sender: TObject);
begin
e_dlrq.Text:=datetostr(date());

end;

procedure Tf_dl.BitBtn1Click(Sender: TObject);
begin

    query1.close;
    query1.SQL.Clear;
    query1.SQL.Add('select * from dl where (id=:name) and (mima=:psw)');
    query1.Params.ParamValues['name']:=e_yhm.Text ;
    query1.Params.ParamValues['psw']:=e_mima.Text ;
    query1.Open;
    if query1.RecordCount=1 then
        begin
        try
        dljl.Open;
        dljl.Append;
        dljl['czy']:=e_yhm.text;
        dljl['czyqx']:=query1.FieldValues['jb'];
        dljl['dlrq']:=strtodate(e_dlrq.Text );
        dljl.Post;
        e_mima.Text :='';
        f_dl.close;
        f_main.sb.Panels[2].Text :=query1.FieldValues['id'];
        f_main.sb.Panels[4].Text :=query1.FieldValues['jb'];
        f_main.Enabled :=true;
        f_main.SetFocus ;
        except
        dljl.Close ;
        showmessage('数据库问题,未能完成操作!');
        end;
    end
    else
        if  messagedlg('密码或用户名输入错误！是否重新登录？',mtconfirmation,[mbyes,mbno],0)=mryes then
        begin

        e_mima.text:='';
        e_yhm.SetFocus;
        end
        //if messagedlg('密码或用户名输入错误！是否重新登录？',mtconfirmation,[mbyes,mbno],0)=mrno then
        else
        begin
        query1.Close;
        dljl.Close;
        application.Terminate;
        end ;


end;

procedure Tf_dl.BitBtn3Click(Sender: TObject);
begin
query1.Close;
dljl.Close;
mainform.Show ;

f_main.Close;
f_dl.close;

//application.Terminate;
end;

procedure Tf_dl.e_yhmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if chr(key)=#13 then
e_mima.SetFocus;
end;

procedure Tf_dl.e_mimaKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if chr(key)=#13 then
    begin
    query1.close;
    query1.SQL.Clear;
    query1.SQL.Add('select * from dl where (id=:name) and (mima=:psw)');
    query1.Params.ParamValues['name']:=e_yhm.Text ;
    query1.Params.ParamValues['psw']:=e_mima.Text ;
    query1.Open;
    if query1.RecordCount=1 then
        begin
        try
        dljl.Open;
        dljl.Append;
        dljl['czy']:=e_yhm.text;
        dljl['czyqx']:=query1.FieldValues['jb'];
        dljl['dlrq']:=strtodate(e_dlrq.Text );
        dljl.Post;
        e_mima.Text :='';
        f_dl.close;
        f_main.sb.Panels[2].Text :=query1.FieldValues['id'];
        f_main.sb.Panels[4].Text :=query1.FieldValues['jb'];
        f_main.Enabled :=true;
        f_main.SetFocus ;
        except
        dljl.Close ;
        showmessage('数据库问题,未能完成操作!');
        end;
    end
    else
        if  messagedlg('密码或用户名输入错误！是否重新登录？',mtconfirmation,[mbyes,mbno],0)=mryes then
        begin

        e_mima.text:='';
        e_yhm.SetFocus;
        end
        //if messagedlg('密码或用户名输入错误！是否重新登录？',mtconfirmation,[mbyes,mbno],0)=mrno then
        else
        begin
        query1.Close;
        dljl.Close;
        application.Terminate;
        end ;
        end;

end;

procedure Tf_dl.BitBtn2Click(Sender: TObject);
begin
query1.close;
query1.SQL.Clear;
query1.SQL.Add('select * from dl where (name=:id) and (psw=:mima)');
query1.Params.ParamValues['id']:=e_yhm.Text ;
query1.Params.ParamValues['mima']:=e_mima.Text ;
query1.Open;
if query1.RecordCount<>0 then
begin
  dljl.Append;
  dljl.FieldByName('name').asstring:=e_yhm.text;
  dljl.Fieldbyname('purview').asstring:=query1.FieldValues['czyqx'];
  dljl.FieldByName('dldate').AsDateTime:=strtodate(e_dlrq.Text );
  dljl.Post;

  f_edit_pass.show;
  f_dl.Hide ;

  f_dl.e_mima.Text :='';
  end
else
 if  messagedlg('密码或用户名输入错误！是否重新登录？',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin

 e_mima.text:='';
 e_yhm.SetFocus;
 end
  else
   begin
     query1.Close;

     dljl.Close;
     application.Terminate;
   end ;
end;

procedure Tf_dl.FormShow(Sender: TObject);
begin
f_main.Enabled :=false;
e_mima.Text :='';
e_yhm.SetFocus ;
end;

procedure Tf_dl.e_yhmCloseUp(Sender: TObject);
begin
e_mima.SetFocus ;

end;

end.