4.2.心得体会

通过自己查询相关书藉和对网络资源的利用，可以让我们对Borland Delphi 7 和Microsoft SQL Server 2000这两个开发工具有了具体的了解，从而上升到运用的层次；同时了解了开发一个系统所要做的具体工作。

参考文献

[1]萨师煊 王珊 “数据库系统概论”，高等教育出版社，1999

附件： unit Unit1; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls; type

TForm1 = class(TForm) Image1: TImage; Label1: TLabel; Edit1: TEdit;

21

Label2: TLabel; Edit2: TEdit; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; ADOConnection1: TADOConnection; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var

Form1: TForm1;

implementation

{$R *.dfm} uses unit2;

procedure TForm1.Button1Click(Sender: TObject); var username,password:string; begin

username :=trim(edit1.Text); password :=trim(edit2.Text); if username='' then begin

22

ShowMessage('用户名不能为空'); end

else if password='' then begin

ShowMessage('密码不能为空'); end else begin

adoquery1.Close; adoquery1.SQL.Clear;

adoquery1.SQL.Add('select * from login where username='''+username+''' and password ='''+password+''''); adoquery1.Open;

if adoquery1.RecordCount <1 then begin

showmessage('用户名或密码错误'); end else begin Form1.Hide; Form2.Show; end; end; end;

procedure TForm1.Button2Click(Sender: TObject); begin

Application.Terminate; end;

23

end. unit Unit2; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls; type

TForm2 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; Image1: TImage; Label1: TLabel; Label2: TLabel;

procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N4Click(Sender: TObject);

24