vks.pas

一个delphi开发的库存管理系统源代码

unit vks;

interface
uses
   Windows, Classes, Forms, Dialogs;
 const
     C1 = 8938;
     C2 = 234;
     c3 = 4014;

function Cyr( S: String): String;  //第一加密方式
function Eyr( S: String): String;  //第一解密方式
function Cyr2( S: String): String;  //第二加密方式
function Eyr2( S: String): String; //第二解密方式
function Cyr3( S: String): String;  //第三加密方式
function Eyr3( S: String): String;  //第三解密方式
function box(info:string;title: string):boolean;  //窗口信息
procedure info( id : integer);  //窗口信息
function split(const source,ch:string):tstringlist;//分离颜色

//help_title : array [1..20] of string;

implementation

function Cyr( S: String): String;
var
 x:integer;
begin
  Result:=s;
  for x:=1 to  Length(s) do
   begin
    Result[x]:=char(byte(s[x])+C1);
   end;
  s:=Result;
end;

function Eyr( S: String): String;
var
y:integer;
begin
 Result:=s;
for y:=1 to Length(s) do
 begin
  Result[y]:=char(byte(s[y])-C1);
 end;
s:=Result;
end;

function Cyr2( S: String): String;
var
 x:integer;
begin
  Result:=s;
  for x:=1 to  Length(s) do
   begin
    Result[x]:=char(byte(s[x])+C2);
   end;
  s:=Result;
end;

function Eyr2( S: String): String;
var
y:integer;
begin
 Result:=s;
for y:=1 to Length(s) do
 begin
  Result[y]:=char(byte(s[y])-C2);
 end;
s:=Result;
end;

function Cyr3( S: String): String;
var
 x:integer;
begin
  Result:=s;
  for x:=1 to  Length(s) do
   begin
    Result[x]:=char(byte(s[x])+C3);
   end;
  s:=Result;
end;

function Eyr3( S: String): String;
var
y:integer;
begin
 Result:=s;
for y:=1 to Length(s) do
 begin
  Result[y]:=char(byte(s[y])-C3);
 end;
s:=Result;
end;

function box(info:string;title: string):boolean;
begin
  if application.MessageBox(PChar(info),PChar(title),mb_okcancel)=idok then
    Result := true
  else
    Result := false;
end;

procedure info( id : integer);
begin
  case id of
    //密码修改中用到的错误代码
    1000: ShowMessage('错误编号:1000'#13#10'密码不能为空,请重新填写!');
    1001: ShowMessage('错误编号:1001'#13#10'确认密码不能为空,请重新填写!');
    1002: ShowMessage('错误编号:1002'#13#10'密码长度小于3位,请重新填写!');
    1003: ShowMessage('错误编号:1003'#13#10'两次密码不一致,请重新填写!');
    1004: ShowMessage('错误编号:1004'#13#10'密码修改失败,请检查数据!');
    //文件备份
    1100: ShowMessage('操作编号:1100'#13#10'数据备份成功,多备份,有备无患!');
    1105: ShowMessage('操作编号:1105'#13#10'数据恢复成功,请重新启动本软件!');
    1005: ShowMessage('错误编号:1005'#13#10'备份失败,检查目标是否有效!');
    1025: ShowMessage('错误编号:1025'#13#10'恢复失败,检查目标是否有效!');
    //管理管理员
    1006: ShowMessage('错误编号:1006'#13#10'密码修改失败,请检查数据!');
    1007: ShowMessage('错误编号:1007'#13#10'已存在相同的操作员,不能添加了!');
    1008: ShowMessage('错误编号:1008'#13#10'数据操作失败,可能与你填写的数据有关,请检查!');
    //类别操作
    1009: ShowMessage('错误编号:1009'#13#10'类别名称不能为空,请重新填写!');
    1010: ShowMessage('错误编号:1010'#13#10'已存在相同的类别,不能添加了!');
    //供应商操作
    1011: ShowMessage('错误编号:1011'#13#10'已存在相同的供应商,不能添加了!');
    1013: ShowMessage('错误编号:1013'#13#10'供应商名称不能为空,请填写!');
    1014: ShowMessage('错误编号:1014'#13#10'供应商公司地址不能为空,请填写!');
    1015: ShowMessage('错误编号:1015'#13#10'供应商联系人不能为空,请填写!');
    1016: ShowMessage('错误编号:1016'#13#10'供应商联系人电话不能为空,请填写!');
    //商品操作
    1012: ShowMessage('错误编号:1012'#13#10'初始化错误,不能进行该操作!');
    1017: ShowMessage('错误编号:1017'#13#10'商品名称不能为空,请填写!');
    1018: ShowMessage('错误编号:1018'#13#10'商品名称简称不能为空,请填写!');
    1019: ShowMessage('错误编号:1019'#13#10'保持期不能为空,请填写!');
    1020: ShowMessage('错误编号:1020'#13#10'进价不能为空,请填写!');
    1021: ShowMessage('错误编号:1021'#13#10'售价不能为空,请填写!');
    //商品入库操作
    1022: ShowMessage('错误编号:1022'#13#10'没有入库数据,不能进行入库操作!');
    1101: ShowMessage('操作编号:1101'#13#10'物品入库成功,还没有审核,将不影响库存!');
    //出库
    1023: ShowMessage('错误编号:1023'#13#10'没有出库数据,不能进行出库操作!');
    1102: ShowMessage('操作编号:1102'#13#10'物品出库成功,还没有审核,将不影响库存!');
    //审核
    1103: ShowMessage('操作编号:1103'#13#10'出入库审核成功,可进行其它操作了!');
    //导出数据
    1024: ShowMessage('错误编号:1024'#13#10'你的机器里未安装Microsoft Excel.!');
    1104: ShowMessage('操作编号:1104'#13#10'导出数据成功,可进行其它操作了!');
    //标题显示
    1026: ShowMessage('错误编号:1026'#13#10'标题更改时出错,请查检输入!');
    1106: ShowMessage('操作编号:1106'#13#10'标题更改成功,重新启动就能看到效果!');
  end;
end;

function split(const source,ch:string):tstringlist;
var
  temp:string;
  i:integer;
begin
  result:=tstringlist.Create;
  temp:=source;
  i:=pos(ch,source);
  while i<>0 do
  begin
    result.Add(copy(temp,0,i-1));
    delete(temp,1,i);
    i:=pos(ch,temp);
  end;
  result.Add(temp);
end;

end.