mainunit.pas

一个小的成绩信息管理系统

unit mainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, Buttons, ToolWin, DB, ADODB;

type
  TmainForm = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;

implementation
  uses userunit, accessUnit, graderegUnit;
{$R *.dfm}

procedure TmainForm.FormCreate(Sender: TObject);
var
  userinfo:Textfile;
  hostname,acount,password,dbname:String;
begin
  //读connection.txt出来----------------------------------------------;
  try
   assignfile(userinfo,ExtractFileDir(application.exename)+'\connection.txt');
   reset(userinfo);                      //打开指定的文件
   readln(userinfo,hostname);            //读一行字符
   readln(userinfo,acount);              //读一行字符
   readln(userinfo,password);            //读一行字符
   readln(userinfo,dbname);              //读一行字符
  except
    application.MessageBox('读取文件connection.txt失败！','错误',MB_OK+MB_ICONSTOP);
    Closefile(userinfo);
    exit;
  end;
  Closefile(userinfo);
  //数据库连接-----------------------------------------------------------
  try
    AdoConnection1.ConnectionString:=''+
                                      'Provider=SQLOLEDB.1; '+
                                      'Password='+password+'; '+
                                      'User ID='+acount+'; '+
                                      'Initial Catalog='+dbname+'; '+
                                      'Data Source='+hostname;
    AdoConnection1.Connected:=true;
    AdoConnection1.KeepConnection:=true;
  except
    application.messagebox('连接数据库出错，建议检查后重试!','连接错误',MB_Ok+Mb_ICONSTOP);
    exit;
  end;
end;

procedure TmainForm.N10Click(Sender: TObject);
begin
   Application.CreateForm(TuserForm, userForm);
end;

procedure TmainForm.N11Click(Sender: TObject);
begin
   Application.CreateForm(TaccessForm, accessForm);
end;

procedure TmainForm.N4Click(Sender: TObject);
begin
  Application.CreateForm(TgraderegForm,graderegForm);
end;

end.