unit_frmdictinfo.pas

影院售票系统完整源码

unit Unit_frmdictinfo;

interface

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

type
  Tfrmdictinfo = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    Edtcode: TCyberEdit;
    Label2: TLabel;
    EdtName: TCyberEdit;
    Label3: TLabel;
    EdtRemarks: TCyberEdit;
    Bevel2: TBevel;
    Btnsave: TBitBtn;
    BtnExit: TBitBtn;
    procedure BtnExitClick(Sender: TObject);
    procedure BtnsaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    _editmode   :Boolean;
    procedure   Getdictinfobyid(_id:integer);
    { Private declarations }
  public
    id,kind     :integer;
    kindname    :string;
    code        :string;
    constructor MyCreate(AOwner: TComponent; Editmode: Boolean);
    { Public declarations }
  end;

var
  frmdictinfo: Tfrmdictinfo;

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

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

procedure Tfrmdictinfo.BtnsaveClick(Sender: TObject);
var
  _name,_remarks:string;
  sqlstr:string;
begin
  code          :=edtcode.Text ;
  _name         :=edtname.Text ;
  _remarks      :=EdtRemarks.Text ;
  if _editmode then
  begin
    sqlstr:='update tbldict set code='+#39+code+#39+','+
            'name='+#39+_name+#39+','+
            'remarks='+#39+_remarks+#39+
            ' where id='+inttostr(id);
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg('修改'+kindname+'信息成功');
      modalresult:=mrok;
    end;
  end
  else
  begin
    sqlstr:='insert into tbldict (kind,code,name,remarks) values('+
            inttostr(kind)+','+#39+code+#39+','+#39+_name+#39+','+
            #39+_remarks+#39+')';
    if publicinfo.Execsql(sqlstr,true) then
    begin
      publicinfo.showmsg(kindname+'信息添加成功 ！');
      publicinfo.Clear(self);
      code:=publicinfo.formatstr(strtoint(code)+1,2);
      edtcode.Text :=code;
      edtname.SetFocus ;
    end;
  end;
end;

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

procedure Tfrmdictinfo.FormShow(Sender: TObject);
var
  sqlstr:string;
begin
  if _editmode then
  begin
    caption:='修改'+kindname;
    Getdictinfobyid(id);
  end
  else
  begin
    caption:='添加'+kindname+'信息';
    code:='01';
    sqlstr:='select max(code) code from tbldict where kind='+inttostr(kind);
    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 Tfrmdictinfo.Getdictinfobyid(_id: integer);
var
  sqlstr:string;
begin
  sqlstr        :='select * from tbldict 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 ;
    edtremarks.Text     :=adodm.ADOQRY.fieldbyname('remarks').AsString ;
    kind                :=adodm.ADOQRY.fieldbyname('kind').AsInteger ;
  end;

end;

end.