unit3.pas

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

PAS
941 行
字号
12
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，删除无效！','警告',MB_OK); exit;
 end;
 begin
dm.main.Delete;
end;
end;
procedure Tmain.ToolButton29Click(Sender: TObject);
begin
if MessageDlg('确定修改该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
  begin
end;
dm.main.Edit;
dm.main.Refresh;
end;

procedure Tmain.ToolButton23Click(Sender: TObject);
begin
dm.main.Next;
end;

procedure Tmain.ToolButton22Click(Sender: TObject);
begin
dm.main.Prior;
end;

procedure Tmain.ToolButton25Click(Sender: TObject);
begin
dm.main.First;
end;

procedure Tmain.ToolButton26Click(Sender: TObject);
begin
dm.main.Last;
end;

procedure Tmain.N31Click(Sender: TObject);
begin
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:='备注';
 studen.ShowModal;
end;

procedure Tmain.BitBtn1Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='ban';
dm.he.Active:=true;
 ban.DBGrid1.columns[0].width:=84;
 ban.DBGrid1.columns[1].width:=64;
 ban.DBGrid1.columns[2].width:=44;
 ban.DBGrid1.columns[3].width:=64;
 ban.DBGrid1.columns[4].width:=54;
 ban.DBGrid1.columns[5].width:=44;
 ban.DBGrid1.columns[6].width:=104;
 ban.DBGrid1.columns[0].title.caption:='专业系';
 ban.DBGrid1.columns[1].title.caption:='班级';
 ban.DBGrid1.columns[2].title.caption:='年度';
 ban.DBGrid1.columns[3].title.caption:='班主任';
 ban.DBGrid1.columns[4].title.caption:='类别';
 ban.DBGrid1.columns[5].title.caption:='人数';
 ban.DBGrid1.columns[6].title.caption:='备注';
ban.ShowModal;
end;

procedure Tmain.ToolButton1Click(Sender: TObject);
begin
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:=64;
 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:='备注';
 studen.ShowModal;
end;

procedure Tmain.ToolButton2Click(Sender: TObject);
begin
xuelo.ShowModal;
end;

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

procedure Tmain.BitBtn2Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='he';
dm.he.Active:=true;
 ban.DBGrid1.columns[0].width:=64;
 ban.DBGrid1.columns[1].width:=104;
 ban.DBGrid1.columns[2].width:=84;
 ban.DBGrid1.columns[3].width:=84;
 ban.DBGrid1.columns[0].title.caption:='课程代码';
 ban.DBGrid1.columns[1].title.caption:='课程名称';
 ban.DBGrid1.columns[2].title.caption:='任课老师';
 ban.DBGrid1.columns[3].title.caption:='总课节数';
ban.ShowModal;
end;

procedure Tmain.BitBtn4Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='su';
dm.he.Active:=true;
 ban.DBGrid1.columns[0].width:=84;
 ban.DBGrid1.columns[1].width:=64;
 ban.DBGrid1.columns[2].width:=94;
 ban.DBGrid1.columns[3].width:=185;
 ban.DBGrid1.columns[0].title.caption:='宿舍编号';
 ban.DBGrid1.columns[1].title.caption:='宿舍人数';
 ban.DBGrid1.columns[2].title.caption:='宿舍电话';
 ban.DBGrid1.columns[3].title.caption:='备注';
ban.ShowModal;
end;

procedure Tmain.BitBtn5Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='puss';
dm.he.Active:=true;
 ban.DBGrid1.columns[0].width:=64;
 ban.DBGrid1.columns[1].width:=74;
 ban.DBGrid1.columns[2].width:=54;
 ban.DBGrid1.columns[3].width:=74;
 ban.DBGrid1.columns[0].title.caption:='部门编号';
 ban.DBGrid1.columns[1].title.caption:='部门名称';
 ban.DBGrid1.columns[2].title.caption:='部门人数';
 ban.DBGrid1.columns[3].title.caption:='姓名';
ban.ShowModal;
end;

procedure Tmain.BitBtn7Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='ks';
dm.he.Active:=true;
 ban.DBGrid1.columns[0].width:=204;
 ban.DBGrid1.columns[0].title.caption:='考试类型';
ban.ShowModal;
end;

procedure Tmain.BitBtn8Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='datas';
dm.he.Active:=true;
ban.DBGrid1.columns[0].width:=204;
ban.DBGrid1.columns[0].title.caption:='时间段';
ban.ShowModal;
end;

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

procedure Tmain.BitBtn15Click(Sender: TObject);
begin
form14.ShowModal;
end;

procedure Tmain.N34Click(Sender: TObject);
begin
form13.show;
TabSheet1.Show;
end;

procedure Tmain.N38Click(Sender: TObject);
begin
form13.show;
TabSheet2.Show;
end;

procedure Tmain.N35Click(Sender: TObject);
begin
form13.show;
TabSheet3.Show;
end;

procedure Tmain.N36Click(Sender: TObject);
begin
form13.show;
end;

procedure Tmain.BitBtn6Click(Sender: TObject);
begin
he3.ShowModal;
end;

procedure Tmain.N32Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.main.active:=false;
dm.main.tablename:='jiaodan';
dm.main.Active:=true;
 main.DBGrid1.columns[0].width:=124;
 main.DBGrid1.columns[1].width:=184;
 main.DBGrid1.columns[2].width:=74;
 main.DBGrid1.columns[3].width:=84;
 main.DBGrid1.columns[0].title.caption:='订书单位';
 main.DBGrid1.columns[1].title.caption:='联系地址';
 main.DBGrid1.columns[2].title.caption:='联系人';
 main.DBGrid1.columns[3].title.caption:='联系电话';
dan.ShowModal;
end;

procedure Tmain.N156Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.main.active:=false;
dm.main.tablename:='jiaoru';
dm.main.Active:=true;
 main.DBGrid1.columns[0].width:=94;
 main.DBGrid1.columns[1].width:=84;
 main.DBGrid1.columns[2].width:=60;
 main.DBGrid1.columns[3].width:=54;
  main.DBGrid1.columns[4].width:=34;
 main.DBGrid1.columns[5].width:=124;
 main.DBGrid1.columns[6].width:=64;
 main.DBGrid1.columns[7].width:=54;
  main.DBGrid1.columns[8].width:=54;
 main.DBGrid1.columns[9].width:=44;
 main.DBGrid1.columns[10].width:=70;
 main.DBGrid1.columns[11].width:=84;
 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:='备注';
jiaoru.ShowModal;
end;

procedure Tmain.N157Click(Sender: TObject);
begin
jiaoji.ShowModal;
end;

procedure Tmain.N158Click(Sender: TObject);
begin
aoxue.ShowModal;
end;

procedure Tmain.N159Click(Sender: TObject);
begin
aozi.ShowModal;
end;

procedure Tmain.N116Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='ban';
dm.he.Active:=true;
 ban.DBGrid1.columns[0].width:=84;
 ban.DBGrid1.columns[1].width:=64;
 ban.DBGrid1.columns[2].width:=44;
 ban.DBGrid1.columns[3].width:=64;
 ban.DBGrid1.columns[4].width:=54;
 ban.DBGrid1.columns[5].width:=44;
 ban.DBGrid1.columns[6].width:=104;
 ban.DBGrid1.columns[0].title.caption:='专业系';
 ban.DBGrid1.columns[1].title.caption:='班级';
 ban.DBGrid1.columns[2].title.caption:='年度';
 ban.DBGrid1.columns[3].title.caption:='班主任';
 ban.DBGrid1.columns[4].title.caption:='类别';
 ban.DBGrid1.columns[5].title.caption:='人数';
 ban.DBGrid1.columns[6].title.caption:='备注';
ban.ShowModal;
end;

procedure Tmain.N117Click(Sender: TObject);
begin
dm.Database1.Connected:=True;
dm.he.active:=false;
dm.he.tablename:='he';
dm.he.Active:=true;
 ban.DBGrid1.columns[0].width:=64;
 ban.DBGrid1.columns[1].width:=104;
 ban.DBGrid1.columns[2].width:=84;
 ban.DBGrid1.columns[3].width:=84;
 ban.DBGrid1.columns[0].title.caption:='课程代码';
 ban.DBGrid1.columns[1].title.caption:='课程名称';
 ban.DBGrid1.columns[2].title.caption:='任课老师';
 ban.DBGrid1.columns[3].title.caption:='总课节数';
ban.ShowModal;
end;

procedure Tmain.ToolButton3Click(Sender: TObject);
begin
wu.ShowModal;
end;

procedure Tmain.N121Click(Sender: TObject);
begin
zo.ShowModal;
end;

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

procedure Tmain.gggg1Click(Sender: TObject);
var
filename,savefile:string;
begin
dm.Database1.connected:=true;
try
savedialog1.Title:='请输入要保存的文件名';
if savedialog1.Execute then
begin
if fileexists(savedialog1.FileName) then
begin
showmessage('数据库已存在!请重新设定文件名');
abort;
end
else
begin
filename:='F:\Database\mybase.mdb';
savefile:=savedialog1.FileName+'.mdb';
copyfile(pchar(filename),pchar(savefile),false);
end;
end;
except
showmessage('无法保存数据库文件');
end;

end;

procedure Tmain.BitBtn12Click(Sender: TObject);
begin
aozi.ShowModal;
end;

procedure Tmain.N118Click(Sender: TObject);
begin
form13.show;

end;

procedure Tmain.ToolButton5Click(Sender: TObject);
begin
zo.ShowModal;
end;

procedure Tmain.N122Click(Sender: TObject);
var i:integer;
begin
   i:=Tcomponent(sender).tag;
   logn.SkinData1.LoadFromCollection(skinstore1,i);
end;

procedure Tmain.N123Click(Sender: TObject);
var i:integer;
begin
   i:=Tcomponent(sender).tag;
   logn.SkinData1.LoadFromCollection(skinstore1,i);
end;

procedure Tmain.N124Click(Sender: TObject);
var i:integer;
begin
   i:=Tcomponent(sender).tag;
   logn.SkinData1.LoadFromCollection(skinstore1,i);
end;

procedure Tmain.N141Click(Sender: TObject);
var i:integer;
begin
   i:=Tcomponent(sender).tag;
   logn.SkinData1.LoadFromCollection(skinstore1,i);
end;

procedure Tmain.BitBtn10Click(Sender: TObject);
begin
 zo.ShowModal;
end;

procedure Tmain.N146Click(Sender: TObject);
begin
hechen.ShowModal;
end;

end.
12

unit3.pas - 源码说明

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

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

⌨️ 快捷键说明

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