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.