unitbbs.pas

delphi写的基于server和client的聊天源码 有参考意义

unit Unitbbs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls, Wwdbigrd, Wwdbgrid,db;

type
  Tfrmbbs = class(TForm)
    Panel1: TPanel;
    wwDBGrid1: TwwDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure wwDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmbbs: Tfrmbbs;

implementation

uses Unitmsgdm, Unitbbsmx;

{$R *.dfm}

procedure Tfrmbbs.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tfrmbbs.wwDBGrid1DblClick(Sender: TObject);
var
  sized:real;
begin
  if dm.cdsggb.IsEmpty then
  begin
    application.MessageBox('没有发布的信息！',pchar(application.Title),mb_iconwarning);
    exit;
  end;
  frmbbsmx:=tfrmbbsmx.Create(self);
  frmbbsmx.lzt.Caption:=trim(dm.cdsggb.fieldbyname('lmzt').AsString);
  frmbbsmx.lfjname.Caption:=trim(dm.cdsggb.fieldbyname('fjname').AsString);
  frmbbsmx.mmemo.text:=trim(dm.cdsggb.fieldbyname('memo').AsString);
  sized:=tblobfield(dm.cdsggb.FieldByName('fj')).BlobSize / (1024*1024);
  if sized<1 then
  begin
    frmbbsmx.Lsize.Caption:=format('%4.2f',[sized])+'KB';
  end else
  begin
    frmbbsmx.Lsize.Caption:=format('%4.2f',[sized])+'MB';
  end;
  frmbbsmx.ShowModal;
end;

end.