bysj.~pas

数据库操作

unit bysj;

interface

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

type
  TfrmQualityAppraise = class(TForm)
    Conn: TADOConnection;
    Query: TADOQuery;
    DataSource: TDataSource;
    dbgridMenu: TDBGrid;
    panelMenu: TPanel;
    radiovote: TRadioGroup;
    btnShowAllResult: TButton;
    btnVote: TButton;
    btnShowMaxResult: TButton;
    btnExit: TButton;
    comboAssess: TComboBox;
    lblAssess: TLabel;
    procedure btnShowAllResultClick(Sender: TObject);
    procedure btnVoteClick(Sender: TObject);
    procedure btnShowMaxResultClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQualityAppraise: TfrmQualityAppraise;

implementation

{$R *.DFM}

procedure TfrmQualityAppraise.btnShowAllResultClick(Sender: TObject);
begin
   Query.Close;
   Query.SQL.Text := 'select * from QUALITYAPPRAISE';
   Query.Open;
end;

procedure TfrmQualityAppraise.btnVoteClick(Sender: TObject);
begin
  if (radiovote.ItemIndex <> -1) and (comboAssess.ItemIndex <> -1) then
  begin
    Query.Close;
    case radiovote.ItemIndex of
      0: case comboAssess.ItemIndex of
          0: Query.SQL.Text := 'update QUALITYAPPRAISE set EXCELLENCECOUNT = EXCELLENCECOUNT + 1'
                             + ' WHERE TEACHERNAME = ''付川''';
          1: Query.SQL.Text := 'update QUALITYAPPRAISE set ALLRIGHTCOUNT = ALLRIGHTCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''付川''';
          2: Query.SQL.Text := 'update QUALITYAPPRAISE set PASSCOUNT = PASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''付川''';
          3: Query.SQL.Text := 'update QUALITYAPPRAISE set NOTPASSCOUNT = NOTPASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''付川''';
          end;
      1: case comboAssess.ItemIndex of
          0: Query.SQL.Text := 'update QUALITYAPPRAISE set EXCELLENCECOUNT = EXCELLENCECOUNT + 1'
                             + ' WHERE TEACHERNAME = ''陈礼民''';
          1: Query.SQL.Text := 'update QUALITYAPPRAISE set ALLRIGHTCOUNT = ALLRIGHTCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''陈礼民''';
          2: Query.SQL.Text := 'update QUALITYAPPRAISE set PASSCOUNT = PASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''陈礼民''';
          3: Query.SQL.Text := 'update QUALITYAPPRAISE set NOTPASSCOUNT = NOTPASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''陈礼民''';
           end;
       2: case comboAssess.ItemIndex of
          0: Query.SQL.Text := 'update QUALITYAPPRAISE set EXCELLENCECOUNT = EXCELLENCECOUNT + 1'
                             + ' WHERE TEACHERNAME = ''蒋魏魏''';
          1: Query.SQL.Text := 'update QUALITYAPPRAISE set ALLRIGHTCOUNT = ALLRIGHTCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''蒋魏魏''';
          2: Query.SQL.Text := 'update QUALITYAPPRAISE set PASSCOUNT = PASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''蒋魏魏''';
          3: Query.SQL.Text := 'update QUALITYAPPRAISE set NOTPASSCOUNT = NOTPASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''蒋魏魏''';
           end;
       3: case comboAssess.ItemIndex of
          0: Query.SQL.Text := 'update QUALITYAPPRAISE set EXCELLENCECOUNT = EXCELLENCECOUNT + 1'
                             + ' WHERE TEACHERNAME = ''彭春''';
          1: Query.SQL.Text := 'update QUALITYAPPRAISE set ALLRIGHTCOUNT = ALLRIGHTCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''彭春''';
          2: Query.SQL.Text := 'update QUALITYAPPRAISE set PASSCOUNT = PASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''彭春''';
          3: Query.SQL.Text := 'update QUALITYAPPRAISE set NOTPASSCOUNT = NOTPASSCOUNT + 1'
                             + ' WHERE TEACHERNAME = ''彭春''';

           end;                 
    end;
    Query.ExecSQL;
    ShowMessage('投票成功');
  end
  else
    ShowMessage('请确认选择了投票对象和评定等级');
end;

procedure TfrmQualityAppraise.btnShowMaxResultClick(Sender: TObject);
begin
   Query.Close;
   Query.SQL.Text := ' select TEACHERNAME,EXCELLENCECOUNT FROM QUALITYAPPRAISE WHERE '
                   + ' EXCELLENCECOUNT = (select max(EXCELLENCECOUNT) from QUALITYAPPRAISE)';
   Query.Open;
    if Query.RecordCount <> 1 then

   Query.Open;
end;

procedure TfrmQualityAppraise.btnExitClick(Sender: TObject);
begin
  close;
end;

end.