xuanti.pas

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

unit xuanti;

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
  Txuanti1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBGrid2: TDBGrid;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DisplayAllRecorders;
  end;

var
  xuanti1: Txuanti1;

implementation
uses moudle,main;
{$R *.dfm}

procedure Txuanti1.Button6Click(Sender: TObject);
begin
   MyDataModule.ADOQueryT.Edit;
end;

procedure Txuanti1.DisplayAllRecorders;
begin
  with MyDataModule.ADOQueryT do
    begin
      close;
      sql.Clear;
      sql.Add('select* from teacher');
      open;
    end;
end;

procedure Txuanti1.Button7Click(Sender: TObject);
begin
   MyDataModule.ADOQueryT.Append;
end;

procedure Txuanti1.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  "%'+dbedit9.Text+'%"');
     ExecSQL;
   end;
  MyDataModule.ADOQueryT.Delete;
 end;
end;

procedure Txuanti1.Button9Click(Sender: TObject);
begin
  DisplayAllRecorders;
end;

procedure Txuanti1.Button10Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure Txuanti1.Button1Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySUB.Append;
end;

procedure Txuanti1.Button2Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySUB.Edit;
end;

procedure Txuanti1.Button3Click(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.ADOQueryT.Delete;
 end;
end;

procedure Txuanti1.Button5Click(Sender: TObject);
begin
  DisplayAllRecorders;
end;

procedure Txuanti1.Button4Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure Txuanti1.N2Click(Sender: TObject);
begin
  MyDataModule.ADOQueryT.Edit;
end;

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

procedure Txuanti1.N6Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySUB.Append;
end;

procedure Txuanti1.N7Click(Sender: TObject);
begin
  MyDataModule.ADOQuerySUB.Edit;
end;

procedure Txuanti1.N8Click(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.ADOQueryT.Delete;
 end;
end;

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

end.