📄 main.pas

📁 教材管理系统
💻 PAS
字号:
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinSkinStore, WinSkinData, XPMenu, Menus, ComCtrls, ImgList,
  ToolWin, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls, StdCtrls,
  SUISideChannel, SUIButton;

type
  TFrmmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N81: 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;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    StatusBar1: TStatusBar;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    objectN35TMenuItem1: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    sd1: TSkinData;
    SkinStore1: TSkinStore;
    Dialog1: TOpenDialog;
    N69: TMenuItem;
    N70: TMenuItem;
    Flash1: TMenuItem;
    PopupMenu1: TPopupMenu;
    N71: TMenuItem;
    GroupBox1: TGroupBox;
    ShockwaveFlash1: TShockwaveFlash;
    suiSideChannel1: TsuiSideChannel;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    suiButton6: TsuiButton;
    suiButton7: TsuiButton;
    suiButton8: TsuiButton;
    suiButton9: TsuiButton;
    suiButton10: TsuiButton;
    procedure N15Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N35Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure Flash1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure suiButton8Click(Sender: TObject);
    procedure suiButton10Click(Sender: TObject);
    procedure suiButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
 Frmmain: TFrmmain;

implementation
 uses mycommon,login,server,loading, jiao,dingdan, about, jiaoshi, student,
  UserAuthor, changepwd, qrystuent, qryk, shifree, returnfree, shifreesql,
  flash, udm;
{$R *.dfm}

procedure TFrmmain.N15Click(Sender: TObject);
begin
//if MessageDlg('欢迎使用本系统？确定退出吗?','mtConfirmation',[mbYes,mbNo],0)= mrYes then
              close();
end;

procedure TFrmmain.N2Click(Sender: TObject);
begin
//Application.free;//Terminate;
//Frmlogin.Free;
Frmlogin.Showmodal;     //.showmodal//;

end;

procedure TFrmmain.N3Click(Sender: TObject);
begin
Frmloading.showmodal;
end;

procedure TFrmmain.N24Click(Sender: TObject);
begin
Winexec('notepad.EXE',sw_Normal);
end;

procedure TFrmmain.N25Click(Sender: TObject);
begin
Winexec('write.EXE',sw_Normal);
end;

procedure TFrmmain.N27Click(Sender: TObject);
begin
Winexec('mspaint.EXE',sw_Normal);
end;

procedure TFrmmain.N28Click(Sender: TObject);
begin
Winexec('CALC.EXE',sw_Normal);
end;

procedure TFrmmain.N31Click(Sender: TObject);
begin
Winexec('cleanmgr.EXE',sw_Normal);
end;

procedure TFrmmain.N32Click(Sender: TObject);
begin
Winexec('sol.EXE',sw_Normal);
end;

procedure TFrmmain.N61Click(Sender: TObject);
begin
Frmjiao.showmodal;
end;

procedure TFrmmain.N59Click(Sender: TObject);
begin
Frmdingdan.showmodal;
end;
procedure TFrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('真的要退出教材系统吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    CanClose:=True
  else
    CanClose:=False;
end;

procedure TFrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.terminate;
end;

procedure TFrmmain.N35Click(Sender: TObject);
begin
Frmabout.showmodal;
end;

procedure TFrmmain.N10Click(Sender: TObject);
begin
 Dialog1.filter:='Skin files (*.skn)|*.SKN';
  Dialog1.initialdir:='..\..\skins\';
  if Dialog1.execute then
     sd1.skinfile:=dialog1.filename;
  if not sd1.Active then
   sd1.Active:=true;
end;

procedure TFrmmain.N6Click(Sender: TObject);

var i:integer;
begin
   i:=Tcomponent(sender).tag;
   Sd1.LoadFromCollection(skinstore1,i);
end;

procedure TFrmmain.N7Click(Sender: TObject);
var i:integer;
begin
    i:=Tcomponent(sender).tag;
   Sd1.LoadFromCollection(skinstore1,i);
end;

procedure TFrmmain.N8Click(Sender: TObject);
var i:integer;
begin
   i:=Tcomponent(sender).tag;
  sd1.LoadFromCollection(skinstore1,i);
end;

procedure TFrmmain.N63Click(Sender: TObject);
begin
Frmjiaoshi.showmodal;
end;

procedure TFrmmain.N62Click(Sender: TObject);
begin
Frmstudent.showmodal;
end;

procedure TFrmmain.N81Click(Sender: TObject);
var i:integer;
begin
   i:=Tcomponent(sender).tag;
   Sd1.LoadFromCollection(skinstore1,i);
end;

procedure TFrmmain.N42Click(Sender: TObject);
begin
FrmUserAuthor.showmodal();
end;

procedure TFrmmain.N43Click(Sender: TObject);
begin
Frmchangepwd.showmodal;
end;

procedure TFrmmain.N69Click(Sender: TObject);
begin
Frmqrystuent.showmodal;
end;

procedure TFrmmain.N67Click(Sender: TObject);
begin
Frmqryk.showmodal;
end;

procedure TFrmmain.N64Click(Sender: TObject);
begin
Frmshifree.showmodal;
end;

procedure TFrmmain.N65Click(Sender: TObject);
begin
Frmreturnfree.showmodal;
end;

procedure TFrmmain.N66Click(Sender: TObject);
begin
Frmshifreesql.showmodal;
end;

procedure TFrmmain.Flash1Click(Sender: TObject);
begin
Frmflash.showmodal;
end;

procedure TFrmmain.FormShow(Sender: TObject);
var
str:string;
begin
 str:=datetostr(Date);
statusBar1.Panels[1].Text :=
    '当前日期：'+copy(str,1,4)+'年'+copy(str,6,2)+'月'+copy(str,9,2)+'日';
  statusBar1.Panels[2].Text :='当前时间：'+timeTostr(time);
//StatusBar1.Panels[0].Text := '登录用户：'+dm.user.parambyname('name').AsString;
//StatusBar1.Panels[1].Text:='用户'+DM.Qryuser.FieldByName('username').AsString;
end;

procedure TFrmmain.N71Click(Sender: TObject);
begin
close;
end;

procedure TFrmmain.suiButton1Click(Sender: TObject);
begin
Frmjiao.showmodal;
end;

procedure TFrmmain.suiButton2Click(Sender: TObject);
begin
Frmreturnfree.showmodal;
end;

procedure TFrmmain.suiButton3Click(Sender: TObject);
begin
Frmqryk.showmodal;
end;

procedure TFrmmain.suiButton4Click(Sender: TObject);
begin
FrmUserAuthor.showmodal();
end;

procedure TFrmmain.suiButton5Click(Sender: TObject);
begin
Frmdingdan.showmodal;
end;

procedure TFrmmain.suiButton6Click(Sender: TObject);
begin
Frmchangepwd.showmodal;
end;

procedure TFrmmain.suiButton8Click(Sender: TObject);
begin
Frmstudent.showmodal;
end;

procedure TFrmmain.suiButton10Click(Sender: TObject);
begin
Frmjiaoshi.showmodal;
end;

procedure TFrmmain.suiButton9Click(Sender: TObject);
begin
Frmabout.showmodal;
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -