unit_frmpricetemplate.pas

影院售票系统完整源码

unit Unit_frmpricetemplate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, unit_frmplantemplate, CyberXPMenu, StdCtrls, Buttons, ComCtrls,
  CyberListVw, ExtCtrls;

type
  Tfrmpricetemplate = class(Tfrmplantemplate)
    procedure FormShow(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure BtnSelClick(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    kind:integer;
    selected:Boolean;
    procedure refreshlistview(sqlstr:string);
    { Private declarations }
  public
    templateid:integer;
    templatename:string;
    constructor MyCreate(AOwner: TComponent; _selected: Boolean);
    { Public declarations }
  end;

var
  frmpricetemplate: Tfrmpricetemplate;

implementation

uses unit_public,Unit_ADODM, Unit_frmpricetemplateItem;

{$R *.dfm}

procedure Tfrmpricetemplate.FormShow(Sender: TObject);
begin
  if selected then
  begin
    btnadd.Visible :=false;
    btnedit.Visible :=false;
    btndel.Visible :=false;
    btnsel.Visible :=true;
  end
  else
  begin
    btnadd.Visible :=True;
    btnedit.Visible :=true;
    btndel.Visible :=true;
    btnsel.Visible :=false;
  end;
  kind:=1;
  refreshlistview('select * from tbltemplate where kind='+inttostr(kind));
end;

procedure Tfrmpricetemplate.refreshlistview(sqlstr: string);
var
  item0 :TListItem;
  i:integer;
begin
  listview1.Items.Clear ;
  if publicinfo.Execsql(sqlstr,false) then
  begin
    with adodm.ADOQRY  do
    begin
      first;
      for i:=0 to recordcount-1 do
      begin
        item0           :=listview1.Items.Add ;
        item0.Caption   :=fieldbyname('name').AsString ;
        item0.SubItems.Add(fieldbyname('actdate').AsString);
        item0.SubItems.Add(fieldbyname('remarks').AsString);
        item0.Data      :=pointer(fieldbyname('id').asinteger);
        next;
      end;
    end;
  end;
end;

procedure Tfrmpricetemplate.BtnAddClick(Sender: TObject);
begin
  frmpricetemplateitem:=Tfrmpricetemplateitem.MyCreate(application,false);
  frmpricetemplateitem.ShowModal ;
  frmpricetemplateitem.Free ;
end;

procedure Tfrmpricetemplate.BtnEditClick(Sender: TObject);
var
  selitem:TListItem;
begin
  selitem:=listview1.Selected ;
  if selitem=nil then exit;
  frmpricetemplateitem:=Tfrmpricetemplateitem.MyCreate(application,true);
  try
    frmpricetemplateitem.templateid :=integer(selitem.data);
    frmpricetemplateitem.templatename :=selitem.Caption ;
    frmpricetemplateitem.Memoremarks.Text :=selitem.SubItems[1];
    frmpricetemplateitem.ShowModal ;
  finally
    frmpricetemplateitem.Free ;
  end;
end;

procedure Tfrmpricetemplate.ListView1DblClick(Sender: TObject);
begin
  if not selected then
     BtnEditClick(nil)
  else
     BtnSelClick(nil);
end;

procedure Tfrmpricetemplate.BtnSelClick(Sender: TObject);
var
  selitem:TListItem;
begin
  inherited;
  selitem:=listview1.Selected;
  if selitem=nil then exit;
  templateid:=integer(selitem.Data);
  templatename:=selitem.Caption ;
  modalresult:=mrok;
end;

constructor Tfrmpricetemplate.MyCreate(AOwner: TComponent;
  _selected: Boolean);
begin
  inherited Create(AOwner);
  selected:=_selected;
end;

procedure Tfrmpricetemplate.BtnDelClick(Sender: TObject);
var
  selitem       :TListItem;
begin
  inherited;
  selitem       :=listview1.Selected ;
  if selitem=nil then exit;
  with Adodm.ADOProc do
  begin
    Close;
    ProcedureName := 'my_DeleteTemplate';
    Parameters.Refresh;
    Parameters.Items[1].Value :=integer(selitem.Data);
    Parameters.Items[2].Value :=kind;
    Parameters.Items[3].Value :=0;
    ExecProc;
    if Parameters.ParamByName('@retcode').Value =1 then  selitem.Delete ;
  end;
end;

procedure Tfrmpricetemplate.ListView1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=13 then  ListView1DblClick(nil);
end;

end.