unit1.pas

用delphi编写的学生学籍管理系统

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, DB, DBTables, ADODB, RpCon,
  RpConDS, RpDefine, RpRave;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    RvDataSetConnection2: TRvDataSetConnection;
    ADO_re: TADOTable;
    ADO_r_st: TADOTable;
    RvDataSetConnection3: TRvDataSetConnection;
    ADO_re_le: TADOTable;
    ADO_r_cla: TADOTable;
    ADO_r_dep: TADOTable;
    RvDataSetConnection4: TRvDataSetConnection;
    RvDataSetConnection5: TRvDataSetConnection;
    RvProject2: TRvProject;
    RvDataSetConnection6: TRvDataSetConnection;
    RvDataSetConnection7: TRvDataSetConnection;
    RvDataSetConnection8: TRvDataSetConnection;
    RvDataSetConnection9: TRvDataSetConnection;
    RvDataSetConnection10: TRvDataSetConnection;
    ADO_pun: TADOTable;
    ADO_p_st: TADOTable;
    ADO_pun_le: TADOTable;
    ADO_p_cla: TADOTable;
    ADO_p_dep: TADOTable;
    GroupBox1: TGroupBox;
    Btn_stud: TButton;
    Bnt_rp: TButton;
    Btn_change: TButton;
    GroupBox2: TGroupBox;
    Btn_query: TButton;
    Print_rep_reward: TButton;
    Print_rep_punish: TButton;
    GroupBox3: TGroupBox;
    Backup_Restore: TButton;
    Meno: TMemo;
    procedure Btn_studClick(Sender: TObject);
    procedure Btn_changeClick(Sender: TObject);
    procedure Bnt_rpClick(Sender: TObject);
    procedure Btn_queryClick(Sender: TObject);
    procedure Backup_RestoreClick(Sender: TObject);
    procedure Print_rep_rewardClick(Sender: TObject);
    procedure Print_rep_punishClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6,unit7,unit8;

{$R *.dfm}

procedure TForm1.Btn_studClick(Sender: TObject);
begin
  Application.CreateForm(TForm2, Form2);
  form2.showmodal;
end;

procedure TForm1.Btn_changeClick(Sender: TObject);
begin
  Application.CreateForm(TForm3, Form3);
  form3.showmodal
end;

procedure TForm1.Bnt_rpClick(Sender: TObject);
begin
  Application.CreateForm(TForm4, Form4);
  form4.showmodal
end;

procedure TForm1.Btn_queryClick(Sender: TObject);
begin
  Application.CreateForm(TForm5, Form5);
  form5.showmodal
end;

procedure TForm1.Backup_RestoreClick(Sender: TObject);
begin
  Application.CreateForm(TForm6, Form6);
  form6.showmodal;
end;

procedure TForm1.Print_rep_rewardClick(Sender: TObject);
begin
   ADO_re.ConnectionString :='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_r_st.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_re_le.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_r_cla.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_r_dep.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   Rvproject1.Execute;
   ADO_re.ConnectionString :='';
   ADO_r_st.ConnectionString:='';
   ADO_re_le.ConnectionString:='';
   ADO_r_cla.ConnectionString:='';
   ADO_r_dep.ConnectionString:='';
end;

procedure TForm1.Print_rep_punishClick(Sender: TObject);
begin
   ADO_pun.ConnectionString :='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_p_st.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_pun_le.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_p_cla.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   ADO_p_dep.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
   Rvproject2.Execute;
   ADO_pun.ConnectionString :='';
   ADO_p_st.ConnectionString:='';
   ADO_pun_le.ConnectionString:='';
   ADO_p_cla.ConnectionString:='';
   ADO_p_dep.ConnectionString:='';
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   f_dialog.Close;
   form1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  f_dialog.Close;
  form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
    splashform:TsplashForm;
begin
    splashform:=TsplashForm.Create(application);
    splashform.Showmodal;
end;


end.