changememberunit.~pas

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

unit changememberunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DB, ADODB;

type
  Tfrm_changemember = class(TForm)
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    name: TEdit;
    sex: TComboBox;
    folk: TComboBox;
    edu: TComboBox;
    birthday: TDateTimePicker;
    jointime: TDateTimePicker;
    profession: TComboBox;
    address: TEdit;
    tel: TEdit;
    GroupBox1: TGroupBox;
    id: TEdit;
    Label1: TLabel;
    Label13: TLabel;
    deficiency: TEdit;
    Label16: TLabel;
    dot: TEdit;
    Label14: TLabel;
    Label17: TLabel;
    balance: TEdit;
    Label12: TLabel;
    Label18: TLabel;
    jb: TEdit;
    b_close: TButton;
    b_modify: TButton;
    b_del: TButton;
    procedure FormShow(Sender: TObject);
    procedure b_closeClick(Sender: TObject);
    procedure b_modifyClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    //procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_changemember: Tfrm_changemember;

implementation

{$R *.dfm}
  uses querymemberunit;
procedure Tfrm_changemember.FormShow(Sender: TObject);
begin
 id.Clear;
 id.Enabled:=false;
 {name.Clear;
 tel.Clear;
 sex.ItemIndex:=0;
 folk.ItemIndex:=0;
 edu.ItemIndex:=0;
 birthday.Date:=strtodate('1983-6-27');
 jointime.Date:=strtodate('2005-1-1');
 profession.ItemIndex:=0;
 address.Clear; }
 id.Text:=frm_querymember.q_member.FieldValues['会员编号'];
 name.Text:=frm_querymember.q_member.FieldValues['会员姓名'];
 sex.Text:=frm_querymember.q_member.FieldValues['性别'];
 folk.Text:=frm_querymember.q_member.FieldValues['民族'];
 edu.Text:=frm_querymember.q_member.FieldValues['学历'];
 birthday.Date:=frm_querymember.q_member.FieldValues['生日'];
 jointime.Date:=frm_querymember.q_member.FieldValues['入会时间'];
 profession.Text:=frm_querymember.q_member.FieldValues['职业'];
 tel.Text:=frm_querymember.q_member.FieldValues['电话'];
 address.Text:=frm_querymember.q_member.FieldValues['地址'];
 dot.Text:=floattostr(frm_querymember.q_member.FieldValues['点数']);
 jb.Text:=frm_querymember.q_member.FieldValues['级别'];
 deficiency.Text:=floattostr(frm_querymember.q_member.FieldValues['欠款']);
 balance.Text:=floattostr(frm_querymember.q_member.FieldValues['结余']);
 activecontrol:=name; 
end;

procedure Tfrm_changemember.b_closeClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_changemember.b_modifyClick(Sender: TObject);
var rt:integer;
begin
rt:=messagedlg('确认修改'''+frm_querymember.q_member.FieldValues['会员姓名']+''''+'这记录吗?',mtwarning,[mbyes,mbno],0);
if rt=mryes then
 begin
  frm_querymember.q_member.Edit;
  frm_querymember.q_member.FieldByName('会员姓名').AsString:=name.Text;
  frm_querymember.q_member.FieldByName('性别').AsString:=sex.Text;
  frm_querymember.q_member.FieldByName('民族').AsString:=folk.Text;
  frm_querymember.q_member.FieldByName('学历').AsString:=edu.Text;
  frm_querymember.q_member.FieldByName('生日').AsDateTime:=birthday.DateTime;
  frm_querymember.q_member.FieldByName('入会时间').AsDateTime:=jointime.DateTime;
  frm_querymember.q_member.FieldByName('职业').AsString:=profession.Text;
  frm_querymember.q_member.FieldByName('电话').AsString:=tel.Text;
  frm_querymember.q_member.FieldByName('地址').AsString:=address.Text;
  frm_querymember.q_member.Post;
 end;
 close;
 end;
procedure Tfrm_changemember.b_delClick(Sender: TObject);
var rt:integer;
 s:string;
begin
rt:=messagedlg('确认删除'''+frm_querymember.q_member.FieldValues['会员姓名']+''''+'这记录吗?',mtwarning,[mbyes,mbno],0);
if rt=mryes then
   frm_querymember.q_member.Delete;
close;
end;   
end.