teacher.pas

大二时做的

unit teacher;

interface

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

type
  TF_teacher = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    DBEdit3: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    ADOTabTeacher: TADOTable;
    ADOTabTeacherID: TAutoIncField;
    ADOTabTeacherteacherno: TStringField;
    ADOTabTeachername: TStringField;
    ADOTabTeachersex: TStringField;
    ADOTabTeacherbirthday: TDateTimeField;
    ADOTabTeacherdepart: TStringField;
    ADOTabTeacherdegree: TStringField;
    ADOTabTeacherpassword: TStringField;
    Btnadd: TButton;
    Btnedt: TButton;
    Btndlt: TButton;
    Btnsav: TButton;
    Panel1: TPanel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    CmbDepart: TComboBox;
    Label7: TLabel;
    Btnqry: TButton;
    DBGrid2: TDBGrid;
    Label9: TLabel;
    ADOQryCourse: TADOQuery;
    DataSource2: TDataSource;
    ADOQryCoursename: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnaddClick(Sender: TObject);
    procedure BtnedtClick(Sender: TObject);
    procedure BtndltClick(Sender: TObject);
    procedure BtnsavClick(Sender: TObject);

    procedure BtnqryClick(Sender: TObject);
    procedure ADOTabTeacherAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_teacher: TF_teacher;

implementation

uses main;

{$R *.dfm}
 
procedure TF_teacher.FormClose(Sender: TObject; var Action: TCloseAction);
begin
       Action := caFree;

end;

procedure TF_teacher.BtnaddClick(Sender: TObject);
begin
     adotabteacher.Append ;
end;

procedure TF_teacher.BtnedtClick(Sender: TObject);
begin
      adotabteacher.edit;
end;

procedure TF_teacher.BtndltClick(Sender: TObject);
begin
    if MessageDlg('是否确定要删除信息?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
       adotabteacher.Delete ;
end;

procedure TF_teacher.BtnsavClick(Sender: TObject);
begin
       adotabteacher.edit;
      adotabteacher.Post ;
end;



procedure TF_teacher.BtnqryClick(Sender: TObject);
begin
     if CmbDepart.Text<>'全部' then
     begin
     adotabteacher.Filter :=' depart='''+ cmbdepart.Text+'''  ';
     adotabteacher.Filtered :=true;
     end
     else
     adotabteacher.Filtered :=false;
end;

procedure TF_teacher.ADOTabTeacherAfterScroll(DataSet: TDataSet);
begin
    adoqryCourse.SQL.Clear ;
    adoqryCourse.SQL.Add('select name from course where teacherno='''+adotabteacher.fieldbyname('teacherno').AsString +''' ');
    adoqryCourse.Open ;
end;

end.