sedit.pas

一个动画抽奖程序

unit sEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, ExtCtrls, db,
  cxTextEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxLabel,
  cxEnterTab, ActnList, cxCheckBox;

type
  TfrmEdit = class(TForm)
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    txtName: TcxDBTextEdit;
    txtHP: TcxDBTextEdit;
    txtDW: TcxDBTextEdit;
    txtOP: TcxDBTextEdit;
    Panel1: TPanel;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    cxEnterAsTab1: TcxEnterAsTab;
    Edit1: TEdit;
    ActionList1: TActionList;
    actTS: TAction;
    cxDBCheckBox1: TcxDBCheckBox;
    cxButton4: TcxButton;
    cxButton5: TcxButton;
    procedure cxButton3Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure txtHPKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure actTSExecute(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
    procedure cxButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEdit: TfrmEdit;

implementation

{$R *.dfm}

uses sDM, sPublic;

procedure TfrmEdit.cxButton3Click(Sender: TObject);
begin
  Edit1.SetFocus;
  if trim(txtName.EditingText) = '' then
  begin
    Messagedlg('嘉宾名称不能空！', mtwarning, [mbok], 0);
    txtName.SetFocus;
    exit;
  end;
  if trim(txtHP.EditingText) = '' then
  begin
    Messagedlg('手机号码不能空！', mtwarning, [mbok], 0);
    txtHP.SetFocus;
    exit;
  end;
  try
    if dm.cdUser.State in [dsEdit, dsInsert] then
    begin
      dm.cdUser.Post;
      dm.cdUser.ApplyUpdates(0);
    end;
    case tcxButton(Sender).Tag of
      1:
        begin
          dm.cdUser.Append;
          txtName.SetFocus;
          exit;
        end;
      2: close;
      5, 4: ;
    end;
  except
    dm.cdUser.CancelUpdates;
    Messagedlg('数据保存出错！', mtwarning, [mbok], 0);
  end;
end;

procedure TfrmEdit.cxButton2Click(Sender: TObject);
begin
  if dm.cdUser.State in [dsEdit, dsInsert] then dm.cdUser.Cancel;
  close;
end;

procedure TfrmEdit.FormShow(Sender: TObject);
begin
  txtName.SetFocus;
end;

procedure TfrmEdit.txtHPKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not (key in [48..58]) then key := 0;
end;

procedure TfrmEdit.actTSExecute(Sender: TObject);
begin
  if not (dm.cdUser.State in [dsedit, dsInsert]) then dm.cdUser.Edit;
  dm.cdUserJX.Value := not dm.cdUserJX.Value;
end;

procedure TfrmEdit.cxButton4Click(Sender: TObject);
begin
  if dm.cdUser.State in [dsEdit, dsInsert] then cxButton3Click(cxButton4);
  if not dm.cdUser.Eof then dm.cdUser.Next;
  if dm.cdUser.Eof then dm.cdUser.Last;
end;

procedure TfrmEdit.cxButton5Click(Sender: TObject);
begin
  if dm.cdUser.State in [dsEdit, dsInsert] then cxButton3Click(cxButton5);
  if not dm.cdUser.Bof then dm.cdUser.Prior;
  if dm.cdUser.bof then dm.cdUser.First;
end;

end.