frmsysusermanage.pas

物流供应链管理系统

unit frmSysUserManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, LCDBOperatTool, DB, Mask, DBCtrls, Grids,
  DBGrids, DBSelectDlgEdit, ADODB;

type
  TFormSysUserManage = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    DSEmployee: TDataSource;
    DSSysOperator: TDataSource;
    DSPerMaster: TDataSource;
    DBEdtUsername: TDBEdit;
    DBEdtPassword: TDBEdit;
    DBLCBPerGroup: TDBLookupComboBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBSDEEmployeeId: TDBSelectDlgEdit;
    Label4: TLabel;
    ADOCon: TADOConnection;
    ADOQEmployee: TADOQuery;
    ADOQSysOperator: TADOQuery;
    ADOQPerMaster: TADOQuery;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSysUserManage: TFormSysUserManage;

implementation
uses untConfig, StrUtils, CommonFunc;
{$R *.dfm}

procedure TFormSysUserManage.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFormSysUserManage.FormCreate(Sender: TObject);
var
  LDepId: string;
begin
  ADOCon.Close;
  ADOCon.ConnectionString := GetConnectionString;
  try
    ADOCon.Open;
    LDepId := RightStr(GetWareHouseDepartId,3);
    ADOQEmployee.Parameters.ParamByName('DepartId').Value :=
      LDepId;
    ADOQEmployee.Open;
    ADOQSysOperator.Parameters.ParamByName('DepartId').Value :=
      LDepId;
    ADOQSysOperator.Open;
    ADOQPerMaster.Parameters.ParamByName('Name').Value :=
      '仓库';
    ADOQPerMaster.Open;
  except
    LCShowMessage('数据库连接错误！');
  end;
end;

end.