unitbiantai.pas

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

unit UnitBianTai;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, Mask;

type
  TFormBianTai = class(TForm)
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    PageControl: TPageControl;
    PanelBianTaiID: TPanel;
    EditBianTaiID: TEdit;
    PanelLineID: TPanel;
    ComboLineID: TComboBox;
    PanelName: TPanel;
    EditName: TEdit;
    PanelType: TPanel;
    ComboType: TComboBox;
    PanelCap: TPanel;
    EditCap: TEdit;
    PanelStatus: TPanel;
    ComboStatus: TComboBox;
    PanelGSM: TPanel;
    EditGsm: TEdit;
    PanelOnlyCard: TPanel;
    EditOnlyCard: TEdit;
    PanelIP: TPanel;
    EditIp: TEdit;
    PanelPort: TPanel;
    EditPort: TEdit;
    PanelAddr: TPanel;
    EditAddr: TEdit;
    PanelMemo: TPanel;
    EditMemo: TEdit;
    PanelDataCycle: TPanel;
    EditDataCycle: TEdit;
    PanelAutoSend: TPanel;
    ComboAutoSend: TComboBox;
    PanelCT: TPanel;
    EditCT: TEdit;
    PanelPT: TPanel;
    EditPT: TEdit;
    PanelFreezeDay: TPanel;
    PanelFreezeDN: TPanel;
    EditFreezeDN: TEdit;
    PanelMaxU: TPanel;
    EditMaxU: TEdit;
    PanelMinU: TPanel;
    EditMinU: TEdit;
    PanelMaxI: TPanel;
    EditMaxI: TEdit;
    PanelDrqCycle: TPanel;
    EditDrqCycle: TEdit;
    PanelDrqDataType: TPanel;
    ComboDrqDataType: TComboBox;
    PanelRatedI: TPanel;
    EditRatedI: TEdit;
    PanelName2: TPanel;
    EditName2: TEdit;
    PanelBianTaiID2: TPanel;
    EditBianTaiID2: TEdit;
    EditFreezeDay: TEdit;
    Panel1: TPanel;
    EditFreezeHour: TEdit;
    Panel2: TPanel;
    BtnOK: TSpeedButton;
    BtnCancel: TSpeedButton;
    TabSheet3: TTabSheet;
    PanelDSPCT: TPanel;
    EditDspCT: TEdit;
    PanelDspMaxU: TPanel;
    EditDspMaxU: TEdit;
    PanelDspMinU: TPanel;
    PanelDspPT: TPanel;
    EditDspPT: TEdit;
    EditDspMinU: TEdit;
    PanelDspMaxT: TPanel;
    EditDspMaxT: TEdit;
    PanelDspMinT: TPanel;
    EditDspMinT: TEdit;
    PanelDspMaxXB: TPanel;
    EditDspMaxXB: TEdit;
    PanelDspTQTime: TPanel;
    EditDspTQTime: TEdit;
    PanelDspLQTime: TPanel;
    EditDspLQTime: TEdit;
    PanelDspMaxU2: TPanel;
    PanelDspMaxT2: TPanel;
    PanelDspMaxXB2: TPanel;
    PanelDspMinU2: TPanel;
    PanelDspMinT2: TPanel;
    PanelDspTQTime2: TPanel;
    PanelDspLQTime2: TPanel;
    LabelWarning: TLabel;
    PanelBianTaiID3: TPanel;
    EditBianTaiID3: TEdit;
    PanelName3: TPanel;
    EditName3: TEdit;
    PanelPD2000: TPanel;
    ComboPD2000: TComboBox;
    PanelBSID: TPanel;
    EditYYID: TEdit;
    PanelDataCycle2: TPanel;
    PanelMaxU2: TPanel;
    PanelMinU2: TPanel;
    PanelMaxI2: TPanel;
    PanelRatedI2: TPanel;
    procedure BtnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure CheckEditPressIsInteger(Sender: TObject; var Key: Char);
    procedure CheckEditPressIsFloat(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    iBtnClick : Integer;
    iSetInfo  : Integer;
  end;

var
  FormBianTai: TFormBianTai;

implementation

uses UnitBasic2;

{$R *.dfm}

procedure TFormBianTai.BtnOKClick(Sender: TObject);
var
  bInputOK : boolean;
  i        : Integer;
begin
  bInputOK  := True;
  if iSetInfo = 0 then
  begin
    if EditBianTaiID.Text = '' then
      begin
        MessageBox(self.Handle, '【变台序号】不能为空', '录入错误', MB_ICONSTOP);
        bInputOK  := False;
      end //if

    else
      begin
        for i:=0 to FormBasic2.ListView.Items.Count-1 do
        begin
          if    ( StrToInt(EditBianTaiID.Text)  = StrToInt(FormBasic2.ListView.Items[i].Caption) )
            and ( StrToInt(EditBianTaiID.Text) <> StrToInt(FormBasic2.ListView.Selected.Caption) ) then
          begin
            MessageBox(self.Handle, '【变台序号】不能重复', '录入错误', MB_ICONSTOP);
            bInputOK  := False;
            break;
          end; //if  (=)
        end;   //for (i)
      end;     //else

    if bInputOK = true then
    begin
      if EditName.Text = '' then
        begin
          MessageBox(self.Handle, '【变台名称】不能为空', '录入错误', MB_ICONSTOP);
          bInputOK  := False;
        end; //if
      end;
  end;
  
  if bInputOK = true then
    begin
      iBtnClick := 1;
      Self.Close();
    end; //if
end;

procedure TFormBianTai.BtnCancelClick(Sender: TObject);
begin
  iBtnClick := 0;
  Self.Close();
end;

procedure TFormBianTai.CheckEditPressIsInteger(Sender: TObject; var Key: Char);
begin
  //if not (Key in ['0'..'9', #8] ) then
  if not (Key in ['0'..'9', char(08)] ) then
  begin
    Key := #0;
  end;
end;

procedure TFormBianTai.CheckEditPressIsFloat(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','.', char(08)] ) then
  begin
    key := #0;
  end;
end;

procedure TFormBianTai.FormShow(Sender: TObject);
begin
  if iSetInfo = 0 then
    begin
      PanelBianTaiID2.Visible:= false;
      EditBianTaiID2.Visible := false;
      PanelName2.Visible:= false;
      EditName2.Visible := false;
    end
  else
    begin
      PanelBianTaiID2.Visible:= true;
      EditBianTaiID2.Visible := true;
      PanelName2.Visible:= true;
      EditName2.Visible := true;
    end;
end;

procedure TFormBianTai.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    BtnOKClick(Sender);

  if Key = #27 then
    BtnCancelClick(Sender);
end;

end.