ztxzc.pas

根据箱号

unit ztxzC;

interface

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

type
  Tztxz = 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 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
  ztxz: Tztxz;

implementation
 uses Cmain;
{$R *.dfm}

procedure Tztxz.BitBtn1Click(Sender: TObject);
var
  id1:string;
begin
  inherited;
  if trim(edit1.Text)='' then
     begin
       messagedlg('【账套名称】不能为空！',mtinformation,[mbyes],0);
       edit1.SetFocus;
     end
  else
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from login where 账套名称='''+edit1.text+'''');
    adoquery1.Open;
    if adoquery1.RecordCount=1 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
  begin
  try
    adocommand1.CommandText:='insert into login ([账套名称],[IP],[数据库名称],[用户名],[密码]) Values ('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit4.Text+''')';
    adocommand1.Execute;
    modalresult:=mrok;
  except
    messagedlg('账套新增失败！',mterror,[mbyes],0);
  end;
end;
end;
end;

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

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

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

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

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

end.