tjxz.pas

来自「服务信息管理系统」· PAS 代码 · 共 79 行

unit tjxz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, dxCntner, dxEditor, dxExEdtr, dxEdLib,
  ComCtrls, LbButton;

type
  Tfrmtjxz = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    dxSpinEdit1: TdxSpinEdit;
    BitBtnOK: TLbButton;
    BitBtnCancel: TLbButton;
    Label4: TLabel;
    DateTP1: TDateTimePicker;
    DateTP2: TDateTimePicker;
    dxButtonEdit1: TdxButtonEdit;
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtnOKClick(Sender: TObject);
    procedure dxButtonEdit1ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmtjxz: Tfrmtjxz;
  tjxz_bh, tjxz_mc: string;
implementation
uses mainform, bmmlcx;
{$R *.dfm}

procedure Tfrmtjxz.BitBtnCancelClick(Sender: TObject);
begin
  selectboolean := False;
  Close;
end;

procedure Tfrmtjxz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmtjxz := nil;
end;

procedure Tfrmtjxz.BitBtnOKClick(Sender: TObject);
begin
  selectdate1 := datetp1.Date;
  selectdate2 := datetp2.Date;
  selecttext1 := tjxz_bh;
  selecttext2 := tjxz_mc;
  selectboolean := True;
end;

procedure Tfrmtjxz.dxButtonEdit1ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  selecttext1 := '';
  selecttext2 := '';
  selectboolean := False;
  frmbmmlcx := Tfrmbmmlcx.Create(Self);
  frmbmmlcx.ShowModal;
  if selectboolean = True then
    begin
      dxButtonEdit1.Text := selecttext2;
      tjxz_bh := selecttext1;
      tjxz_mc := selecttext2;
    end;
end;

end.