main.pas

毕业论文选题系统,用Delphi编的,希望对大家有帮助

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls, jpeg, Buttons;

type
  Tmain1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Image1: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main1: Tmain1;

implementation

uses student,subject,menu,moudle, xuanke,xuanti;

{$R *.dfm}



procedure Tmain1.FormShow(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit1.SetFocus;
  MyDataModule.ADOQueryM.Active:=true;
  MyDataModule.ADOQuerySUB.Active:=true;
  MyDataModule.ADOQueryC.Active:=true;
  MyDataModule.ADOQuerySTU.Active:=true;
  MyDataModule.ADOQuery1.Active:=true;
  MyDataModule.ADOQueryg.Active:=true;
  MyDataModule.ADOQueryT.Active:=true;
end;
procedure Tmain1.SpeedButton2Click(Sender: TObject);
begin
  Application.Terminate;
end;


procedure Tmain1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton1.Click;
end;

procedure Tmain1.SpeedButton1Click(Sender: TObject);
begin
  if radiogroup1.ItemIndex=0 then
  begin
  with MyDataModule.ADOQueryM do
   begin
    close;
    sql.Clear;
    sql.Add('select*from test where name=:name and pass=:pass');
    MyDataModule.ADOQueryM.Parameters.ParamByName('name').Value:=edit1.Text;
    MyDataModule.ADOQueryM.Parameters.ParamByName('pass').Value:=edit2.Text;
    open;
    if recordcount>0 then
     begin
      menu1.show;
      main1.Hide;
     end
    else
     begin
       edit1.Tag:=edit1.Tag+1;
      if edit1.Tag>3 then
        begin
          showmessage('对不起，您无权使用该程序！');
          Application.Terminate;
        end
      else
       begin
        showmessage('对不起，您的用户或密码有误，请重新输入！');
        edit1.Text:='';
        edit2.Text:='';
       end;
     end;
   end;
   end;
  if radiogroup1.ItemIndex=1 then
   begin
     begin
  with MyDataModule.ADOQuery1 do
   begin
    close;
    sql.Clear;
    sql.Add('select*from tcode where tno=:tno and pass=:pass');
    MyDataModule.ADOQuery1.Parameters.ParamByName('tno').Value:=edit1.Text;
    MyDataModule.ADOQuery1.Parameters.ParamByName('pass').Value:=edit2.Text;
    execsql;
    open;
    if recordcount>0 then
     begin
      xuanti1.Show;
      main1.Hide;
      xuanti1.DBGrid1.Visible:=false;
     end
    else
     begin
       edit1.Tag:=edit1.Tag+1;
      if edit1.Tag>3 then
        begin
          showmessage('对不起，您无权使用该程序！');
          Application.Terminate;
        end
      else
       begin
        showmessage('对不起，您的用户或密码有误，请重新输入！');
        edit1.Text:='';
        edit2.Text:='';
       end;
     end;
   end;
   end;
  end;
    if radiogroup1.ItemIndex=2 then
   begin
     begin
        with MyDataModule.ADOQueryC do
          begin
            close;
            sql.Clear;
            sql.Add('select * from code where sno=:sno and pass=:pass');
            MyDataModule.ADOQueryC.Parameters.ParamByName('sno').Value:=edit1.Text;
            MyDataModule.ADOQueryC.Parameters.ParamByName('pass').Value:=edit2.Text;
            execsql;
            open;
            if recordcount>0 then
              begin
                 xuanke1.Show;
                 xuanke1.PageControl1.ActivePageIndex:=0;
                  main1.Hide;
              end
            else
            begin
               edit1.Tag:=edit1.Tag+1;
               if edit1.Tag>3 then
               begin
                  showmessage('对不起，您无权使用该程序！');
                  Application.Terminate;
               end
               else
               begin
                 showmessage('对不起，您的用户或密码有误，请重新输入！');
                 edit1.Text:='';
                 edit2.Text:='';
               end;
            end;
          end;
     end;
   end;



   end;








end.