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

procedure Tfrmregister.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  frmmain.mmregister.AutoGrayScale := True;
end;

procedure Tfrmregister.Label1Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmregister.FormCreate(Sender: TObject);
begin
  Dm1.adoqry1.Close;
  Dm1.adoqry1.sql.Clear;
  Dm1.adoqry1.sql.Text := 'select * from city where pbm=0';
  dm1.adoqry1.Open;
  Dm1.adoqry1.first;
  dm1.adoqry1.next;
  cmbszqy.Properties.Items.Clear;
  while not dm1.adoqry1.Eof do
  begin
    cmbszqy.Properties.Items.Append(Dm1.adoqry1.fieldbyname('city').asstring);
    Dm1.adoqry1.Next;
  end;
  Dm1.adoqry1.Close;
  if 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.Fiel

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