📄 umain.pas

📁 老年人大学的学籍管理,主要是学费收取
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    previewheight:=screen.Height;
    preview;
    end;
  frmrptjiao.Free;
end;

procedure Tfrmmain.N43Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  rptid:='old';
  frmrptjiao:=tfrmrptjiao.Create(nil);
  with frmrptjiao.QuickRep1 do
    begin
    previewwidth:=screen.Width;
    previewheight:=screen.Height;
    preview;
    end;
  frmrptjiao.Free;
end;

procedure Tfrmmain.N58Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  rptid:='new';
  frmrptwei:=tfrmrptwei.Create(nil);
  with frmrptwei.QuickRep1 do
    begin
    previewwidth:=screen.Width;
    previewheight:=screen.Height;
    preview;
    end;
  frmrptwei.Free;
end;

procedure Tfrmmain.N59Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  rptid:='old';
  frmrptwei:=tfrmrptwei.Create(nil);
  with frmrptwei.QuickRep1 do
    begin
    previewwidth:=screen.Width;
    previewheight:=screen.Height;
    preview;
    end;
  frmrptwei.Free;
end;

procedure Tfrmmain.N55Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmrptstudj:=tfrmrptstudj.Create(nil);
  with frmrptstudj.QuickRep1 do
    begin
    previewwidth:=screen.Width;
    previewheight:=screen.Height;
    preview;
    end;
end;

procedure Tfrmmain.N36Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmrptkaoqin:=tfrmrptkaoqin.Create(nil);
  with frmrptkaoqin.QuickRep1 do
    begin
    previewwidth:=screen.Width;
    previewheight:=screen.Height;
    preview;
    end;
  frmrptkaoqin.Free;
end;

procedure Tfrmmain.N46Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmrptmajor:=tfrmrptmajor.Create(nil);
  with frmrptmajor.QuickRep1 do
    begin
    previewwidth:=screen.Width;
    previewheight:=screen.Height;
    preview;
    end;
  frmrptmajor.Free;
end;

procedure Tfrmmain.N56Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmtuixue:=tfrmtuixue.Create(nil);
  frmtuixue.ShowModal;
end;

procedure Tfrmmain.N42Click(Sender: TObject);
var tmp:tadoquery;
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if application.MessageBox('该操作将清空新生表，并将其数据全部插入老生表，是否继续？','提示',mb_yesno+mb_iconquestion)=idyes then
    begin
    tmp:=tadoquery.Create(nil);
    tmp.ConnectionString:=adc.ConnectionString;
    adc.BeginTrans;
    try
      with tmp do
        begin
        sql.Clear;
        sql.Add('insert into oldstu (stuid,stuname,sex,borndate,edu,race,personal,marry,address,phone,party,iswork,lateunit,job,schooldate,workmemo,district,awardmemo,techang,parname,parphone,personid,dep,major,grade,class)');
        sql.Add(' select stuid,stuname,sex,borndate,edu,race,personal,marry,address,phone,party,iswork,lateunit,job,schooldate,workmemo,district,awardmemo,techang,parname,parphone,personid,dep,major,grade,class from newstu');
        execsql;
        end;
      with tmp do
        begin
        sql.Clear;
        sql.Add('delete from newstu');
        execsql;
        end;
      adc.CommitTrans;
      application.MessageBox('升级成功！','提示',mb_ok+mb_iconinformation);
    except
      adc.RollbackTrans;
      raise;
      application.MessageBox('升级失败！','警告',mb_ok+mb_iconwarning);
    end;
    end;
end;

