u_web_klxg.pas

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

unit U_WEB_KLXG;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, Buttons, ExtCtrls, TFlatButtonUnit, TFlatEditUnit;

type
   TF_WEB_KLXG = class(TForm)
      Panel1: TPanel;
      LB_OLD: TLabel;
      LB_NEW: TLabel;
      LB_CONF: TLabel;
      ED_YCZKL: TFlatEdit;
      ED_XCZKL: TFlatEdit;
      ED_VCZKL: TFlatEdit;
      Panel2: TPanel;
      BTN_BC: TFlatButton;
      BTN_QX: TFlatButton;
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure BTN_BCClick(Sender: TObject);
      procedure BTN_QXClick(Sender: TObject);
      procedure FormKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure ED_VCZKLExit(Sender: TObject);
      procedure ED_YCZKLKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure FormCreate(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   F_WEB_KLXG: TF_WEB_KLXG;

implementation

uses u_web_dm, Pub_program, ncp;

{$R *.DFM}

procedure TF_WEB_KLXG.FormClose(Sender: TObject;
   var Action: TCloseAction);
begin
   ACTION := caFree;
end;

procedure TF_WEB_KLXG.BTN_BCClick(Sender: TObject);
begin
   {if (ED_YCZKL.Text <> Gstr_czykl) then
      begin
         //MessageDlg('原操作口令不对'+re_input, mtinformation,[mbok], 0);
         MessageDlg(lb_old.Caption + iif(m_lang = 1, '不对', ' IS INCORRECT ') + re_input, mtwarning, [mbok], 0);
         ED_YCZKL.SetFocus;
         exit;
      end;
   with f_dm_audi.SP_CZYKLXG_LSY do
      begin
         close;
         params[1].asstring := Gstr_czygh;
         params[2].asstring := trim(ED_XCZKL.Text);
         params[3].asinteger := Gint_mksybz;
         prepare;
         execproc;
         if params[4].asstring = '1' then
            begin
               close;
               BTN_BC.Enabled := False;
               MessageDlg(iif(m_lang = 1, '修改操作失败', 'MODIFICATION FAILED') + re_input, mtinformation, [mbok], 0);
               ed_yczkl.Text := '';
               ed_xczkl.Text := '';
               ed_vczkl.Text := '';
               ed_yczkl.SetFocus;
               exit;
            end
         else
            close;
         Gstr_czykl := ED_XCZKL.Text;
      end;
   MessageDlg(iif(m_lang = 1, '修改操作成功!', 'IT IS DONE!'), mtinformation, [mbok], 0);
   close;}
end;

procedure TF_WEB_KLXG.BTN_QXClick(Sender: TObject);
begin
   close;
end;

procedure TF_WEB_KLXG.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   case Key of
      VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0);
      vk_escape: close;
   end;
end;

procedure TF_WEB_KLXG.ED_VCZKLExit(Sender: TObject);
begin
   if trim(ed_xczkl.Text) = '' then
      begin
         MessageDlg(lb_new.Caption + null_msg, mtinformation, [mbok], 0);
         ed_xczkl.SetFocus;
         exit;
      end;

   if ED_VCZKL.Text <> ED_XCZKL.Text then
      begin
         MessageDlg(lb_conf.Caption + iif(m_lang = 1, ' 与 ' + lb_new.Caption + '不同', 'IS DIFFERENT FROM ' + lb_new.Caption) + re_input, mtinformation, [mbok], 0);
         ED_XCZKL.Text := '';
         ED_VCZKL.Text := '';
         ED_XCZKL.SetFocus;
      end
   else
      begin
         BTN_BC.Enabled := True;
         btn_bc.SetFocus;
      end;
end;

procedure TF_WEB_KLXG.ED_YCZKLKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   if key <> vk_return then
      exit;
   {if (ED_YCZKL.Text <> Gstr_czykl) then
      begin
         MessageDlg(lb_old.caption + iif(m_lang = 1, '不对', ' IS INCORRECT') + re_input, mtinformation, [mbok], 0);
         ED_YCZKL.SetFocus;
      end; }
end;

procedure TF_WEB_KLXG.FormCreate(Sender: TObject);
begin
   tncp.Create(self);
end;

end.