frmqau.pas

图书借阅管理系统含源代码

unit frmQAU;

interface

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

type
  TfrmQA = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edQ: TEdit;
    edA: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQA: TfrmQA;

implementation

uses DMU;

{$R *.dfm}

procedure TfrmQA.Button1Click(Sender: TObject);
begin
  if (edQ.Text='')or(edA.Text='') then
  begin
    MessageBox(0,'问题和答案均不能为空，请重新输入。','提示',MB_OK+MB_TASKMODAL+MB_ICONEXCLAMATION);
    exit;
  end;
  if MessageBox(0,Pchar('问题和答案均一经输入就再不能更改，请牢记你所输入的问题和答案。'+chr(13)+'你确定就这问题和答案吗？'),'提示',MB_OKCancel+MB_TASKMODAL+MB_ICONEXCLAMATION)=IDCancel then
    exit;
  Dm.adoTemp.Close;
  Dm.adoTemp.SQL.Clear;
  Dm.adoTemp.SQL.Text:='Select * from QA';
  Dm.adoTemp.Open;
  Dm.adoTemp.Append;
  Dm.adoTemp.FieldByName('Problem').AsString:=edQ.Text;
  Dm.adoTemp.FieldByName('Answer').AsString:=Dm.MD5(edA.Text);
  DM.adoTemp.Post;
  Dm.adoTemp.Close;
  close;
end;

end.