modi_unit.pas

单机进销存管理程序 Delphi+Acce

unit modi_unit;

interface

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

type
  Tmodi_Form = class(TForm)
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox4: TGroupBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    Edit2: TEdit;
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modi_Form: Tmodi_Form;



implementation

uses data;

{$R *.dfm}

procedure Tmodi_Form.RadioButton2Click(Sender: TObject);
begin
edit2.Enabled:=true;
maskedit2.Enabled:=false;
maskedit3.Enabled:=false;
end;

procedure Tmodi_Form.RadioButton1Click(Sender: TObject);
begin
maskedit2.Enabled:=true;
maskedit3.Enabled:=true;
edit2.Enabled:=false;
end;

procedure Tmodi_Form.RadioButton3Click(Sender: TObject);
begin
edit2.Enabled:=true;
maskedit2.Enabled:=true;
maskedit3.Enabled:=true;
end;

procedure Tmodi_Form.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tmodi_Form.BitBtn1Click(Sender: TObject);
begin
data.Database.ADOQ0.Connection := data.Database.ADOC ;
data.Database.ADOQ0.SQL.Clear;
data.Database.ADOQ0.SQL.Add('select * from userid where 用户名=:user and 密码=:password ');
data.Database.ADOQ0.parameters.ParamByName('user').value :=edit1.Text;
data.Database.ADOQ0.parameters.ParamByName('password').value :=maskedit1.Text ;
data.Database.ADOQ0.Active:=true;
if data.Database.ADOQ0.Recordset.RecordCount = 0 then
  showmessage('用户名或密码错误！')
  else
  begin

if length(edit1.Text)= 0   then
   begin
    showmessage('用户名不能为空!');
    edit1.SetFocus;
    end
else if length(maskedit1.Text)= 0 then
   begin
    showmessage('密码不能为空!');
    maskedit1.SetFocus;
    end ;

data.Database.ADOQ0.SQL.Clear;
if radiobutton1.Checked then
begin
if length(maskedit2.text)= 0 then
  begin
  showmessage('密码不能为空!');
  maskedit2.setfocus;
  end
else if length(maskedit3.text)= 0 then
   begin
   showmessage('密码不能为空!');
   maskedit3.setfocus;
   end;

data.Database.ADOQ0.SQL.Add('update userid set 密码=:pass where 用户名=:luser and 密码=:lpass' );
data.Database.ADOQ0.parameters.ParamByName('luser').value :=edit1.Text;
data.Database.ADOQ0.parameters.ParamByName('pass').value :=maskedit2.Text ;
data.Database.ADOQ0.parameters.ParamByName('lpass').value :=maskedit1.Text;
data.Database.ADOQ0.ExecSQL;
showmessage('修改成功!');
close;
end
else if radiobutton2.Checked then
begin
  if length(edit2.text)= 0 then
  begin
  showmessage('用户名不能为空!');
  edit2.setfocus;
  end;
data.Database.ADOQ0.SQL.Add('update userid set 用户名=:name where 用户名=:lname and 密码=:lpass' );
data.Database.ADOQ0.parameters.ParamByName('name').value :=edit2.Text;
data.Database.ADOQ0.parameters.ParamByName('lpass').value :=maskedit1.Text ;
data.Database.ADOQ0.parameters.ParamByName('lname').value :=edit1.Text;
data.Database.ADOQ0.ExecSQL;

showmessage('修改成功!');
close;
end
else
begin
if length(maskedit2.text)= 0 then
  begin
  showmessage('密码不能为空!');
  maskedit2.setfocus;
  end
else if length(maskedit3.text)= 0 then
   begin
   showmessage('密码不能为空!');
   maskedit3.setfocus;
   end
else if length(edit2.text)= 0 then
   begin
   showmessage('用户名不能为空!');
   edit2.setfocus;
   end;

data.Database.ADOQ0.SQL.Add('update userid set 用户名=:name,密码=:pass where 用户名=:lname and 密码=:lpass' );
data.Database.ADOQ0.parameters.ParamByName('name').value :=edit2.Text;
data.Database.ADOQ0.parameters.ParamByName('pass').value :=maskedit2.Text ;
data.Database.ADOQ0.parameters.ParamByName('lname').value :=edit1.Text;
data.Database.ADOQ0.parameters.ParamByName('lpass').value :=maskedit1.Text;
data.Database.ADOQ0.ExecSQL;
showmessage('修改成功!');
close;
end;

end;
end;
end.