unitorderpara.pas

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

unit UnitOrderPara;

interface

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

type
  //定义显示位置
  TMyPosRecord = record
    iLeft : integer;
    iTop  : integer;
  end;

  TFormOrderPara = class(TForm)
    PanelTitle: TPanel;
    Bevel1: TBevel;
    Panel1: TPanel;
    Bevel2: TBevel;
    BtnOK: TSpeedButton;
    BtnCancel: TSpeedButton;
    PanelMsg1: TPanel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    EditSum: TEdit;
    ComboHistory: TComboBox;
    CheckMsg2: TCheckBox;
    procedure BtnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckEditPressIsInteger(Sender: TObject; var Key: Char);
    procedure CheckMsg2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MyPos  : TMyPosRecord;
    iBtnClick : integer;
  end;

var
  FormOrderPara: TFormOrderPara;

implementation

{$R *.dfm}

procedure TFormOrderPara.BtnOKClick(Sender: TObject);
begin
  iBtnClick := 1;
  Self.Close();
end;

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

procedure TFormOrderPara.FormCreate(Sender: TObject);
begin
  FormOrderPara.DateTimePicker1.DateTime := Now;
end;

procedure TFormOrderPara.FormShow(Sender: TObject);
begin
  self.Left := MyPos.iLeft;
  self.Top  := MyPos.iTop;

  DateTimePicker1.Format := '''日期: ''yyyy年MM月dd日';
  DateTimePicker2.Format := '''时间: ''HH时mm分';

  EditSum.Enabled   := False;
  EditSum.Visible   := False;
  CheckMsg2.Checked := False;
  EditSum.Text := '1';

  iBtnClick := 0;
end;

procedure TFormOrderPara.CheckEditPressIsInteger(Sender: TObject; var Key: Char);
begin
  if (Key in ['0'..'9',#8] ) then
    begin
    end
  else if (Key in ['F','f']) then
    begin
    end
  else
    Key:=#0;
end;


procedure TFormOrderPara.CheckMsg2Click(Sender: TObject);
begin
  ////////////////////////////////////////////////////////
  if  CheckMsg2.Checked = true then
  begin
     EditSum.Enabled := true;
     EditSum.Visible := true;

  end
  else  begin
     EditSum.Enabled := False;
     EditSum.Visible := False;
     EditSum.Text := '1';
  end;
end;

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

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

end.