u_web_gstinfo.pas

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

procedure TF_WEB_GSTINFO.DealTag(Sender: Tobject; UpDown: integer; Tag: integer);
begin
   case Tag of
      2: ed_vip.Text := nextvip(trim(ed_vip.text), updown);
      5:
         begin
            if (trim(ed_sex.text) = male_msg) then
               ed_sex.Text := fema_msg
            else
               ed_sex.Text := male_msg;
         end;
      20:
         if ActiveControl is TFlatComboBox then
            TFlatComboBox(ActiveControl).DroppedDown := true;
   end;
end;

procedure TF_WEB_GSTINFO.ed_costnoExit(Sender: TObject);
begin
   if not analy_com_wy(sender) then
      begin
         (sender as TFlatComboBox).droppeddown := true;
         exit;
      end;
end;

procedure TF_WEB_GSTINFO.check_pn_folio;
begin
   if trim(ed_name.text) = '' then
      begin
         MessageDlg(lb_name.caption + null_msg, mtinformation, [mbok], 0);
         ed_name.SetFocus;
         abort;
      end;
end;

procedure TF_WEB_GSTINFO.ED_REMARKExit(Sender: TObject);
begin
   check_pn_folio;
   with sg_jl do
      begin
         if updrow <> -1 then
            begin
               arow := updrow;
               updrow := -1;
               if cells[colcount, arow] <> 'add' then
                  cells[colcount, arow] := 'modify';
            end
         else
            begin
               str_grid_wy(sg_jl, arow);
               cells[colcount, arow] := 'add';
            end;
         //   s := '姓  名*16*称谓*10*VIP*5*出生日期*11*性别*5*国籍*12*联系电话_1*16*移动电话_1*16*嗜好*21*备注*18*EMAIL*14*索引*6*英文名*16*联系电话_2*16*移动电话_2*16*数据状态*14*';

         cells[0, arow] := uppercase_wy(ed_name.Text);
         cells[1, arow] := uppercase_wy(ed_hello.Text);
         cells[2, arow] := ed_vip.Text;
         cells[3, arow] := ed_birth.Text;
         cells[4, arow] := ed_sex.Text;
         cells[5, arow] := cb_nation.Text;
         cells[6, arow] := trim(ed_telno1.Text);
         cells[7, arow] := trim(ed_mtelno1.Text);
         cells[8, arow] := trim(ed_tsyq.Text);
         cells[9, arow] := trim(ed_remark.Text);
         cells[10, arow] := trim(ed_email.Text);
         cells[11, arow] := trim(ed_idx.Text);
         cells[12, arow] := uppercase_wy(ed_namee.Text);
         cells[13, arow] := trim(ed_telno2.Text);
         cells[14, arow] := trim(ed_mtelno2.Text);
         bztomc_wy(sg_jl, colcount, colcount - 1);
      end;
   clearpn_wy(pn_vip, true);
   bn_bc.SetFocus;
   bn_del.enabled := false;
   pn_vip.Enabled := false;
   colorpn_wy(pn_vip, pn_vip.Color);
end;

procedure TF_WEB_GSTINFO.BN_DELClick(Sender: TObject);
begin
   if MessageDlg(del_msg, mtconfirmation, [mbyes, mbno], 0) = IDNO then
      begin
         updrow := -1;
         bn_del.Enabled := false;
         exit;
      end;
   del_sg_wy(sg_jl, updrow);
   bn_del.Enabled := false;
   clearpn_wy(pn_vip, true, true);
   pn_vip.Enabled := false;
   colorpn_wy(pn_vip, pn_vip.Color);
end;

procedure TF_WEB_GSTINFO.BN_FHClick(Sender: TObject);
begin
   if not noedit_sg(sg_jl) then
      if MessageDlg(asksave_msg, mtConfirmation, [mbyes, mbno], 0) = mrno then
         exit;
   close;
end;

procedure TF_WEB_GSTINFO.SG_JLDblClick(Sender: TObject);
begin
   with sg_jl do
      begin
         if (row = 0) then
            exit;
         if not check_sg(sg_jl, row, true) then
            exit;
         arow := row;
         updrow := row;
         bn_del.Enabled := true;
         ed_name.Text := cells[0, arow];
         ed_hello.Text := cells[1, arow];
         ed_vip.Text := cells[2, arow];
         ed_birth.Text := cells[3, arow];
         ed_sex.Text := cells[4, arow];
         cb_nation.Text := cells[5, arow];
         ed_telno1.Text := cells[6, arow];
         ed_mtelno1.Text := cells[7, arow];
         ed_tsyq.Text := cells[8, arow];
         ed_remark.Text := cells[9, arow];
         ed_email.Text := cells[10, arow];
         ed_idx.Text := cells[11, arow];
         ed_namee.Text := cells[12, arow];
         ed_telno2.Text := cells[13, arow];
         ed_mtelno2.Text := cells[14, arow];
      end;
   pn_vip.Enabled := true;
   colorpn_wy(pn_vip, clwhite);
   ed_name.SetFocus;
