dlgaddstu.~pas

高校教学管理信息系统

unit dlgaddstu;

interface

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

type
  Tdlg_addstu = class(TForm)
    Label7: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Btnadd: TButton;
    Btncancel: TButton;
    Edno: TEdit;
    Edname: TEdit;
    Edyear: TEdit;
    Edspec: TEdit;
    Edclass: TEdit;
    Edbirth: TEdit;
    Cmbsex: TComboBox;
    Cmbdepart: TComboBox;
    ADOQuery1: TADOQuery;
    procedure BtncancelClick(Sender: TObject);
    procedure BtnaddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlg_addstu: Tdlg_addstu;

implementation

uses main;

{$R *.dfm}

procedure Tdlg_addstu.BtncancelClick(Sender: TObject);
begin
       dlg_addstu.close;
end;

procedure Tdlg_addstu.BtnaddClick(Sender: TObject);
begin
     mainform.adoconnection1.begintrans;
     try
     adoquery1.sql.clear;
     adoquery1.SQL.Add('insert into student (studentno,name,sex ,birthday,depart,enteryear,classno ,specialty ) values ');
     adoquery1.SQL.Add(' ('''+edno.text+''','''+edname.text+''','''+cmbsex.text+''','''+edbirth.text+''','''+cmbdepart.text+''','+edyear.text+','''+edclass.text+''','''+edspec.text+''')');
     adoquery1.ExecSQL ;
     mainform.adoconnection1.committrans;
     dlg_addstu.close;
     except
     mainform.adoconnection1.rollbacktrans;
     end;
end;

end.