insertstudent.~pas

中学考试管理系统 采用智能管理 具有统计分析的能力

unit insertStudent;

interface

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

type
  TForm3 = class(TForm)
    insertQry: TADOQuery;
    ADOConnection1: TADOConnection;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label14: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label6: TLabel;
    num: TEdit;
    cName: TComboBox;
    uName: TEdit;
    sex: TComboBox;
    year: TComboBox;
    month: TComboBox;
    date: TComboBox;
    home: TEdit;
    Label8: TLabel;
    adress: TEdit;
    Label9: TLabel;
    telephone: TEdit;
    infoMemo: TMemo;
    Label4: TLabel;
    Label10: TLabel;
    stateMemo: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DataSource1: TDataSource;
    stuTb: TADOTable;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button4: TButton;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure numChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses logout, main;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  if(length(num.Text)<8) then
    Begin
      num.Clear;
      uName.Clear;
      home.Clear;
      adress.Clear;
      telephone.Clear ;
      showMessage('请输入8位有效的学号') ;
    end
  else if(length(uName.Text)=0) then
    begin
      num.Clear;
      uName.Clear;
      home.Clear;
      adress.Clear;
      telephone.Clear ;
      showMessage('请输入学生姓名');
    end
  else if(length(home.Text)=0) then
    begin
      num.Clear;
      uName.Clear;
      home.Clear;
      adress.Clear;
      telephone.Clear ;
      showMessage('请输入学生籍贯');
    end
  else if(length(adress.Text)=0) then
    begin
      num.Clear;
      uName.Clear;
      home.Clear;
      adress.Clear;
      telephone.Clear ;
      showMessage('请输入学生家庭住址');
    end
  else if(length(telephone.Text)=0) then
    begin
      num.Clear;
      uName.Clear;
      home.Clear;
      adress.Clear;
      telephone.Clear ;
      showMessage('请输入学生家庭电话');
    end  
  else
    begin
      with insertQry do
        begin
          close;
          with sql do
            begin
              clear;
              add('insert into student(学号, 班级, 姓名, 性别 ,出生年月, 籍贯, 家庭情况, 家庭住址, 家庭电话, 备注, 密码 ) values('''+num.Text+''','''+cName.Text+''','''+uName.Text+''','''+sex.text+''','''+year.text+'-'+month.text+'-'+date.text+''','''+home.Text+''','''+infoMemo.Text+''','''+adress.text+''','''+telephone.Text+''','''+stateMemo.text+''','''+num.Text+''')');
            end;
    //  showMessage(sql.Text);
           try
             execsql;
             showMessage('规则添加成功');
             stuTb.Active:=false;
             stuTb.Active:=true;
           Except
             showMessage('学生情况添加失败');
           end;
     end;
  end;


end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  num.Clear;
  cName.Clear;
  uName.clear;
  home.Clear;
  infoMemo.Clear;
  adress.Clear;
  telephone.Clear;
  stateMemo.Clear;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
   Form3.Hide;
   Form14.show;
end;

procedure TForm3.numChange(Sender: TObject);
begin
  if length(num.Text)>0 then Button1.Enabled:=true
  else Button1.Enabled:=false;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
  Button1.Enabled:=false;
  stuTb.Active;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
  Form3.Hide;
  Form2.show;
end;

end.