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

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](八) not dm1.tblHuiyuan.Active then
    dm1.tblHuiyuan.Open;
  if not frmMain.mmregister.AutoGrayScale then
    dm1.tblHuiyuan.Insert
  else
    Dm1.tblHuiyuan.Locate('bm;xm', VarArrayOf([Dm1.qryhuiyuan.FieldByName('bm').AsString, Dm1.qryhuiyuan.FieldByName('xm').AsString]), [loPartialKey]);
end;

procedure Tfrmregister.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if dm1.tblHuiyuan.State in [dsInsert, dsEdit] then
  begin
    if Application.MessageBox('您还没有保存数据，是否保存?', '询问', MB_YESNO + MB_ICONQuestion) = IDYes then
      dm1.tblHuiyuan.Post
    else
      dm1.tblHuiyuan.Cancel;
  end;
end;

procedure Tfrmregister.edtbirthPropertiesEditValueChanged(Sender: TObject);
begin
  if edtbirth.Text <> '' then
  begin

    if dm1.tblHuiyuan.State in [dsInsert, dsEdit] then
    begin
      dm1.tblHuiyuan.FieldByName('star').AsString := getxingzuo(edtbirth.EditValue);
      dm1.tblHuiyuan.FieldByName('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 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: TcxLabe

首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/15/15

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