database.~pas

来自「使用delphi自带的控件」· ~PAS 代码 · 共 75 行

unit Database;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, CommonDef;

type
  TCustomerData = class(TDataModule)
//    procedure LineItemsCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CustomerData: TCustomerData;

function UserLogin(UserName: string; Password: string): Boolean;
function UserLogoff(UserName: string): Boolean;
function GetUserCList(UserName: string; var Count: Integer;
  var List: array of TMyCorrMan; size: Integer): Boolean;


implementation

{$R *.dfm}
{***
procedure TCustomerData.LineItemsCalcFields(DataSet: TDataSet);
begin
  LineItemsExtendedPrice.Value := LineItemsPrice.Value *
    ((100 - LineItemsDiscount.Value) / 100);
  LineItemsTotal.Value := LineItemsExtendedPrice.Value *
    LineItemsQty.Value;
end;
**}

function UserLogin(UserName: string; Password: string): Boolean;
begin
  Result := ((UserName='zhou') And (Password = 'abcdef'));
end;

function UserLogoff(UserName: string): Boolean;
begin
  Result := True;
end;


function GetUserCList(UserName: string; var Count: Integer;
  var List: array of TMyCorrMan; size: Integer): Boolean;
begin
  Count := 3;
  List[0].UserName := '小黑';
  List[0].UserTitle := '小黑';
  List[0].EmailAddress := '[e-mail]';
  List[0].MessageCount := 27;
  List[0].Status := cnsOnline;
  List[1].UserName := '小黑1';
  List[1].UserTitle := '小黑1';
  List[1].EmailAddress := '[e-mail]';
  List[1].MessageCount := 27;
  List[1].Status := cnsOnline;
  List[2].UserName := '小黑2';
  List[2].UserTitle := '小黑2';
  List[2].EmailAddress := '[e-mail]';
  List[2].MessageCount := 27;
  List[2].Status := cnsOnline;
  Result := True;
end;


end.