main.~pas

一个详实的图书信息管理系统

unit MAIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, Buttons, ToolWin, DBTables,adodb, DB, MPlayer,
  ExtCtrls, jpeg,returnfee,SHELLAPI;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    C1: TMenuItem;
    J1: TMenuItem;
    T1: TMenuItem;
    R1: TMenuItem;
    S1: TMenuItem;
    T2: TMenuItem;
    X1: TMenuItem;
    S2: TMenuItem;
    N10: TMenuItem;
    L1: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    StatusBar2: TStatusBar;
    Timer1: TTimer;
    ADOConnection1: TADOConnection;
    Player: TMediaPlayer;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    p1: TMenuItem;
    p2: TMenuItem;
    N31: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;

    procedure N8Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure OnActivate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure J1Click(Sender: TObject);
    procedure T1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure S2Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure T2Click(Sender: TObject);
    procedure p1Click(Sender: TObject);
    procedure p2Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
  private
    { Private declarations }

    procedure InitForm;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  //自己定义的公用变量
       mp3path:array [1..3] of string ;
       qx:array [1..4] of Boolean ;
       username:string;
       password:string;
       pathi:integer;
       i:integer;
       adoconnstring:string;
       count:integer;
       icon_str:string;
implementation

uses CheckUser,
     Operator ,
     classoperator,
     Unitsform,
     bookfeeform,
     newbookin,
     jiaoshibook,
     studentbook,
     SF_CHAXUN,
     KuCun_chaxun,
     LingShu_ChaXun,
     strart,
     help,
     passwordchenk;
{$R *.dfm}

procedure TMainForm.N8Click(Sender: TObject);
begin
   CLOSE;
end;

procedure TMainForm.SpeedButton13Click(Sender: TObject);
begin
   close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
    //InitForm();
    pathi:=1;
    username:='';
    password:='';
    qx[1]:=false;
    qx[2]:=false;
    qx[3]:=false;
    qx[4]:=false;
     i:=3 ;
    Start_Form:=TStart_Form.Create(application);
    Start_Form.Visible:=false;
    Start_Form.Timer1.Interval:=10;
    Start_Form.Timer1.Enabled:=TRUE;
    Start_Form.ShowModal;
    icon_str:=ExtractFilePath(application.ExeName)+'\icon\1.bmp';
     //对所有的ado空间设置连接字符串
    adoconnstring:='Provider=Microsoft.Jet.OLEDB.4.0;'+
              'Data Source='+ ExtractFilePath(application.ExeName)+
              '\sql\教材系统.mdb;Persist Security Info=False';

    ADOConnection1.ConnectionString:=adoconnstring;
    
end;
procedure TMainForm.N2Click(Sender: TObject);
begin
   Operatorform:=tOperatorform.Create(application);
   Operatorform.Show;

end;
procedure tmainform.InitForm();
var  Bitmap:TBitmap;
     rect:trect;
begin
    rect.Left:=0;
    rect.Right:=width;
    rect.Top:=0;
    rect.Bottom:=height;
    bitmap:=tbitmap.Create();
    bitmap.LoadFromFile(icon_str);//装入位图
    mainform.Canvas.StretchDraw(rect,bitmap);//显示位图
    bitmap.FreeImage;//释放资源
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
   passwordform:=tpasswordform.create(application);
   passwordform.Show;
end;

procedure TMainForm.N4Click(Sender: TObject);
var k:integer;adoquery1:tadoquery;
begin
    k:=application.MessageBox('确定要清空所有数据库信息吗？','严重警告！',49);
    if k=id_ok then
    begin
      adoquery1:=tadoquery.Create(self);
      adoquery1.Connection:=adoConnection1;
      adoquery1.Close();
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('delete * from 单位信息表');
      adoquery1.ExecSQL;
      adoquery1.Close();
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('delete * from 教材表');
      adoquery1.ExecSQL;
      adoquery1.Close();
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('delete * from 教材出入库历史表');
      adoquery1.ExecSQL;
      adoquery1.Close();
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('delete * from 学生书费历史库');
      adoquery1.ExecSQL;
      adoquery1.Close();
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('delete * from 班级表');
      adoquery1.ExecSQL;
      adoquery1.Close();
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('delete * from 单位书费历史表');
      adoquery1.ExecSQL;
      adoquery1.Close();
      application.MessageBox('初始化结束！','提示！',mb_ok);
    end;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
      classform:=tclassform.Create(application);
      classform.Show;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
     timer1.Interval:=500000;
      player.FileName:=mp3path[pathi];
      player.Open;
      player.Play;
      pathi:=pathi+1;
   if pathi>3 then
   begin
    pathi:=1;
   end;
   N13.Enabled:=true;
   N12.Enabled:=true;

end;
procedure TMainForm.N7Click(Sender: TObject);
begin
   utilsform:=tutilsform.Create(application);
   utilsform.Show;
end;

procedure TMainForm.J1Click(Sender: TObject);
begin
    bookfreeform:=tbookfreeform.Create(application);
    bookfreeform.Show;
end;

procedure TMainForm.T1Click(Sender: TObject);
begin
   returnfeeform:=treturnfeeform.Create(application);
   returnfeeform.Show;
