main.pas

delphi下 数据库图书馆管理系统的实现

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, jpeg, ExtCtrls, Menus, ImgList, Grids, DBGrids,
  DBCtrls, ToolWin;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    D1: TMenuItem;
    N17: TMenuItem;
    E2: TMenuItem;
    N21: TMenuItem;
    N18: TMenuItem;
    N4: TMenuItem;
    L1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N29: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    G1: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    D2: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    S1: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    P1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N40: TMenuItem;
    W1: TMenuItem;
    N11: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N210: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    O1: TMenuItem;
    N19: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    H2: TMenuItem;
    N20: TMenuItem;
    N1: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    ToolButton2: TToolButton;
    ToolButton1: TToolButton;
    Panel2: TPanel;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    Panel3: TPanel;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    DBGrid9: TDBGrid;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    ImageList1: TImageList;
    procedure FormShow(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure E2Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
uses banji, XSXX, XSZC, ZYKC, DataModule;

{$R *.dfm}

procedure TMainForm.FormShow(Sender: TObject);
begin
    Statusbar1.SimpleText:='欢迎进入学生学籍管理系统';
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
    BJForm.ShowModal;
end;

procedure TMainForm.E2Click(Sender: TObject);
begin
    XSXXForm.Showmodal;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
    XSZCForm.Showmodal;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
currentTime:LongInt;
begin
    currentTime:=GetTickCount div 1000;
    while ((GetTickCount div 1000)<(currentTime+3)) do ;
end;

procedure TMainForm.N27Click(Sender: TObject);
begin
    zkform.BitBtn2.Visible:=false;
    zkform.BitBtn1.Visible:=true;
    zkform.Edit1.Enabled:=True;
    zkform.Edit2.Enabled:=True;
    zkform.Edit3.Enabled:=false;
    zkform.Edit4.Enabled:=false;
    zkform.showmodal;
end;

procedure TMainForm.N28Click(Sender: TObject);
begin
    zkform.BitBtn1.Visible:=false;
    zkform.BitBtn2.Visible:=true;
    zkform.edit1.Enabled:=false;
    zkform.Edit2.Enabled:=false;
    zkform.Edit3.Enabled:=True;
    zkform.Edit4.Enabled:=True;
    zkform.ShowModal;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
    toolbar1.Show;
    panel1.Show;
    panel1.BringToFront;
    dbgrid3.Align:=alclient;
    dbgrid3.ReadOnly:=false;
    dbnavigator1.DataSource:=datamodule1.DataSource1;
    n39.Enabled:=true;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
    toolbar1.Show;
    panel1.Show;
    dbgrid2.BringToFront;
    dbgrid2.Align:=alclient;
    dbgrid2.ReadOnly:=false;
    dbnavigator1.DataSource:=datamodule1.DataSource3;
    n39.Enabled:=true;
end;

procedure TMainForm.N39Click(Sender: TObject);
begin
    toolbar1.Hide;
    panel1.Hide;
    n39.Enabled:=false;
    with dbgrid2 do
        begin
            ReadOnly:=true;
            Align:=alnone;
            Left:=514;
            Top:=8;
            Width:=500;
            Height:=313;
        end;
    with dbgrid3 do
        begin
            ReadOnly:=true;
            Align:=alnone;
            Left:=10;
            Top:=328;
            Width:=1005;
            height:=347;
        end;
    end;
end.