changeemployeeunit.pas

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

unit changeemployeeunit;

interface

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

type
  Tfrm_changeemployee = class(TForm)
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label11: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    ename: TEdit;
    sex: TComboBox;
    eduLevel: TComboBox;
    address: TEdit;
    tel: TEdit;
    birthDay: TDateTimePicker;
    joinTime: TDateTimePicker;
    b_modify: TButton;
    b_close: TButton;
    Label6: TLabel;
    id: TEdit;
    folk: TComboBox;
    Label8: TLabel;
    note: TEdit;
    b_del: TButton;
    procedure FormCreate(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure b_modifyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_changeemployee: Tfrm_changeemployee;

implementation

{$R *.dfm}
  uses queryemployeeunit;
procedure Tfrm_changeemployee.FormCreate(Sender: TObject);
var s:string;
begin
 with frm_queryemployee.q_employee do
  begin
   id.Text:=FieldValues['员工编号'];
   ename.Text:=fieldvalues['员工姓名'];
   s:=fieldvalues['民族'];
  // folk.ItemIndex:=folk.Items.IndexOf(folk.Items.GetText);
   folk.Text:=fieldvalues['民族'];
   sex.Text:=fieldvalues['性别'];
   birthday.Date:=fieldvalues['生日'];
   edulevel.Text:=fieldvalues['学历'];
   tel.Text:=fieldvalues['电话'];
   jointime.Date:=fieldvalues['加盟时间'];
   address.Text:=fieldvalues['地址'];
   activecontrol:=ename;
  end;
 end;


procedure Tfrm_changeemployee.b_delClick(Sender: TObject);
var rt:integer;
begin
 rt:=messagedlg('确定要删除'''+ename.Text+''''+'这条记录吗?',mtwarning,[mbyes,mbno],0);
 if rt=mryes  then  frm_queryemployee.q_employee.Delete;
 showmessage('一条记录成功被删除');
 close;
end;
procedure Tfrm_changeemployee.b_modifyClick(Sender: TObject);
var rt:integer;
    f,e:string;
begin
 if sex.Text='请选择性别' then
  begin
   showmessage('请选择性别');
   activecontrol:=sex;
   exit;
  end;
 rt:=messagedlg('确定要修改'''+ename.Text+''''+'这条记录吗?',mtwarning,[mbyes,mbno],0);
 if rt=mryes then
  begin
    with frm_queryemployee.q_employee do
     begin
        edit;
        FieldByName('员工姓名').asstring:=ename.Text;
        fieldByName('民族').asstring:=folk.Text;
        fieldbyname('性别').AsString:=sex.Text;
        FieldByName('生日').AsDateTime:=birthday.Date;
        FieldByName('学历').asstring:=edulevel.Text;
        FieldByName('电话').asstring:=tel.Text;
        FieldByName('加盟时间').AsDateTime:=jointime.Date;
        FieldByName('地址').asstring:=address.Text;
        FieldByName('备注').asstring:=note.Text;
        post;
     end;
 end;
 close;
 end;

end.