u_change.pas

大学生综合素质及诚信管理系统可以满足管理人员和高级管理员两方面管理学生综合素质及诚信信息的需要。设计充分利用Delphi7、MS SQL Server2000数据库技术的强大力量

unit u_change;

interface

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

type
  Tf_change = class(TForm)
    StaticText1: TStaticText;
    f_change: TRadioGroup;
    StaticText2: TStaticText;
    Button2: TButton;
    GroupBox1: TGroupBox;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    ComboBox3: TComboBox;
    Label4: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_change: Tf_change;

implementation

{$R *.dfm}

procedure Tf_change.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text<>'' then
   begin
   try
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from student where stuid='''+edit1.Text+'''');
       adoquery1.Open;
       if adoquery1.RecordCount=0 then
        begin
          showmessage('该学号不存在！');
          edit1.SetFocus;
        end
        else
        begin
         edit2.Text:=adoquery1.fieldbyname('stuname').AsString;
         edit3.Text:=adoquery1.fieldbyname('stuclass').AsString;
         edit4.Text:=adoquery1.fieldbyname('studepart').AsString;

         end;

     except
       showmessage('数据库连接失败!');
     end;
   end;
end;

procedure Tf_change.Button2Click(Sender: TObject);
var
riqi,sqlstr,str:string;
begin
    riqi:=combobox1.Text+'-'+combobox2.Text+'-'+combobox3.Text;
    if f_change.ItemIndex=0 then
    str:='转系';
    if f_change.ItemIndex=1 then
    str:='休学';
    if f_change.ItemIndex=2 then
    str:='复学';
    if f_change.ItemIndex=3 then
    str:='退学';
    if f_change.ItemIndex=4 then
    str:='毕业';

  try
       sqlstr:='insert into stuinfo values('''+edit1.text+''','''+str+''','''+memo1.Text+''','''+riqi+''',''2'')';
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('添加成功!');
       except
       showmessage('该用户名存在或数据库连接失败!');
     end;
end;

procedure Tf_change.Button1Click(Sender: TObject);
begin
close;
end;

procedure Tf_change.FormShow(Sender: TObject);
var
i,j:integer;
year:string;
begin
 year:=datetostr(now);
 i:=strtoint(copy(year,0,4));
 j:=i-5;
  combobox1.Clear;
 while j<=i do
 begin
  combobox1.Items.Add(inttostr(j));
  j:=j+1;
 end;
 combobox1.ItemIndex:=0;
 //显示月
 i:=12;
 j:=1;
 combobox2.Clear;
 while j<=i do
 begin
  if j<10 then
  combobox2.Items.Add('0'+inttostr(j))
  else
  combobox2.Items.Add(inttostr(j));
  j:=j+1;
 end;
 combobox2.ItemIndex:=0;
 //显示天
 i:=31;
 j:=1;
 combobox3.Clear;
 while j<=i do
 begin
  if j<10 then
  combobox3.Items.Add('0'+inttostr(j))
  else
  combobox3.Items.Add(inttostr(j));
  j:=j+1;
 end;
 combobox3.ItemIndex:=0;

end;

end.