end;

procedure TF_WEB_GSTINFO.BN_BCClick(Sender: TObject);
begin
   if check_pn(pn_vip) then
      ed_remarkexit(ed_remark);
   if savetodb(bn_bc) then
      after_save_wy(sg_jl);
end;

procedure TF_WEB_GSTINFO.ED_NAMEExit(Sender: TObject);
var
   i: integer;
   s, m_sidx, m_sEng: string;
   m_beng: boolean;
begin
   if (activecontrol = nil) or (sender = SG_JL) then
      abort;
   if (Activecontrol.tag = 101) then
      exit;
   //ed_name.text := uppercase_wy(ed_name.text);
   s := only_space(ed_name.text, m_beng, m_sidx, m_sEng);
   if (s = '') then
      exit;
   ed_name.text := iif(m_beng, uppercase_wy(s), s);
   ed_namee.text := getstr(ed_namee.text, m_sEng);

   with sg_jl do
      for i := 1 to rowcount - 1 do
         if (s = cells[0, i]) and (updrow <> i) then
            if MessageDlg(lb_name.Caption + 'repeatstr(i, true)', mtconfirmation, [mbyes, mbno], 0) = IDNO then
               begin
                  if ed_name.enabled then
                     ed_name.SetFocus;
                  abort;
               end;
   if (updrow > 0) and (trim(ed_idx.Text) <> '') then
      abort;
   ed_idx.text := m_sidx;
   ed_idx.SetFocus;
   {with f_web_dm.qy_wangy do
      begin
         close;
         sql.Clear;
         sql.Add('select aa=count(*) from guest where upper(name)=upper(:vname)');
         parambyname('vname').asstring := trim(ed_name.text);
         open;
         i := fieldbyname('aa').asinteger;
         close;
      end;
   if i > 0 then
      begin
         g_diff := 25;
         tran_str := 'name:' + trim(ed_name.text) + '*';
         F_RECA_USERM := TF_RECA_USERM.Create(self);
         F_RECA_USERM.ShowModal;
         if g_bsel then
            begin
               ed_idx.Text := getstr(analy_str('idx'), ed_idx.Text);
               ed_namee.Text := analy_str('namee');
               ed_hello.Text := analy_str('hello');
               ed_sex.Text := analy_str('sex');
               ed_birth.Text := analy_str('birthday');
               cb_nation.ItemIndex := -1;
               cb_nation.Text := analy_str('nation');
               analy_com_wy(cb_nation, true);
               ed_tsyq.Text := analy_str('tsyq') + ' / ' + analy_str('special');
            end;
         ed_idx.SetFocus;
      end;}
end;

procedure TF_WEB_GSTINFO.ED_VIPKeyPress(Sender: TObject; var Key: Char);
begin
   key := only_num(key);
end;

procedure TF_WEB_GSTINFO.ED_BIRTHKeyPress(Sender: TObject; var Key: Char);
begin
   key := only_dat(key);
end;

procedure TF_WEB_GSTINFO.ED_BIRTHExit(Sender: TObject);
begin
   if (Sender as TFlatEdit).Text = '' then
      exit;
   if not (verifydate(sender)) then
      begin
         if (Sender as TFlatEdit).enabled then
            (Sender as TFlatEdit).SetFocus;
         abort;
      end;
end;

procedure TF_WEB_GSTINFO.BN_ADDClick(Sender: TObject);
begin
   clearpn_wy(pn_vip, true, true);
   pn_vip.Enabled := true;
   colorpn_wy(pn_vip, clWhite);
   updrow := -1;
   bn_del.Enabled := false;
   ed_name.SetFocus;
end;

procedure TF_WEB_GSTINFO.SG_JLGetAlignment(Sender: TObject; ARow,
   ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
   case arow of
      0: HAlign := taCenter;
   end;
end;

procedure TF_WEB_GSTINFO.ED_NAMEEExit(Sender: TObject);
begin
   (Sender as TFlatEdit).text := uppercase_wy((Sender as TFlatEdit).text);
end;

end.