procedure Tfrmmain.N7Click(Sender: TObject);
var str:string;
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if svdlg.Execute then
    str:=svdlg.FileName;
  with adqdb do
    begin
    try
      close;
      sql.Clear;
      sql.Add('backup database student to disk = '''+str+''' with init');
      showmessage(sql.text);
      adqdb.ExecSQL;
      application.MessageBox('数据库备份成功！','提示',mb_ok+mb_iconinformation);
    except
      application.MessageBox('数据库备份失败！','警告',mb_ok+mb_iconwarning);
    end;
 end;

end;

procedure Tfrmmain.N8Click(Sender: TObject);
var str:string;
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if opendlg.Execute then
    str:=opendlg.FileName;
  if messagebox(Application.Handle,'的确要恢复数据吗？这将会覆盖数据库的数据！', ' 警告 ',mb_ICONWarning+mb_yesno)=mrno then
      exit;
   {screen.Cursor:=crSqlWait;
   with adqdb do
     begin
     try
       close;
       sql.Clear;
       adc.Connected:=false;
       sql.Add('use master alter database student set offline with rollback immediate');
       ExecSQL;
       close;
       sql.Clear;
       sql.Add('restore database student from disk = '''+str+''' with replace');
       ADc.Connected:=true;
       ExecSQL;
       screen.Cursor:=crDefault;
       application.MessageBox('数据库还原成功！','提示',mb_ok+mb_iconinformation);
       close;
     except
       application.MessageBox('数据库还原失败！','警告',mb_ok+mb_iconwarning); 
     end;
     end;   }
end;

procedure Tfrmmain.N2Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end
  else
    begin
    login:=false;
    sb.Panels[0].Text :='已注销';
    end;
end;

procedure Tfrmmain.ToolButton1Click(Sender: TObject);
begin
  inherited;
  n1.onclick(nil);
end;

procedure Tfrmmain.ToolButton2Click(Sender: TObject);
begin
  inherited;
  n4.onclick(nil);
end;

procedure Tfrmmain.ToolButton3Click(Sender: TObject);
begin
  inherited;
  n7.onclick(nil);
end;

procedure Tfrmmain.ToolButton4Click(Sender: TObject);
begin
  inherited;
  n8.onclick(nil);
end;

procedure Tfrmmain.ToolButton8Click(Sender: TObject);
begin
  inherited;
  n20.onclick(nil);
end;

procedure Tfrmmain.ToolButton9Click(Sender: TObject);
begin
  inherited;
  n56.onclick(nil);
end;

procedure Tfrmmain.ToolButton10Click(Sender: TObject);
begin
  inherited;
  n56.onclick(nil);
end;

procedure Tfrmmain.ToolButton13Click(Sender: TObject);
begin
  inherited;
  n56.onclick(nil);
end;

procedure Tfrmmain.ToolButton17Click(Sender: TObject);
begin
  inherited;
  n55.onclick(nil);
end;

procedure Tfrmmain.ToolButton19Click(Sender: TObject);
begin
  inherited;
  n36.onclick(nil);
end;

procedure Tfrmmain.ToolButton20Click(Sender: TObject);
begin
  inherited;
  n46.onclick(nil);
end;

procedure Tfrmmain.ToolButton14Click(Sender: TObject);
begin
  inherited;
  n31.onclick(nil);
end;

procedure Tfrmmain.ToolButton6Click(Sender: TObject);
begin
  inherited;
  n26.onclick(nil);
end;

procedure Tfrmmain.ToolButton7Click(Sender: TObject);
begin
  inherited;
//  n28.onclick(nil);
end;

procedure Tfrmmain.N27Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmtodaymoney:=tfrmtodaymoney.Create(nil);
  frmtodaymoney.ShowModal;
end;

procedure Tfrmmain.N57Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmtodaytuikuan:=tfrmtodaytuikuan.Create(nil);
  frmtodaytuikuan.Showmodal;
end;

procedure Tfrmmain.suiButton1Click(Sender: TObject);
begin
  inherited;
  n1.OnClick(nil);
end;

procedure Tfrmmain.suiButton4Click(Sender: TObject);
begin
  inherited;
  n56.OnClick(nil);
end;

procedure Tfrmmain.suiButton3Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  n48.OnClick(nil);
end;

procedure Tfrmmain.RzGroup1Items0Click(Sender: TObject);
begin
  inherited;
  n1.OnClick(nil);
end;

procedure Tfrmmain.RzGroup1Items1Click(Sender: TObject);
begin
  inherited;
  n4.OnClick(nil);
end;

procedure Tfrmmain.RzGroup1Items2Click(Sender: TObject);
begin
  inherited;
  n5.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items0Click(Sender: TObject);
begin
  inherited;
  n11.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items1Click(Sender: TObject);
begin
  inherited;
  n12.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items2Click(Sender: TObject);
begin
  inherited;
  n13.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items3Click(Sender: TObject);
begin
  inherited;
  n15.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items4Click(Sender: TObject);
begin
  inherited;
  n16.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items5Click(Sender: TObject);
begin
  inherited;
  n17.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items6Click(Sender: TObject);
begin
  inherited;
  n18.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items7Click(Sender: TObject);
begin
  inherited;
  n19.OnClick(nil);
end;

procedure Tfrmmain.RzGroup2Items8Click(Sender: TObject);
begin
  inherited;
  n39.OnClick(nil);
end;

procedure Tfrmmain.RzGroup3Items0Click(Sender: TObject);
begin
  inherited;
  n20.OnClick(nil);
end;

procedure Tfrmmain.RzGroup3Items1Click(Sender: TObject);
begin
  inherited;
  n56.OnClick(nil);
end;

procedure Tfrmmain.RzGroup4Items0Click(Sender: TObject);
begin
  inherited;
  n41.OnClick(nil);
end;

procedure Tfrmmain.RzGroup4Items1Click(Sender: TObject);
begin
  inherited;
  n44.OnClick(nil);
end;

procedure Tfrmmain.RzGroup5Items0Click(Sender: TObject);
begin
  inherited;
  n36.OnClick(nil);
end;

procedure Tfrmmain.RzGroup5Items3Click(Sender: TObject);
begin
  inherited;
  n46.OnClick(nil);
end;

procedure Tfrmmain.RzGroup5Items4Click(Sender: TObject);
begin
  inherited;
  n55.OnClick(nil);
end;

procedure Tfrmmain.suiButton7Click(Sender: TObject);
begin
  inherited;
  if application.messagebox('确定要退出系统？','提示',mb_yesno+mb_iconinformation)=idyes then
    application.terminate;
end;

procedure Tfrmmain.N49Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmdatesum:=tfrmdatesum.Create(nil);
  frmdatesum.ShowModal;
end;

procedure Tfrmmain.RzGroup3Items2Click(Sender: TObject);
begin
  inherited;
  n48.OnClick(nil);
end;

procedure Tfrmmain.RzGroup4Items2Click(Sender: TObject);
begin
  inherited;
  n49.OnClick(nil);
end;

procedure Tfrmmain.suiButton5Click(Sender: TObject);
begin
  inherited;
  suipopupmenu1.Popup(360,360);
  {  application.MessageBox('请在菜单【统计分析】中选择统计分析'+#13
                          +'已交费学生'+#13
                          +'未交费学生'+#13
                          +'今日交费情况'+#13
                          +'今日退费情况'+#13
                          +'按日期统计','提示',mb_ok+mb_iconinformation);  }
end;

procedure Tfrmmain.N52Click(Sender: TObject);
begin
  inherited;
  n27.OnClick(nil);
end;

procedure Tfrmmain.N53Click(Sender: TObject);
begin
  inherited;
  n57.OnClick(nil);
end;

procedure Tfrmmain.N54Click(Sender: TObject);
begin
  inherited;
  n49.OnClick(nil);
end;

procedure Tfrmmain.N61Click(Sender: TObject);
begin
  inherited;
  n36.OnClick(nil);
end;

procedure Tfrmmain.N62Click(Sender: TObject);
begin
  inherited;
  n46.OnClick(nil);
end;

procedure Tfrmmain.N63Click(Sender: TObject);
begin
  inherited;
  n55.OnClick(nil);
end;

procedure Tfrmmain.suiButton6Click(Sender: TObject);
begin
  inherited;
  suipopupmenu2.Popup(470,370);
end;

end.
上一页 12
⌨️ 快捷键说明

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