主要参考文献：
 [1] Delphi企业经营管理系统开发实例导航
 作者：求是科技 王志伟 黄超  
 出版社：人民邮电出版社
 [2] Delphi 面向对象程序设计及应用开发
 作者：朱振元，朱承
 出版社：西安电子科技大学出版社
 [3] Delphi 6程序设计导学
 作者：张春林
 出版社：清华大学出版社
 [4] 最新Delphi 7数据库开发指南
 作者： 只飞 等
 出版社：北京希望电子出版社
 [5] Delphi 实用程序100例
 作者：段兴
 出版社：人民邮电大学
 [6] 网上资料查询
附录程序清单及注释
程序清单
 unit LogoUnit;//登陆窗口

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls;

type
  TLogoForm = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LogoForm: TLogoForm;

implementation

uses LoginUnit;

{$R *.dfm}

procedure TLogoForm.FormCreate(Sender: TObject);
var
  Foundwin: HWND;
begin
  Foundwin := FindWindow(nil, '商品销售管理系统 -'); // 查找窗口
  if Foundwin <> 0 then begin
     // 调用Delphi自带的查询窗口函数，查找特定标题的窗体
     // 若找到则激活已运行的程序，同时结束自身
    ShowWindow(Foundwin, SW_RESTORE);
    halt;
  end;
end;

end

unit LoginUnit; //密码登陆窗口

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Registry, DBCtrls;

type
  TLoginForm = class(TForm)
    PanelBkGnd: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    L_name: TLabel;
    Panel_button: TPanel;
    Bevel_button: TBevel;
    OKBtn: TButton;
    CancelBtn: TButton;
    E_ID: TEdit;
    E_PassWord: TEdit;
    query_pass: TQuery;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure OKBtnClick(Sender: TObject);
    procedure E_IDChange(Sender: TObject);
    procedure E_IDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CancelBtnCli

首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/16/16

相关论文