【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Department_Unit.pas”一文,供大家参考学习!
unit Department_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids;
type
TfrmDepartment = class(TForm)
btnAdd: TBitBtn;
btnDel: TBitBtn;
btnSave: TBitBtn;
btnClosed: TBitBtn;
Label1: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
dbgrdUsers: TDBGrid;
DBText1: TDBText;
btnCancel: TBitBtn;
procedure btnAddClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnClosedClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDepartment: TfrmDepartment;
implementation
uses DM_Unit;
{$R *.dfm}
procedure TfrmDepartment.btnAddClick(Sender: TObject);
begin
DM.DataSetInsert(DM.cdsDepartment);
DM.cdsDepartment.FieldByName('DepartmentID').AsString := DM.GenerateNumber('Department','DepartmentID');
end;
procedure TfrmDepartment.btnDelClick(Sender: TObject);
begin
DM.DataSetDelete(DM.cdsDepartment);
end;
procedure TfrmDepartment.btnSaveClick(Sender: TObject);
begin
DM.DataSetSave(DM.cdsDepartment);
end;
procedure TfrmDepartment.btnClosedClick(Sender: TObject);
begin
Close;
end;
procedure TfrmDepartment.btnCancelClick(Sender: TObject);
begin
DM.DataSetCancel(DM.cdsDepartment);
end;
end.
上一篇:
DYNSPLITTERWND.CPP
下一篇:
心力衰竭的中医证素及常见证型