unit1.pas

学籍管理系统 基于sql2000 实现插入删除修改 等功能 不错

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,comobj, StdCtrls, Buttons, DB, ADODB, Menus, XPMan, OleCtrls,
  ShockwaveFlashObjects_TLB, jpeg, ExtCtrls, ComCtrls, ToolWin, ImgList;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N1: TMenuItem;
    XPManifest1: TXPManifest;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ToolButton3: TToolButton;
    procedure FormClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
   user:string;
   passed:boolean;
   xh,bj:string;
   procedure createdatabase(data_path:string);
   procedure createdatasheet(data_path:string;sqlstring:string);
   procedure editdata(adoquery:Tadoquery;sqlstring:string;param:integer);
   function datamd5(str:string;param:integer):string;
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

uses Unit3, Unit7, Unit8, Unit6, Unit9, Unit10, Unit11, Unit12,
  Unit13, Unit16, Unit17, Unit19, Unit20, Unit21;

{$R *.dfm}
{procedure Tform1.jiami(data_string:string);
var
ys_string,jm_string:string;
ys_array:array[0..1000000] of char;
begin
ys_string:=data_string;

end;}

procedure Tform1.createdatabase(data_path:string);  //创建数据库过程
var
cat,cat1:Variant;    //定义变量
vdata_path:string;
CCreateMDB:string;
begin
CCreateMDB:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s';   // 连接数据库字符串
vdata_path:=data_path;  //获取数据库路径
try
    begin
       cat1:=CreateOleObject('ADOX.Catalog');   //创建ole对象
       cat1.Create(Format(CCreateMDB,[vdata_path]));   //创建数据库
       cat1:=Unassigned;
      end;
  except
    showmessage('创建成功!');
  end;       
end;
procedure Tform1.createdatasheet(data_path:string;sqlstring:string); //创建数据表过程
var
my_adoquery:Tadoquery;
vsqlstring:string;
vdata_path:string;
begin
  vdata_path:=data_path;   //获取数据库路径
  vsqlstring:=sqlstring;
  my_adoquery:=Tadoquery.Create(self);//创建adoquery组建
  my_adoquery.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+vdata_path+';'; //连接数据库
  try
      my_adoquery.SQL.Clear ;  //清空sql语句
      my_adoquery.SQL.Add(sqlstring);  //执行sql语句
      my_adoquery.ExecSQL;

                         //showmessage('创建成功！');
  except
      showmessage( '创建用户数据表失败！');
  end;
  my_adoquery.Free;    //释放adoquery
end;
procedure Tform1.editdata(adoquery:Tadoquery;sqlstring:string;param:integer); //数据刷新过程
var
vparam:integer;
begin
  vparam:=param;
  with  adoquery do   //对adoquery对象进行操作
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  if vparam<>0 then
     Parameters.ParamByName('keywords').Value:=param; //设置关键字参数
  open;
  end;
end;
function Tform1.datamd5(str:string;param:integer):string;//数据加密函数
var
v_str,v1_str:string;
i,j:integer;
num:array[0..100] of char;
v2_str:string;
begin
  v_str:=str;
  j:=0;
  for i:=0 to length(v_str) do
   num[i]:=v_str[i];
   if param=0 then
    begin
      for i:=0 to  length(v_str)  do
       v1_str:=v1_str+inttostr(ord(num[i])+10)+',';
         end
      else
        begin
         for i:=j to  length(v_str)  do
          begin
          if num[i]<>',' then
           v2_str:=v2_str+num[i]
           else
            begin
            j:=i+1;
            continue;
           end;
           end;
        v1_str:=v1_str+chr(strtoint(v2_str));
       end;
    

  result:=v1_str;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
if passed=false then
  begin
   showmessage('你还没登陆');
   form3:=Tform3.create(self);
   form3.showmodal;
   form3.free;
  end;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if  passed=false then
  begin
   form3:=Tform3.create(self); //动态创建form3窗体
   form3.showmodal;    //以独占方式显示窗体
   form3.free; //释放窗体       .
     end;

end;

procedure TForm1.N11Click(Sender: TObject);
begin
  //form5:=Tform5.create(self);
 // form5.showmodal;
   //form5.free;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 my_word:Variant;
begin
  my_word:=createoleobject('Word.Basic');
  my_Word.AppShow;
  my_Word.FileNew
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form7:=Tform7.create(self);
   form7.showmodal;
   form7.free;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
  form8:=Tform8.create(self);
   form8.showmodal;
   form8.free;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
 form18:=Tform18.create(self);
  form18.showmodal;
   form18.free;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  form19:=Tform19.create(self);
   form19.showmodal;
 form19.free;
   
end;

procedure TForm1.N4Click(Sender: TObject);
begin
 form5:=Tform5.create(self);
  form5.showmodal;
  form5.free;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
form10:=Tform10.create(self);
   form10.showmodal;
   form10.free;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
form11:=Tform11.create(self);
   form11.showmodal;
   form11.free;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
form13:=Tform13.create(self);
   form13.showmodal;
  form13.free;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
form13:=Tform13.create(self);
   form13.showmodal;
   form13.free;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
 form16:=Tform16.create(self);
   form16.showmodal;
   form16.free;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
 form17:=Tform17.create(self);
   form17.showmodal;
   form17.free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.StatusBar1.Panels[2].Text:='当前日期'+datetostr(date());  //状态栏显示
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
if messagedlg('确定退出吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('确定退出吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;    //退出主程序
end;

end.