unit9.pas

上次我同样上传了个score-manager

unit Unit9;

interface

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

type
  TlessionForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel1: TPanel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    SpeedButton6: TSpeedButton;
    Label6: TLabel;
    Edit6: TEdit;
    SpeedButton7: TSpeedButton;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lessionForm: TlessionForm;

implementation

{$R *.dfm}

procedure TlessionForm.SpeedButton5Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 课程信息');
query1.Close;
query1.Open;
end;

procedure TlessionForm.SpeedButton6Click(Sender: TObject);
begin
query1.sql.Clear;
query1.SQL.Add('select * from 课程信息');
query1.SQL.Add('where 课程号>='''+edit3.Text+'''');
query1.SQL.Add('and 课程号<='''+edit4.Text+'''');
query1.Close;
query1.Open;
end;

procedure TlessionForm.SpeedButton7Click(Sender: TObject);
begin
query1.sql.Clear;
query1.SQL.Add('select * from 课程信息');
query1.SQL.Add('where 课程名='''+edit5.Text+'''');
query1.SQL.Add('and 课程名<='''+edit6.Text+'''');
query1.Close;
query1.Open;
end;

procedure TlessionForm.SpeedButton1Click(Sender: TObject);
begin
table1.Edit;
if (edit1.text='')and(edit2.Text ='')then
 begin
  showmessage('课程号,课程名不能为空!');
 end
else
 with table1 do
 begin
 if locate('课程号;课程名',vararrayof([edit1.Text,edit2.text]),[]) then
   begin
    showmessage('已存在这条记录!');
   end
 else
    insertrecord([edit1.Text,edit2.Text,nil]);
    showmessage('成功添加!');
    edit1.Text:='';
    edit2.Text:='';
 end; 
end;

procedure TlessionForm.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure TlessionForm.SpeedButton2Click(Sender: TObject);
begin
if edit1.Text ='' then
 begin
  showmessage('请输入要删除的号.');
  exit;
 end
else
with table1 do
 if not locate('课程号',vararrayof([edit1.text]),[])then
   begin
    showmessage('课程号不存在!');
    exit;
   end
 else
query1.SQL.Clear;
query1.SQL.Add('delete from 课程信息');
query1.SQL.Add('where 课程号='''+edit1.Text+'''');
query1.Close;
query1.ExecSQL;
showmessage('已删除!');
end;

procedure TlessionForm.SpeedButton3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;

procedure TlessionForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

end.