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