umain.pas

老年人大学的学籍管理,主要是学费收取

unit umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, base, ExtCtrls, SUIForm, Menus, SUIMainMenu, ComCtrls, ToolWin,
  SUIToolBar, SUIStatusBar, ImgList, DB, ADODB, RzGroupBar, jpeg, SUIButton,
  SUIPopupMenu;

type
  Tfrmmain = class(Tbaseform)
    suiMainMenu1: TsuiMainMenu;
    S1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    C1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    T1: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    R1: TMenuItem;
    sb: TsuiStatusBar;
    tb: TsuiToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    adc: TADOConnection;
    Timer1: TTimer;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    RzGroup4: TRzGroup;
    RzGroup5: TRzGroup;
    ToolButton6: TToolButton;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    N39: TMenuItem;
    N41: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N46: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N21: TMenuItem;
    N42: TMenuItem;
    N40: TMenuItem;
    N43: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    adqdb: TADOQuery;
    opendlg: TOpenDialog;
    svdlg: TSaveDialog;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton17: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ImageList2: TImageList;
    N14: TMenuItem;
    ToolButton21: TToolButton;
    N27: TMenuItem;
    N57: TMenuItem;
    suiButton1: TsuiButton;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    suiButton2: TsuiButton;
    Shape5: TShape;
    Shape6: TShape;
    suiButton3: TsuiButton;
    Shape7: TShape;
    Shape8: TShape;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    Shape9: TShape;
    suiButton6: TsuiButton;
    suiButton7: TsuiButton;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    N60: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    suiPopupMenu1: TsuiPopupMenu;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    suiPopupMenu2: TsuiPopupMenu;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton19Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure RzGroup1Items0Click(Sender: TObject);
    procedure RzGroup1Items1Click(Sender: TObject);
    procedure RzGroup1Items2Click(Sender: TObject);
    procedure RzGroup2Items0Click(Sender: TObject);
    procedure RzGroup2Items1Click(Sender: TObject);
    procedure RzGroup2Items2Click(Sender: TObject);
    procedure RzGroup2Items3Click(Sender: TObject);
    procedure RzGroup2Items4Click(Sender: TObject);
    procedure RzGroup2Items5Click(Sender: TObject);
    procedure RzGroup2Items6Click(Sender: TObject);
    procedure RzGroup2Items7Click(Sender: TObject);
    procedure RzGroup2Items8Click(Sender: TObject);
    procedure RzGroup3Items0Click(Sender: TObject);
    procedure RzGroup3Items1Click(Sender: TObject);
    procedure RzGroup4Items0Click(Sender: TObject);
    procedure RzGroup4Items1Click(Sender: TObject);
    procedure RzGroup5Items0Click(Sender: TObject);
    procedure RzGroup5Items3Click(Sender: TObject);
    procedure RzGroup5Items4Click(Sender: TObject);
    procedure suiButton7Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure RzGroup3Items2Click(Sender: TObject);
    procedure RzGroup4Items2Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    rptid,user,form:string;
    login:boolean;
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation

uses ulogin, modifypsw, sexcode, educode, racecode, marrycode, partycode,
  unitcode, artcode, newstu, log, user, dep, classset, about, oldstu,
  person, marry, jiaofei, weijiao, edu, background, rptjiao, rptwei,
  rptstudj, kaoqin, baoming, tuixue, inifiles, todaymoney, todaytuikuan,
  money, stumoney, datesum;

{$R *.dfm}

procedure Tfrmmain.N1Click(Sender: TObject);
begin
  inherited;
  if login then
    begin
    application.MessageBox('您已登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end
  else
    begin
    frmlogin:=tfrmlogin.Create(nil);
    frmlogin.ShowModal;
    frmlogin.Free;
    end;
end;

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

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

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

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

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

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

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

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

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

procedure Tfrmmain.FormCreate(Sender: TObject);
var inifile:tinifile;
    constr,server,data,user,psw:string;
begin
  inherited;
  try
    inifile:=tinifile.Create(extractfilepath(paramstr(0))+'config.ini');
    server:=inifile.ReadString('server','server','localhost');
    //showmessage(server);
    data:=inifile.ReadString('data','data','stu');
    //showmessage(data);
    user:=inifile.ReadString('user','user','sa');
    //showmessage(user);
    psw:=inifile.ReadString('password','password','123');
    constr:='provider=sqloledb.1;password='+psw+';persist security info=false;user id='+user+';initial catalog='+data+';data source='+server+';';
    //showmessage(constr);
  finally
    inifile.Free;
  end;
  adc.ConnectionString:=constr;
  //adc.ConnectionString :='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=student;Data Source=localhost';
  try
    adc.Open;
  except
    application.MessageBox('数据库连接失败！','警告',mb_ok+mb_iconinformation);
    application.Terminate;
  end;
end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
  inherited;
  sb.Panels[1].Text:=datetimetostr(now());
end;

procedure Tfrmmain.FormDestroy(Sender: TObject);
begin
  inherited;
  adc.Close;
end;

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

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

procedure Tfrmmain.N5Click(Sender: TObject);
begin
  inherited;
  if not login then
    begin
    application.MessageBox('您还没有登录！','提示',mb_ok+mb_iconinformation);
    exit;
    end
  else
    if frmmain.user<>'admin' then
      begin
      application.MessageBox('您不是管理员！','提示',mb_ok+mb_iconinformation);
      exit;
      end;
  frmuser:=tfrmuser.Create(nil);
  frmuser.ShowModal;
  frmuser.Free;
end;

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

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

procedure Tfrmmain.N26Click(Sender: TObject);
begin
  inherited;
  frmabout:=tfrmabout.Create(nil);
  frmabout.ShowModal;
  frmabout.Free;
end;

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

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

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

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

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

procedure Tfrmmain.N33Click(Sender: TObject);
begin
  inherited;
  if n33.Checked then
    begin
    n33.Checked :=false;
    tb.Visible :=false;
    end
  else
    begin
    n33.Checked :=true;
    tb.Visible :=true;
    end;
end;

procedure Tfrmmain.N34Click(Sender: TObject);
begin
  inherited;
  if n34.Checked then
    begin
    n34.Checked :=false;
    sb.Visible :=false;
    end
  else
    begin
    sb.Visible :=true;
    n34.Checked :=true;
    end;
end;

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