udep.pas

用于计算机专业程序设计 大家可以共同的分享. 如果喜欢请收藏

unit Udep;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFdep = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label12: TLabel;
    eid: TEdit;
    ename: TEdit;
    mnote: TMemo;
    bsave: TButton;
    bclose: TButton;
    procedure bcloseClick(Sender: TObject);
    procedure bsaveClick(Sender: TObject);
    procedure showdetail(id: string; modify: boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fdep: TFdep;
implementation

uses ufunc, Udm;
{$R *.dfm}
procedure TFdep.showdetail(id: string; modify: boolean);
begin
   if not (id = 'new') then //不是新增部门记录，显示当前选中的部门记录
   begin
      eid.Enabled := false; //部门编号不可改
      with dm.qdep do
      begin
         eid.Text := fieldbyname('id').AsString; //编号
         ename.Text := fieldbyname('Dname').AsString; //名称
         mnote.Lines.Text := fieldbyname('Dmemo').AsString; //备注
      end;
   end
   else //新增数据时初始化部分项目值
   begin
      bsave.Hint := 'new';
   end;
   bsave.Visible := modify; //根据modify值设置保存按钮显示与否
end;
procedure TFdep.bcloseClick(Sender: TObject);
begin
close
end;

procedure TFdep.bsaveClick(Sender: TObject);
var
   itemdep: tdep;
begin
   itemdep := tdep.Create; //创建tdep对象的实例
   itemdep.id := eid.Text; //当前编辑的编号
   itemdep.Pname := ename.Text; //当前编辑的部门
   itemdep.Pmemo := mnote.Lines.Text; //当前编辑的备注
   if bsave.Hint = 'new' then //根据标志判定为新增数据
      //调用对象的insert方法实现数据保存
      itemdep.insert //释放对象、内存
   else
      itemdep.update; //调用对象的update方法实现数据保存
   itemdep.Free; //释放对象、内存
   itemdep := nil;
   //刷新数据库
   dm.qdep.close;
   dm.qdep.Open;
   close
end;

end.