unit3.pas

来自「学校学籍管理系统」· PAS 代码 · 共 941 行 · 第 1/2 页

PAS
941 行
字号
12
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, Grids, DBGrids, XPMenu, ExtCtrls, ImgList, Menus,
  StdCtrls, Buttons, ComCtrls, ToolWin, DB, DBTables, WinSkinData,
  WinSkinStore;

type
  Tmain = class(TForm)
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolBar2: TToolBar;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn20: TBitBtn;
    TabSheet2: TTabSheet;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn21: TBitBtn;
    TabSheet3: TTabSheet;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    N22: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N2: TMenuItem;
    N27: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N5: TMenuItem;
    N31: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N3: TMenuItem;
    N114: TMenuItem;
    N116: TMenuItem;
    N117: TMenuItem;
    N125: TMenuItem;
    N150: TMenuItem;
    N121: TMenuItem;
    N146: TMenuItem;
    N126: TMenuItem;
    N127: TMenuItem;
    N129: TMenuItem;
    N130: TMenuItem;
    N135: TMenuItem;
    N132: TMenuItem;
    N133: TMenuItem;
    N152: TMenuItem;
    N4: TMenuItem;
    N63: TMenuItem;
    N66: TMenuItem;
    N86: TMenuItem;
    N67: TMenuItem;
    N64: TMenuItem;
    N68: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N139: TMenuItem;
    N140: TMenuItem;
    N142: TMenuItem;
    N143: TMenuItem;
    N144: TMenuItem;
    N65: TMenuItem;
    N95: TMenuItem;
    N89: TMenuItem;
    N94: TMenuItem;
    N96: TMenuItem;
    N88: TMenuItem;
    N87: TMenuItem;
    N69: TMenuItem;
    N83: TMenuItem;
    N7: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N74: TMenuItem;
    N73: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N37: TMenuItem;
    N41: TMenuItem;
    N81: TMenuItem;
    N8: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N82: TMenuItem;
    N6: TMenuItem;
    N90: TMenuItem;
    N91: TMenuItem;
    N92: TMenuItem;
    N93: TMenuItem;
    N97: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    N101: TMenuItem;
    N102: TMenuItem;
    N12: TMenuItem;
    N103: TMenuItem;
    N105: TMenuItem;
    N104: TMenuItem;
    N109: TMenuItem;
    N106: TMenuItem;
    N107: TMenuItem;
    N110: TMenuItem;
    N108: TMenuItem;
    N111: TMenuItem;
    N9: TMenuItem;
    N50: TMenuItem;
    N54: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N51: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N155: TMenuItem;
    N154: TMenuItem;
    N10: TMenuItem;
    N58: TMenuItem;
    N153: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N112: TMenuItem;
    N11: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    ImageList1: TImageList;
    Timer1: TTimer;
    Image6: TImage;
    N49: TMenuItem;
    N113: TMenuItem;
    N156: TMenuItem;
    N157: TMenuItem;
    N158: TMenuItem;
    N159: TMenuItem;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ToolButton8: TToolButton;
    ToolButton36: TToolButton;
    N32: TMenuItem;
    N40: TMenuItem;
    Dialog1: TOpenDialog;
    N115: TMenuItem;
    N120: TMenuItem;
    N122: TMenuItem;
    N123: TMenuItem;
    N124: TMenuItem;
    N141: TMenuItem;
    N145: TMenuItem;
    N151: TMenuItem;
    N160: TMenuItem;
    SaveDialog1: TSaveDialog;
    gggg1: TMenuItem;
    N19: TMenuItem;
    N161: TMenuItem;
    N118: TMenuItem;
    SkinStore1: TSkinStore;
    N14: TMenuItem;
    N17: TMenuItem;
    N119: TMenuItem;
    ToolButton4: TToolButton;
    ToolButton12: TToolButton;
    ToolButton16: TToolButton;
    procedure N48Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure ToolButton18Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure ToolButton30Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure ToolButton29Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
    procedure ToolButton25Click(Sender: TObject);
    procedure ToolButton26Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton27Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N156Click(Sender: TObject);
    procedure N157Click(Sender: TObject);
    procedure N158Click(Sender: TObject);
    procedure N159Click(Sender: TObject);
    procedure N116Click(Sender: TObject);
    procedure N117Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N121Click(Sender: TObject);
    procedure N151Click(Sender: TObject);
    procedure gggg1Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure N118Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N122Click(Sender: TObject);
    procedure N123Click(Sender: TObject);
    procedure N124Click(Sender: TObject);
    procedure N141Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure N146Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses about, Unit4, setup, Unit6, Unit1, Unit7, Unit8, Unit10, Unit11,
  Unit9, Unit14, Unit13, Unit12, Unit15, Unit16, Unit17, Unit18, Unit2,
  Unit19, Unit20;

