最近初学delphi,用它做了一个图书馆信息管理系统,现在把登陆窗口代码发上来,希望对初学者能少许帮助. 先把界面发上来,如下图所示: 步骤: 1.新建一个窗体,在窗体中放置上图所示组建. &nbs
1.查询模块: Public Function Exesql(ByVal sql As String, msgstring As String) As ADODB.RecordsetDim cn As New ADODB.ConnectionDim cmd As New ADODB.CommandDim rs As New ADODB.RecordsetOn Error GoTo runsql_
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号