unit_frmfilm_sel.pas

影院售票系统完整源码

unit Unit_frmfilm_sel;

interface

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

type
  Tfrmfilm_sel = class(Tfrmtemplate2)
    CyberSizePanel1: TCyberSizePanel;
    ListView1: TCyberListView;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    procedure refreshlistview(sqlstr:string);
    { Private declarations }
  public
    filmid:integer;
    filmname:string;
    { Public declarations }
  end;

var
  frmfilm_sel: Tfrmfilm_sel;

implementation

uses unit_public,Unit_ADODM;

{$R *.dfm}

procedure Tfrmfilm_sel.refreshlistview(sqlstr: string);
var
  I,_id:integer;
  item0:TListItem;
  _code,_name,_adr,_factory,_issuer,_director,_actor,
  _filmtypename:string;
begin
  listview1.Items.Clear ;
  try
    listview1.Items.BeginUpdate ;
    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 ;
          _adr :=fieldbyname('address').AsString ;
          _issuer:=fieldbyname('issuer').AsString ;
          _director :=fieldbyname('director').AsString ;
          _actor :=fieldbyname('player').AsString ;
          _filmtypename:=fieldbyname('filmtypename').AsString  ;
          item0:=listview1.Items.Add ;
          item0.Caption :=_code;
          item0.SubItems.Add(_name);
          item0.SubItems.Add(_filmtypename);
          item0.SubItems.Add (_adr);
          item0.SubItems.Add (_issuer);
          item0.SubItems.Add (_director);
          item0.SubItems.Add (_actor);
          item0.Data :=pointer(_id);
          next;
        end;
      end;
    end;
  finally
    listview1.Items.EndUpdate ;
  end;
end;

procedure Tfrmfilm_sel.BitBtn1Click(Sender: TObject);
var
  selitem:TListItem;
begin
  inherited;
  selitem:=listview1.Selected ;
  if selitem=nil then exit;
  filmid:=integer(selitem.Data);
  filmname:=selitem.SubItems[0];
  modalresult:=mrok;
end;

procedure Tfrmfilm_sel.ListView1DblClick(Sender: TObject);
begin
  inherited;
  BitBtn1Click(nil);
end;

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

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

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

end.