mainf.pas

用delphi和sql server编写的校园IC卡管理系统。

unit mainF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMan, ExtCtrls, ComCtrls, StdCtrls, Buttons, ToolWin,
  DB, ADODB;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    IC1: TMenuItem;
    N4: TMenuItem;
    IC2: TMenuItem;
    IC3: TMenuItem;
    IC4: TMenuItem;
    IC5: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    IC6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    state: TStatusBar;
    ADOConnection1: TADOConnection;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    SpeedButton10: TSpeedButton;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure IC2Click(Sender: TObject);
    procedure IC3Click(Sender: TObject);
    procedure IC4Click(Sender: TObject);
    procedure IC5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure IC6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    
    private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  main: Tmain;

implementation

{$R *.dfm}
uses loginF,             //管理员登录窗口
     addcardF,           //办理新卡窗口
     consumeF,           //消费查询窗口
     addmoneyF,          //IC卡充值窗口
     readermachineF,     //刷卡机设置窗口
     adminF,             //管理员权限窗口
     losecardF,          //IC卡挂失/解挂窗口
     dropcardF,           //IC卡注销窗口
     consumemodelF,       //消费模拟窗口
     changepassF,         //IC卡密码修改窗口
     aboutF;              //关于系统窗口

  //************状态栏显示是期函数************
function Load_Week(const Dtime: TDateTime): string;
const
  dstr: array[1..7] of string = ('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
  result := dstr[DayOfWeek(dtime)];
end;

//*************状态栏显示日期，星期，系统时间 ***********
procedure Tmain.Timer1Timer(Sender: TObject);
begin
state.Panels[1].Text := DateToStr(Now);
state.Panels[2].Text := Load_Week(Now);
state.Panels[4].Text := TimeToStr(Now);

end;

//***************管理员登录窗口************
procedure TMain.N2Click(Sender: TObject);
begin
 if SpeedButton1.Enabled=true then
 begin
 messagedlg('已经有管理员登录！',mtInformation,[mbOK],0);
 exit;
 end;
login.Show;
end;

//****************退出系统************
procedure Tmain.N3Click(Sender: TObject);
begin
close;
end;

//********打开办理新卡窗口************
procedure Tmain.N4Click(Sender: TObject);
begin
addcard.Show;
end;

//*************打开IC卡挂失窗口**********
procedure Tmain.IC2Click(Sender: TObject);
begin
losecard.Show;
end;
//*********打开IC卡解挂窗口**********
procedure Tmain.IC3Click(Sender: TObject);
begin
losecard.Show;
end;
//***********打开IC卡注销窗口***********
procedure Tmain.IC4Click(Sender: TObject);
begin
dropcard.Show;
end;
//************打开IC卡充值窗口************
procedure Tmain.IC5Click(Sender: TObject);
begin
addmoney.Show;
end;
//************打开管理员权限设置窗口*****
procedure Tmain.N6Click(Sender: TObject);
begin
admin.Show;
end;

 //************打开IC卡密码修改窗口**********
procedure Tmain.IC6Click(Sender: TObject);
begin
changepass.Show;
end;
//*******打开刷卡机设置窗口*********
procedure Tmain.N7Click(Sender: TObject);
begin
readermachine.Show;
end;
//********打开刷卡模拟窗口***********
procedure Tmain.N9Click(Sender: TObject);
begin
consumemodel.Show;
end;
//********打开消费查询窗口**********
procedure Tmain.N10Click(Sender: TObject);
begin
consume.Show;
end;
//*******办理新卡快捷鍵**********
procedure Tmain.SpeedButton1Click(Sender: TObject);
begin
N4Click(Sender);
end;

//*******IC卡挂失快捷鍵**********
procedure Tmain.SpeedButton2Click(Sender: TObject);
begin
IC2Click(Sender);
end;
//*******IC卡解挂快捷鍵************
procedure Tmain.SpeedButton3Click(Sender: TObject);
begin
IC3Click(Sender);
end;
//*******IC卡注销快捷鍵************
procedure Tmain.SpeedButton4Click(Sender: TObject);
begin
IC4Click(Sender);
end;
//***********IC卡充值快捷鍵************
procedure Tmain.SpeedButton5Click(Sender: TObject);
begin
IC5Click(Sender);
end;
//*************管理员权限窗口快捷鍵***********
procedure Tmain.SpeedButton6Click(Sender: TObject);
begin
N6Click(Sender);
end;
//************IC密码修改快捷鍵**************
procedure Tmain.SpeedButton7Click(Sender: TObject);
begin
IC6Click(Sender);
end;
//*************刷卡模拟窗口快捷鍵**********
procedure Tmain.SpeedButton10Click(Sender: TObject);
begin
N9Click(Sender);
end;
//*************消费查询窗口快捷鍵***********
procedure Tmain.SpeedButton8Click(Sender: TObject);
begin
N10Click(Sender);
end;
//*************退出系统快捷鍵**************
procedure Tmain.SpeedButton9Click(Sender: TObject);
begin
N3Click(Sender);
end;
//**********关于系统提示**********
procedure Tmain.N11Click(Sender: TObject);
begin
about.Show;
end;

end.