huiyuan.~pas

会展条码票务管理、门禁、印刷、现场制证（摄像、登记、印刷）、总控中心、接待管理、展位管理

unit huiyuan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, bsSkinGrids, bsDBGrids, RzSplit,
  ExtCtrls, RzPanel, RzTabs, bsdbctrls, Grids, DBGrids, StdCtrls, Mask,
  bsSkinBoxCtrls, bsSkinShellCtrls, xpButton, xpBitBtn, DBCtrls, RzDBEdit,
  RzEdit, ComCtrls;

type
  ThyForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    RzSplitter1: TRzSplitter;
    RzSplitter2: TRzSplitter;
    TabSheet3: TRzTabSheet;
    RzSplitter3: TRzSplitter;
    TabSheet4: TRzTabSheet;
    RzSplitter4: TRzSplitter;
    typeGrid: TbsSkinDBGrid;
    RzPanel1: TRzPanel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    modelGrid: TbsSkinDBGrid;
    bsSkinDBNavigator2: TbsSkinDBNavigator;
    DBImg1: TbsSkinDBImage;
    bsSkinDBNavigator1: TbsSkinDBNavigator;
    RzPanel2: TRzPanel;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit10: TbsSkinDBEdit;
    bsSkinDBEdit11: TbsSkinDBEdit;
    bsSkinDBEdit12: TbsSkinDBEdit;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    xpButton1: TxpButton;
    DBImg2: TbsSkinDBImage;
    xpBitBtn1: TxpBitBtn;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBEdit13: TbsSkinDBEdit;
    bsSkinDBEdit14: TbsSkinDBEdit;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinDBNavigator3: TbsSkinDBNavigator;
    bsSkinDBNavigator4: TbsSkinDBNavigator;
    RzPanel3: TRzPanel;
    RzPanel4: TRzPanel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    RzDBEdit8: TRzDBEdit;
    bsSkinStdLabel14: TbsSkinStdLabel;
    RzDBEdit9: TRzDBEdit;
    RzDBEdit10: TRzDBEdit;
    RzDBEdit11: TRzDBEdit;
    RzDBRichEdit1: TRzDBRichEdit;
    procedure xpButton1Click(Sender: TObject);
    procedure bsSkinDBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure xpBitBtn1Click(Sender: TObject);
    procedure bsSkinDBNavigator2Click(Sender: TObject;
      Button: TbsNavigateBtn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyForm: ThyForm;

implementation

uses main;

{$R *.dfm}

procedure ThyForm.xpButton1Click(Sender: TObject);
begin
try
mainform.model.Post;
except
mainform.model.Edit;
mainform.model.Post;
end;
end;

procedure ThyForm.bsSkinDBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
   if not (key  in ['0'..'9',#8,#13]) then
      begin
         key:=#0;
         beep;
         ShowMessage('请选择数字输入值！');
      end;
end;

procedure ThyForm.xpBitBtn1Click(Sender: TObject);
var
iStream:tmemoryStream;
begin
iStream:=TMemoryStream.Create;
if mainform.oPDialog.Execute then istream.LoadFromFile(mainform.oPDialog.FileName);
dbimg2.Picture.Bitmap.LoadFromStream(istream);
mainform.model.Edit;
dbimg1.Picture.Bitmap:=dbimg2.Picture.Bitmap;
mainform.model.Post;
istream.Free;
end;

procedure ThyForm.bsSkinDBNavigator2Click(Sender: TObject;
  Button: TbsNavigateBtn);
begin
bsskindbedit5.SetFocus;
end;

end.