如题,谁能告诉我具体方法,代码如何编写
解决方案 »
- datetime写库的问题
- Delphi OA开发 如何进一步提高自己
- 那位大哥做过银行系统?
- 紧急求助!!!一个Delphi新手到济南找工作这样的条件可以拿到多少钱??必重谢!!!!
- 我被dephi愚弄郁闷MircoSoft Ole DB Provider for Oracle &Oracle Provider for Ole DB 到底有什么区别?
- 别人结贴了,昨天晚上给我100分,到今天为止我的分值都没变化,为什么????
- 如何其它程序发送一段字符串?
- 下句为什么没执行
- d6下组件安装的问题?
- TNMFTP控件是不是有问题?
- 一维静态数组问题,新手求指教。
- inno setup RegQueryMultiStringValue函数得不到值
If edit1.text='张三’ then
begin
Form1.hide;
form2.show;
end;
+' and 密码='''+Trim(密码输入框输入的密码)+''' ';
dm.adoQry.Close;
dm.adoQry.SQL.Clear;
dm.adoQry.SQL.Add(sSql);
try
dm.adoQry.Open;
except
on E: Exception do
begin
FErr:=E.Message;
Exit;
end;
end;
if dm.adoQry.RecordCount=0 then
begin
ShowMessage('用户名或密码错误');
Exit;
end
else
begin
Application.CreateForm(TMainForm,MainForm);
MainForm.ShowModal;
LoginForm.Free;
MainForm.Free;
end;
//LoginForm 登录窗体
//MainForm 主窗体
+' and 密码='''+Trim(密码输入框输入的密码)+''' ';哇,SQL注入
if not DEF_DEVDEBUG then //调试状态
begin
//登录
LoginFm := TLoginFM.Create(Application);
try
LoginResult := LoginFm.ShowModal;
finally
LoginFm.Free;
end;
//登录失败
if LoginResult <> 1 then
begin
DM.Free;
SystemParam.Free;
if not DEF_MultMine then
begin
ReleaseMutex(OneMutex);
CloseHandle(OneMutex);
end;
Exit;
end;
end
else
begin
SystemParam.__UserID := 'sys';
end;
//
Application.CreateForm(TMainFm, MainFm);
Application.CreateForm(TBJDY_Fm, BJDY_Fm);
Application.CreateForm(TXXXX_Fm, XXXX_Fm); // Modified by zhb 2011-9-20 11:55:47 隐藏图片
// with TShowFM.Create(nil) do
// begin
// Show;
// for i := 255 downto 1 do
// begin
// AlphaBlendValue := i;
// Application.ProcessMessages;
// end;
// Free;
// end; Application.Run;
except
end;
不行LZ问的是什么? 是实现d中调用网页中,发送用户名 和 密码,然后跑转到另一个页面中?