msg_edit.pas

个人信息管理系统

unit Msg_Edit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls,DataDefine, Mask, DBCtrls,dm, ExtCtrls, DB, ADODB;

type
  TMsg_EditFrm = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBNavigator1: TDBNavigator;
    msg_memo: TDBMemo;
    GroupBox2: TGroupBox;
    Title_edit: TDBEdit;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Title_editKeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBLookupComboBox1CloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Msg_EditFrm: TMsg_EditFrm;
  msg_Edit_Type:integer;
implementation

{$R *.dfm}
   uses   ProMain;
procedure TMsg_EditFrm.Button2Click(Sender: TObject);
var RET:boolean;
begin
if Title_edit.Text='' then exit;
RET:=True;
if msg_Edit_Type<>0 then
Begin
Try
Tmp_Connection.BeginTrans;
if msg_Edit_Type=1 Then
Begin
  dmfrm.Table_MSG.Fields[2].Value:=curfilt;
  RET:=True;
end
else if msg_Edit_Type=2 Then
Begin
dmfrm.Table_MSG.Fields[1].Value:=Title_edit.Text;
dmfrm.Table_MSG.Fields[3].Value:=msg_memo.Text;
  RET:=True;
end;
dmfrm.Table_MSG.Post;
Tmp_Connection.CommitTrans;
except
Tmp_Connection.RollbackTrans;
end;
End;
if ret then
msg_Editfrm.ModalResult:=mrOK;
///msg_Editfrm.Visible:=False;
end;
   
procedure TMsg_EditFrm.Button1Click(Sender: TObject);
begin
msg_Editfrm.ModalResult:=mrOK;
end;

procedure TMsg_EditFrm.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
msg_Edit_Type:=0;

end;

procedure TMsg_EditFrm.Title_editKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 Then
msg_memo.SetFocus;
end;

procedure TMsg_EditFrm.DBLookupComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 Then
button2.SetFocus;
end;

procedure TMsg_EditFrm.FormShow(Sender: TObject);
begin
Title_Edit.SetFocus;
end;

procedure TMsg_EditFrm.Button3Click(Sender: TObject);
begin
if Title_edit.Text='' then exit;
if msg_Edit_Type<>0 then
Begin
Try
Tmp_Connection.BeginTrans;
if msg_Edit_Type=1 Then
Begin
  dmfrm.Table_MSG.Fields[2].Value:=curfilt;
end
else if (msg_Edit_Type=2)  Then
Begin
dmfrm.Table_MSG.Fields[1].Value:=Title_edit.Text;
dmfrm.Table_MSG.Fields[3].Value:=msg_memo.Text;
end;
dmfrm.Table_MSG.Post;
Tmp_Connection.CommitTrans;
dmfrm.Table_MSG.Edit;
button3.Enabled:=False;
except
Tmp_Connection.RollbackTrans;
end;

End;
end;

procedure TMsg_EditFrm.DBLookupComboBox1CloseUp(Sender: TObject);
begin
button3.Enabled:=True;
end;

end.