高校运动会管理系统论文(8)

来源：网络收集时间：2019-02-14 下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:或QQ：处理（尽可能给您提供完整文档），感谢您的支持与谅解。

附录

以下是部分源代码

1登陆界面源代码： unit Unit2;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons, OleCtrls, DB, DBTables, ADODB; type

TForm2 = class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Panel1: TPanel; Edit2: TEdit; Panel2: TPanel;

SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; Label5: TLabel;

Label6: TLabel; Image3: TImage; Panel3: TPanel; Panel4: TPanel; Panel5: TPanel; Panel6: TPanel; Panel7: TPanel; Panel8: TPanel; ADOTable1: TADOTable;

procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var

Form2: TForm2;

implementation

uses unit3,unit4,unit5,unit10, Unit1;

{$R *.dfm}

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

application.Createform(Tform3,form3); form3.showmodal; end;

procedure TForm2.SpeedButton2Click(Sender: TObject); begin

application.Createform(Tform4,form4); form4.showmodal; end;

procedure TForm2.SpeedButton3Click(Sender: TObject); begin

application.CreateForm(Tform5,form5); form5.showmodal; end;

procedure TForm2.SpeedButton1Click(Sender: TObject); var

results:variant; begin

ADOTable1.Close; ADOTable1.Open; ADOTable1.Active;

results:=ADOTable1.Lookup('用户名',edit1.text,'密码');{检索数据库中对应用户名的密码项} if edit1.Text='' then

application.MessageBox('用户名不能为空！','提示',mb_ok) else if edit2.Text='' then

application.messagebox('密码不能为空！','警告',mb_ok) else

if results=edit2.Text then begin

application.CreateForm(Tform10,form10); form10.ShowModal; end else

showmessage('密码错误或用户不存在！'); edit1.Visible:=true; edit2.Visible:=true; edit1.Text:=''; edit2.Text:=''; end; end.

2．运动员基本信息录入界面 unit Unit6; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus, ImgList, Buttons, Grids, DBGrids, DB,

ADODB, Mask, ExtDlgs, DBCtrls; type

TForm6 = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Label3: TLabel; Edit2: TEdit; Label4: TLabel; Edit3: TEdit; Label5: TLabel;

ComboBox1: TComboBox; Label6: TLabel;

ComboBox2: TComboBox; Label7: TLabel; Label8: TLabel; Edit4: TEdit; Label9: TLabel;

ComboBox3: TComboBox; Label10: TLabel;

ComboBox4: TComboBox; Label11: TLabel; Edit5: TEdit; Label12: TLabel;

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库高校运动会管理系统论文(8)在线全文阅读。

高校运动会管理系统论文(8).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档

本文链接：https://www.77cn.com.cn/wenku/zonghe/460994.html（转载请注明文章来源）

上一篇：年产15万吨高强瓦楞纸生产线并配套建设24mw热电联产项目环境评估
下一篇：2017～2018学年PEP人教版四年级英语下册期中试卷附答案含听力材