ummxg.~pas

仓库管理系统（delphi）针对商品与仓库存储商品等信息的管理及维护的管理软件。它能够辅助仓库管理人员对供应商信息、商品基本信息以及商品入库、出库、库存信息查询等进行控制管理

unit UMMXG;

interface

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

type
  TMMXG = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    TabSheet3: TTabSheet;
    ComboBox1: TComboBox;
    Label7: TLabel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Edit7: TEdit;
    Label8: TLabel;
    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);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure SpeedButton6Click(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;

procedure TMMXG.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit2.SetFocus;
end;

procedure TMMXG.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit3.SetFocus;
end;

procedure TMMXG.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit4.SetFocus;
end;






procedure TMMXG.SpeedButton3Click(Sender: TObject);
begin

   if (Edit5.Text='') then
  begin
   Application.MessageBox('新用户名称不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  if (Edit6.Text='') then
  begin
    Application.MessageBox('密码不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit7.Text='') then
  begin
   Application.MessageBox('编号不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;

  With DM.QUSER DO
  Begin
    Close;
    SQL.Clear;
    SQL.Add('insert 用户表(用户编号,用户名称,密码)');
    SQL.Add('values(:用户编号,:用户名称,:密码)');
    parameters.ParamByName('用户编号').Value:=edit7.Text;
    parameters.ParamByName('用户名称').Value:=edit5.Text;
    parameters.ParamByName('密码').Value:=edit6.Text;
    Prepared:=true;
    ExecSQL;
  end;
  DM.DSOUSER.Close;
  DM.DSOUSER.Open;
  Application.MessageBox('申请用户成功!','提示!',64);
end;

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

procedure TMMXG.ComboBox1Change(Sender: TObject);
begin
  DM.QUSER.Locate('用户名称', ComboBox1.text,[]);
end;

procedure TMMXG.SpeedButton5Click(Sender: TObject);
begin
   if (combobox1.Text='') then
  begin
   Application.MessageBox('用户名称不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  With DM.QUSER DO
  Begin
    Close;
    SQL.Clear;
    SQL.Add('delete 用户表');
    SQL.Add('where 用户名称=:用户名称1');
    parameters.ParamByName('用户名称1').Value:=combobox1.Text;
    Prepared:=true;
    ExecSQL;
  end;
Application.MessageBox('用户删除成功!','提示!',64);  
end;

procedure TMMXG.ComboBox1DropDown(Sender: TObject);

 var
  i:integer;
begin
  ComboBox1.Clear;
  DM.QUSER.Open;
  if (DM.QUSER.RecordCount>0) then
    DM.QUSER.First;
  for i:=0 to DM.QUSER.RecordCount-1 do
  begin   //得到所有用户名称
    ComboBox1.Items.Add(DM.QUSER.FieldByName('用户名称').AsString);
    DM.QUSER.Next;
  end;
 end;

procedure TMMXG.SpeedButton6Click(Sender: TObject);
begin
close;
end;

end.