unit_frmseatinfo.pas

影院售票系统完整源码

unit Unit_frmseatinfo;

interface

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

type
  Tfrmseatinfo = class(TForm)
    GroupBox1: TGroupBox;
    BtnSave: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edtcode: TCyberEdit;
    Label2: TLabel;
    EdtName: TCyberEdit;
    Label3: TLabel;
    Edtpersoncount: TCyberEdit;
    ColorBox1: TColorBox;
    Label4: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    code:string;
    editmode:Boolean;
    procedure Getseatinfobyid(_id:integer);
    { Private declarations }
  public
    id:integer;
    constructor MyCreate(AOwner: TComponent; _Editmode: Boolean);
    { Public declarations }
  end;

var
  frmseatinfo: Tfrmseatinfo;

implementation

uses unit_public,Unit_ADODM;

{$R *.dfm}

{ Tfrmseatinfo }

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

procedure Tfrmseatinfo.FormShow(Sender: TObject);
var
  sqlstr:string;
begin
  if editmode then
  begin
    caption:='修改座位类别信息';
    Getseatinfobyid(id);
  end
  else
  begin
    caption:='添加座位类别信息';
    code:='01';
    sqlstr:='select max(code) code from Tblseattype';
    if publicinfo.Execsql(sqlstr,false) then
    begin
       if adodm.ADOQRY.RecordCount>0 then
         code:=adodm.ADOQRY.fieldbyname('code').AsString ;
       if code='' then code:='01';
    end;
    edtcode.Text :=code;
  end;
end;

procedure Tfrmseatinfo.Getseatinfobyid(_id:integer);
var
  sqlstr:string;
begin
  sqlstr        :='select * from tblseattype where id='+inttostr(_id);
  if publicinfo.Execsql(sqlstr,false) then
  begin
    if adodm.ADOQRY.RecordCount<0 then exit;
    adodm.ADOQRY.First ;
    edtcode.Text        :=adodm.ADOQRY.fieldbyname('code').AsString ;
    edtname.Text        :=adodm.ADOQRY.fieldbyname('name').AsString ;
    edtpersoncount.Text :=adodm.ADOQRY.fieldbyname('personcount').AsString ;
    ColorBox1.Selected  :=adodm.ADOQRY.fieldbyname('color').AsInteger ;
  end;

end;

procedure Tfrmseatinfo.BtnSaveClick(Sender: TObject);
var
  _name,_personcount:string;
  _color :integer;
  sqlstr:string;
begin
  code          :=edtcode.Text ;
  _name         :=edtname.Text ;
  _personcount  :=edtpersoncount.Text ;
  _color        :=ColorBox1.Selected;
  if (ColorBox1.Selected=clred) or (ColorBox1.Selected=clLime) then
  begin
    publicinfo.showmsg('请选取别的颜色！');
    ColorBox1.SetFocus ;
    exit;
  end;
  if _personcount='' then  _personcount:='0';
  if editmode then
  begin
    sqlstr:='update Tblseattype set code='+#39+code+#39+','+
            'name='+#39+_name+#39+','+
            'personcount='+_personcount+','+
            'color='+ inttostr(_color)+
            'where id='+inttostr(id);
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg('修改座位类别信息成功');
      modalresult:=mrok;
    end;
  end
  else
  begin
    sqlstr:='insert into Tblseattype (code,name,personcount,color) values('+
            #39+code+#39+','+#39+_name+#39+','+
            _personcount+','+inttostr(_color)+')';
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg('座位类别信息添加成功 ！');
      publicinfo.Clear(self);
      code:=publicinfo.formatstr(strtoint(code)+1,2);
      edtcode.Text :=code;
      edtname.SetFocus ;
    end;
  end;
end;

procedure Tfrmseatinfo.BitBtn2Click(Sender: TObject);
begin
  close ;
end;

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

end.