base2infoemp.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

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, KsControls, KsButtons,
  KsSkinButtons, KsHooks, KsForms, KsSkinForms, KsLabels, KsSkinLabels,
  KsPanels, KsSkinPanels, KsMessages, KsSkinMessages, KsTabs, KsSkinTabs;

type
  TfrmBase2InfoEmp = class(TfrmEditForm)
    bbOk: TSeSkinButton;
    bbNo: TSeSkinButton;
    PageControl1: TSeSkinPageControl;
    TabSheet1: TKsCustomTabSheet;
    TabSheet2: TKsCustomTabSheet;
    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.