📄 dele.pas

📁 教学管理软件北农业大学教学管理系统. 运行环境, ASP+ACCESS, 新云网站管理系统
💻 PAS
字号:
unit dele;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Buttons, Grids, DBGrids, ComCtrls, ExtCtrls;

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    Bevel1: TBevel;
    Label1: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    ComboBox3: TComboBox;
    Label4: TLabel;
    ComboBox4: TComboBox;
    Label5: TLabel;
    ComboBox5: TComboBox;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Bevel2: TBevel;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
    s: ansistring;
implementation

uses Unit1,dfdd;

{$R *.dfm}

procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 form1.show;
  dele.Form3.Hide;
end;

procedure TForm3.TabSheet1Show(Sender: TObject);
begin
  begin
    try
      dfdd.DataModule1.addADOQuery1.ExecSQL;//指出出错的行

      dfdd.DataModule1.addADOQuery1.close;//显示数据
      dfdd.DataModule1.addADOQuery1.SQL.Clear;
      dfdd.DataModule1.addADOQuery1.SQL.Add('select * from student');
      dfdd.DataModule1.addADOQuery1.Open;

      dele.Form3.ComboBox1.Clear; //清空选项框内容
      dfdd.DataModule1.addADOQuery2.close;
      DataModule1.addADOQuery2.SQL.Clear;
      DataModule1.addADOQuery2.SQL.Add('select * from student');
      DataModule1.addADOQuery2.Open;
      while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox1.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
except
    showmessage('向数据库添加信息错误！');
   end;
end;
end;


procedure TForm3.TabSheet2Show(Sender: TObject);
begin
  begin
    try
      dfdd.DataModule1.addADOQuery1.ExecSQL;//指出出错的行

      dfdd.DataModule1.addADOQuery1.close;//显示数据
      dfdd.DataModule1.addADOQuery1.SQL.Clear;
      dfdd.DataModule1.addADOQuery1.SQL.Add('select * from teachers');
      dfdd.DataModule1.addADOQuery1.Open;

      dele.Form3.ComboBox2.Clear; //清空选项框内容
      dfdd.DataModule1.addADOQuery2.close;
      DataModule1.addADOQuery2.SQL.Clear;
      DataModule1.addADOQuery2.SQL.Add('select * from teachers');
      DataModule1.addADOQuery2.Open;
      while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox2.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
  except
    showmessage('向数据库添加信息错误！');
   end;
end;
end;

procedure TForm3.TabSheet3Show(Sender: TObject);
begin
  begin
    try
      dfdd.DataModule1.addADOQuery1.ExecSQL;//指出出错的行

      dfdd.DataModule1.addADOQuery1.close;//显示数据
      dfdd.DataModule1.addADOQuery1.SQL.Clear;
      dfdd.DataModule1.addADOQuery1.SQL.Add('select * from subjects');
      dfdd.DataModule1.addADOQuery1.Open;

      dele.Form3.ComboBox3.Clear; //清空选项框内容
      dfdd.DataModule1.addADOQuery2.close;
      DataModule1.addADOQuery2.SQL.Clear;
      DataModule1.addADOQuery2.SQL.Add('select * from subjects');
      DataModule1.addADOQuery2.Open;
      while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox3.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
  except
    showmessage('向数据库添加信息错误！');
   end;
end;
end;

procedure TForm3.TabSheet4Show(Sender: TObject);
begin
  begin
    try
      dfdd.DataModule1.addADOQuery1.ExecSQL;//指出出错的行

      dfdd.DataModule1.addADOQuery1.close;//显示数据
      dfdd.DataModule1.addADOQuery1.SQL.Clear;
      dfdd.DataModule1.addADOQuery1.SQL.Add('select * from ts');
      dfdd.DataModule1.addADOQuery1.Open;

      dele.Form3.ComboBox4.Clear; //清空选项框内容
      dfdd.DataModule1.addADOQuery2.close;
      DataModule1.addADOQuery2.SQL.Clear;
      DataModule1.addADOQuery2.SQL.Add('select * from ts');
      DataModule1.addADOQuery2.Open;
      while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox4.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
except
    showmessage('向数据库添加信息错误！');
   end;
end;
end;

procedure TForm3.TabSheet5Show(Sender: TObject);
begin
  begin
    try
      dfdd.DataModule1.addADOQuery1.ExecSQL;//指出出错的行

      dfdd.DataModule1.addADOQuery1.close;//显示数据
      dfdd.DataModule1.addADOQuery1.SQL.Clear;
      dfdd.DataModule1.addADOQuery1.SQL.Add('select * from ss');
      dfdd.DataModule1.addADOQuery1.Open;

      dele.Form3.ComboBox5.Clear; //清空选项框内容
      dfdd.DataModule1.addADOQuery2.close;
      DataModule1.addADOQuery2.SQL.Clear;
      DataModule1.addADOQuery2.SQL.Add('select * from ss');
      DataModule1.addADOQuery2.Open;
      while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox5.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
except
    showmessage('向数据库添加信息错误！');
   end;
