unit3.~pas

成绩管理系统 主要实现：学生（学号

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit7: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    DataSource1: TDataSource;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    Button4: TButton;
    Button5: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  var1:String;
  tt1,tt2,tt3:String;
implementation
uses Unit1;


{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
form3.close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
     var1:=Edit1.text;
     tt1:=datetostr(DateTimePicker1.Date);
     tt2:=datetostr(DateTimePicker2.Date);
     tt3:=datetostr(DateTimePicker3.Date);
     if(var1='')then
         showmessage('学号不能够为空！')
         else
             begin
                   adoquery1.Close;
                   adoquery1.SQL.Clear;
                   adoquery1.SQL.Add('select stu_no from student where stu_no='''+Edit1.Text+'''');
                   adoquery1.Open;
                   if adoquery1.RecordCount=1 then
                      showmessage('学号为的学生'''+edit1.text+'''信息已经存在！请确认后重新输入！')
                   else if adoquery1.RecordCount=0 then
                       begin
                        adoquery1.Close;
                        adoquery1.SQL.Clear;
                        adoquery1.SQL.Add('insert into student(stu_no,stu_name,stu_sex,stu_bithd,');
                        adoquery1.SQL.Add('stu_National,stu_Origin,stu_Political,stu_cmday,stu_Category,stu_Faculties,');
                        adoquery1.SQL.Add('stu_class,stu_Structure,stu_Professional,stu_Languages,Quarters_address,');
                        adoquery1.SQL.Add('Graduation_date)values('''+Edit1.text+''','''+Edit2.text+''','''+ComboBox1.text+''',');
                        adoquery1.SQL.Add(''''+tt1+''','''+Edit5.text+''','''+Edit6.text+''','''+Edit7.text+''',');
                        adoquery1.SQL.Add(''''+tt2+''','''+ComboBox2.text+''','''+Edit10.text+''','''+Edit11.text+''',');
                        adoquery1.SQL.Add(''''+ComboBox3.text+''','''+Edit13.text+''','''+Edit14.text+''','''+Edit15.text+''',');
                        adoquery1.SQL.Add(''''+tt3+''')');
                        adoquery1.ExecSQL;
                        showmessage('注册成功！');
                       end
              end
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
              if Edit1.Text='' then
                   showmessage('学号不能够为空，请输入')
               else
                   begin
                       adoquery1.Close;
                       adoquery1.SQL.Clear;
                       adoquery1.SQL.Add('select stu_no as"学号",stu_name as"姓名",stu_sex as"性别",stu_bithd as"出生日期",');
                       adoquery1.SQL.Add('stu_National as"民族",stu_Origin as"籍贯",stu_Political as"政治面貌",stu_cmday as"入学日期",');
                       adoquery1.SQL.Add('stu_Category as"学生类别",stu_Faculties as"院系",stu_class as"班级",stu_Structure as"学制",');
                       adoquery1.SQL.Add('stu_Professional as"专业",stu_Languages as"外语语种",Quarters_address as"宿舍地址",');
                       adoquery1.SQL.Add('Graduation_date as"毕业日期" from student where stu_no='''+Edit1.Text+'''');
                       adoquery1.Open;
                       if adoquery1.RecordCount=0 then
                              showmessage('不存在学号为'''+Edit1.Text+'''的学生信息')
                       else    showmessage('学号为'''+Edit1.Text+'''的记录信息如下')
                    end
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
                 if Edit1.Text='' then
                   showmessage('学号不能够为空，请输入')
                 else
                   begin
                       adoquery1.Close;
                       adoquery1.SQL.Clear;
                       adoquery1.SQL.Add('select stu_no as"学号",stu_name as"姓名",stu_sex as"性别",stu_bithd as"出生日期",');
                       adoquery1.SQL.Add('stu_National as"民族",stu_Origin as"籍贯",stu_Political as"政治面貌",stu_cmday as"入学日期",');
                       adoquery1.SQL.Add('stu_Category as"学生类别",stu_Faculties as"院系",stu_class as"班级",stu_Structure as"学制",');
                       adoquery1.SQL.Add('stu_Professional as"专业",stu_Languages as"外语语种",Quarters_address as"宿舍地址",');
                       adoquery1.SQL.Add('Graduation_date as"毕业日期" from student where stu_no='''+Edit1.Text+'''');
                       adoquery1.Open;
                       if adoquery1.RecordCount=0 then
                              showmessage('不存在学号为'''+Edit1.Text+'''的学生信息')
                       else
                             begin
                                  adoquery1.Close;
                                  adoquery1.SQL.Clear;
                                  adoquery1.SQL.Add('delete from student where stu_no='''+Edit1.Text+'''');
                                  adoquery1.ExecSQL;
                                  adoquery1.Close;
                                  adoquery1.SQL.Clear;
                                  adoquery1.SQL.Add('delete from stud_score where stu_no='''+Edit1.Text+'''');
                                  adoquery1.ExecSQL;
                                  showmessage('删除成功！');
                             end
                    end
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select stu_no as"学号",stu_name as"姓名",stu_sex as"性别",stu_bithd as"出生日期",');
       adoquery1.SQL.Add('stu_National as"民族",stu_Origin as"籍贯",stu_Political as"政治面貌",stu_cmday as"入学日期",');
       adoquery1.SQL.Add('stu_Category as"学生类别",stu_Faculties as"院系",stu_class as"班级",stu_Structure as"学制",');
       adoquery1.SQL.Add('stu_Professional as"专业",stu_Languages as"外语语种",Quarters_address as"宿舍地址",');
       adoquery1.SQL.Add('Graduation_date as"毕业日期" from student ');
       adoquery1.Open;
end;

end.