unit_frmcopyplan.pas

影院售票系统完整源码

unit Unit_frmcopyplan;

interface

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

type
  TfrmCopyPlan = class(Tfrmtemplate2)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DTPPlandate: TCyberDateTimePicker;
    Edttemplate: TCyberButtonEdit;
    Label3: TLabel;
    BtnSave: TBitBtn;
    CyberXPMenu1: TCyberXPMenu;
    procedure BtnSaveClick(Sender: TObject);
    procedure EdttemplateButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EdttemplateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnExitClick(Sender: TObject);
  private
    templateid:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCopyPlan: TfrmCopyPlan;

implementation

uses unit_public,Unit_frmplantemplate, Unit_ADODM;

{$R *.dfm}

procedure TfrmCopyPlan.BtnSaveClick(Sender: TObject);
var
  _templateid:integer;
begin
  inherited;
  if templateid<=0 then exit;
  with Adodm.ADOProc do
  begin
      Close;
      ProcedureName := 'My_Copy_plan';
      Parameters.Refresh;
      Parameters.Items[1].Value :=templateid;
      Parameters.Items[2].Value :=DTPPlandate.Date;
      Parameters.Items[3].Value :=-1;
      ExecProc;
      if Parameters.ParamByName('@retcode').Value=1 then publicinfo.showmsg('放映计划复制成功') ;
  end;
end;

procedure TfrmCopyPlan.EdttemplateButtonClick(Sender: TObject);
begin
  inherited;
  frmplantemplate:=Tfrmplantemplate.MyCreate(Application,True);
  try
    frmplantemplate.ShowModal;
    templateid:=frmplantemplate.templateid ;
    edttemplate.Text :=frmplantemplate.templatename;
  finally
    frmplantemplate.Free ;
  end;
end;

procedure TfrmCopyPlan.FormShow(Sender: TObject);
begin
  inherited;
  dtpplandate.Date :=date;
end;

procedure TfrmCopyPlan.EdttemplateKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=13 then EdttemplateButtonClick(nil);
end;

procedure TfrmCopyPlan.BtnExitClick(Sender: TObject);
begin
  inherited;
  close;
end;

end.