unit_frmcinemainfo.pas

影院售票系统完整源码

unit Unit_frmcinemainfo;

interface

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

type
  Tfrmcinemainfo = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    BtnSave: TBitBtn;
    BtnExit: TBitBtn;
    Label4: TLabel;
    EdtName: TCyberEdit;
    Label5: TLabel;
    Edtnationalcode: TCyberEdit;
    Label6: TLabel;
    Label7: TLabel;
    EdtPerson: TCyberEdit;
    EdtAdr: TCyberEdit;
    Label13: TLabel;
    Edtpostcode: TCyberEdit;
    Label12: TLabel;
    EdtContact: TCyberEdit;
    Label14: TLabel;
    Label1: TLabel;
    EdtCode: TCyberEdit;
    CombGrade: TCyberComboBox;
    procedure BtnExitClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    _editmode   :Boolean;
    _grade      :Integer;
    _code       :string;
    procedure Getcinemainfobyid(id:integer);
    { Private declarations }
  public
    _id  :Integer;
    constructor MyCreate(AOwner: TComponent; Editmode: Boolean);
    { Public declarations }
  end;

var
  frmcinemainfo: Tfrmcinemainfo;

implementation
uses unit_public,unit_adodm,unit_frmcinema;
{$R *.dfm}

procedure Tfrmcinemainfo.BtnExitClick(Sender: TObject);
begin
  close;
end;

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

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

procedure Tfrmcinemainfo.BtnSaveClick(Sender: TObject);
var
  _nationalcode,_name,_person,
  _contact,_postcode,_adr       :string;
  sqlstr                :string;
  curid                 :integer;
begin
  _code         :=edtcode.Text ;
  _nationalcode :=Edtnationalcode.Text ;
  _name         :=edtname.Text ;
  _person       :=edtperson.Text ;
  _contact      :=edtcontact.Text ;
  _postcode     :=edtpostcode.Text ;
  _adr          :=edtadr.Text ;
  if _editmode then
  begin
    sqlstr:='update tblcinemainfo set name='+#39+_name+#39+','+'code='+#39+_code+#39+','+'nationalcode='+#39+_nationalcode+#39+','+
            'contact='+#39+_person+#39+','+'phone='+#39+_contact+#39+','+ 'postcode='+#39+_postcode+#39+','+
            'address='+#39+_adr+#39+','+'grade='+inttostr(_grade)+'where id='+inttostr(_id);
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg('影院信息修改成功 ！');
      modalresult:=mrok;
    end; 
  end
  else
  begin
    sqlstr:='insert into tblcinemainfo (code,name,nationalcode,contact,phone,postcode,address,grade) values('+
            #39+_code+#39+','+#39+_name+#39+','+#39+_nationalcode+#39+','+
            #39+_person+#39+','+#39+_contact+#39+','+#39+_postcode+#39+','+
            #39+_adr+#39+','+inttostr(_grade)+')';
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg('影院信息添加成功 ！');
      publicinfo.Clear(self); 
      _code:=publicinfo.formatstr(strtoint(_code)+1,2);
      edtcode.Text :=_code;
      Edtnationalcode.SetFocus ;
    end;
  end;
end;
procedure Tfrmcinemainfo.Getcinemainfobyid(id: integer);
var
  sqlstr:string;
begin
  sqlstr        :='select * from tblcinemainfo 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 ;
    Edtnationalcode.Text:=adodm.ADOQRY.fieldbyname('nationalcode').AsString ;
    edtname.Text        :=adodm.ADOQRY.fieldbyname('name').AsString ;
    edtperson.Text      :=adodm.ADOQRY.fieldbyname('contact').AsString ;
    edtcontact.Text     :=adodm.ADOQRY.fieldbyname('phone').AsString ;
    edtpostcode.Text    :=adodm.ADOQRY.fieldbyname('postcode').AsString ;
    edtadr.Text         :=adodm.ADOQRY.fieldbyname('address').AsString ;
    _grade              :=adodm.ADOQRY.fieldbyname('grade').AsInteger ;
    publicinfo.Combboxindexof(TCombobox(CombGrade),_grade);
  end;
end;

procedure Tfrmcinemainfo.FormShow(Sender: TObject);
var
  sqlstr:string;
begin
  if _editmode then
    Getcinemainfobyid(_id)
  else
  begin
    _code:='01';
    sqlstr:='select max(code) code from tblcinemainfo';
    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;

end.