评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access通用会员管理系统[开题报告＋论文＋源(4)

2013-06-03 02:28 bsp; Application.ShowMainForm := true;
  frmMain.Show;
end;

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