frmsysusermanage.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 70 行

unit frmSysUserManage;

interface

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

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;
    Button1: TButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSysUserManage: TFormSysUserManage;

implementation
uses dmSysOperator, DBClient, untConfig, StrUtils;
{$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);
begin
  SysOperatorDM := TSysOperatorDM.Create(nil);
  SysOperatorDM.cdsPerMaster.Data :=
    SysOperatorDM.SocketConQuery.AppServer.QueryPerGroupByDepart('采购');

  SysOperatorDM.cdsEmployee.Data :=
    SysOperatorDM.SocketConQuery.AppServer.QueryEmployeesByDepartId(GetOrderDepartId);
end;

procedure TFormSysUserManage.FormDeactivate(Sender: TObject);
begin
  SysOperatorDM.Free;
end;

procedure TFormSysUserManage.Button1Click(Sender: TObject);
begin
  SysOperatorDM.cdsSysOperator.ApplyUpdates(-1);
end;

end.