u_web_cxdl.pas

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

unit U_WEB_CXDL;

interface

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

type
   TF_WEB_CXDL = class(TForm)
      Panel1: TPanel;
      Label3: TLabel;
      Label1: TLabel;
      Label2: TLabel;
      ED_CZYGH: TFlatEdit;
      ED_CZYKL: TFlatEdit;
      ed_czyxm: TFlatEdit;
      Panel2: TPanel;
      BTN_QR: TFlatButton;
      BTN_QX: TFlatButton;
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure BTN_QXClick(Sender: TObject);
      procedure ED_CZYKLChange(Sender: TObject);
      procedure BTN_QRClick(Sender: TObject);
      procedure FormKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure ED_CZYKLKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure ED_CZYGHKeyUp(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure FormCreate(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   F_WEB_CXDL: TF_WEB_CXDL;
   lstr_czyxm, lstr_hjdmc: string;
   lint_qx, lint_hjdcd: integer;

implementation

uses u_web_dm, pub_program, u_web_main, ncp;

{$R *.DFM}

procedure TF_WEB_CXDL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   action := cafree;
end;

procedure TF_WEB_CXDL.BTN_QXClick(Sender: TObject);
begin
   g_bsel := false;
   close;
end;

procedure TF_WEB_CXDL.ED_CZYKLChange(Sender: TObject);
begin
   if Ed_CZYKL.Text <> '' then
      BTN_QR.Enabled := True
   else
      BTN_QR.Enabled := False;
end;

procedure TF_WEB_CXDL.BTN_QRClick(Sender: TObject);
var
   re: string;
begin
   {with f_dm_audi.SP_XTDL_LSY do
      begin
         close;
         parambyname('@s_czygh').asstring := ED_CZYGH.Text;
         parambyname('@s_password').asstring := ED_CZYKL.Text;
         parambyname('@i_mksybz').asinteger := Gint_mksybz;
         prepare;
         execproc;
         re := parambyname('@s_result').asstring;
         if re <> '0' then
            begin
               close;
               if re = '1' then
                  MessageDlg(iif(m_lang = 1, '操作员工号或口令错误', 'INCORRECT PASSWORD') + re_input, mtinformation, [mbok], 0);
               ED_CZYKL.SetFocus;
               ED_CZYKL.SelectAll;
               abort;
            end;
         GStr_Czyxm := parambyname('@s_name').asstring;
         Gstr_qxjb := parambyname('@s_qxjb').asstring;
         Gint_level := parambyname('@i_qx').asinteger;
         Gstr_depno := parambyname('@s_depno').asstring;
         Gstr_bmmc := parambyname('@s_bmmc').asstring;
         Gint_qxjb := strtoint(getpartstr(Gstr_qxjb));
         close;
      end;
   GStr_Czygh := ED_CZYGH.Text;
   GStr_Czykl := ED_CZYKL.Text;
   with f_dm_audi.SP_REC_LOG_LSY do
      begin
         close;
         parambyname('@opno').asstring := Gstr_czygh;
         parambyname('@name').asstring := Gstr_czyxm;
         parambyname('@type').asinteger := 0;
         parambyname('@depno').asstring := Gstr_depno;
         parambyname('@computername').asstring := Gstr_compu;
         prepare;
         execproc;
         close;
      end;
   with f_reca_dm.qy_cx do
      begin
         close;
         sql.clear;
         sql.add('select date,genflag from CONFIG');
         open;
         Gstr_pubdate := datetostr(fieldbyname('date').asdatetime);
         Gint_genflag := fieldbyname('genflag').asinteger;
         close;
         sql.Clear;
         sql.Add('delete from tmpbills where jzopno=:opno and computername=:computername');
         parambyname('opno').asstring := Gstr_czygh;
         parambyname('computername').asstring := Gstr_compu;
         prepare;
         execsql;
         close;
         sql.Clear;
         sql.Add('delete from tmppay where jzopno=:opno and computername=:computername');
         parambyname('opno').asstring := Gstr_czygh;
         parambyname('computername').asstring := Gstr_compu;
         prepare;
         execsql;
         close;
      end;
   with f_hotel_main do
      begin
         MD_XTDL_ZX.enabled := true;
         MD_XTDL_KLXG.enabled := true;
         sb_ztt.panels[0].Text := 'OPERATOR: ' + GStr_Czyxm;
         sb_ztt.panels[1].Text := Gstr_bmmc + '      ' + chr(gint_genflag + 65) + gen_flag;
         sb_ztt.panels[2].Text := iif(m_lang = 1, '威达酒店管理系统', 'WEDA HOTEL MANAGMENT SYSTEM');
         sb_ztt.panels[3].Text := 'SYS-DATE: ' + Gstr_pubdate + ' ' + formatdatetime('hh:mm:ss', now);
         init_menu(sender);
         case gint_clock of
            0: mi_jd_clock.Caption := iif(m_lang = 1, '预退客房查询 (&N)', 'EXP C/O ENQ (&N)');
            else
               mi_jd_clock.Caption := iif(m_lang = 1, '到点钟房查询 (&N)', 'TIMED CLOCK ENQ (&N)');
         end;
         md_lang.visible := gint_lan = 1;
      end;
   BTN_QXClick(self);
   g_bsel := true;}
end;

procedure TF_WEB_CXDL.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   case Key of
      VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0);
      VK_UP: Perform(WM_NEXTDLGCTL, 1, 0);
      VK_DOWN: Perform(WM_NEXTDLGCTL, 0, 0);
      VK_ESCAPE: BTN_QXClick(self);
   end;
end;

procedure TF_WEB_CXDL.ED_CZYKLKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   if key = vk_return then
      BTN_QRClick(Self);
end;

procedure TF_WEB_CXDL.ED_CZYGHKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   {if length(trim(ed_czygh.Text)) = 4 then
      with f_web_dm.qy_wangy do
         begin
            close;
            sql.Clear;
            sql.Add('select name from password where opno=:opno and mksybz=:mksybz');
            parambyname('opno').asstring := trim(ed_czygh.text);
            parambyname('mksybz').asinteger := Gint_mksybz;
            prepare;
            open;
            if recordcount <> 0 then
               begin
                  ed_czyxm.Text := fieldbyname('name').asstring;
                  close;
                  ed_czykl.SetFocus;
               end
            else
               begin
                  ed_czygh.SetFocus;
                  exit;
               end;
         end;
   }
end;

procedure TF_WEB_CXDL.FormCreate(Sender: TObject);
begin
   g_bsel := false;
   //if f_reca_dm.HOTELDB.Connected then
   //   f_reca_dm.HOTELDB.Connected := false;
   tncp.Create(self);
end;

end.