unit_frmseattype.pas

影院售票系统完整源码

unit Unit_frmSeatType;

interface

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

type
  Tfrmseattype = class(Tfrmtemplate)
    ListView1: TListView;
    BtnAdd: TBitBtn;
    BtnEdit: TBitBtn;
    BtnDel: TBitBtn;
    BitBtn4: TBitBtn;
    Label1: TLabel;
    CyberXPMenu1: TCyberXPMenu;
    procedure BitBtn4Click(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    editmode:Boolean;
    procedure refreshlistview(sqlstr:string);
    { Private declarations }
  public

    { Public declarations }
  end;

var
  frmseattype: Tfrmseattype;

implementation

uses unit_frmseatinfo,Unit_ADODM,unit_public;

{$R *.dfm}

{ Tfrmseattype }


procedure Tfrmseattype.BitBtn4Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmseattype.BtnAddClick(Sender: TObject);
begin
  inherited;
  frmseatinfo   :=Tfrmseatinfo.MyCreate(Application,false);
  try
    frmseatinfo.ShowModal ;
  finally
    frmseatinfo.Free ;
  end;
end;

procedure Tfrmseattype.refreshlistview(sqlstr: string);
var
  i,_id,_color              :integer;
  _code,_name,_personcount  :string;
  item0                     :TListItem;
begin
  listview1.Items.Clear ;
  listview1.Items.BeginUpdate ;
  try
    if publicinfo.Execsql(sqlstr,false) then
    begin
      if adodm.ADOQRY.RecordCount<=0 then exit;
      with adodm.ADOQRY do
      begin
        first;
        for i:=1 to recordcount do
        begin
          _id           :=fieldbyname('id').AsInteger ;
          _code         :=fieldbyname('code').AsString ;
          _name         :=fieldbyname('name').AsString ;
          _personcount  :=fieldbyname('personcount').AsString ;
          item0:=listview1.Items.Add ;
          item0.Caption :=_code;
          item0.SubItems.Add(_name);
          item0.SubItems.Add(_personcount);
          item0.Data :=pointer(_id);
          next;
        end;
      end;
    end;
  finally
    listview1.Items.EndUpdate ;
  end;
end;

procedure Tfrmseattype.BtnEditClick(Sender: TObject);
var
  selitem:TListItem;
begin
  inherited;
  selitem:=listview1.Selected ;
  if selitem=nil then exit;
  frmseatinfo   :=Tfrmseatinfo.MyCreate(Application,true);
  try
    frmseatinfo.id :=integer(selitem.Data);
    frmseatinfo.ShowModal ;
  finally
    frmseatinfo.Free ;
  end;
end;

procedure Tfrmseattype.FormShow(Sender: TObject);
begin
  inherited;
  refreshlistview('select * from tblseattype');
end;

procedure Tfrmseattype.BtnDelClick(Sender: TObject);
var
  selitem:TListItem;
  sqlstr:string;
begin
  inherited;
  selitem:=listview1.Selected ;
  if selitem=nil then exit;
  sqlstr:='delete from tblseattype where id='+inttostr(integer(selitem.Data ));
  if publicinfo.Execsql(sqlstr,true) then
  begin
    selitem.Delete;
    publicinfo.showmsg('座位类别信息删除成功');
  end;
end;

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

end;

procedure Tfrmseattype.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then btneditclick(nil) ;
  if key=46 then btndelclick(nil) ;
end;

procedure Tfrmseattype.ListView1DblClick(Sender: TObject);
begin
  btneditclick(nil);
end;

procedure Tfrmseattype.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  inherited;
  publicinfo.ListViewDraw(item,DefaultDraw);
end;

end.