unit_frmgroup.pas

影院售票系统完整源码

unit Unit_frmGroup;

interface

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

type
  TFrmGroup = class(TForm)
    Panel2: TPanel;
    BtnOk: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    chkused: TCheckBox;
    BtnExit: TBitBtn;
    EdtName: TCyberEdit;
    Edtdescription: TCyberEdit;
    CyberXPMenu1: TCyberXPMenu;
    procedure EdtNameExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    _editmode:Boolean;
    { Private declarations }
  public
     id:integer;
     constructor MyCreate(AOwner: TComponent; Editmode: Boolean);
    { Public declarations }
  end;

var
  FrmGroup: TFrmGroup;
implementation
uses unit_public,unit_frmusermain;

{$R *.dfm}

procedure TFrmGroup.EdtNameExit(Sender: TObject);
begin
  if EdtName.Text ='' then EdtName.SetFocus ;
end;

procedure TFrmGroup.FormShow(Sender: TObject);
begin
  if not _editmode then
  begin
    self.EdtName.Text :='';
    self.Edtdescription.Text :='';
    Edtname.SetFocus ;
  end;
end;

procedure TFrmGroup.BtnOkClick(Sender: TObject);
var
  sqlstr:string;
  _name,_description,_used:string;
begin
  _name:=self.EdtName.Text ;
  _description:=self.Edtdescription.Text;
  if chkused.Checked then
    _used:='1'
  else
    _used:='0';
  if _editmode then
  begin
    sqlstr:='update tblgroup set name='+#39+_name+#39+
            ',remarks='+#39+_description+#39+',isused='+#39+_used+#39+
            'where id='+inttostr(id);
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg('角色信息修改成功');
      ModalResult := mrOK;
    end;
  end
  else
  begin
    sqlstr:='insert into tblgroup(name,isused,remarks) values('+#39+_name+#39+
            ','+#39+_used+#39+','+#39+_description+#39+')';
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg('角色信息添加成功');
    end;
  end;
end;

procedure TFrmGroup.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if  key=#27 then close;
end;

constructor TFrmGroup.MyCreate(AOwner: TComponent; Editmode: Boolean);
begin
  inherited Create(AOwner);
  _editmode:=Editmode;
end;

end.