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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](四) 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

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

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](四)由毕业论文网（www.huoyuandh.com）会员上传。