vks.pas

这是应一个市委的朋友要求给做一个物品管理软件。 初始密码:admin

unit vks;

interface
uses
   Windows, Classes, Forms, Dialogs;

function box(info:string;title: string):boolean;  //窗口信息
procedure info( id : integer);  //窗口信息

implementation

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'数据备份成功,多备份,有备无患!');
    1005: ShowMessage('错误编号:1005'#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'出入库审核成功,可进行其它操作了!');
  end;
end;

end.