说明: 系统管理 procedure TfrmAdm.Button1Click(Sender: TObject); begin with DM.ADOQuery1 do begin Close; SQL.Clear; SQL.Add('select * from 用户 where 姓名=:username and 密码=:pass and 类型=:GLY'); Parameters.ParamByName('username').Value := Edit1.Text; Parameters.Para
<hbjhl> 上传 | 大小:583kb