end;
end;
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
begin
  try
    dfdd.DataModule1.addADOQuery2.Close;//删除
    dfdd.DataModule1.addADOQuery2.SQL.Clear;
    dfdd.DataModule1.addADOQuery2.SQL.Add('delete from student where sno='+''''+trim(combobox1.Text)+'''');
    dfdd.DataModule1.addADOQuery2.ExecSQL;
    dfdd.DataModule1.addADOQuery2.close;

    dfdd.DataModule1.addADOQuery1.close;//显示数据
    dfdd.DataModule1.addADOQuery1.SQL.Clear;
    dfdd.DataModule1.addADOQuery1.SQL.Add('select * from student');
    dfdd.DataModule1.addADOQuery1.open;

    dele.Form3.ComboBox1.Clear; //清空选项框内容
    dfdd.DataModule1.addADOQuery2.close;
    DataModule1.addADOQuery2.SQL.Clear;
    DataModule1.addADOQuery2.SQL.Add('select * from student');
    DataModule1.addADOQuery2.Open;
    while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox1.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
  except
    showmessage('向数据库修改信息错误！');
  end;
end;

end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
form1.show;
dele.Form3.Hide;
end;

procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
begin
  try
    dfdd.DataModule1.addADOQuery2.Close;//删除
    dfdd.DataModule1.addADOQuery2.SQL.Clear;
    dfdd.DataModule1.addADOQuery2.SQL.Add('delete from teachers where workid='+''''+trim(combobox2.Text)+'''');
    dfdd.DataModule1.addADOQuery2.ExecSQL;
    dfdd.DataModule1.addADOQuery2.close;

    dfdd.DataModule1.addADOQuery1.close;//显示数据
    dfdd.DataModule1.addADOQuery1.SQL.Clear;
    dfdd.DataModule1.addADOQuery1.SQL.Add('select * from teachers');
    dfdd.DataModule1.addADOQuery1.open;

    dele.Form3.ComboBox2.Clear; //清空选项框内容
    dfdd.DataModule1.addADOQuery2.close;
    DataModule1.addADOQuery2.SQL.Clear;
    DataModule1.addADOQuery2.SQL.Add('select * from teachers');
    DataModule1.addADOQuery2.Open;
    while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox2.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
  except
    showmessage('向数据库修改信息错误！');
  end;
end;
end;

procedure TForm3.SpeedButton6Click(Sender: TObject);
begin
begin
  try
    dfdd.DataModule1.addADOQuery2.Close;//删除
    dfdd.DataModule1.addADOQuery2.SQL.Clear;
    dfdd.DataModule1.addADOQuery2.SQL.Add('delete from subjects where cno='+trim(combobox3.Text));
    dfdd.DataModule1.addADOQuery2.ExecSQL;
    dfdd.DataModule1.addADOQuery2.close;

    dfdd.DataModule1.addADOQuery1.close;//显示数据
    dfdd.DataModule1.addADOQuery1.SQL.Clear;
    dfdd.DataModule1.addADOQuery1.SQL.Add('select * from subjects');
    dfdd.DataModule1.addADOQuery1.open;

    dele.Form3.ComboBox3.Clear; //清空选项框内容
    dfdd.DataModule1.addADOQuery2.close;
    DataModule1.addADOQuery2.SQL.Clear;
    DataModule1.addADOQuery2.SQL.Add('select * from subjects');
    DataModule1.addADOQuery2.Open;
    while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox3.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
  except
    showmessage('向数据库修改信息错误！');
  end;
end;
end;

procedure TForm3.SpeedButton5Click(Sender: TObject);
begin
begin
  try
    dfdd.DataModule1.addADOQuery2.Close;//删除
    dfdd.DataModule1.addADOQuery2.SQL.Clear;
    dfdd.DataModule1.addADOQuery2.SQL.Add('delete from ts where workid='+''''+trim(combobox4.Text)+''''); //''''代表单引号
    dfdd.DataModule1.addADOQuery2.ExecSQL;
    dfdd.DataModule1.addADOQuery2.close;

    dfdd.DataModule1.addADOQuery1.close;//显示数据
    dfdd.DataModule1.addADOQuery1.SQL.Clear;
    dfdd.DataModule1.addADOQuery1.SQL.Add('select * from ts');
    dfdd.DataModule1.addADOQuery1.open;

    dele.Form3.ComboBox4.Clear; //清空选项框内容
    dfdd.DataModule1.addADOQuery2.close;
    DataModule1.addADOQuery2.SQL.Clear;
    DataModule1.addADOQuery2.SQL.Add('select * from ts');
    DataModule1.addADOQuery2.Open;
    while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox4.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
  except
    showmessage('向数据库修改信息错误！');
  end;
end;
end;

procedure TForm3.SpeedButton4Click(Sender: TObject);
begin
begin
  try
    dfdd.DataModule1.addADOQuery2.Close;//删除
    dfdd.DataModule1.addADOQuery2.SQL.Clear;
    dfdd.DataModule1.addADOQuery2.SQL.Add('delete from ss where sno='+''''+trim(combobox5.Text)+'''');
    dfdd.DataModule1.addADOQuery2.ExecSQL;
    dfdd.DataModule1.addADOQuery2.close;

    dfdd.DataModule1.addADOQuery1.close;//显示数据
    dfdd.DataModule1.addADOQuery1.SQL.Clear;
    dfdd.DataModule1.addADOQuery1.SQL.Add('select * from ss');
    dfdd.DataModule1.addADOQuery1.open;

    dele.Form3.ComboBox5.Clear; //清空选项框内容
    dfdd.DataModule1.addADOQuery2.close;
    DataModule1.addADOQuery2.SQL.Clear;
    DataModule1.addADOQuery2.SQL.Add('select * from ss');
    DataModule1.addADOQuery2.Open;
    while not DataModule1.addADOQuery2.Eof do
        begin
          s:=DataModule1.addADOQuery2.Fields[0].Value;
          form3.ComboBox5.Items.Add(s);
          DataModule1.addADOQuery2.Next;
        end;
  except
    showmessage('向数据库修改信息错误！');
  end;
end;
end;

end.
💿 文件大小 522 K
👤 上传用户 foresnake
📂 所属分类数据库系统
🏷️ 相关标签

#ACCESS #ASP #管理系统 #管理软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -