base2infoemp.pas

进销存·完整的·有数据库的·非常完整·只得参考

unit Base2InfoEmp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  EditForm, StdCtrls, Buttons, ComCtrls, DBData, ExtCtrls, dxCntner,
  dxEditor, dxEdLib, dxDBELib, dxExEdtr, Db, ADODB, KsSkinButtons, KsSkinForms,
  KsSkinLabels, KsSkinPanels, KsSkinMessages, KsSkinTabs, se_controls,
  KsSkinSpeedButtons;

type
  TfrmBase2InfoEmp = class(TfrmEditForm)
    bbOk: TSeSkinButton;
    bbNo: TSeSkinButton;
    PageControl1: TSeSkinPageControl;
    TabSheet1: TSeCustomTabSheet;
    TabSheet2: TSeCustomTabSheet;
    Panel1: TSeSkinPanel;
    Panel2: TSeSkinPanel;
    lblName: TSeSkinLabel;
    lblCode: TSeSkinLabel;
    dxDBEdit1: TdxDBEdit;
    edtName: TdxDBEdit;
    Label4: TSeSkinLabel;
    edtDept: TdxDBButtonEdit;
    Label1: TSeSkinLabel;
    dxDBDateEdit1: TdxDBDateEdit;
    Label2: TSeSkinLabel;
    dxDBPickEdit1: TdxDBPickEdit;
    lblLearning: TSeSkinLabel;
    ebtLearning: TdxDBButtonEdit;
    Label3: TSeSkinLabel;
    edtSort: TdxDBButtonEdit;
    Label6: TSeSkinLabel;
    Label7: TSeSkinLabel;
    Label8: TSeSkinLabel;
    Label9: TSeSkinLabel;
    Label10: TSeSkinLabel;
    Label11: TSeSkinLabel;
    dxDBEdit6: TdxDBEdit;
    dxDBEdit7: TdxDBEdit;
    dxDBEdit8: TdxDBEdit;
    dxDBEdit9: TdxDBEdit;
    dxDBEdit10: TdxDBEdit;
    dxDBEdit4: TdxDBEdit;
    Label14: TSeSkinLabel;
    Label12: TSeSkinLabel;
    dxDBMemo1: TdxDBMemo;
    Label15: TSeSkinLabel;
    dxDBEdit11: TdxDBEdit;
    chkQuit: TdxDBCheckEdit;
    Label5: TSeSkinLabel;
    dxDBEdit5: TdxDBEdit;
    Label16: TSeSkinLabel;
    dxDBEdit12: TdxDBEdit;
    Label13: TSeSkinLabel;
    dxDBDateEdit2: TdxDBDateEdit;
    bbAdd: TSeSkinButton;
    dxDBEdit2: TdxDBEdit;
    lblPinYin: TSeSkinLabel;
    edtPinYin: TdxDBEdit;
    SeSkinLabel1: TSeSkinLabel;
    dxDBEdit3: TdxDBEdit;
    procedure bbNoClick(Sender: TObject);
    procedure bbOkClick(Sender: TObject);
    procedure edtDeptButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure ebtLearningButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure edtSortButtonClick(Sender: TObject; AbsoluteIndex: Integer);
    procedure bbAddClick(Sender: TObject);
    procedure edtNameExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtSortKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtDeptKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ebtLearningKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtSortDblClick(Sender: TObject);
    procedure edtDeptDblClick(Sender: TObject);
    procedure ebtLearningDblClick(Sender: TObject);
    procedure dxDBDateEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDBDateEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    bReturn: Boolean;
    lMode: Integer;
    procedure MainShow;
    procedure LoadData;
  public
    { Public declarations }
  end;

function Base2InfoEmpShow(l1Mode: Integer): Boolean;

implementation

uses SysPublic, Base2Info;

{$R *.DFM}

function Base2InfoEmpShow(l1Mode: Integer): Boolean;
var
  frmBase2InfoEmp: TfrmBase2InfoEmp;
begin
  frmBase2InfoEmp := TfrmBase2InfoEmp.Create(Application);
  with frmBase2InfoEmp do
  begin
    lMode := l1Mode;
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

procedure TfrmBase2InfoEmp.MainShow;
begin
  DataSet := edtName.DataSource.DataSet;
  LoadData;
  ShowModal;
end;

procedure TfrmBase2InfoEmp.LoadData;
begin
  bReturn := false;
  Caption := '员工详细资料';
end;

procedure TfrmBase2InfoEmp.bbNoClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBase2InfoEmp.bbOkClick(Sender: TObject);
begin
  inherited;
  if not CheckEditEmpty(1, self, [lblName.Name], [edtName.Name]) then
    Exit;
  bReturn := true;
  Close;
end;

procedure TfrmBase2InfoEmp.edtDeptButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sDept1: string;
begin
  inherited;
  sDept1 := BaseSelect(BASE_DEPT, 1, edtDept.text);
  if sDept1 <> '' then
    DataSet.FieldByName(edtDept.DataField).AsString := sDept1;
end;

procedure TfrmBase2InfoEmp.ebtLearningButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sLearning1: string;
begin
  inherited;
  sLearning1 := BaseSelect(BASE_LEARNING, 1, ebtLearning.Text);
  if sLearning1 <> '' then
    DataSet.FieldByName(ebtLearning.DataField).AsString := sLearning1
end;

procedure TfrmBase2InfoEmp.edtSortButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sSort1: string;
begin
  inherited;
  sSort1 := BaseSelect(BASE_EMPLOYE_SORT, 1, edtSort.Text);
  if sSort1 <> '' then
    DataSet.FieldByName(edtSort.DataField).AsString := sSort1;
end;

procedure TfrmBase2InfoEmp.bbAddClick(Sender: TObject);
begin
  inherited;
  if not CheckEditEmpty(1, self, [lblName.Name], [edtName.Name]) then Exit;
  DataSet.Edit;
  SaveDataSet(TADODataSet(DataSet), false);
  UpdateICCount('Employe', TADODataSet(DataSet).FieldByName('TreeParent').AsInteger);
  DataSet.Last;
  DataSet.Insert;
end;

procedure TfrmBase2InfoEmp.edtNameExit(Sender: TObject);
begin
  inherited;
  DataSet.FieldByName(edtPinYin.DataField).AsString := GetPY(edtName.Text);
end;

procedure TfrmBase2InfoEmp.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  if (bReturn = False) and (DataSet.State in [dsInsert])
    and (Trim(edtName.Text) <> '') then
  begin
    if MsgBox('你没有保存数据，确定要退出吗？', '提示', MB_OKCANCEL) <> IDOK then
      Action := caNone;
  end;
end;

procedure TfrmBase2InfoEmp.edtSortKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_RETURN: TdxDBButtonEdit(Sender).OnButtonClick(nil, 0);
  end;
end;

procedure TfrmBase2InfoEmp.edtDeptKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_RETURN: TdxDBButtonEdit(Sender).OnButtonClick(nil, 0);
  end;
end;

procedure TfrmBase2InfoEmp.ebtLearningKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_RETURN: TdxDBButtonEdit(Sender).OnButtonClick(nil, 0);
  end;
end;

procedure TfrmBase2InfoEmp.edtSortDblClick(Sender: TObject);
begin
  inherited;
  TdxDBButtonEdit(Sender).OnButtonClick(nil, 0);
end;

procedure TfrmBase2InfoEmp.edtDeptDblClick(Sender: TObject);
begin
  inherited;
  TdxDBButtonEdit(Sender).OnButtonClick(nil, 0);
end;

procedure TfrmBase2InfoEmp.ebtLearningDblClick(Sender: TObject);
begin
  inherited;
  TdxDBButtonEdit(Sender).OnButtonClick(nil, 0);
end;

procedure TfrmBase2InfoEmp.dxDBDateEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_DOWN: SendMsg(TWinControl(Sender).Handle, WM_KEYDOWN, VK_F4);
  end;
end;

procedure TfrmBase2InfoEmp.dxDBDateEdit2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_DOWN: SendMsg(TWinControl(Sender).Handle, WM_KEYDOWN, VK_F4);
  end;
end;

end.