personneltype_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit PersonnelType_Unit;

interface

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

type
  TfrmPersonnelType = class(TfrmBaseType)
    procedure btnAddClick(Sender: TObject);
    procedure btnModfiyClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPersonnelType: TfrmPersonnelType;

implementation

uses ClientDM_Unit;

{$R *.dfm}

procedure TfrmPersonnelType.btnAddClick(Sender: TObject);
begin
  inherited;
  DM.cdsPersonnelType.Insert;
  DM.cdsPersonnelType.FieldByName('PersonnelType').AsString :=
    DM.SocketConn.AppServer.GetMaxID('PersonnelType','PersonnelType','1000');
end;

procedure TfrmPersonnelType.btnModfiyClick(Sender: TObject);
begin
  inherited;
  DM.cdsPersonnelType.Edit;
end;

procedure TfrmPersonnelType.btnDelClick(Sender: TObject);
begin
  inherited;
  if Application.MessageBox('确定要删除吗?','提示',68) = IDNo then
    Exit;
  DM.cdsPersonnelType.Delete;
  DM.cdsPersonnelType.ApplyUpdates(0);
end;

procedure TfrmPersonnelType.btnSaveClick(Sender: TObject);
begin
  inherited;
  if DM.cdsPersonnelType.State in [dsInsert,dsEdit] then
  begin
    DM.cdsPersonnelType.Post;
    DM.cdsPersonnelType.ApplyUpdates(0);
  end;
end;

end.