di_fieldcopy.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit DI_FieldCopy;

{
代码单元名称：通用数据登录工具字段复制选择窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

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

type
  TDI_DfmFieldCopy = class(TForm)
    FieldCopyModeRadioGroup: TRadioGroup;
    FieldCopyExtentGroupBox: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ConfirmButton: TButton;
    CloseButton: TButton;
    StartNumberSpinEdit: TSpinEdit;
    TerminiteNumberSpinEdit: TSpinEdit;
    procedure CloseButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FieldCopyModeRadioGroupClick(Sender: TObject);
    procedure ConfirmButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FieldCopyMode: string;
    ConfirmCopy: boolean;
  end;

implementation

{$R *.DFM}

procedure TDI_DfmFieldCopy.CloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TDI_DfmFieldCopy.FormShow(Sender: TObject);
begin
  ConfirmCopy := False;
  FieldCopyModeRadioGroup.ItemIndex := 0;
  FieldCopyMode := 'CopyToSelectExtent';
end;

procedure TDI_DfmFieldCopy.FieldCopyModeRadioGroupClick(Sender: TObject);
begin
  if FieldCopyModeRadioGroup.ItemIndex = 0 then
  begin
    StartNumberSpinEdit.Enabled := True;
    TerminiteNumberSpinEdit.Enabled := True;
  end
  else
  begin
    StartNumberSpinEdit.Enabled := False;
    TerminiteNumberSpinEdit.Enabled := False;
  end;
  case FieldCopyModeRadioGroup.ItemIndex of
    0: FieldCopyMode := 'CopyToSelectExtent';
    1: FieldCopyMode := 'CopyToWholeTable';
    2: FieldCopyMode := 'CopyToTableHead';
    3: FieldCopyMode := 'CopyToTableTail';
  end;
end;

procedure TDI_DfmFieldCopy.ConfirmButtonClick(Sender: TObject);
begin
  if (TerminiteNumberSpinEdit.Value < StartNumberSpinEdit.Value) and
    (FieldCopyModeRadioGroup.ItemIndex = 0) then
  begin
    ShowMessage('复制区间错误！');
    Exit;
  end;
  ConfirmCopy := True;
  Close;
end;

end.