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

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