{$R *.dfm}

procedure Tmain.N48Click(Sender: TObject);
begin
frm_about.ShowModal
end;

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

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

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

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

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

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

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

procedure Tmain.FormShow(Sender: TObject);
begin
main.caption:='学校信息管理系统    使用者：'+dm.user['id'];
logn.hide;
dm.Database1.Connected:=True;
dm.main.active:=false;
dm.main.tablename:='studen';
dm.main.Active:=true;
 main.DBGrid1.columns[0].width:=54;
 main.DBGrid1.columns[1].width:=64;
 main.DBGrid1.columns[2].width:=34;
 main.DBGrid1.columns[3].width:=74;
 main.DBGrid1.columns[4].width:=94;
 main.DBGrid1.columns[5].width:=74;
 main.DBGrid1.columns[6].width:=74;
 main.DBGrid1.columns[7].width:=104;
 main.DBGrid1.columns[8].width:=60;
 main.DBGrid1.columns[9].width:=74;
 main.DBGrid1.columns[10].width:=54;
 main.DBGrid1.columns[11].width:=74;
 main.DBGrid1.columns[12].width:=54;
 main.DBGrid1.columns[13].width:=60;
 main.DBGrid1.columns[14].width:=104;
 main.DBGrid1.columns[0].title.caption:='学号';
 main.DBGrid1.columns[1].title.caption:='姓名';
 main.DBGrid1.columns[2].title.caption:='性别';
 main.DBGrid1.columns[3].title.caption:='出生日期';
 main.DBGrid1.columns[4].title.caption:='就读专业';
 main.DBGrid1.columns[5].title.caption:='班级';
 main.DBGrid1.columns[6].title.caption:='入学日期';
 main.DBGrid1.columns[7].title.caption:='家庭住址';
 main.DBGrid1.columns[8].title.caption:='家长姓名';
 main.DBGrid1.columns[9].title.caption:='联系电话';
 main.DBGrid1.columns[10].title.caption:='是否住宿';
 main.DBGrid1.columns[11].title.caption:='房号';
 main.DBGrid1.columns[12].title.caption:='学习年段';
 main.DBGrid1.columns[13].title.caption:='当前状况';
 main.DBGrid1.columns[14].title.caption:='备注';
end;

procedure Tmain.N16Click(Sender: TObject);
begin
frm_setup.ShowModal
end;

procedure Tmain.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[5].Text :=timetostr(now);
   statusbar1.Panels[4].Text :=formatdatetime('yyyy年MM月dd日',now);
end;

procedure Tmain.N25Click(Sender: TObject);
begin
if MessageDlg('欢迎使用本软件。确定退出吗?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
                close();
end;

procedure Tmain.ToolButton15Click(Sender: TObject);
begin
if MessageDlg('欢迎使用本软件。确定退出吗?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
                close();
end;

procedure Tmain.BitBtn23Click(Sender: TObject);
begin
if MessageDlg('欢迎使用本软件。确定退出吗?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
                close();
end;

procedure Tmain.BitBtn21Click(Sender: TObject);
begin
if MessageDlg('欢迎使用本软件。确定退出吗?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
                close();
end;

procedure Tmain.BitBtn20Click(Sender: TObject);
begin
if MessageDlg('欢迎使用本软件。确定退出吗?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
                close();
end;

procedure Tmain.ToolButton18Click(Sender: TObject);
begin
dbgrid1.hide
end;

procedure Tmain.ToolButton17Click(Sender: TObject);
begin
dbgrid1.show
end;

procedure Tmain.N27Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.main.active:=false;
dm.main.tablename:='zhse';
dm.main.Active:=true;
 main.DBGrid1.columns[0].width:=204;
 main.DBGrid1.columns[1].width:=84;
 main.DBGrid1.columns[2].width:=94;
 main.DBGrid1.columns[3].width:=84;
 main.DBGrid1.columns[4].width:=284;
 main.DBGrid1.columns[0].title.caption:='招生办地址';
 main.DBGrid1.columns[1].title.caption:='联系人';
 main.DBGrid1.columns[2].title.caption:='联系电话';
 main.DBGrid1.columns[3].title.caption:='开设日期';
 main.DBGrid1.columns[4].title.caption:='备注';
zhao1.ShowModal;
end;

procedure Tmain.ToolButton30Click(Sender: TObject);
begin
dm.main.Refresh;
end;

procedure Tmain.ToolButton21Click(Sender: TObject);
begin
if MessageDlg('确定删除该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
12

unit3.pas - 源码说明

本页面展示了「学校学籍管理系统」中的 unit3.pas 源码文件，采用 PAS 编程语言编写，共 941 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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