e_rmbedadd.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit E_RmBedAdd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, Mask, DBCtrls, ADODB, ADOTbl;

type
  TFrmRmBedAdd = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Table1: TADOTbl;
    Table1Code: TStringField;
    Table1BedCount: TIntegerField;
    Table1FType: TStringField;
    Table1BedHead: TStringField;
    Table1Remarks: TStringField;
    Table2: TADOTbl;
    Table2Code: TStringField;
    Table2Name: TStringField;
    Table1Sftype: TStringField;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource2: TDataSource;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Table1BeforePost(DataSet: TDataSet);
    procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmRmBedAdd: TFrmRmBedAdd;

implementation
 uses E_RmBdMag, SelfFunc;
{$R *.DFM}

procedure TFrmRmBedAdd.BitBtn3Click(Sender: TObject);
begin
	if Table1.State in [{dsInsert,} dsEdit] then
    if MsgBoxSel('セ怠