ucreateman.pas

Delphi面向对象编程思想附书源码 好用哦！

unit uCreateMan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBClient, Grids, DBGrids,
  uCreateManClass,  DBCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    edtName: TLabeledEdit;
    edtAge: TLabeledEdit;
    edtLanguage: TLabeledEdit;
    ckbMale: TCheckBox;
    btnDelete: TButton;
    rgColor: TRadioGroup;
    DataSource1: TDataSource;
    btnAdd: TButton;
    btnExit: TButton;
    DBNavigator1: TDBNavigator;
    btnGreet: TButton;
    procedure btnDeleteClick(Sender: TObject);
    procedure btnGreetClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure FormDestroy(Sender: TObject);
  private
    procedure WriteInfo;
    procedure ReadInfo;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses DataProcess;

var
  AMan:TMan;
  CDSMan:TCDSMan;
{$R *.dfm}

procedure TForm1.ReadInfo;
begin
  AMan:=CDSMan.Data_Man;
  edtName.Text:=AMan.Name;
  edtAge.Text:=IntToStr(AMan.Age);
  edtLanguage.Text:=AMan.Language;
  rgColor.itemindex:=ord(AMan.SkinColor);
  ckbMale.Checked:=AMan.Male;

end;

procedure TForm1.WriteInfo;
begin
  AMan.ValidData:=True;
  AMan.Name:=edtName.Text;
  AMan.Age:=StrToInt(edtAge.Text);
  AMan.Language:=edtLanguage.Text;
  AMan.SkinColor:=TSkinColor(rgColor.itemindex);
  AMan.Male:=ckbMale.Checked;
  if AMan.ValidData then CDSMan.Data_Man:=AMan
  else  application.MessageBox('输入了非法数据，请检查！','提示信息',0);
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
begin
  DataSource1.DataSet.Delete;
  ReadInfo;
end;

procedure TForm1.btnAddClick(Sender: TObject);
begin
  WriteInfo;
end;

procedure TForm1.btnGreetClick(Sender: TObject);
begin
  AMan.sayHello('你好！');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CDSMan:=TCDSMan.create(nil);
  DataSource1.DataSet:=cdsMan;
  ReadInfo;
end;

procedure TForm1.btnExitClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  ReadInfo;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CDSMan.Free;
  CDSMan:=nil;
end;

end.