addyg.pas

来自「客户档案管理-delphi开发」· PAS 代码 · 共 74 行

unit addyg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, add, bsSkinShellCtrls, Menus, bsSkinMenus, DB, ADODB,
  BusinessSkinForm, bsSkinCtrls, StdCtrls, bsSkinBoxCtrls, bsdbctrls, Mask,
  ExtCtrls, ComCtrls, bsSkinTabs;

type
  TFormAddYG = class(TFormAdd)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBComboBox1: TbsSkinDBComboBox;
    Label3: TLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinPasswordEdit1: TbsSkinPasswordEdit;
    bsSkinPasswordEdit2: TbsSkinPasswordEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinStdLabel10: TbsSkinStdLabel;
    cdsAddDSDesigner: TStringField;
    cdsAddDSDesigner2: TStringField;
    cdsAddDSDesigner3: TStringField;
    cdsAddDSDesigner4: TStringField;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinDBMemo1: TbsSkinDBMemo;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure cdsAddNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddYG: TFormAddYG;

implementation

uses
  dm;

{$R *.dfm}

procedure TFormAddYG.cdsAddNewRecord(DataSet: TDataSet);
begin
  inherited;
  DataSet.FindField('密码').Value := '1234';
  DataSet.FindField('人员类别').Value := '业务员';
end;

procedure TFormAddYG.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
  if bsSkinPasswordEdit1.Text <> bsSkinPasswordEdit2.Text then
  begin
    dbs.ShowMsgDlgInf('两个密码输入不一致！请重新输入！');
  end
  else
  begin
    if not (dsAdd.State in [dsInsert, dsEdit]) then
      cdsAdd.Edit;
    cdsAdd.FindField('密码').Value := bsSkinPasswordEdit1.Text;
    dbs.PostWithError(cdsAdd);
    dbs.ShowMsgDlgInf('密码已修改！');
  end;
end;

end.