bbsfrm.pas

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

unit Bbsfrm;

interface

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

type
  TBBSForm = class(TForm)
    BitBtn5: TBitBtn;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Memo2: TMemo;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BBSForm: TBBSForm;

implementation
uses DataModule1;


{$R *.dfm}

procedure TBBSForm.BitBtn4Click(Sender: TObject);
begin
   try
   DM.Database1.StartTransaction;
   with DM.TBBBS do
   begin
      Open;
      Append;
      FieldByName('B_Date').AsDateTime :=Date;
      FieldByName('B_Destation').AsString :='';
      FieldByName('B_Memo').AsString :=Memo2.text;
      Post;
      close;
   end;
   DM.Database1.Commit;
    MessageBox(Application.Handle,'发送成功',
        '提示',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL);
   DM.CSShu.Socket.SendText('BBS'); 
   except
   DM.Database1.Rollback;
   end;
end;

end.