unit6.pas

sql server 2000 数据库与应用

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids, Mask,unit1;

type
  TForm6 = class(TForm)
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Edit4: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    Edit7: TEdit;
    Edit8: TEdit;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  procedure initialize;
implementation

{$R *.dfm}

procedure initialize;
begin
  form6.edit1.Text:='';
  form6.edit2.Text:='';
  form6.edit3.Text:='';
  form6.edit4.Text:='';
  form6.edit5.Text:='';
  form6.edit6.Text:='';
  form6.edit7.Text:='';
  form6.edit8.Text:='';
end;

procedure TForm6.Button3Click(Sender: TObject);
begin
  form6.Close ;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
  initialize;
end;

procedure TForm6.FormActivate(Sender: TObject);
begin
  initialize;
  dbgrid1.DataSource.AutoEdit:=false;
  form6.adoquery2.Close;
  form6.adoquery2.SQL.Clear;
  form6.adoquery2.SQL.Add('select * from 课程信息表');
  form6.adoquery2.Open;

end;

procedure TForm6.Button1Click(Sender: TObject);
var
  s1:string;
begin
  if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')
      or(edit4.Text='')or(edit5.Text='') then
    begin
      application.MessageBox('信息不完整！'+chr(13)+chr(10)
        +'课程编号、课程名称、学分、学时、考核类型为必须输入项！','提示',mb_ok);
      //规定课程编号、课程名称、学分、学时、考核类型为必须输入项
      exit;
    end
  else
    begin
      adoquery1.close;
      adoquery1.sql.clear;
      try
        s1:='insert into 课程信息表 (课程编号,课程名称,学分,学时,考核类型,';
        s1:=s1+'任课教师,系部编号,上课时间)';
        s1:=s1+' values ('+quotedstr(trim(edit1.Text))+','+quotedstr(trim(edit4.Text))
        +','+trim(edit5.Text)+','+trim(edit6.Text)+','+quotedstr(trim(edit7.Text))
        +','+quotedstr(trim(edit3.Text))+','+quotedstr(trim(edit2.Text))
        +','+quotedstr(trim(edit8.Text))+')';
        Adoquery1.SQL.Add(s1);
        { 以下10条语句的功能与上面2条语句的功能相同，可任选其一，都是实现动态SQL语句
        s1:=s1+' values (:1,:2,:3,:4,:5,:6,:7,:8)';
        Adoquery1.SQL.Add(s1);
        Adoquery1.parameters.parambyname('1').value:=Edit1.Text;
        Adoquery1.parameters.parambyname('2').value:=Edit4.Text;
        Adoquery1.parameters.parambyname('3').value:=strtofloat(trim(Edit5.Text));
        Adoquery1.parameters.parambyname('4').value:=strtofloat(trim(Edit6.Text));
        Adoquery1.parameters.parambyname('5').value:=Edit7.Text;
        Adoquery1.parameters.parambyname('6').value:=edit3.Text;
        Adoquery1.parameters.parambyname('7').value:=Edit2.Text;
        Adoquery1.parameters.parambyname('8').value:=Edit8.Text;
        }
        Adoquery1.execsql;
        form6.ADOQuery2.Requery();
        Application.MessageBox('数据增加成功！','提示',mb_ok);
      except
        on E: Exception do
          messagedlg(E.Message,mterror,[mbok],0);
      end;
    end;

end;

end.