unitteacher.pas

教务管理系统

unit UnitTeacher;

interface

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

type
  TfrmTeacher = class(TForm)
    Label1: TLabel;
    edtName: TEdit;
    Label2: TLabel;
    dtpBirth: TDateTimePicker;
    Label3: TLabel;
    cmbSex: TComboBox;
    Label4: TLabel;
    edtHome: TEdit;
    Label5: TLabel;
    edtDept: TEdit;
    btnOK: TButton;
    btnCancel: TButton;
    dbg: TDBGrid;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure edtNameChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    ds: TDataSource;
    query: TADOQuery;
    procedure FreshDBGrid;
  public
    { Public declarations }
  end;

var
  frmTeacher: TfrmTeacher;

implementation

uses UnitData;

{$R *.dfm}

procedure TfrmTeacher.FreshDBGrid;
begin
  query.Close;
  query.SQL.Clear;
  query.SQL.Add('select name as 姓名,birth as 出生日期,sex as 性别,dept as 系别 from TEACHER');
  query.Open;
end;
//点击“确定 ”按钮
procedure TfrmTeacher.btnOKClick(Sender: TObject);
var
  qry: TADOQuery;
begin
  // 创建ADOQuery实例
  qry := TADOQuery.Create(self);
  // 指定ADO连接
  qry.Connection := data.adoc;
  // 首先关闭
  qry.Close;
  // 清除SQL字符串
  qry.SQL.Clear;
  // 添加SQL代码
  qry.SQL.Add('insert into TEACHER(name,birth,sex,home,dept) values(''' + edtName.Text + ''',''' + DateToStr(dtpBirth.DateTime) + ''',' + IntToStr(cmbSex.ItemIndex) + ',''' + edtHome.Text + ''',''' + edtDept.Text + ''')');
  // 执行SQL代码
  qry.ExecSQL;
  // 释放ADOQuery实例
  qry.Free;
  edtName.Text := '';
  dtpBirth.DateTime := now;
  cmbSex.ItemIndex := 0;
  edtHome.Text := '';
  edtDept.Text := '';
  FreshDBGrid;
  edtName.SetFocus;
end;
 //点击“取消”按钮
procedure TfrmTeacher.btnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmTeacher.edtNameChange(Sender: TObject);
begin
  // 如果“姓名”一栏为空，则不允许添加
  btnOK.Enabled := edtName.Text <> '';
end;

procedure TfrmTeacher.FormCreate(Sender: TObject);
begin
  query := TADOQuery.Create(self);
  ds := TDataSource.Create(self);
  query.Connection := data.adoc;
  ds.DataSet := query;
  dbg.DataSource := ds;
end;

procedure TfrmTeacher.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  query.Free;
  ds.Free;
end;

procedure TfrmTeacher.FormShow(Sender: TObject);
begin
  FreshDBGrid;
  dtpBirth.DateTime := now;
  edtName.SetFocus;
end;

end.