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.