delphi+access通用会员管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](四)

procedure TfrmLogin.edtPwdKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    frmLogin.btnLoginClick(nil);
end;

procedure TfrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then
    frmLogin.btnCancelClick(nil);
end;

procedure TfrmLogin.edtUserKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    edtPwd.SetFocus;
end;

end.

会员登记界面与代码设计实现

代码设计:
unit register;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, DBCtrls, RzDBNav, cxDropDownEdit,
  cxDBEdit, cxCalendar, cxMaskEdit, cxSpinEdit, cxGroupBox, cxRadioGroup,
  cxLabel, cxControls, cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls,
  cxButtons, cxMemo, DB, DateUtils;

type
  Tfrmregister = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    cxDBTextEdit1: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBRadioGroup1: TcxDBRadioGroup;
    cxDBSpinEdit1: TcxDBSpinEdit;
    edtbirth: TcxDBDateEdit;
    cxLabel6: TcxLabel;
    cxLabel7: TcxLabel;
    cxLabel8: TcxLabel;
    cxLabel9: TcxLabel;
    cxLabel10: TcxLabel;
    cxLabel11: TcxLabel;
    cxLabel12: TcxLabel;
    cmbxingzuo: TcxDBComboBox;
    cmbsx: TcxDBComboBox;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit7: TcxDBTextEdit;
    cxLabel3: TcxLabel;
    cmbszqy: TcxDBComboBox;
    cmbcity: TcxDBComboBox;
    cxLabel13: TcxLabel;
    Panel3: TPanel;
    RzDBNavigator1: TRzDBNavigator;
    Panel4: TPanel;
    Label1: TLabel;
    cxLabel14: TcxLabel;
    cxDBMemo1: TcxDBMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure edtbirthPropertiesEditValueChanged(Sender: TObject);
    procedure cmbszqyPropertiesChange(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  private
    function getpet(birthYear: integer): string;
    function

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/15/15