main.pas

这个软件主要是管理毕业生的各种信息,包含你的成绩,毕业学校,查询、修改毕业生的信息等。

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, ImgList, StdActns, DBActns, ActnList,
  ToolWin, Menus, jpeg, MDIWallp,Animate, RXCtrls{为FindShowForm};

type
  Tmainf = class(TForm)
    ActionList1: TActionList;
    DataSetCancel1: TDataSetCancel;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetFirst1: TDataSetFirst;
    DataSetInsert1: TDataSetInsert;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPost1: TDataSetPost;
    DataSetPrior1: TDataSetPrior;
    DataSetRefresh1: TDataSetRefresh;
    EditCopy1: TEditCopy;
    EditCut1: TEditCut;
    EditDelete1: TEditDelete;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    HelpContents1: THelpContents;
    HelpOnHelp1: THelpOnHelp;
    HelpTopicSearch1: THelpTopicSearch;
    WindowArrange1: TWindowArrange;
    WindowCascade1: TWindowCascade;
    WindowClose1: TWindowClose;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    A_close: TAction;
    a_Previous: TAction;
    a_next: TAction;
    a_jsq: TAction;
    a_print: TAction;
    a_printpre: TAction;
    a_save: TAction;
    ImageList1: TImageList;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    StatusBar1: TStatusBar;
    N9: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    C1: TMenuItem;
    H1: TMenuItem;
    T1: TMenuItem;
    M1: TMenuItem;
    calc: TAction;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    undob: TToolButton;
    cutb: TToolButton;
    copyb: TToolButton;
    pasteb: TToolButton;
    deleteb: TToolButton;
    ToolButton6: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    N5: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    PrintSet: TPrinterSetupDialog;
    MDIWallpaper1: TMDIWallpaper;
    N10: TMenuItem;
    N11: TMenuItem;
    N8: TMenuItem;
    N12: TMenuItem;
    N7: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure A_closeExecute(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure calcExecute(Sender: TObject);
    procedure a_PreviousExecute(Sender: TObject);
    procedure a_nextExecute(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
  public
  end;

var
  mainf: Tmainf;

implementation

uses global,setpass,about,calc,jbqkcx,jbqkxg,zykxg,yhgl;

{$R *.DFM}
procedure Tmainf.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[1].Text:=formatdatetime('yyyy-mm-dd',date)+' '+formatdatetime('dddd',date)+' '+formatdatetime('hh:mm:ss',time);
end;

procedure Tmainf.FormShow(Sender: TObject);
var myitem:TmenuItem;
    dmqx:string;
begin
  StatusBar1.Panels[0].Text :='使用人员: '+OpratorName;
  StatusBar1.Panels[2].Text:='软件开发: 长沙市宏微信息科技有限公司';
end;

procedure Tmainf.calcExecute(Sender: TObject);
begin
  showform(tcalcf,false);
end;

procedure Tmainf.a_PreviousExecute(Sender: TObject);
begin
  self.Previous ;
end;

procedure Tmainf.a_nextExecute(Sender: TObject);
begin
  self.next;
end;

procedure Tmainf.A_closeExecute(Sender: TObject);
begin
  close;
end;

procedure Tmainf.N20Click(Sender: TObject);
begin
  showform(tsetpassf,true);
end;

procedure Tmainf.N15Click(Sender: TObject);
begin
  showform(Taboutf,true);
end;

procedure Tmainf.N5Click(Sender: TObject);
begin
  PrintSet.Execute ;
end;

procedure Tmainf.N9Click(Sender: TObject);
begin
  showform(tjbqkcxf,false);
end;

procedure Tmainf.N12Click(Sender: TObject);
begin
  showform(tjbqkxgf,false);
end;

procedure Tmainf.N11Click(Sender: TObject);
begin
  showform(tzykxgf,false);
end;

procedure Tmainf.N7Click(Sender: TObject);
begin
  showform(tyhglf,false);
end;

end.