unit_frmtemplateinfo.pas

影院售票系统完整源码

unit Unit_frmtemplateinfo;

interface

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

type
  Tfrmtemplateinfo = class(TForm)
    GroupBox1: TGroupBox;
    Btnsave: TBitBtn;
    BtnExit: TBitBtn;
    CyberXPMenu1: TCyberXPMenu;
    Label1: TLabel;
    EdtName: TCyberEdit;
    Label2: TLabel;
    Combo: TCyberComboBox;
    Label3: TLabel;
    Memoremarks: TCyberMemo;
    procedure FormShow(Sender: TObject);
    procedure BtnsaveClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
     _editmode:Boolean;
     procedure initcombo;
    { Private declarations }
  public
    KIND        :integer;
    id          :integer;
    LastDate    :TdateTime;
    constructor MyCreate(AOwner: TComponent; Editmode: Boolean);
    { Public declarations }
  end;

var
  frmtemplateinfo: Tfrmtemplateinfo;

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

{ Tfrmtemplateinfo }

procedure Tfrmtemplateinfo.initcombo;
var
  sqlstr,_name          :string;
  i,reccount,_id        :integer;
begin
  Combo.Items.Clear ;
  sqlstr:='select * from tbltemplate where kind='+inttostr(kind);
  if publicinfo.Execsql(sqlstr,false) then
  begin
    reccount:=Adodm.ADOQRY.RecordCount;
    if reccount>0 then
    begin
      Adodm.ADOQRY.First ;
      for i:=1 to reccount do
      begin
        _id         := Adodm.ADOQRY.fieldByName('id').AsInteger;
        _name       := Adodm.ADOQRY.fieldByName('name').AsString;
        Combo.Items.AddObject(_name,Tobject(_id));
        Adodm.ADOQRY.Next ;
      end;
      Combo.ItemIndex := 0;
    end;
  end;
end;

procedure Tfrmtemplateinfo.FormShow(Sender: TObject);
begin
 initcombo;
end;

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

procedure Tfrmtemplateinfo.BtnsaveClick(Sender: TObject);
var
  i,_Fromid:integer;
  Result:Boolean;
  sqlstr:string;
begin
  if _editmode then
  begin
    LastDate:=Now;
    sqlstr := 'Update tblTemplate set Name='''+ edtname.Text +''','+
              'ActDate='''+DateTimeToStr(LastDate)+''' where ID='+IntToStr(ID);
    if publicinfo.Execsql(sqlstr,true) then modalresult:=mrok;
  end
  else
  begin
    I:= Combo.ItemIndex;
    if I>=0 then
      _Fromid := Integer(Combo.Items.Objects[I])
    else
      _FromID := -1;
    LastDate:=Now;
    with Adodm.ADOProc do
    begin
      Close;
      ProcedureName := 'my_CreateTemplate';
      Parameters.Refresh;
      Parameters.Items[1].Value :=Edtname.Text;
      Parameters.Items[2].Value :=kind;
      Parameters.Items[3].Value :=Memoremarks.Text;
      Parameters.Items[4].Value :=_FromID;
      Parameters.Items[5].Value :=0;
      Parameters.Items[6].Value :=0;
      Parameters.Items[7].Value :=Now;
      ExecProc;
      Result   := Parameters.ParamByName('@retcode').Value =1;
      ID       := Parameters.ParamByName('@id').Value;
      LastDate := Parameters.ParamByName('@lastdate').Value;
    end;
    if Result then modalresult:=mrok;
  end;
end;

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

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

end.