frmsysoperator.pas

物流供应链管理系统

unit frmSysOperator;

interface

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

type
  TFormSysOperator = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    DBGrid1: TDBGrid;
    DBEdtUserId: TDBEdit;
    DBEdtPassword: TDBEdit;
    DBSDEEmployeeId: TDBSelectDlgEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ADOCon: TADOConnection;
    ADOTEmployee: TADOTable;
    ADOTPermission: TADOTable;
    DSSysOperator: TDataSource;
    DSEmployee: TDataSource;
    DSPermission: TDataSource;
    CBField: TComboBox;
    RBEqual: TRadioButton;
    RBContain: TRadioButton;
    EdtSearchValue: TEdit;
    BtnSearch: TButton;
    ADOQSysOperator: TADOQuery;
    ADOTEmployeeId: TWideStringField;
    ADOTEmployeeName: TWideStringField;
    Button1: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure BtnSearchClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSysOperator: TFormSysOperator;

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

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

procedure TFormSysOperator.FormCreate(Sender: TObject);
begin
  ADOCon.Close;
  ADOCon.ConnectionString := GetConnectionString;
  try
    ADOCon.Open;
    ADOQSysOperator.Open;
    ADOTEmployee.Open;
    ADOTPermission.Open;
  except
    ADOCon.Close;
    raise;
  end;
end;

procedure TFormSysOperator.FormDeactivate(Sender: TObject);
begin
  ADOCon.Close;
end;

procedure TFormSysOperator.BtnSearchClick(Sender: TObject);
var
  LName, LCon, LValue: string;
  LSql: string;
begin

  if (not CheckInput(CBField)) or (not CheckInput(EdtSearchValue))then Exit;
  LName := CBField.Items.ValueFromIndex[CBField.ItemIndex];
  LCon := IfThen(RBEqual.Checked,' = ', 'like');
  LValue := Trim(EdtSearchValue.Text);
  LSql := Format('select * from t_SysOperator where %s %s %s',[LName, LCon, LValue]);
  ADOQSysOperator.Connection := ADOCon;
  ADOQSysOperator.Close;
  ADOQSysOperator.SQL.Text := LSql;
  ADOQSysOperator.Open;
end;

procedure TFormSysOperator.Button1Click(Sender: TObject);
begin
  ADOQSysOperator.Close;
  ADOQSysOperator.SQL.Text := 'select * from t_SysOperator';
  ADOQSysOperator.Open;
end;

end.