ztmodifyc.~pas

根据箱号

unit ztmodifyC;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Cmodel, Menus, StdCtrls, ExtCtrls, Buttons, DB, DBTables, ADODB;

type
  Tztmodify = class(Tmodel)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOCommand1: TADOCommand;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ztmodify: Tztmodify;
  bh:string;

implementation
 uses cmain,login_DC,cdata;
{$R *.dfm}

procedure Tztmodify.FormCreate(Sender: TObject);
begin
  inherited;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from login where 账套名称='''+login_d.dbgrid1.fields[0].value+'''');
  adoquery1.Open;
  bh:=adoquery1.fieldbyname('id').AsString;
  edit1.Text:=adoquery1.fieldbyname('账套名称').AsString;
  edit2.Text:=adoquery1.fieldbyname('IP').AsString;
  edit3.Text:=adoquery1.fieldbyname('数据库名称').AsString;
  edit4.Text:=adoquery1.fieldbyname('用户名').AsString;
  edit5.Text:=adoquery1.fieldbyname('密码').AsString;
end;

procedure Tztmodify.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if trim(edit1.Text)='' then
     begin
       messagedlg('【账套名称】不能为空！',mtinformation,[mbyes],0);
       edit1.SetFocus;
     end
  else
  if trim(edit2.Text)='' then
     begin
       messagedlg('【服务器】不能为空！',mtinformation,[mbyes],0);
       edit2.SetFocus;
     end
  else
  if trim(edit3.Text)='' then
     begin
       messagedlg('【数据库名称】不能为空！',mtinformation,[mbyes],0);
       edit3.SetFocus;
     end
  else
  if trim(edit4.Text)='' then
     begin
       messagedlg('【用户名称】不能为空！',mtinformation,[mbyes],0);
       edit4.SetFocus;
     end
  else
  if trim(edit5.Text)='' then
     begin
       messagedlg('【密码】不能为空！',mtinformation,[mbyes],0);
       edit5.SetFocus;
     end
  else     
  try
    adocommand1.CommandText:='update login set 账套名称='''+edit1.Text+''',ip='''+edit2.Text+''',数据库名称='''+edit3.Text+''',用户名='''+edit4.Text+''',密码='''+edit5.Text+''' where id='+adoquery1.fieldbyname('id').AsString+'';
    adocommand1.Execute; 
  except
    messagedlg('账套修改失败！',mterror,[mbyes],0);
  end;
end;

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

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

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

procedure Tztmodify.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
     edit5.SetFocus;
end;

procedure Tztmodify.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
   if key=#13 then
     bitbtn1.SetFocus;
end;

end.