uachi.pas

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

unit Uachi;

interface

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

type
   TFachi = class(TForm)
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Label4: TLabel;
      Label6: TLabel;
      Label12: TLabel;
      eid: TEdit;
      cblx: TComboBox;
      dchang: TDateTimePicker;
      mnote: TMemo;
      bsave: TButton;
      bclose: TButton;
      etitle: TEdit;
      dblname: TDBLookupComboBox;
      procedure bcloseClick(Sender: TObject);
      procedure FormShow(Sender: TObject);
      procedure bsaveClick(Sender: TObject);
      procedure showdetail(id: string; modify: boolean);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Fachi: TFachi;

implementation

uses Udm, ufunc;

{$R *.dfm}
procedure TFachi.showdetail(id: string; modify: boolean);
begin
   if not (id = 'new') then //不是新增记录，显示当前选中的奖惩记录
   begin
      eid.Enabled := false; //编号不可改
      with dm.Qachi do
      begin
         eid.Text := fieldbyname('id').AsString; //编号
         dblname.KeyValue := fieldbyname('pid').AsString; //姓名
         cblx.ItemIndex := cblx.Items.IndexOf(fieldbyname('tlx').AsString); //类别
         dchang.Date := fieldbyname('pdate').AsDateTime; //日期
         etitle.Text := fieldbyname('ptitle').AsString; //名称
         mnote.Lines.Text := fieldbyname('pmemo').AsString; //备注
      end;
   end
   else //新增数据时初始化部分项目值
   begin
      cblx.ItemIndex := 0;
      bsave.Hint := 'new';
   end;
   bsave.Visible := modify; //根据modify值设置保存按钮显示与否
end;

procedure TFachi.bcloseClick(Sender: TObject);
begin
close;
end;

procedure TFachi.FormShow(Sender: TObject);
begin
   dm.QPlist.close; //关闭数据库连接
   dm.QPlist.Open; //打开数据库连接
end;

procedure TFachi.bsaveClick(Sender: TObject);
var
   itemachi: tachi;
begin
   itemachi := tachi.Create; //创建tachi对象的实例
   itemachi.id := eid.Text; //当前编辑的奖惩编号
   itemachi.pid := dblname.KeyValue; //当前编辑的人员编号
   itemachi.lx := cblx.Text; //当前编辑的类型
   itemachi.title := etitle.Text; //当前编辑的名称
   itemachi.pdate := formatdatetime('yyyy-mm-dd', dchang.Date); //当前编辑的日期
   itemachi.memo := mnote.Lines.Text; //当前编辑的备注
   if bsave.Hint = 'new' then //根据标志判定为新增数据
      //调用对象的insert方法实现数据保存
      itemachi.insert //释放对象、内存
   else
      itemachi.update; //调用对象的update方法实现数据保存
   itemachi.Free; //释放对象、内存
   itemachi := nil;
   //刷新数据库
   dm.qachi.close;
   dm.qachi.Open;
   close
end;

end.