delphi网吧管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译]

4、贾成宇,李树秋,王世刚.智能门禁系统门控部分硬件设计.
吉林：长春邮电学院学报第18卷第3期，2000

5、贾成宇,李树秋,王世刚.智能门禁系统门控部分软件设计.
吉林：长春邮电学院学报第19卷第1期，2001

附录
部分重要代码详解
unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, Menus, Mask, DBCtrls,
Buttons;

type
TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N5: TMenuItem;
    PC1: TMenuItem;
    DBEsdjg: TDBEdit;
    DBEshangji: TDBEdit;
    DBExiaji: TDBEdit;
    DBEsj: TDBEdit;
    DBExj: TDBEdit;
    Label2: TLabel;
    Timer1: TTimer;
    Splitter1: TSplitter;
    Label3: TLabel;
    Label4: TLabel;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    Panel4: TPanel;
    N7: TMenuItem;
    DBEmrjg: TDBEdit;
    DBEyhm: TDBEdit;
    N8: TMenuItem;
    N9: TMenuItem;
    DBEqx: TDBEdit;
    DBText1: TDBText;
    N3: TMenuItem;
    Label5: TLabel;
    function sswu(yuanshi:string):real;
    function jgjs(shangji:string;xiaji:string;MM:string):string;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure N5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure PC1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N3Click(Sender: TObject);
private
    { Private declarations }
public

{ Public declarations }

end;

var
Form1: TForm1;

implementation

uses D_M, sd_gl, dd_gl, mr_jg, deng_lu, dl_gl, shan_chu;

{$R *.dfm}

function Tform1.sswu(yuanshi:string):real;
var
dd:string;
begin
if pos('.',yuanshi)<>0 then
begin
dd:=copy(yuanshi,pos('.',yuanshi)+1,3);

if (strtofloat(dd)>=0)and(strtofloat(dd)<=25) then
    result:=strtofloat(copy(yuanshi,1,pos('.',yuanshi)-1))
else
if (strtofloat(dd)>25)and(strtofloat(dd)<=75) then
    result:=strtofloat(copy(yuanshi,1,pos('.',yuanshi)-1))+0.5
else
if (strtofloat(dd)>75)and(strtofloat(dd)<=99) then
    result:=strtofloat(

首页上一页 5 6 7 8 9 10 11 下一页尾页 8/14/14

delphi网吧管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](八)