rewardunit.pas

这是我做的一个课程设计

unit rewardUnit;

interface

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

type
  TrewardForm = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    DateTimePicker1: TDateTimePicker;
    GroupBox3: TGroupBox;
    Memo1: TMemo;
    Label9: TLabel;
    Edit8: TEdit;
    RadioGroup2: TRadioGroup;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rewardForm: TrewardForm;

implementation

uses MainUnit, dm;

{$R *.dfm}

procedure TrewardForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  mainform.tb_reward.Down:=false;
end;

procedure TrewardForm.Button1Click(Sender: TObject);
var
str:string;
begin
  if Edit1.Text=''  then
   begin
   DBGrid1.Visible:=false;
   Application.MessageBox('学号不能为空!','提示',64)
   end
   else
   begin
  str:='insert into reward(记录号,学号,奖励类型,记录日期,奖励具体说明) values(:a,:b,:c,:d,:e)';
  dmform.ADOQuery_reward.Close;
  dmform.ADOQuery_reward.SQL.Clear;
  dmform.ADOQuery_reward.SQL.Add(str);
  dmform.ADOQuery_reward.Parameters[0].Value:=Trim(Edit8.Text); // 记录号
  dmform.ADOQuery_reward.Parameters[1].Value:=Trim(Edit1.Text);//学号
  dmform.ADOQuery_reward.Parameters[3].Value:=DateTimePicker1.DateTime;//记录日期
  dmform.ADOQuery_reward.Parameters[4].Value:=Memo1.Lines.Text; //说明
  case RadioGroup2.ItemIndex of
    0:dmform.ADOQuery_reward.Parameters[2].Value:=RadioGroup2.Items.Strings[0];
//奖励变更类型
    1:dmform.ADOQuery_reward.Parameters[2].Value:=RadioGroup2.Items.Strings[1];
    2:dmform.ADOQuery_reward.Parameters[2].Value:=RadioGroup2.Items.Strings[2];
    3:dmform.ADOQuery_reward.Parameters[2].Value:=RadioGroup2.Items.Strings[3];
    4:dmform.ADOQuery_reward.Parameters[2].Value:=RadioGroup2.Items.Strings[4];
    5:dmform.ADOQuery_reward.Parameters[2].Value:=RadioGroup2.Items.Strings[5];
    6:dmform.ADOQuery_reward.Parameters[2].Value:=RadioGroup2.Items.Strings[6];
  else ;
  end;
   dmform.ADOQuery_reward.ExecSQL;
   Application.MessageBox('保存成功!','提示',64)
  end;
   //dmform.ADOQuery_punish.ExecSQL;
  dmform.ADOQuery_reward.Close;
  dmform.ADOQuery_reward.SQL.Clear;
  dmform.ADOQuery_reward.SQL.Add('select * from reward');
  dmform.ADOQuery_reward.Open;

end;

procedure TrewardForm.Button2Click(Sender: TObject);
begin
  close;
end;

end.