end;

procedure TMainForm.R1Click(Sender: TObject);
begin
   newbookform:=tnewbookform.Create(application);
   newbookform.Show;
end;

procedure TMainForm.S2Click(Sender: TObject);
begin
  ///
   shufei_chaxunform:= Tshufei_chaxunform.Create(application);
   shufei_chaxunform.Show;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
   //
    kucun_chaxun_form:=Tkucun_chaxun_form.Create(application);
    kucun_chaxun_form.Show;
end;

procedure TMainForm.L1Click(Sender: TObject);
begin
   lingshu_form:=Tlingshu_form.Create(application);
   lingshu_form.Show;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
   timer1.Enabled:=false;
   player.Pause;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
  timer1.Enabled:=true;
  player.Play;
end;

procedure TMainForm.S1Click(Sender: TObject);
begin
   //学生领书
    studentform:=Tstudentform.Create(application);
    studentform.Show;
end;

procedure TMainForm.T2Click(Sender: TObject);
begin
   jiaoshiform:=Tjiaoshiform.Create(application);
   jiaoshiform.Show;
end;

procedure TMainForm.p1Click(Sender: TObject);
var  Bitmap:TBitmap;
     rect:trect;
begin
    rect.Left:=0;
    rect.Right:=width;
    rect.Top:=0;
    rect.Bottom:=height;
    bitmap:=tbitmap.Create();
    icon_str:=ExtractFilePath(application.ExeName)+'\icon\1.bmp';
    bitmap.LoadFromFile(icon_str);//装入位图
    mainform.Canvas.StretchDraw(rect,bitmap);//显示位图
    bitmap.FreeImage;//释放资源
end;

procedure TMainForm.p2Click(Sender: TObject);
 var  Bitmap:TBitmap;
      rect:trect;
begin
    rect.Left:=0;
    rect.Right:=width;
    rect.Top:=0;
    rect.Bottom:=height;
    bitmap:=tbitmap.Create();
    icon_str:=ExtractFilePath(application.ExeName)+'\icon\2.bmp';
    bitmap.LoadFromFile(icon_str);//装入位图
    mainform.Canvas.StretchDraw(rect,bitmap);//显示位图
    bitmap.FreeImage;//释放资源
end;

procedure TMainForm.N31Click(Sender: TObject);
var  Bitmap:TBitmap;
      rect:trect;
begin
    rect.Left:=0;
    rect.Right:=width;
    rect.Top:=0;
    rect.Bottom:=height;
    bitmap:=tbitmap.Create();
    icon_str:=ExtractFilePath(application.ExeName)+'\icon\3.bmp';
    bitmap.LoadFromFile(icon_str);//装入位图
    mainform.Canvas.StretchDraw(rect,bitmap);//显示位图
    bitmap.FreeImage;//释放资源
end;

procedure TMainForm.OnActivate(Sender: TObject);
begin
   //
    statusbar2.Panels[0].Text:='正在创建连接请稍等！';
    statusbar2.Panels[3].Text:='正在启动画面';



    //player的播放文件列表;
    mp3path[1]:=ExtractFilePath(application.ExeName)+'\mp3\突然的自我.mp3';
    mp3path[2]:=ExtractFilePath(application.ExeName)+'\mp3\一起走过的日子.mp3';
    mp3path[3]:=ExtractFilePath(application.ExeName)+'\mp3\最真的梦.mp3';
    player.FileName:=mp3path[1];
    player.Open;
    //清除一切标志，使程序复位

//根据权限初始化控件是否可用
if username<> '' then
   begin
      //管理员权限
      if qx[1]=true then
        begin
           n4.Enabled:=true;
           n6.Enabled:=true;
           speedbutton3.Enabled:=true;
           speedbutton1.Enabled:=true;
        end
      else
        begin
           n4.Enabled:=false;
           n6.Enabled:=false;
           speedbutton3.Enabled:=false;
           speedbutton1.Enabled:=false;
        end;
      //操作员权限
     if qx[2]=true then
        begin
           n2.Enabled:=true;
           speedbutton2.Enabled:=true;
        end
      else
        begin
           n2.Enabled:=false;
           speedbutton4.Enabled:=false;
        end;
      //查询权限
      if qx[3]=true then
        begin
           n3.Enabled:=true;
           speedbutton5.Enabled:=true;
        end
      else
        begin
           n3.Enabled:=false;
           speedbutton5.Enabled:=false;

        end;
           statusbar2.Panels[0].Text:='已经完成登陆！';
           statusbar2.Panels[3].Text:='画面已经启动！';
           timer1.Enabled:=false
   end
   else if username='' then
           close;

end;

procedure TMainForm.FormPaint(Sender: TObject);
begin
    initform;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
//
//显示登陆窗体
    checkuserform:=tcheckuserform.Create(self);
    checkuserform.ShowModal();
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
   Help_Form:=THelp_Form.Create(application);
   Help_Form.Show;
end;

procedure TMainForm.N17Click(Sender: TObject);
var str:pchar;
begin
   str:='mailto:[e-mail]?subject=请教问题';
   ShellExecute(application.DialogHandle,nil,str, NiL, NiL, SW_SHOWNORMAL);

end;

end.