student.pas

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

unit student;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, DBCtrls, Grids, DBGrids, DB, DBTables,
  Mask,ExtCtrls,ShellAPI,JPEG, ADODB, ImgList;

type
  Tstudent1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    Edit1: TEdit;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    DBEdit1: TDBEdit;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    ComboBox1: TComboBox;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button11: TButton;
    DBGrid: TDBGrid;
    ImageList1: TImageList;
    Label13: TLabel;
    Label14: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
   procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure filldata;
    procedure DisplayAllRecorders;
    procedure search;
  end;

var
  student1: Tstudent1;

implementation
uses moudle; //数据模块

{$R *.dfm}
procedure Tstudent1.filldata;
var
  iCount:integer;
begin
  if MyDataModule.ADOQuerySTU.Active=false then
    MyDataModule.ADOQuerySTU.Active:=true;
  ComboBox1.Items.Clear;
  for iCount:=0 to MyDataModule.ADOQuerySTU.Fields.Count-1 do
    begin
      ComboBox1.Items.Add(MyDataModule.ADOQuerySTU.Fields[iCount].FieldName);
    end;
  ComboBox1.ItemIndex:=0;
end;

procedure Tstudent1.DisplayAllRecorders;
begin
  with MyDataModule.ADOQuerySTU do
    begin
      close;
      SQL.Clear;
      SQL.Add('select * from student order by sno');
      open;
    end;
end;

procedure Tstudent1.search;
var
SearchField :string;
SearchValue :string;
begin
  SearchField:=ComboBox1.Text;
  SearchValue:='%'+Edit1.Text+'%';
  with MyDataModule.ADOQuerySTU do
  begin
    close;
    SQL.Clear;
    SQL.Add('select * from student where '+SearchField+' like ''%'+searchvalue + '%''');
    Open;
  end;
end;

procedure Tstudent1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure Tstudent1.Button1Click(Sender: TObject);
begin
  search;
  Label2.Caption:=IntToStr(MyDataModule.ADOQuerySTU.RecordCount);
end;

procedure Tstudent1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Button1.Click;
end;

procedure Tstudent1.DBGrid1DblClick(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=1;
end;

procedure Tstudent1.N2Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=0;
end;

procedure Tstudent1.N4Click(Sender: TObject);
begin
   Application.Terminate;
end;

procedure Tstudent1.N11Click(Sender: TObject);
begin
   OpenDialog1.Filter:='数据库备份文件(*.xml)|*.xml';
  if OpenDialog1.Execute then
    MyDataModule.ADOQuerySTU.LoadFromFile(OpenDialog1.FileName);
end;

procedure Tstudent1.N12Click(Sender: TObject);
begin
   SaveDialog1.Filter:='数据库备份文件(*.xml)/*.xml';
  if SaveDialog1.Execute then
    MyDataModule.ADOQuerySTU.SaveToFile(SaveDialog1.FileName,pfXML);
end;

procedure Tstudent1.Button3Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySTU.First;
end;

procedure Tstudent1.Button4Click(Sender: TObject);
begin
    MyDataModule.ADOQuerySTU.Prior;
end;

procedure Tstudent1.Button5Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySTU.Next;
end;

procedure Tstudent1.Button6Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySTU.Last;
end;

procedure Tstudent1.Button7Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySTU.Append;
end;

procedure Tstudent1.Button8Click(Sender: TObject);
begin
if MessageDlg('你确信要删除记录？',mtwarning,[mbok,mbcancel],0)=mrok then
 begin
  with mydatamodule.ADOQueryg do
   begin
     close;
     sql.Clear;
     sql.Add('delete from xuanti where xuanti.sno like  "%'+dbedit1.Text+'%"');
     ExecSQL;
   end;
  MyDataModule.ADOQuerySTU.Delete;
 end;
end;

procedure Tstudent1.Button9Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySTU.Edit;
end;

procedure Tstudent1.Button11Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySTU.Post;
end;

procedure Tstudent1.Button10Click(Sender: TObject);
begin
  DisplayAllRecorders;
end;

procedure Tstudent1.N6Click(Sender: TObject);
begin
   MyDataModule.ADOQuerySTU.Append;
end;

procedure Tstudent1.N7Click(Sender: TObject);
begin
     if MessageDlg('你确信要删除记录？',mtwarning,[mbok,mbcancel],0)=mrok
  then
    MyDataModule.ADOQuerySTU.Delete;
end;

procedure Tstudent1.N8Click(Sender: TObject);
begin
   MyDataModule.ADOQuerySTU.Edit;
end;

procedure Tstudent1.N9Click(Sender: TObject);
begin
   DisplayAllRecorders;
end;

procedure Tstudent1.N3Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=1;
end;

procedure Tstudent1.FormCreate(Sender: TObject);
begin
   filldata;
   label14.Caption:=inttostr(MyDataModule.ADOQuerySTU.RecordCount);
end;

end.