f_configure.pas

来自「用Delphi 开发的一个 户籍管理系统」· PAS 代码 · 共 56 行

unit f_configure;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, Buttons, 
  Clipbrd, cxGridDBTableView, WinTypes, WinProcs, 
  cxGridDBBANDEDTableView;

type
  ConfigureInfo = record
    uid: AnsiString; //工号
    Name: AnsiString; //姓名
    dept: AnsiString; //部门号
    deptname: AnsiString; //部门名
    role: integer; //角色编号
    power: AnsiString; //复杂系统的权限代码
    level: AnsiString; //简易系统的权限等级
    ip: AnsiString; //IP地址
    mac: AnsiString; //MAC地址
    ver: AnsiString; //版本号
    ComputerName: AnsiString //用户计算机名
  end;
var
  Config: ConfigureInfo;

function load(): Boolean;
function loadDefault(): Boolean;
function save(): Boolean;
function SaveDefault(): Boolean;

implementation

function load(): Boolean;
begin
  //
end;

function loadDefault(): Boolean;
begin
  //
end;

function save(): Boolean;
begin
  //
end;

function SaveDefault(): Boolean;
begin
  //
end;

end.