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＋外文翻译](十三)