unit5.~pas

sql server 2000 数据库与应用

unit Unit5;

interface

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

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

var
  Form5: TForm5;
  procedure ComboboxList1;
  procedure ComboboxList2;
  procedure initialize;

implementation

{$R *.dfm}
procedure ComboboxList1;
begin
   form5.adoquery1.Close;
   form5.adoquery1.SQL.Clear;
   form5.adoquery1.SQL.Add('select distinct 系部编号,系部名称 from 系部班级');
   form5.adoquery1.Open;
   form5.ComboBox1.Items.Clear;
   form5.adoquery1.First;
   while not form5.adoquery1.Eof do
   begin
     //将系部编号和系部名称添加到组合框中
    form5.ComboBox1.Items.Add(form5.adoquery1.Fieldbyname('系部编号').value
     +'/'+form5.adoquery1.Fieldbyname('系部名称').value);
    form5.adoquery1.Next;
  end;
end;
procedure ComboboxList2;
var
  s1,xbbh: string;
  i: integer;
begin
  s1:=form5.ComboBox1.Text;
  i:=pos('/',s1);
  if i>0 then
    xbbh:=copy(s1,1,i-1)
  else
   xbbh:='';
   form5.ComboBox2.Text:='';
   form5.adoquery2.Close;
   form5.adoquery2.SQL.Clear;
   form5.adoquery2.SQL.Add('select 班级编号,班级名称 from 班级表 where 系部编号=:系部编号');
   form5.adoquery2.Parameters.ParamByName('系部编号').Value:=xbbh;
   form5.adoquery2.Open;
   form5.ComboBox2.Items.Clear;
   form5.adoquery2.First;
   while not form5.adoquery2.Eof do
   begin
    //将班级编号和班级名称添加到组合框中
    form5.ComboBox2.Items.Add(form5.adoquery2.Fieldbyname('班级编号').value
     +'/'+form5.adoquery2.Fieldbyname('班级名称').value);
    form5.adoquery2.Next;
  end;
end;

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

procedure TForm5.Button1Click(Sender: TObject);
begin
  form5.Close ;
end;

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

procedure TForm5.FormActivate(Sender: TObject);
begin
  comboboxlist1;
  initialize;
  dbgrid1.DataSource.AutoEdit:=false;
end;

procedure TForm5.ComboBox1Change(Sender: TObject);
begin
  comboboxlist2;
end;

procedure TForm5.ComboBox2Change(Sender: TObject);
var
  s1,bjbh: string;
  i: integer;
begin
  s1:=combobox2.Text;
  i:=pos('/',s1);
  if i>0 then
    bjbh:=copy(s1,1,i-1)
  else
    bjbh:='';
   form5.adoquery3.Close;
   form5.adoquery3.SQL.Clear;
   form5.adoquery3.SQL.Add('select * from 学生基本信息表 where 班级编号=:班级编号');
   form5.adoquery3.Parameters.ParamByName('班级编号').Value:=bjbh;
   form5.adoquery3.Open;

end;

procedure TForm5.Button3Click(Sender: TObject);
var
  s1,bjbh: string;
  i: integer;
begin
  s1:=combobox2.Text;
  i:=pos('/',s1);
  if i>0 then
    bjbh:=copy(s1,1,i-1)
  else
    bjbh:='';     //取班级编号
  if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(combobox1.Text='')
      or(combobox2.Text='')or(combobox3.Text='') then
    begin
      application.MessageBox('信息不完整！','提示',mb_ok);
      //规定系部名称、班级名称、学号、姓名、性别、民族为必须输入项
      exit;
    end
  else
    begin
      adoquery1.close;
      adoquery1.sql.clear;
      try
        s1:='insert into 学生基本信息表 (学号,姓名,性别,族别,出生日期,';
        s1:=s1+'政治面貌,家庭住址,联系电话,邮政编码,班级编号)';
        s1:=s1+' values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10)';
        Adoquery1.SQL.Add(s1);
        Adoquery1.parameters.parambyname('1').value:=Edit1.Text;
        Adoquery1.parameters.parambyname('2').value:=Edit2.Text;
        Adoquery1.parameters.parambyname('3').value:=combobox3.Text;
        Adoquery1.parameters.parambyname('4').value:=Edit3.Text;
        Adoquery1.parameters.parambyname('5').value:=strtodatetime(Edit4.Text);
        Adoquery1.parameters.parambyname('6').value:=Edit5.Text;
        Adoquery1.parameters.parambyname('7').value:=Edit7.Text;
        Adoquery1.parameters.parambyname('8').value:=Edit8.Text;
        Adoquery1.parameters.parambyname('9').value:=Edit6.Text;
        Adoquery1.parameters.parambyname('10').value:=bjbh;
        Adoquery1.execsql;
        form5.ADOQuery3.Requery();
        Application.MessageBox('数据增加成功！','提示',mb_ok);
      except
        on E: Exception do
          messagedlg(E.Message,mterror,[mbok],0);
      end;
    end;

end;

end.