www.pudn.com > dongdongyanmingtongji.rar > Un_Post.pas

unit Un_Post; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons, ComCtrls, DB, ADODB; 
 
type 
  TFrmPst = class(TForm) 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Nam: TEdit; 
    Smke: TCheckBox; 
    sexMan: TRadioButton; 
    sexWoman: TRadioButton; 
    BtnPst: TBitBtn; 
    BtnAbort: TBitBtn; 
    lb: TLabel; 
    Agent: TEdit; 
    ADOQuery1: TADOQuery; 
    Mem: TEdit; 
    procedure BtnAbortClick(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure NamKeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
    procedure AgentKeyPress(Sender: TObject; var Key: Char); 
    procedure BtnPstClick(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  FrmPst: TFrmPst; 
 
implementation 
 
uses Un_Main; 
 
{$R *.dfm} 
 
procedure TFrmPst.BtnAbortClick(Sender: TObject); 
begin 
  close; 
end; 
 
procedure TFrmPst.FormShow(Sender: TObject); 
begin 
  Nam.Clear; 
  sexMan.Checked:=true; 
  sexWoman.Checked:=false; 
  Agent.Text:=''; 
  Smke.Checked:=true; 
  Mem.Clear; 
  Nam.SetFocus; 
end; 
 
procedure TFrmPst.NamKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if ord(key)=13 then 
  begin 
   if sender=Nam then sexMan.SetFocus; 
   if sender=sexMan then sexWoman.SetFocus; 
   if sender=sexWoman then Agent.SetFocus; 
   if sender=Agent then Smke.SetFocus; 
   if sender=Smke then Mem.SetFocus; 
   if sender=Mem then BtnPst.Click; 
  end; 
end; 
 
procedure TFrmPst.AgentKeyPress(Sender: TObject; var Key: Char); 
begin 
  if not(key in['0'..'9',#8]) then key:=#0; 
end; 
 
procedure TFrmPst.BtnPstClick(Sender: TObject); 
var query:tadoquery; 
begin 
  if trim(Nam.Text)='' then 
  begin 
    application.MessageBox('请填写您的姓名!','温馨提示:'); 
    Nam.SetFocus; 
    exit; 
  end; 
    if trim(Agent.Text)='' then 
  begin 
    application.MessageBox('请填写您的年龄!','温馨提示:'); 
    Agent.SetFocus; 
    exit; 
  end; 
  try 
    query:=tadoquery.Create(self); 
    query.Connection:=FrmMain.AdoConn; 
    query.SQL.Clear; 
    query.SQL.Add('select top 1 * from Smoker'); 
    try 
      query.Close; 
      query.Open; 
      query.Append; 
      query.FieldByName('Name').AsString:=trim(Nam.Text); 
      if  sexMan.Checked then 
      begin 
        query.FieldByName('Sex').AsString:='男'; 
      end 
      else 
      begin 
        query.FieldByName('Sex').AsString:='女'; 
      end; 
      query.FieldByName('Age').AsInteger:=strtoint(trim(Agent.Text)); 
      if  Smke.Checked then query.FieldByName('Smoke').AsString:='吸' 
      else 
        query.FieldByName('Smoke').AsString:='否'; 
        query.FieldByName('Date').AsString:=formatdatetime('yyyy-mm-dd hh:mm:ss',date()); 
        query.FieldByName('Cmemo').AsString:=trim(Mem.Text); 
      query.Post; 
    except 
    end; 
 
  finally 
    query.Free; 
  end; 
  application.MessageBox('恭喜,您已投票!','温馨提示:'); 
  close; 
end; 
 
end.