一个关于密码登录问题 求救 急

Question

我想在系统登录前设置一个密码登录窗体,谁可以帮我做一个,小弟感激不尽

Answer 1

太多了,自己看看以前的帖子参考一下:(还有很多,自己search'登录')http://expert.csdn.net/Expert/topic/1819/1819268.xml?temp=.3506128
http://expert.csdn.net/Expert/topic/1821/1821567.xml?temp=.7546045
http://expert.csdn.net/Expert/topic/1823/1823902.xml?temp=.3106958
http://expert.csdn.net/Expert/topic/1772/1772390.xml?temp=.1467554
http://expert.csdn.net/Expert/topic/1708/1708713.xml?temp=.8045313
http://expert.csdn.net/Expert/topic/1342/1342835.xml?temp=.201687
http://expert.csdn.net/Expert/topic/1343/1343282.xml?temp=.6224634
http://expert.csdn.net/Expert/topic/1381/1381152.xml?temp=.9987451

Answer 2

是的，我也正要这个东东，用“登录”关键字搜索出来好多。在书上也有做密码登录窗体的例子。《Delphi 5数据库开发技术》，不过，那个跟这些有点不同。

Answer 3

program SfSystem;//uses
  Forms,
  UnMain in 'UnMain.pas' {FrmMain},
  UnKhrs in 'UnKhrs.pas' {FrmKhrs},
  UnDl in 'UnDl.pas' {FrmDl},
  UnAbout in 'UnAbout.pas' {FrmAbout},
  Unkhcx in 'Unkhcx.pas' {Frmkhcx},
  UnDmMain in 'UnDmMain.pas' {DmMain: TDataModule},
  UnAddUser in 'UnAddUser.pas' {FrmAddUser},
  UnMPass in 'UnMPass.pas' {FrmMPass},
  UnMQy in 'UnMQy.pas' {FrmMQy},
  Uncfsf in 'Uncfsf.pas' {FrmCfsf},
  UnBlx in 'UnBlx.pas' {FrmBlx},
  UnSdbcx in 'UnSdbcx.pas' {FrmSdbcx},
  UnCfsfcx in 'UnCfsfcx.pas' {FrmCwsfcx},
  Unkhsf in 'Unkhsf.pas' {FrmKhsf},
  Unkhsfcx in 'Unkhsfcx.pas' {Frmkhsfcx},
  Unsjbf in 'Unsjbf.pas' {FrmSjbf},
  UnAzb in 'UnAzb.pas' {FrmAzb},
  UnXzczy in 'UnXzczy.pas' {FrmXzczy},
  UnJftzd in 'UnJftzd.pas' {FrmJftzd},
  Unsjhw in 'Unsjhw.pas' {Frmsjhw},
  UnSddj in 'UnSddj.pas' {FrmSddj},
  UnClear in 'UnClear.pas' {Frmclear};{$R *.res}begin
  Application.Initialize;
  Application.Title := '事业公司水电收费管理系统';
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmDl, FrmDl);
  Application.CreateForm(TDmMain, DmMain);
  Application.CreateForm(TFrmXzczy, FrmXzczy);
  FrmDl.Visible:=False;//登录窗口
  FrmDl.ShowModal;
  Application.Run;
end.