软件注册的实现 delphi 源码

最新推荐文章于 2023-04-27 20:44:21 发布
最新推荐文章于 2023-04-27 20:44:21 发布
阅读量1.9k 收藏 3
点赞数 1
分类专栏： Delphi 文章标签： 注册

原理：通过获取本机的硬盘CPU的序列号，合成为一个40位的机器码，然后再进行MD5编码得到机器码：

下面是main.pas的代码：

unit main;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Amd5;

{$R *.dfm}
//=========
type
  TCPUID  = array[1..4] of Longint;
  TVendor = array [0..11] of char;

function GetCPUID : TCPUID; assembler; register;
asm
  PUSH    EBX         {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX     {@Resukt}
  MOV     EAX,1
  DW      $A20F       {CPUID Command}
  STOSD               {CPUID[1]}
  MOV     EAX,EBX
  STOSD               {CPUID[2]}
  MOV     EAX,ECX
  STOSD               {CPUID[3]}
  MOV     EAX,EDX
  STOSD               {CPUID[4]}
  POP     EDI         {Restore registers}
  POP     EBX
end;

function GetCPUVendor : TVendor; assembler; register;
asm
  PUSH    EBX               {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX           {@Result (TVendor)}
  MOV     EAX,0
  DW      $A20F             {CPUID Command}
  MOV     EAX,EBX
  XCHG          EBX,ECX     {save ECX result} 
  MOV                   ECX,4
@1: 
  STOSB
  SHR     EAX,8 
  LOOP    @1
  MOV     EAX,EDX 
  MOV                   ECX,4
@2: 
  STOSB
  SHR     EAX,8 
  LOOP    @2
  MOV     EAX,EBX 
  MOV                   ECX,4
@3: 
  STOSB
  SHR     EAX,8 
  LOOP    @3
  POP     EDI              {Restore registers} 
  POP     EBX
end;

//获得硬盘序列号
function GetIdeSerialNumber: pchar;
const IDENTIFY_BUFFER_SIZE = 512;
type
   TIDERegs = packed record
     bFeaturesReg: BYTE;
     bSectorCountReg: BYTE;
     bSectorNumberReg: BYTE;
     bCylLowReg: BYTE;
     bCylHighReg: BYTE;
     bDriveHeadReg: BYTE;
     bCommandReg: BYTE;
     bReserved: BYTE;
  end;
  TSendCmdInParams = packed record
    cBufferSize: DWORD;
    irDriveRegs: TIDERegs;
    bDriveNumber: BYTE;
    bReserved: array[0..2] of Byte;
    dwReserved: array[0..3] of DWORD;
    bBuffer: array[0..0] of Byte; // Input buffer.
  end;
  TIdSector = packed record
    wGenConfig: Word;
    wNumCyls: Word;
    wReserved: Word;
    wNumHeads: Word;
    wBytesPerTrack: Word;
    wBytesPerSector: Word;
    wSectorsPerTrack: Word;
    wVendorUnique: array[0..2] of Word;
    sSerialNumber: array[0..19] of CHAR;
    wBufferType: Word;
    wBufferSize: Word;
    wECCSize: Word;
    sFirmwareRev: array[0..7] of Char;
    sModelNumber: array[0..39] of Char;
    wMoreVendorUnique: Word;
    wDoubleWordIO: Word;
    wCapabilities: Word;
    wReserved1: Word;
    wPIOTiming: Word;
    wDMATiming: Word;
    wBS: Word;
    wNumCurrentCyls: Word;
    wNumCurrentHeads: Word;
    wNumCurrentSectorsPerTrack: Word;
    ulCurrentSectorCapacity: DWORD;
    wMultSectorStuff: Word;
    ulTotalAddressableSectors: DWORD;
    wSingleWordDMA: Word;
    wMultiWordDMA: Word;
    bReserved: array[0..127] of BYTE;
  end;
  PIdSector = ^TIdSector;
  TDriverStatus = packed record
    bDriverError: Byte;
    bIDEStatus: Byte;
    bReserved: array[0..1] of Byte;
    dwReserved: array[0..1] of DWORD;
  end;
  TSendCmdOutParams = packed record
    cBufferSize: DWORD;
    DriverStatus: TDriverStatus;
    bBuffer: array[0..0] of BYTE;
  end;
var
  hDevice: Thandle;
  cbBytesReturned: DWORD;
  SCIP: TSendCmdInParams;
  aIdOutCmd: array[0..(SizeOf(TSendCmdOutParams) + IDENTIFY_BUFFER_SIZE - 1) - 1] of Byte;
  IdOutCmd: TSendCmdOutParams absolute aIdOutCmd;
procedure ChangeByteOrder(var Data; Size: Integer);
var
  ptr: Pchar;
  i: Integer;
  c: Char;
begin
  ptr := @Data;
  for I := 0 to (Size shr 1) - 1 do begin
    c := ptr^;
    ptr^ := (ptr + 1)^;
    (ptr + 1)^ := c;
    Inc(ptr, 2);
  end;
end;
begin
Result := '';
if SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT then begin
hDevice := CreateFile('//./PhysicalDrive0', GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
end else
hDevice := CreateFile('//./SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0);
if hDevice = INVALID_HANDLE_VALUE then Exit;
try
FillChar(SCIP, SizeOf(TSendCmdInParams) - 1, #0);
FillChar(aIdOutCmd, SizeOf(aIdOutCmd), #0);
cbBytesReturned := 0;
with SCIP do begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
with irDriveRegs do begin
bSectorCountReg := 1;
bSectorNumberReg := 1;
bDriveHeadReg := $A0;
bCommandReg := $EC;
end;
end;
if not DeviceIoControl(hDevice, $0007C088, @SCIP, SizeOf(TSendCmdInParams) - 1,
@aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil) then Exit;
finally
CloseHandle(hDevice);
end;
with PIdSector(@IdOutCmd.bBuffer)^ do begin
ChangeByteOrder(sSerialNumber, SizeOf(sSerialNumber));
(Pchar(@sSerialNumber) + SizeOf(sSerialNumber))^ := #0;
Result := Pchar(@sSerialNumber);
end;
end;
function GetCode():string;//提取机器码。
var
  CPUID:TCPUID;
  i:Integer;
  s1,s2,s3,s4,s5:string;
  RegCode:string;
begin
      for i:=Low(CPUID) to High(CPUID) do CPUID[i]:=-1;
      CPUID:=GetCPUID;
      s1:=IntToHex(CPUID[1],8);
      s2:=IntToHex(CPUID[2],8);
      s3:=IntToHex(CPUID[3],8);
      s4:=IntToHex(CPUID[4],8);
      s5:=trim(strpas(GetIdeSerialNumber));
      RegCode:=copy(s2,1,4)+copy(s5,5,4)+copy(s3,1,4)+copy(s1,1,4)+copy(s4,5,4)+copy(s5,1,4)+copy(s4,1,4)+copy(s1,5,4)+copy(s3,5,4)+copy(s2,5,4);
      GetCode:=RegCode;
end;

 


procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  Edit1.Text:=GetCode();
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   if Length(Edit1.Text)<>40 then
   begin
     ShowMessage('机器码应该是一个长度为40的字符串！');
     Abort;
   end;
   edit2.Text:=AMD5.sMD5.MD5(edit1.Text);
end;

end.
下面是md5.pas的代码：

unit AMD5;

interface

       
        //  文件名 : AMD5.pas                     //
        //   功能  : 与md5.asp计算结果相同        //
        //   作者  : 由ScriptBaby改编自md5.asp    //
        // 完成时间: 2004-07-21                   //
       

 

              //请转载者保留以上信息，谢谢//

uses
  SysUtils;

type
  arrlongword = array of longword;

type
  sMD5 = class
    class function RotateLeft(const lValue, Bits: longword): longword;
    class function MD5(const sMessage: string; const sType: boolean = false): string;
    class function ConvToWord(const sMessage: string): arrlongword; overload;
    class function ConvToWord(const sMessage: WideString): arrlongword; overload;
    class function WordToHex(const lValue: longword): string;
  end;


implementation


const
  BITS_TO_A_BYTE = 8;
  BYTES_TO_A_WORD = 4;
  BITS_TO_A_WORD = 32;

  cAA = $67452301;
  cBB = $EFCDAB89;
  cCC = $98BADCFE;
  cDD = $10325476;

  MODULUS_BITS = 512;
  CONGRUENT_BITS = 448;


{ sMD5 }

class function sMD5.ConvToWord(const sMessage: WideString): arrlongword;
var
  lMessageLength,       
  lNumberOfWords,       
  lBytePosition,
  lByteCount,           
  lWordCount: longword;
  lWordArray: arrlongword;

  { Function }
  function Asc(const t: WideChar): Smallint;
  var
    s: string;
    a: Smallint;
  begin
     s := t;

     a := Smallint(s[1]);
     case Length(s) of
       2:
       begin
         a := a shl 8;
         a := a + Smallint(s[2]);
       end
     else ;
     end;

     Result := a;
  end;

begin
  lMessageLength := Length(sMessage);

  lNumberOfWords := (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) div BITS_TO_A_BYTE)) div (MODULUS_BITS div BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS div BITS_TO_A_WORD);

  SetLength(lWordArray, lNumberOfWords);

  lByteCount := 0;
  While lByteCount < lMessageLength do begin
    lWordCount := lByteCount div BYTES_TO_A_WORD;
    lBytePosition := (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE;
    lWordArray[lWordCount] := lWordArray[lWordCount] Or longword(Asc(sMessage[lByteCount + 1]) shl lBytePosition);
    lByteCount := lByteCount + 1;
  end;

  lWordCount := lByteCount div BYTES_TO_A_WORD;
  lBytePosition := (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE;

  lWordArray[lWordCount] := lWordArray[lWordCount] or ($80 shl lBytePosition);

  lWordArray[lNumberOfWords - 2] := lMessageLength shl 3; 
  lWordArray[lNumberOfWords - 1] := lMessageLength shr 29;

  Result := lWordArray;

end;

class function sMD5.ConvToWord(const sMessage: string): arrlongword;
begin
  Result := ConvToWord(WideString(sMessage));
end;

class function sMD5.MD5(const sMessage: string;
  const sType: boolean = false): string;
const
  S11 = 7;  
  S12 = 12; 
  S13 = 17; 
  S14 = 22; 
  S21 = 5;  
  S22 = 9;  
  S23 = 14; 
  S24 = 20; 
  S31 = 4;  
  S32 = 11; 
  S33 = 16; 
  S34 = 23; 
  S41 = 6;  
  S42 = 10; 
  S43 = 15; 
  S44 = 21;

var
  k: integer;
  AA, BB, CC, DD, a, b, c, d: longword;
  x: arrlongword;
  s: string;
  
  { functions }

  function md5_F(const x, y, z: longword): longword; 
  begin
    Result := (x And y) Or ((Not x) And z);
  end;

  function md5_G(const x, y, z: longword): longword; 
  begin
    Result := (x And z) Or (y And (Not z));
  end;

  function md5_H(const x, y, z: longword): longword; 
  begin
    Result := (x Xor y Xor z);
  end;

  function md5_I(const x, y, z: longword): longword; 
  begin
    Result := (y Xor (x Or (Not z)));
  end;

  procedure md5_FF(var a: longword; const b, c, d, x, s, ac: longword);
  begin 
    a := a + md5_F(b, c, d) + x + ac;
    a := RotateLeft(a, s);
    a := a + b;
  end;

  procedure md5_GG(var a: longword; const b, c, d, x, s, ac: longword);
  begin 
    a := a + md5_G(b, c, d) + x + ac;
    a := RotateLeft(a, s);
    a := a + b;
  end;

  procedure md5_HH(var a: longword; const b, c, d, x, s, ac: longword);
  begin
    a := a + md5_H(b, c, d) + x + ac;
    a := RotateLeft(a, s);
    a := a + b;
  end;

  procedure md5_II(var a: longword; const b, c, d, x, s, ac: longword);
  begin
    a := a + md5_I(b, c, d) + x + ac;
    a := RotateLeft(a, s);
    a := a + b;
  end;

begin

  { MD5 }
  x := ConvToWord(sMessage);


  a := cAA; 
  b := cBB; 
  c := cCC; 
  d := cDD;

  k := 0;
  repeat
    AA := a;
    BB := b;
    CC := c;
    DD := d;

    md5_FF(a, b, c, d, x[k + 0], S11, $D76AA478);
    md5_FF(d, a, b, c, x[k + 1], S12, $E8C7B756); 
    md5_FF(c, d, a, b, x[k + 2], S13, $242070DB); 
    md5_FF(b, c, d, a, x[k + 3], S14, $C1BDCEEE); 
    md5_FF(a, b, c, d, x[k + 4], S11, $F57C0FAF); 
    md5_FF(d, a, b, c, x[k + 5], S12, $4787C62A); 
    md5_FF(c, d, a, b, x[k + 6], S13, $A8304613); 
    md5_FF(b, c, d, a, x[k + 7], S14, $FD469501); 
    md5_FF(a, b, c, d, x[k + 8], S11, $698098D8); 
    md5_FF(d, a, b, c, x[k + 9], S12, $8B44F7AF); 
    md5_FF(c, d, a, b, x[k + 10], S13, $FFFF5BB1);
    md5_FF(b, c, d, a, x[k + 11], S14, $895CD7BE);
    md5_FF(a, b, c, d, x[k + 12], S11, $6B901122);
    md5_FF(d, a, b, c, x[k + 13], S12, $FD987193);
    md5_FF(c, d, a, b, x[k + 14], S13, $A679438E);
    md5_FF(b, c, d, a, x[k + 15], S14, $49B40821);

    md5_GG(a, b, c, d, x[k + 1], S21, $F61E2562);
    md5_GG(d, a, b, c, x[k + 6], S22, $C040B340);
    md5_GG(c, d, a, b, x[k + 11], S23, $265E5A51);
    md5_GG(b, c, d, a, x[k + 0], S24, $E9B6C7AA); 
    md5_GG(a, b, c, d, x[k + 5], S21, $D62F105D); 
    md5_GG(d, a, b, c, x[k + 10], S22, $2441453); 
    md5_GG(c, d, a, b, x[k + 15], S23, $D8A1E681);
    md5_GG(b, c, d, a, x[k + 4], S24, $E7D3FBC8); 
    md5_GG(a, b, c, d, x[k + 9], S21, $21E1CDE6); 
    md5_GG(d, a, b, c, x[k + 14], S22, $C33707D6);
    md5_GG(c, d, a, b, x[k + 3], S23, $F4D50D87); 
    md5_GG(b, c, d, a, x[k + 8], S24, $455A14ED); 
    md5_GG(a, b, c, d, x[k + 13], S21, $A9E3E905);
    md5_GG(d, a, b, c, x[k + 2], S22, $FCEFA3F8); 
    md5_GG(c, d, a, b, x[k + 7], S23, $676F02D9); 
    md5_GG(b, c, d, a, x[k + 12], S24, $8D2A4C8A);

    md5_HH(a, b, c, d, x[k + 5], S31, $FFFA3942); 
    md5_HH(d, a, b, c, x[k + 8], S32, $8771F681); 
    md5_HH(c, d, a, b, x[k + 11], S33, $6D9D6122);
    md5_HH(b, c, d, a, x[k + 14], S34, $FDE5380C);
    md5_HH(a, b, c, d, x[k + 1], S31, $A4BEEA44); 
    md5_HH(d, a, b, c, x[k + 4], S32, $4BDECFA9); 
    md5_HH(c, d, a, b, x[k + 7], S33, $F6BB4B60); 
    md5_HH(b, c, d, a, x[k + 10], S34, $BEBFBC70);
    md5_HH(a, b, c, d, x[k + 13], S31, $289B7EC6);
    md5_HH(d, a, b, c, x[k + 0], S32, $EAA127FA); 
    md5_HH(c, d, a, b, x[k + 3], S33, $D4EF3085); 
    md5_HH(b, c, d, a, x[k + 6], S34, $4881D05); 
    md5_HH(a, b, c, d, x[k + 9], S31, $D9D4D039); 
    md5_HH(d, a, b, c, x[k + 12], S32, $E6DB99E5);
    md5_HH(c, d, a, b, x[k + 15], S33, $1FA27CF8);
    md5_HH(b, c, d, a, x[k + 2], S34, $C4AC5665);

    md5_II(a, b, c, d, x[k + 0], S41, $F4292244); 
    md5_II(d, a, b, c, x[k + 7], S42, $432AFF97); 
    md5_II(c, d, a, b, x[k + 14], S43, $AB9423A7);
    md5_II(b, c, d, a, x[k + 5], S44, $FC93A039); 
    md5_II(a, b, c, d, x[k + 12], S41, $655B59C3);
    md5_II(d, a, b, c, x[k + 3], S42, $8F0CCC92); 
    md5_II(c, d, a, b, x[k + 10], S43, $FFEFF47D);
    md5_II(b, c, d, a, x[k + 1], S44, $85845DD1); 
    md5_II(a, b, c, d, x[k + 8], S41, $6FA87E4F); 
    md5_II(d, a, b, c, x[k + 15], S42, $FE2CE6E0);
    md5_II(c, d, a, b, x[k + 6], S43, $A3014314); 
    md5_II(b, c, d, a, x[k + 13], S44, $4E0811A1);
    md5_II(a, b, c, d, x[k + 4], S41, $F7537E82); 
    md5_II(d, a, b, c, x[k + 11], S42, $BD3AF235);
    md5_II(c, d, a, b, x[k + 2], S43, $2AD7D2BB); 
    md5_II(b, c, d, a, x[k + 9], S44, $EB86D391);

    a := a + AA;
    b := b + BB;
    c := c + CC;
    d := d + DD;

  k := k + 16;
  until k > High(x);
  
  if sType then
  begin
    s := WordToHex(a) + WordToHex(b) + WordToHex(c) + WordToHex(d)
  end
  else
  begin
    s := WordToHex(b) + WordToHex(c);
  end;

  Result := StrLower(PAnsiChar(s));
end;

class function sMD5.RotateLeft(const lValue, Bits: longword): longword;
begin
  Result := (lValue shl Bits) Or (lValue shr (32 - Bits));
end;

class function sMD5.WordToHex(const lValue: longword): string;
var
  s: string;
begin
  s := inttohex(lValue, 8);
  Result := s[7]+s[8]+s[5]+s[6]+s[3]+s[4]+s[1]+s[2];
end;

end.

疯流人物
关注
  • 1
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi 实现简单的软件注册程序示例.rar
07-10
Delphi 实现简单的软件注册程序示例，将程序注册后使用全部的功能，可勾选是否继续试用软件，注：本程序是早几年的，实例仅用作参考。相关代码： 　　Reg.OpenKey('\software\microsoft\windows\register',False); 　　Reg.WriteString('公司单位',Trim(gsdw.Text)); 　　Reg.WriteString('使用者',Trim(syz.Text)); 　　Form1.StatusBar1.Panels[3].Text := Trim(gsdw.Text); 　　Form1.StatusBar1.Panels[5].Text := Trim(syz.Text); 　　if CheckBox1.Checked = False then 　　 Form1.StatusBar1.Panels[1].Text := '欢迎使用正版软件' 　　else 　　 Form1.StatusBar1.Panels[1].Text := '软件还可试用 ' IntToStr(Limit) ' 次'; 　　Finally 　　Reg.Free; 　　完整的源代码请下载本源码。
一个DELPHI限时注册控件 软件应用源代码.rar
07-10
一个DELPHI限时注册控件 软件应用源代码，在你的软件中加入“限时注册”功能，采用比较严谨的5级加密算法来实现。“软件限时注册”控件（TShareRegist）功能说明： 　　 1、只要将该控件加入主窗体，使Action属性设为true，再设置其它属性，你的软件就有限时注册的功能了，只要你牢记三个密钥，并加上给你的算号软件（RegObject_Admin.exe）你就可以无敌天下了。 　　 2、控件使用目前最严严谨的加密算法，5级加密。是破解成为不可能。
Delphi软件注册的实例附例子.rar
07-10
Delphi软件注册的实例附例子，模拟输入用户名和注册码的那种注册功能，点击窗口中的“注册”菜单，会弹出输入注册码的对话框，注册后程序窗口就会变为其它方式，也就是只能当没有注册的时候，注册窗口才会显示出来，注册成功后就不出现了。
Delphi利用DES算法编写软件注册模块的源代码.rar
07-09
Delphi利用DES算法编写软件注册模块的源代码，比较常见吧，那么究竟是如何实现的呢？或许你从这个DES加密算法实例中能找到答案。
精典源码delphi源码下载 宾馆软件.zip
05-08
精典源码delphi源码下载 宾馆软件.zip
delphi源码下载生产管理系统
173713873
04-03 1054
dephi 框架的博客_CSDN博客-delphi 三层 源码 中间件 框架领域博主。
软件注册的实现--dll篇（delphi 源码 ）
xcplates的专栏
08-31 1890
把刚才的那个方法封装到一个dll中，更方便：RegDll.dpr：library RegDLL;{ Important note about DLL memory management: ShareMem must be the  first unit in your librarys USES clause AND your projects (select  Project-V
Delphi 后端随机生成前端验证码图片程序源代码，开箱即用
sensor_WU 博客
04-07 511
本文使用Delphi生成图形验证码，可以包含中文，数字，英文，返回图片和验证码字符串。提供完整的源代码和使用Demo
delphi 三层 源码 中间件 框架【数据操作】
173713873
03-14 810
datasnap 三层 delphi 中间件
DelphiMVCFrameWork 源码分析(二)
舞天涯的专栏
04-27 1000
DelphiMVCFrameWork框架的路由(Router)是通过Delphi的Attribute来实现的，作用于Controler类和方法。4、每个Controler包含一个或多个动作(Action)，Action就是Controler的公开方法(public Method)，同时伴随着RTTI Attribute(包含Router和其它参数)。year=2021?前面说过，在方法的MVCPath Attribute 中，参数是以"($XXXX)"标识的，所以通过正则表达式可以轻松获取参数名称列表。
delphi人才信息管理系统源码分享，有用到的朋友拿去
02-11
delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去 delphi人才信息管理系统源码分享，有用到的朋友拿去
Delphi6应用开发源码
06-07
Delphi6应用开发源码
Delphi源码,数据库应用,售后服务系统,装机系统
09-20
Delphi源码,数据库应用,售后服务系统,装机系统　有源码还怕是未注册软件吗？不过还是请尊重作者版权，记着不要用于商业用途，只供研究和学习。__　这是一个电脑公司售后服务管理系统，可以实现客户电脑配置资料的...
2024-2030全球及中国PCB接触式探头行业研究及十五五规划分析报告.docx
04-18
2024-2030全球及中国PCB接触式探头行业研究及十五五规划分析报告
网站界面设计mortal0418代码
04-18
网站界面设计mortal0418代码
PHP毕业设计-校园失物招领系统源码+数据库.zip
04-18
PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可作为课程设计、期末大作业。包含全部项目源码、该项目可以直接作为毕设使用。项目都经过严格调试，确保可以运行！ PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可作为课程设计、期末大作业。包含全部项目源码、该项目可以直接作为毕设使用。项目都经过严格调试，确保可以运行！ PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可作为课程设计、期末大作业。包含全部项目源码、该项目可以直接作为毕设使用。项目都经过严格调试，确保可以运行！ PHP毕业设计-校园失物招领系统源码+数据库.zip个人经导师指导并认可通过的高分毕业设计项目，主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者。也可
2024年神经酸行业分析报告.pptx
最新发布
04-18
2024年神经酸行业分析报告.pptx
Java爬虫信息抓取的实现 完整实例（源码）
04-18
【Java爬虫】信息抓取的实现 完整实例（源码）
rain-drop.PNG
04-18
rain-drop.PNG
delphi源码 美容店管理软件
11-14
Delphi源码美容店管理软件是一款专门针对美容店日常管理的软件。它可以帮助美容店实现顾客预约管理、员工排班管理、库存管理、销售统计、财务管理等多种功能。首先，美容店可以通过软件进行顾客的预约管理，包括预约时间、服务项目、顾客信息等。其次，软件还可以帮助美容店进行员工的排班管理，包括员工工作时间、请假情况、工资结算等。另外，软件还可以帮助美容店进行库存管理，包括产品的进销存、库存盘点、报损报溢等。同时，软件还可以实现销售统计功能，帮助美容店对不同服务项目的销售情况进行分析。最后，软件还可以进行财务管理，包括财务报表生成、支出管理、收入管理等。总之，Delphi源码美容店管理软件可以帮助美容店提高管理效率，优化服务流程，提升服务品质，更好地满足顾客需求。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值