sportmain.~pas

运动会管理系统是一个小型的具有查询运动员信息详细的比赛项目等功能的管理系统

unit SportMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, jpeg, ExtCtrls, Menus, ImgList,Login,
  StdCtrls;

type
  TfrmSportMain = class(TForm)
    mbtnMain: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    CoolBar1: TCoolBar;
    N29: TMenuItem;
    N30: TMenuItem;
    ImageList1: TImageList;
    ImageList2: TImageList;
    Image1: TImage;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ToolBar1: TToolBar;
    tbtnLogin: TToolButton;
    tbtnItem: TToolButton;
    tbtnFinScore0: TToolButton;
    tbtnFinScore: TToolButton;
    tbtnGroScore: TToolButton;
    tbtnClass: TToolButton;
    tbtnAthlete: TToolButton;
    tbtnExit: TToolButton;
    N31: TMenuItem;
    N32: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tbtnLoginClick(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSportMain: TfrmSportMain;

implementation

uses DataModual;

{$R *.dfm}

procedure TfrmSportMain.Timer1Timer(Sender: TObject);
begin
  statusBar1.Panels[1].Text:=DateTimeToStr(now());
  statusBar1.Panels[1].Alignment:=taCenter; //时间居中显示
end;

//设置日期的显示格式
procedure TfrmSportMain.FormShow(Sender: TObject);
begin
  DateSeparator :='-';
  ShortDateFormat :='yyyy-mm-dd';
  LongDateFormat :='yyyy-mm-dd hh:mm:ss';

end;

//当关闭窗口时询问是否关闭
procedure TfrmSportMain.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
    if application.MessageBox('是否确信退出','提示',mb_yesno) = id_no then
       CanClose := False;
end;

//显示登录窗口
procedure TfrmSportMain.FormCreate(Sender: TObject);
var
   sUserID :string;
begin
  gfunOpenLogin(sUserID,0); //通过登录表单的接口调用登录界面
  //将登录用户标识写入状态栏中
  StatusBar1.Panels[0].Text := '操作者：'+sUserID;
end;

//当应用结束时关闭ADO的连接
procedure TfrmSportMain.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if DataModule1.connOracle.Connected then
     DataModule1.connOracle.Close;
end;

procedure TfrmSportMain.tbtnLoginClick(Sender: TObject);
var
  sUserID :string;
begin
  case ((Sender as TComponent).Tag ) of
    10: begin   //登录
           gfunOpenLogin(sUserID,1);  //通过登录表单的接口调用登录界面
           StatusBar1.Panels[0].Text := '操作者：'+sUserID;
         end;
    21: begin  //运动员信息录入

        end;
    22: begin  //运动员信息查询

        end;
    23: begin  //运动员信息更新

        end;
    24: begin  //运动员信息添加

        end;
    31: begin  //项目信息录入

        end;
    32: begin  //项目信息查询

        end;
    33: begin  //项目信息更新

        end;
    41: begin  //班级信息录入

        end;
    42: begin  //班级信息查询

        end;
    43: begin  //班级信息更新

        end;
    51: begin  //工作人员信息录入

        end;
    52: begin  //工作人员信息查询

        end;
    53: begin  //工作人员信息更新

        end;
    61: begin  //田赛

        end;
    62: begin  //田赛初赛成绩查询

        end;
    63: begin  //田赛决赛成绩录入

        end;
    64: begin  //田赛决赛成绩查询

        end;
    65: begin  //径赛

        end;
    66: begin  //径赛初赛成绩查询

        end;
    67: begin  //径赛决赛成绩录入

        end;
    68: begin  //径赛决赛成绩查询

        end;
    69: begin  //集体项目成绩录入

        end;
    60: begin  //集体项目成绩查询

        end;
    70: begin  //添加新用户

        end;
    100: begin  //退出
            close;
         end;
end;
end;
end.