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

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十三) dByName('shuxian').AsString := getpet(yearof(edtbirth.EditValue));
    end;
//  cmbxingzuo.text:=getxingzuo(edtbirth.EditValue);
//  cmbsx.text:=getpet(yearof(edtbirth.EditValue));
  end
  else
  begin
    cmbxingzuo.text := '';
    cmbsx.text := '';
  end;
end;

procedure Tfrmregister.cmbszqyPropertiesChange(Sender: TObject);
var
  bm: string;
begin
  Dm1.adoqry1.Close;
  Dm1.adoqry1.sql.Clear;
  Dm1.adoqry1.sql.Text := 'select * from city where city=''' + cmbszqy.Text + '''';
  dm1.adoqry1.Open;
  bm := IntToStr(dm1.adoqry1.fieldbyname('bm').asinteger);
  Dm1.adoqry1.Close;
  cmbcity.Text := '';
  if bm = '' then
  begin
    cmbcity.Properties.Items.Clear;
    Exit;
  end;
  Dm1.adoqry1.sql.Clear;
  Dm1.adoqry1.sql.Text := 'select * from city where pbm=' + bm;
  dm1.adoqry1.Open;
  Dm1.adoqry1.first;
  cmbcity.Properties.Items.Clear;
  while not dm1.adoqry1.Eof do
  begin
    cmbcity.Properties.Items.Append(Dm1.adoqry1.fieldbyname('city').asstring);
    Dm1.adoqry1.Next;
  end;
  Dm1.adoqry1.Close;
end;

procedure Tfrmregister.Panel1Click(Sender: TObject);
begin

end;

end.

 

会员查询界面与代码设计实现

代码设计:
unit memo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGrid, cxLookAndFeelPainters, cxContainer, cxTextEdit,
  cxMemo, cxDBEdit, cxButtons;

type
  Tfrmmemo = class(TForm)
    Label1: TLabel;
    cxButton1: TcxButton;
    memo1: TcxDBMemo;
    cxButton2: TcxButton;
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmemo: Tfrmmemo;

implementation

uses md;

{$R *.dfm}

procedure Tfrmmemo.cxButton1Click(Sender: TObject);
begin
  if dm1.qrymemo.State in [dsInsert, dsEdit] then
    Dm1.qrymemo.Post;
  dm1.qrymemo.close;
  close;
end;

procedure Tfrmmemo.cxButton2Click(Sender: TObject);
begin
  if dm1.qrymemo.State in [dsInsert, dsEdit] then
  begin
    Dm1.qrymemo.Post;
  end;
  Dm1.qrymemo.Edit;
end;

procedure Tfrmmemo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.

密码修改界面设计与代码设计

代码设计:
unit changepwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, StdCtrls, c

首页 上一页 10 11 12 13 14 15 下一页 尾页 13/15/15

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