unit_frmseatsame.pas

影院售票系统完整源码

unit Unit_frmseatSame;

interface

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

type
  TfrmseatSame = class(TForm)
    Label1: TLabel;
    Edtnewrow: TCyberEdit;
    Label2: TLabel;
    EdtOldrow: TCyberEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    Hallid:integer;
    { Public declarations }
  end;

var
  frmseatSame: TfrmseatSame;

implementation
uses unit_adodm,unit_public;
{$R *.dfm}

procedure TfrmseatSame.BitBtn1Click(Sender: TObject);
var
  _oldrow,_newrow:single;
begin
  _oldrow:=(Edtoldrow.Value);
  _newrow:=(edtnewrow.Value);
  if _oldrow=_newrow then exit;
   with adodm.ADOProc do
   begin
        Close;
        ProcedureName := 'My_hall_seat_same';
        Parameters.Refresh;
        Parameters.Items[1].Value :=hallid;
        Parameters.Items[2].Value :=_oldrow;
        Parameters.Items[3].Value :=_newrow;
        Parameters.Items[4].Value :=-1;
        ExecProc;
        if  Parameters.ParamByName('@retcode').Value =1 then
        begin
          publicinfo.showmsg('座位等同设置成功!');
          edtnewrow.Value:=edtnewrow.Value+1;
        end
        else
          publicinfo.showmsg('座位等同设置错误!')
   end;

end;

procedure TfrmseatSame.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then close;
end;

end.