ummxg.~pas

delphi 开发的完整的仓库管理系统（带数据库）

unit UMMXG;

interface

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

type
  TMMXG = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    Function CanSave: Boolean;
    procedure tr;
    { Public declarations }
  end;

var
  MMXG: TMMXG;

implementation

uses UDM;

{$R *.dfm}
procedure TMMXG.tr;
var
i:integer;
begin
  for i:=ComponentCount - 1 downto 0 do
    if(Components[i] is TEdit) then
    TEdit(Components[i]).Text:=trim(TEdit(Components[i]).Text);
end;
function TMMXG.CanSave: Boolean;
begin
{  if (Edit1.Text='') then
  begin
   Result:=False;
   Application.MessageBox('用户名称不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  if (Edit2.Text='') then
  begin
    Result:=False;
    Application.MessageBox('原密码不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit3.Text='') then
  begin
    Result:=False;
    Application.MessageBox('新密码不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit4.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请确认密码！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;    }
end;
procedure TMMXG.SpeedButton1Click(Sender: TObject);
begin            //判断是否为空
  if (Edit1.Text='') then
  begin
   Application.MessageBox('用户名称不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  if (Edit2.Text='') then
  begin
    Application.MessageBox('原密码不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit3.Text='') then
  begin
    Application.MessageBox('新密码不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit4.Text='') then
  begin
    Application.MessageBox('请确认密码！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if Edit2.Text<> DM.DSOUSER.FieldByName('密码').Value then
  begin
    Application.MessageBox('原密码错误，请重新输入！','提示！',64);
    Edit2.Clear;
    Exit;
  end;
  if Edit3.Text<>Edit4.Text then       //判断输入是否相同
  begin
    Application.MessageBox('两次输入密码不同，请重新输入!','提示!',64);
    Edit4.Clear;
    Edit4.SetFocus;
    exit;
  end;
  With DM.QUSER DO              //刷新数据表内容
  begin
    Close;
    SQL.Clear;
    SQL.Add('update 用户表 Set 用户名称=:用户名称1,');
    SQL.Add('密码=:密码1 Where 用户编号=:用户编号1');
    Parameters.Items[0].Value:=Edit1.Text;
    Parameters.Items[1].Value:=Edit4.Text;
    Parameters.Items[2].Value:=DM.DSOUSER.FieldByName('用户编号').AsString;
    Prepared:=true;
    ExecSQL;
  end;
  DM.DSOUSER.Close;
  DM.DSOUSER.Open;
  Application.MessageBox('保存成功!','提示!',64);
end;

procedure TMMXG.Edit1Change(Sender: TObject);
begin
tr
end;

procedure TMMXG.Edit2Change(Sender: TObject);
begin
tr
end;

procedure TMMXG.Edit3Change(Sender: TObject);
begin
tr
end;

procedure TMMXG.Edit4Change(Sender: TObject);
begin
tr
end;

procedure TMMXG.FormCreate(Sender: TObject);
begin                    //窗体创建时打开用户表
  with DM.QUSER do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from 用户表');
    Open;
  end;
  DM.DSOUSER.Open;
end;

procedure TMMXG.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

end.