www.pudn.com > 701.rar > Unit4.pas
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB,
ADODB, Buttons;
type
Txueshengguanli = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
DataSource1: TDataSource;
ADOTable1: TADOTable;
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
Panel5: TPanel;
DBGrid3: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Panel4: TPanel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
Panel6: TPanel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
ADOTable1studentid: TWideStringField;
ADOTable1studentname: TWideStringField;
ADOTable1studentnum: TWideStringField;
ADOTable1studentcollage: TWideStringField;
ADOTable1studentclass: TWideStringField;
ADOTable1studentage: TWideStringField;
ADOTable1studentsex: TWideStringField;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
DBGrid2: TDBGrid;
Panel8: TPanel;
RadioButton1: TRadioButton;
Edit13: TEdit;
Button1: TButton;
RadioButton2: TRadioButton;
Edit14: TEdit;
Panel7: TPanel;
RadioButton3: TRadioButton;
Edit8: TEdit;
Button2: TButton;
RadioButton4: TRadioButton;
Edit9: TEdit;
BitBtn8: TBitBtn;
BitBtn7: TBitBtn;
BitBtn9: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure TabSheet1Show(Sender: TObject);
procedure TabSheet3Show(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
xueshengguanli: Txueshengguanli;
implementation
{$R *.dfm}
procedure Txueshengguanli.BitBtn1Click(Sender: TObject);
begin
if dbedit15.Text='' then showmessage('请输入ID')
else if dbedit16.Text='' then showmessage('请输入姓名')
else if dbedit17.Text =''then showmessage('请输入学号')
else if dbedit18.Text ='' then showmessage('请输入院系')
else if dbedit19.Text ='' then showmessage('请输入班级')
else if dbedit20.Text ='' then showmessage('请输入年龄')
else
begin
if messagedlg('确实要增加该学生？',mtInformation,[mbOK, mbCancel],0)=mrok then
// if adotable1.Locate('studentid',dbedit15.Text,[])
// then begin showmessage('学生ID存在，请检查后重新输入');
// end
// else if adotable1.Locate('studentname',dbedit16.Text,[])
// then begin showmessage('学生姓名已存在，请检查后重新输入');
// end
// else if adotable1.Locate('studentnum',dbedit17.Text,[])
// then begin showmessage('学生学号已存在，请检查后重新输入');
// end
// else
begin
adotable1.Edit;
adotable1.Append;
adotable1.FieldByName('studentid').AsString:=dbedit15.Text;
adotable1.FieldByName('studentname').AsString:=dbedit16.Text;
adotable1.FieldByName('studentnum').AsString:=dbedit17.Text;
adotable1.FieldByName('studentcollage').AsString:=dbedit18.Text;
adotable1.FieldByName('studentclass').AsString:=dbedit19.Text;
adotable1.FieldByName('studentage').AsString:=dbedit20.Text;
adotable1.FieldByName('studentsex').AsString:=dbedit21.Text;
adotable1.post;
showmessage('添加成功');
adotable1.Append;
end
else
begin
showmessage('添加失败');
adotable1.Append;
end;
end;
end;
procedure Txueshengguanli.BitBtn3Click(Sender: TObject);
begin
adotable1.Edit;
if messagedlg('确实要删除该学生？',mtWarning,[mbOK,mbCancel],0)=mrok then
begin adotable1.Delete;
showmessage('删除成功');
end
else
begin
showmessage('删除失败');
end;
end;
procedure Txueshengguanli.TabSheet1Show(Sender: TObject);
begin
adotable1.Append;
end;
procedure Txueshengguanli.TabSheet3Show(Sender: TObject);
begin
edit1.Text:=adotable1.Fields[0].AsString;
edit2.Text:=adotable1.Fields[1].AsString;
edit3.Text:=adotable1.Fields[2].AsString;
edit4.Text:=adotable1.Fields[3].AsString;
edit5.Text:=adotable1.Fields[4].AsString;
edit6.Text:=adotable1.Fields[5].AsString;
edit7.Text:=adotable1.Fields[6].AsString;
adotable1.Edit;
end;
procedure Txueshengguanli.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=adotable1.Fields[0].AsString;
edit2.Text:=adotable1.Fields[1].AsString;
edit3.Text:=adotable1.Fields[2].AsString;
edit4.Text:=adotable1.Fields[3].AsString;
edit5.Text:=adotable1.Fields[4].AsString;
edit6.Text:=adotable1.Fields[5].AsString;
edit7.Text:=adotable1.Fields[6].AsString;
end;
procedure Txueshengguanli.BitBtn5Click(Sender: TObject);
begin
if edit1.Text='' then showmessage('请输入ID')
else if edit2.Text='' then showmessage('请输入姓名')
else if edit3.Text =''then showmessage('请输入学号')
else if edit4.Text ='' then showmessage('请输入院系')
else if edit5.Text ='' then showmessage('请输入班级')
else if edit6.Text ='' then showmessage('请输入年龄')
else
begin
adotable1.edit;
adotable1.Fields[0].AsString:=edit1.Text;
adotable1.Fields[1].AsString:=edit2.Text;
adotable1.Fields[2].AsString:=edit3.Text;
adotable1.Fields[3].AsString:=edit4.Text;
adotable1.Fields[4].AsString:=edit5.Text;
adotable1.Fields[5].AsString:=edit6.Text;
adotable1.Fields[6].AsString:=edit7.Text;
adotable1.Post;
showmessage('修改成功');
end;
end;
procedure Txueshengguanli.BitBtn6Click(Sender: TObject);
begin
adotable1.Refresh;
end;
procedure Txueshengguanli.Button2Click(Sender: TObject);
begin
adotable1.Active:=true;
if RadioButton3.Checked then
if not adotable1.Locate('studentid',edit8.Text,[]) then
begin
showmessage('没有该同学，请重新输入');
edit8.Text:='';
end
else
begin
adotable1.Locate('studentid',edit8.Text,[]);
edit8.Text:='';
end;
if RadioButton4.Checked then
if not adotable1.Locate('studentname',edit9.Text,[]) then
begin
showmessage('没有该同学，请重新输入');
edit9.Text:='';
end
else
begin
adotable1.Locate('studentname',edit9.Text,[]);
edit9.Text:='';
end;
end;
procedure Txueshengguanli.Button1Click(Sender: TObject);
begin
adotable1.Active:=true;
if RadioButton1.Checked then
if not adotable1.Locate('studentid',edit13.Text,[]) then
begin
showmessage('没有该同学，请重新输入');
edit13.Text:='';
end
else
begin
adotable1.Locate('studentid',edit13.Text,[]);
edit13.Text:='';
edit1.Text:=adotable1.Fields[0].AsString;
edit2.Text:=adotable1.Fields[1].AsString;
edit3.Text:=adotable1.Fields[2].AsString;
edit4.Text:=adotable1.Fields[3].AsString;
edit5.Text:=adotable1.Fields[4].AsString;
edit5.Text:=adotable1.Fields[5].AsString;
edit6.Text:=adotable1.Fields[6].AsString;
edit7.Text:=adotable1.Fields[7].AsString;
end;
if RadioButton2.Checked then
if not adotable1.Locate('studentname',edit14.Text,[]) then
begin
showmessage('没有该同学，请重新输入');
edit14.Text:='';
end
else
begin
adotable1.Locate('studentname',edit14.Text,[]);
edit14.Text:='';
edit1.Text:=adotable1.Fields[0].AsString;
edit2.Text:=adotable1.Fields[1].AsString;
edit3.Text:=adotable1.Fields[2].AsString;
edit4.Text:=adotable1.Fields[3].AsString;
edit5.Text:=adotable1.Fields[4].AsString;
edit5.Text:=adotable1.Fields[5].AsString;
edit6.Text:=adotable1.Fields[6].AsString;
edit7.Text:=adotable1.Fields[7].AsString;
end;
{
adotable1.Active:=true;
adotable1.Refresh;
showmessage('jksdh sdhfsdhfsdfsdjkfsdlfshjkf');
if RadioButton1.Checked then
if not adotable1.Locate('studentid',edit13.Text,[]) then
begin
showmessage('没有该同学，请重新输入');
edit13.Text:='';
end
else
begin
adotable1.Locate('studentid',edit13.Text,[]);
edit1.Text:=adotable1.Fields[0].AsString;
edit2.Text:=adotable1.Fields[1].AsString;
edit3.Text:=adotable1.Fields[2].AsString;
edit4.Text:=adotable1.Fields[3].AsString;
edit5.Text:=adotable1.Fields[4].AsString;
edit5.Text:=adotable1.Fields[5].AsString;
edit6.Text:=adotable1.Fields[6].AsString;
edit7.Text:=adotable1.Fields[7].AsString;
edit13.Text:='';
end;
adotable1.Refresh;
if RadioButton2.Checked then
if not adotable1.Locate('studentname',edit14.Text,[]) then
begin
showmessage('没有该同学，请重新输入');
edit14.Text:='';
end
else
begin
adotable1.Locate('studentname',edit14.Text,[]);
edit1.Text:=adotable1.Fields[0].AsString;
edit2.Text:=adotable1.Fields[1].AsString;
edit3.Text:=adotable1.Fields[2].AsString;
edit4.Text:=adotable1.Fields[3].AsString;
edit5.Text:=adotable1.Fields[4].AsString;
edit5.Text:=adotable1.Fields[5].AsString;
edit6.Text:=adotable1.Fields[6].AsString;
edit7.Text:=adotable1.Fields[7].AsString;
edit14.Text:='';
end; }
////////图书信息修改选择
{ if RadioButton4.Checked then
if not adotable1.Locate('bookname',edit16.Text,[]) then
begin
showmessage('没有这本书，请重新输入');
edit16.Text:='';
end
else
begin
adotable1.Locate('bookname',edit16.Text,[]);
edit9.Text:=adotable1.Fields[0].AsString;
edit10.Text:=adotable1.Fields[1].AsString;
edit11.Text:=adotable1.Fields[2].AsString;
edit12.Text:=adotable1.Fields[3].AsString;
edit16.Text:='';
end; }
end;
procedure Txueshengguanli.BitBtn9Click(Sender: TObject);
begin
close;
end;
procedure Txueshengguanli.BitBtn7Click(Sender: TObject);
begin
close;
end;
procedure Txueshengguanli.BitBtn8Click(Sender: TObject);
begin
close;
end;
procedure Txueshengguanli.BitBtn2Click(Sender: TObject);
begin
adotable1.Append;
end;
procedure Txueshengguanli.BitBtn4Click(Sender: TObject);
begin
adotable1.Refresh;
end;
end.