unit2.pas

SQL server 2000 + Delphi 7 做的学生管理及综合积分测评系统。

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet5: TTabSheet;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Edit3: TEdit;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    Edit5: TEdit;
    StaticText5: TStaticText;
    Edit6: TEdit;
    StaticText6: TStaticText;
    DateTimePicker1: TDateTimePicker;
    StaticText7: TStaticText;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox3: TGroupBox;
    StaticText8: TStaticText;
    Edit8: TEdit;
    BitBtn4: TBitBtn;
    ADOCommand1: TADOCommand;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOConnection1: TADOConnection;
    Edit1: TEdit;
    DBGrid2: TDBGrid;
    Button1: TButton;
    GroupBox4: TGroupBox;
    StaticText11: TStaticText;
    ComboBox2: TComboBox;
    StaticText12: TStaticText;
    ComboBox3: TComboBox;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    Edit4: TEdit;
    Edit9: TEdit;
    StaticText15: TStaticText;
    Edit10: TEdit;
    Button2: TButton;
    GroupBox5: TGroupBox;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Edit11: TEdit;
    Edit12: TEdit;
    Button3: TButton;
    GroupBox6: TGroupBox;
    ComboBox6: TComboBox;
    StaticText20: TStaticText;
    StaticText21: TStaticText;
    ComboBox7: TComboBox;
    StaticText22: TStaticText;
    Button4: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    StaticText25: TStaticText;
    ComboBox8: TComboBox;
    Button5: TButton;
    Label1: TLabel;
    Edit13: TEdit;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    CheckBox1: TCheckBox;
    Label2: TLabel;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    Label3: TLabel;
    Button6: TButton;
    Button7: TButton;
    StaticText24: TStaticText;
    TabSheet6: TTabSheet;
    TabSheet3: TTabSheet;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    DBGrid3: TDBGrid;
    StaticText23: TStaticText;
    Button8: TButton;
    DBNavigator1: TDBNavigator;
    StaticText26: TStaticText;
    ComboBox9: TComboBox;
    StaticText27: TStaticText;
    ComboBox10: TComboBox;
    StaticText28: TStaticText;
    Edit14: TEdit;
    Button9: TButton;
    ADOQuery6: TADOQuery;
    DataSource6: TDataSource;
    StaticText30: TStaticText;
    StaticText31: TStaticText;
    StaticText32: TStaticText;
    ADOQuery7: TADOQuery;
    DataSource7: TDataSource;
    DBGrid5: TDBGrid;
    GroupBox7: TGroupBox;
    StaticText33: TStaticText;
    StaticText34: TStaticText;
    StaticText35: TStaticText;
    Button13: TButton;
    StaticText36: TStaticText;
    StaticText37: TStaticText;
    StaticText38: TStaticText;
    StaticText39: TStaticText;
    StaticText40: TStaticText;
    StaticText41: TStaticText;
    Button14: TButton;
    ComboBox13: TComboBox;
    ComboBox14: TComboBox;
    ComboBox16: TComboBox;
    ComboBox17: TComboBox;
    Edit16: TEdit;
    ADOQuery8: TADOQuery;
    DataSource8: TDataSource;
    Edit17: TEdit;
    ADOQuery9: TADOQuery;
    DataSource9: TDataSource;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    GroupBox10: TGroupBox;
    StaticText42: TStaticText;
    ComboBox15: TComboBox;
    StaticText43: TStaticText;
    Edit18: TEdit;
    StaticText44: TStaticText;
    Edit19: TEdit;
    StaticText45: TStaticText;
    Edit20: TEdit;
    StaticText46: TStaticText;
    Edit21: TEdit;
    Button12: TButton;
    Button15: TButton;
    StaticText47: TStaticText;
    ComboBox18: TComboBox;
    StaticText48: TStaticText;
    Edit22: TEdit;
    StaticText49: TStaticText;
    Edit23: TEdit;
    StaticText50: TStaticText;
    Edit24: TEdit;
    Button16: TButton;
    Button17: TButton;
    StaticText51: TStaticText;
    Button18: TButton;
    DBLookupComboBox2: TDBLookupComboBox;
    ADOQuery10: TADOQuery;
    DataSource10: TDataSource;
    GroupBox11: TGroupBox;
    StaticText52: TStaticText;
    Edit25: TEdit;
    StaticText53: TStaticText;
    Edit26: TEdit;
    StaticText54: TStaticText;
    Edit27: TEdit;
    StaticText55: TStaticText;
    Edit28: TEdit;
    Button20: TButton;
    Button21: TButton;
    GroupBox12: TGroupBox;
    StaticText56: TStaticText;
    ComboBox19: TComboBox;
    StaticText57: TStaticText;
    ComboBox20: TComboBox;
    StaticText58: TStaticText;
    ComboBox21: TComboBox;
    Button19: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Edit29: TEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    StaticText29: TStaticText;
    DBEdit4: TDBEdit;
    StaticText59: TStaticText;
    DBEdit5: TDBEdit;
    StaticText60: TStaticText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure TabSheet6Show(Sender: TObject);
    procedure ComboBox17Change(Sender: TObject);
    procedure ComboBox16Change(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure ComboBox21Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from 学生 order by 学号');
  ADOQuery1.Close;
  ADOQuery1.Open;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  if(ComboBox1.Text='学号') then
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from 学生 where 学号='''+Edit1.Text+'''  order by 学号 ');
    ADOQuery1.Close;
    ADOQuery1.Open;
    end
  else if(ComboBox1.Text='姓名') then
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from 学生 where 姓名='''+Edit1.Text+'''  order by 学号 ');
    ADOQuery1.Close;
    ADOQuery1.Open;
    end
  else if(ComboBox1.Text='宿舍') then
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from 学生 where 宿舍='''+Edit1.Text+'''  order by 学号 ');
    ADOQuery1.Close;
    ADOQuery1.Open;
    end
  else if(ComboBox1.Text='班级') then
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from 学生 where 班级='''+Edit1.Text+'''  order by 学号 ');
    ADOQuery1.Close;
    ADOQuery1.Open;
    end

end;

procedure TForm2.BitBtn3Click(Sender: TObject);
var
  gender:string;
begin
  if(RadioButton1.Checked) then
  begin
  gender:='男';
  end
  else if(RadioButton2.Checked) then
  begin
  gender:='女';
  end;

  if(edit2.Text='')then
  begin
  showmessage('学号不能为空');
  end
  else
  begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select 学号 from 学生 where 学号='''+edit2.text+''' ');
  ADOQuery1.Close;
  ADOQuery1.Open;
  if(ADOQuery1.FieldByName('学号').AsString<>'') then
  begin
  showmessage('该生已存在');
  end
  else
  begin
    ADOCommand1.CommandText:='insert into 学生 values('''+edit2.Text+''','''+edit3.Text+''','''+gender+''','''+edit5.Text+''','''+edit6.Text+''','''+datetimetostr(DateTimePicker1.datetime)+''', '''+edit7.Text+''' )';
    ADOCommand1.Execute;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from 学生 where 学号='''+edit2.text+''' ');
    ADOQuery1.Close;
    ADOQuery1.Open;
    showmessage('添加成功');
    end
  end
end;

procedure TForm2.BitBtn4Click(Sender: TObject);