sendmess.pas

delphi框架可以学习, 写的很好的

unit SendMess;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, Mask, RzEdit, ComCtrls, RzListVw, RzCmboBx;

type
  TfrmSendMess = class(TForm)
    Label1: TLabel;
    RzBitBtn1: TRzBitBtn;
    btnCancel: TRzBitBtn;
    Label3: TLabel;
    mmNote: TRzMemo;
    Label2: TLabel;
    edtTip: TRzEdit;
    cboxUser: TRzComboBox;
    procedure btnCancelClick(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSendMess: TfrmSendMess;

implementation

uses MyPublic, dm32;

{$R *.dfm}

procedure TfrmSendMess.btnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSendMess.RzBitBtn1Click(Sender: TObject);
var ls_SQL, ls_Err, ls_tip: String;
begin
  //发送消息
  if cboxUser.Text = '' then
  begin
    ShowMess('提示', '必须选择发送目的人！', MB_OK);
    Exit;
  end;

  ls_Tip := edtTip.Text;
  if ls_tip = '' then
  if not ShowMess('提示',
                  '必须输入主题，是否以内容的第一行为准？', MB_OKCANCEL) then Exit
                                                                         else ls_Tip := mmNote.Lines.Strings[0];
  try
    with dm.qryFree do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO JOBNOTE (FZR, WTSJ, WTZT, WTNR, CLBZ, USERCODE, FZUSERCODE) VALUES ('+
              ''''+ CurrentUser.EmpName+ ''','+
              ''''+ FormatDateTime('yyyy-mm-dd HH:nn:ss', Now)+''','+
              ''''+ ls_tip +''','+
              ':NR,'+
              IntToStr(SHBZ_NOT)+','+
              ''''+ GetKeyValue(cboxUser.Text, 1)+''','+
              ''''+ CurrentUser.UserCode+''')');
      Parameters.ParamByName('NR').Value := mmNote.Lines.Text;
      ExecSQL;
    end;
    
    Close;
  except
    On E: Exception do
      ShowMess('系统错误','保存消息至服务器时失败，具体为：'+ E.Message, MB_OK);
  end;
end;

procedure TfrmSendMess.FormCreate(Sender: TObject);
begin
  //生成用户名单
  if (_Para1 <> '') AND (_Para2 <> '') then
  begin
    cboxUser.Text := _Para1;
    edtTip.Text   := '回复：';

    mmNote.Lines.Add('-------------------------------------------');
    mmNote.Lines.Add(_Para2);
    mmNote.Lines.Add('===========================================');
  end;

  GetGroupVal(cboxUser.Items, 'SELECT USERCODE + '' = '' + EMPNAME AS VAL FROM USERINFO');
end;

end.