1-工程设计
2-窗体及窗体代码
代码
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Grids,System.Contnrs,
Vcl.Menus;
type
TForm2 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Button1: TButton;
rg1: TRadioGroup;
Label5: TLabel;
Edit4: TEdit;
strngrd1: TStringGrid;
pm1: TPopupMenu;
procedure Edit1Change(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
end;
var
Form2: TForm2;
implementation
uses
Myclass,IniOperator;
{
$R *.dfm}
procedure TForm2.btn1Click(Sender: TObject);
begin
strngrd1.RowCount:=strngrd1.RowCount+1;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
aManMrg: Tmanmanager;
tmpSex:string;
aMan:Tman;
tmpINIFile:TIniOperator;
fileName:string;
i:Integer;
tmpAllMan:TObjectList;
begin
aManMrg:=Tmanmanager.Create;
if rg1.ItemIndex=0 then
tmpSex:='男'
else
tmpSex:='女';
aMan:=Tman.Create;
aMan.Name:= Edit1.Text;
aMan.Sex:=tmpSex;
aMan.Age:=Edit2.Text;
aMan.Tel:= Edit3.Text;
aManMrg.DataCount:=aManMrg.DataCount+1; //