unit_frmplaninfo.pas

影院售票系统完整源码

unit Unit_frmplaninfo;

interface

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

type
  Tfrmplaninfo = class(TForm)
    GroupBox1: TGroupBox;
    Label5: TLabel;
    dtpenddate: TCyberDateTimePicker;
    Label4: TLabel;
    DTPStartdate: TCyberDateTimePicker;
    Label3: TLabel;
    Edtfieldnum: TCyberEdit;
    Label2: TLabel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edtcinema: TCyberEdit;
    Edthall: TCyberEdit;
    CyberXPMenu1: TCyberXPMenu;
    Label6: TLabel;
    EdtPrice: TCyberButtonEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DTPStartdateExit(Sender: TObject);
    procedure EdtPriceButtonClick(Sender: TObject);
  private
    editmode            :Boolean;
    //mode                :integer;
    procedure Getplaninfobyid(_id:integer);
    { Private declarations }
  public
    id,templateid,pricetemplateid:integer;
    cinemaid,hallid,filmid:integer;
    cinemaname,hallname:string;
    constructor MyCreate(AOwner: TComponent; _Editmode: Boolean);
    { Public declarations }
  end;

var
  frmplaninfo: Tfrmplaninfo;

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

procedure Tfrmplaninfo.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

constructor Tfrmplaninfo.MyCreate(AOwner: TComponent; _Editmode: Boolean);
begin
  inherited Create(application);
  editmode      :=_editmode;
end;


procedure Tfrmplaninfo.FormShow(Sender: TObject);
var
  i:integer;
begin
  if not editmode then
  begin
    edtcinema.Text :=cinemaname;
    edthall.Text :=hallname;
  end
  else
  begin
    Getplaninfobyid(id);
  end;
end;


procedure Tfrmplaninfo.BitBtn1Click(Sender: TObject);
var
  sqlstr:string;
  _fieldnum,_startdate,_enddate:string;
begin
  _fieldnum:=edtfieldnum.Text ;
  _startdate:=formatdatetime('hh:mm',dtpstartdate.time);
  _enddate:=formatdatetime('hh:mm',dtpenddate.time);
  if editmode then
  begin
    sqlstr:='update tbldefaultplan set fieldnum='+_fieldnum+','+
            'cinemaid='+inttostr(cinemaid)+','+
            'hallid='+inttostr(hallid)+','+
            'starttime='+#39+datetimetostr(dtpstartdate.DateTime)+#39+','+
            'endtime='+#39+datetimetostr(dtpenddate.DateTime)+#39+
            'pricetemplate='+inttostr(pricetemplateid)+
            'where id='+inttostr(id);
    if publicinfo.Execsql(sqlstr,true) then
    begin
      modalresult:=mrok;
    end;
  end
  else
  begin
    if edtfieldnum.Text ='' then
    begin
      edtfieldnum.SetFocus ;
      exit;
    end;
    with adodm.ADOProc  do
    begin
      Close;
      ProcedureName := 'My_insert_default_plan';
      Parameters.Refresh;
      Parameters.Items[1].Value :=templateid;
      Parameters.Items[2].Value :=cinemaid;
      Parameters.Items[3].Value :=hallid ;
      Parameters.Items[4].Value :=strtoint(edtfieldnum.Text);
      Parameters.Items[5].Value :=dtpstartdate.DateTime;
      Parameters.Items[6].Value :=dtpenddate.DateTime;
      Parameters.Items[7].Value :=pricetemplateid;
      Parameters.Items[8].Value :=-1;
      Parameters.Items[9].Value :=-1;
      ExecProc;
      if Parameters.ParamByName('@retcode').Value =1 then
      begin
        id:=Parameters.ParamByName('@toid').Value;
        edtfieldnum.Text        :=inttostr(strtoint(edtfieldnum.Text)+1);
        dtpstartdate.Time       :=dtpenddate.Time+30;
        dtpenddate.Time         :=dtpstartdate.Time +90;
        edtfieldnum.SetFocus ;
      end;
    end;
  end;
end;

procedure Tfrmplaninfo.Getplaninfobyid(_id: integer);
var
  sqlstr:string;
begin
  sqlstr:='select * from tbldefaultplan_view where id='+inttostr(_id);
  if publicinfo.Execsql(sqlstr,false) then
  begin
    if adodm.ADOQRY.RecordCount <=0 then exit;
    adodm.ADOQRY.First ;
    cinemaid:=adodm.ADOQRY.fieldbyname('cinemaid').AsInteger ;
    hallid:=adodm.ADOQRY.fieldbyname('hallid').AsInteger ;
    pricetemplateid:=adodm.ADOQRY.fieldbyname('pricetemplate').AsInteger ;
    edtprice.Text :=adodm.ADOQRY.fieldbyname('pricetemplatename').AsString  ;
    edtcinema.Text :=adodm.ADOQRY.fieldbyname('cinemaname').AsString  ;
    edthall.Text   :=adodm.ADOQRY.fieldbyname('hallname').AsString  ;
    edtfieldnum.Text :=adodm.ADOQRY.fieldbyname('fieldnum').AsString  ;
    dtpstartdate.Time:=adodm.ADOQRY.fieldbyname('starttime').AsDateTime ;
    dtpenddate.Time :=adodm.ADOQRY.fieldbyname('endtime').AsDateTime ;
  end;
end;

procedure Tfrmplaninfo.DTPStartdateExit(Sender: TObject);
begin
  dtpenddate.Time  :=dtpstartdate.Time +100;
end;

procedure Tfrmplaninfo.EdtPriceButtonClick(Sender: TObject);
begin
  frmpricetemplate:=Tfrmpricetemplate.MyCreate(Application,true);
  try
    frmpricetemplate.ShowModal ;
    pricetemplateid:=frmpricetemplate.templateid ;
    edtprice.Text :=frmpricetemplate.templatename;
  finally
    frmpricetemplate.Free ;
  end;
end;

end.