u_web_dyqzrq.pas

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

unit U_WEB_DYQZRQ;

interface

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

type
   TF_WEB_DYQZRQ = class(TForm)
      PN_DATE: TPanel;
      Panel1: TPanel;
      LB_ADATE: TLabel;
      LB_DDATE: TLabel;
      ED_BEG: TFlatEdit;
      ED_END: TFlatEdit;
      BN_QD: TFlatButton;
      BN_QX: TFlatButton;
      procedure check_date;
      procedure ED_BEGKeyPress(Sender: TObject; var Key: Char);
      procedure FormCreate(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure FormKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure BN_QXClick(Sender: TObject);
      procedure BN_QDClick(Sender: TObject);
      procedure ED_BEGExit(Sender: TObject);
      procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
         WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   F_WEB_DYQZRQ: TF_WEB_DYQZRQ;

implementation
uses Pub_program, U_WEB_DM, ncp;
var
   m_diff: integer;
   m_str: string;
   {$R *.DFM}

procedure TF_WEB_DYQZRQ.ED_BEGKeyPress(Sender: TObject; var Key: Char);
begin
   case m_diff of
      0, 1, 3, 4, 6, 7, 10..14, 17:
         key := only_dat(key);
      5:
         if sender = ED_BEG then
            key := only_dat(key)
         else
            if sender = ED_END then
            key := only_num(key);
      9, 15, 16: key := only_num(key);
      18: key := only_mon(key);
      30, 32: key := only_mon(key);
      33:
         if sender = ED_BEG then
            key := only_num(key);
   end;
end;

procedure TF_WEB_DYQZRQ.FormCreate(Sender: TObject);
begin
   clearall(sender);
   m_diff := g_diff;
   m_str := tran_str;
   tncp.Create(self);
   refresh_pubdate;
   case m_diff of
      0:
         begin
            ed_beg.text := formatdatetime('yyyy', strtodate(Gstr_pubdate)) + '-01-01';
            ed_end.text := Gstr_pubdate;
         end;
      1:
         begin
            ed_beg.text := datetostr(strtodate(Gstr_pubdate) - 1);
            ed_end.text := ed_beg.text;
         end;
      2:
         with f_web_dm.qy_wangy do
            begin
               close;
               sql.Clear;
               sql.Add('select aa=max(no),bb=min(no) from vipcard where cflag=0');
               open;
               ed_beg.text := fieldbyname('bb').asstring;
               ed_end.text := fieldbyname('aa').asstring;
               close;
               lb_adate.Caption := iif(m_lang = 1, '起始卡号', 'BEG CARD');
               lb_ddate.Caption := iif(m_lang = 1, '截止卡号', 'END CARD');
            end;
      3:
         begin
            ed_beg.text := Gstr_pubdate;
            ed_end.text := datetostr(strtodate(Gstr_pubdate) + 1);
         end;
      4:
         begin
            ed_beg.text := formatdatetime('yyyy', strtodate(Gstr_pubdate)) + '-01-01';
            ed_end.text := Gstr_pubdate;
            caption := iif(m_lang = 1, '取样时段录入', 'INPUT SAMPLE TIME RANGE');
         end;
      5:
         begin
            ed_beg.text := Gstr_pubdate;
            ed_end.text := '';
            lb_adate.Caption := iif(m_lang = 1, '日    期', 'DATE');
            lb_ddate.Caption := iif(m_lang = 1, '工    号', 'OPNO');
            caption := iif(m_lang = 1, '打印条件(不输工号表示全部)', 'PRNT COND(OPNO IS EMPTY MEANS ALL)');
         end;
      6:
         begin
            ed_beg.text := datetostr(strtodate(Gstr_pubdate) - 1);
            ed_end.text := Gstr_pubdate;
         end;
      7:
         begin
            ed_beg.text := formatdatetime('yyyy-mm', strtodate(Gstr_pubdate)) + '-01';
            ed_end.text := Gstr_pubdate;
         end;
      8:
         begin
            ed_beg.text := Gstr_pubdate;
            ed_end.text := datetostr(strtodate(Gstr_pubdate) + 15);
         end;
      9:
         with f_web_dm.qy_wangy do
            begin
               close;
               sql.Clear;
               sql.Add('select aa=max(room),bb=min(room) from roomno');
               open;
               ed_beg.text := fieldbyname('bb').asstring;
               ed_end.text := fieldbyname('aa').asstring;
               close;
               lb_adate.Caption := iif(m_lang = 1, '起始房号', 'BEG ROOM');
               lb_ddate.Caption := iif(m_lang = 1, '截止房号', 'END ROOM');
            end;
      10:
         begin
            caption := iif(m_lang = 1, '日期输入', 'DATE INPUTBOX');
            ed_beg.text := Gstr_pubdate;
            ed_end.text := datetostr(strtodate(Gstr_pubdate) + 1);
         end;
      11:
         begin
            caption := iif(m_lang = 1, '日期输入', 'DATE INPUTBOX');
            ed_beg.text := datetostr(strtodate(Gstr_pubdate) - 1);
            ed_end.text := ed_beg.text;
         end;
      12:
         begin
            caption := iif(m_lang = 1, '日期输入', 'DATE INPUTBOX');
            ed_beg.text := datetostr(strtodate(Gstr_pubdate) - 1);
            ed_end.text := Gstr_pubdate;
         end;
      13:
         begin
            caption := iif(m_lang = 1, '日期输入', 'DATE INPUTBOX');
            ed_beg.text := Gstr_pubdate;
            ed_end.text := datetostr(getmaxdate(Gstr_pubdate));
         end;
      14:
         begin
            caption := 'DATE INPUTBOX';
            ed_beg.text := formatdatetime('yyyy-mm', strtodate(Gstr_pubdate)) + '-01';
            ed_end.text := Gstr_pubdate;
         end;
      17:
         begin
            caption := 'DATE INPUTBOX';
            ed_beg.text := Gstr_pubdate;
            ed_end.text := Gstr_pubdate;
         end;
      18:
         begin
            caption := iif(m_lang = 1, '房租上下限 [除免费、自用]', 'THE MIN/MAX RATE[EXP COMM,HSE]');
            lb_adate.Caption := iif(m_lang = 1, '房租上限', 'MAX RATE');
            lb_ddate.Caption := iif(m_lang = 1, '房租下限', 'MIN RATE');
            with f_web_dm.qy_wangy do
               begin
                  close;
                  sql.Clear;
                  sql.Add('select rate_min,rate_max from config_gd');
                  open;
                  ed_beg.Text := currtostrf(fieldbyname('rate_min').ascurrency, fffixed, gint_dec);
                  ed_end.Text := currtostrf(fieldbyname('rate_max').ascurrency, fffixed, gint_dec);
                  close;
               end;
         end;
      30:
         begin
            caption := iif(m_lang = 1, '拆分金额输入', 'INPUT AMOUNT TO SPLIT');
            lb_adate.Caption := iif(m_lang = 1, '分出金额', 'AMOUNT');
            lb_ddate.Caption := iif(m_lang = 1, '含服务费', 'SVR.CHG');
            ed_beg.text := analy_str('total', m_str);
            ed_end.text := analy_str('svrate', m_str);
         end;
      31:
         begin
            caption := 'DATE INPUTBOX';
            ed_beg.text := analy_str('adate', m_str);
            ed_end.text := analy_str('ddate', m_str);
         end;
      32:
         begin
            caption := iif(m_lang = 1, '打印金额录入', 'INPUT AMOUNT TO PRINT');
            lb_adate.Caption := iif(m_lang = 1, '打印金额', 'AMOUNT');
            lb_ddate.Caption := iif(m_lang = 1, '含服务费', 'SVR.CHG');
            ed_beg.text := '0.0';
            ed_end.text := '0.0';
         end;
      33:
         begin
            caption := iif(m_lang = 1, '设备编码设置', 'EQUIPMENT CODE SETTING');
            lb_adate.Caption := iif(m_lang = 1, '设备编码', 'CODE');
            lb_ddate.Caption := iif(m_lang = 1, '设备名称', 'NAME');
            ed_beg.text := analy_str('code', m_str);
            ed_end.text := analy_str('name', m_str);
         end;
   end;
end;

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

procedure TF_WEB_DYQZRQ.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin