unit8.~pas

DELPHI7.0+SQL2005环境下开发 2008年8月假期所写

unit Unit8;
//优秀宿舍
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tfrm_yxss = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_yxss: Tfrm_yxss;

implementation

uses Unit13;

{$R *.dfm}
//--------------------评分添加------------------//
procedure Tfrm_yxss.FormCreate(Sender: TObject);
begin
  with data1.ADO_public do
    begin
      close;
      sql.Clear;
      sql.Add('select 宿舍号 from 宿舍信息');
      open;
    end;
  while Not Data1.ADO_public.Eof do
   begin
     ComboBox1.Items.Add(Data1.ADO_public.FieldByName('宿舍号').Value);
     Data1.ADO_public.Next;
   end;
end;
//------------------------评分添加---------------------//
procedure Tfrm_yxss.Button1Click(Sender: TObject);
begin
if combobox1.Text ='' then
begin
  MessageBox(handle,'宿舍号不能为空!','警告',MB_OK+MB_ICONWARNING);
  combobox1.SetFocus ;
  exit;
end;
if edit1.Text = '' then
begin
  MessageBox(handle,'评分不能为空!','警告',MB_OK+MB_ICONWARNING);
  edit1.SetFocus ;
  exit;
end;
try
  with data1.ADO_mrqk do
    begin
      close;
      sql.Clear;
      sql.Add('insert 宿舍评分 values (:a,:b,:c,:d)');
      parameters.ParamByName('a').Value:=trim(combobox1.Text);
      parameters.ParamByName('b').Value:=trim(edit1.Text);
      parameters.ParamByName('c').Value:=trim(edit2.Text);
      parameters.ParamByName('d').Value:=trim(edit3.Text);
      execsql;
    end;
    application.MessageBox('添加成功','提示',64);
except
  application.MessageBox('失败','提示',64)
end;
end;
//-----------------取消----------------------//
procedure Tfrm_yxss.Button2Click(Sender: TObject);
begin
close;
end;

end.