unit6.pas

学籍管理系统（MSS）是集计算机技术、网络通信技术为一体的信息系统工程

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons, DB, DBTables, ADODB;

type
  TtjForm = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Edit5: TEdit;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjForm: TtjForm;

implementation

{$R *.dfm}

procedure TtjForm.FormCreate(Sender: TObject);
var
systemtime:tsystemtime;

 mydate:variant;
begin
    getlocaltime(systemtime);
    mydate:=systemtimetodatetime(systemtime);
    datetimepicker1.DateTime:=mydate;
end;

procedure TtjForm.FormShow(Sender: TObject);
//var i:integer;
begin
  {combobox1.Clear;
  with adotable1 do
      begin
      adotable1.Open;
      adotable1.first;
      for i:=1 to adotable1.RecordCount do
         begin
         combobox1.Items.Add(adotable1.fieldvalues['class']);
         adotable1.Next;
         end;
        end;  }
      end;



procedure TtjForm.BitBtn1Click(Sender: TObject);
begin
 if (combobox1.Text='') or (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then

     begin
          messagedlg('资料输入不全!',mtwarning,[mbok],0);
          exit;
          end;
        with adotable1 do
        begin
          open;
          adotable1.Append;
          fieldvalues['class']:= trim(combobox1.text);
          fieldvalues['ID']:= trim(edit1.text);
          fieldvalues['name']:= trim(edit2.text);
          fieldvalues['adress']:= trim(edit3.text);
          fieldvalues['phone']:= trim(edit4.text);
          fieldvalues['email']:= trim(edit5.text);
          if  radiobutton1.Checked then
          fieldvalues['sex']:=radiobutton1.Caption;
           if  radiobutton2.Checked then
          fieldvalues['sex']:=radiobutton2.Caption;
          fieldvalues['date']:= datetimepicker1.DateTime;
          post;
          showmessage('该学生的学籍已添加!');
          end;
          combobox1.Text:='';
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
          edit5.Text:='';




end;

procedure TtjForm.BitBtn2Click(Sender: TObject);
begin
combobox1.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';


end;

procedure TtjForm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TtjForm.Edit1Exit(Sender: TObject);
begin
     adotable1.Open;
     adotable1.First;
 while not adotable1.eof do
    begin

     if  (trim(edit1.Text) =  adotable1.Fields[1].AsString)  then
       begin
        showmessage('此学号已经存在');
        edit1.Text:='';
        break;
       end;
       adotable1.Next;
       

  end;
end;

end.