给社团联合会写的领票系统
November 29th, 2005 by 张磊
Code: unit Unit1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Btn_exit: TButton; memotxt: TMemo; Panel1: TPanel; Editxt: TEdit; Btn_check: TButton; Label1: TLabel; procedure Btn_saveClick(Sender: TObject); procedure Btn_exitClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Btn_checkClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var [...]
