partpositionunit.~pas

如果您在试用或使用过程中认为软件需修改

unit PartPositionUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, Mask, Buttons, ToolWin,
  ComCtrls, ExtCtrls;

type
  TPartPositionForm = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    Panel2: TPanel;
    Label6: TLabel;
    Label1: TLabel;
    TS_ID: TDBEdit;
    DBMemo1: TDBMemo;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function checkdata: boolean;
    { Public declarations }
  end;

var
  PartPositionForm: TPartPositionForm;

implementation

uses Udm;

{$R *.dfm}

{procedure TPartPositionForm.btaddClick(Sender: TObject);
begin
  try
    adodm.Part.Append;
  except
    showmessage('添加数据产生错误');
  end;
end;}
 function TPartPositionForm.checkdata: boolean;
begin
  result := true;

  end;
procedure TPartPositionForm.btaddClick(Sender: TObject);
var NewID: string;
begin
  if checkdata then
    adodm.Part.Last; //返到记录的最后一个
  if adodm.Part.FieldCount = 0 then
  begin
    adodm.Part.Append; //增加新记录
    TS_ID.Text := '1'; //把新记录的编号
  end
  else
  begin
    NewID := IntToStr(adodm.Part.FieldByName('车位编号').AsInteger + 1);
      //新记录的编号
    adodm.Part.Append; //增加新记录
    TS_ID.Text := NewID; //把新记录的编号
  end;
end;
procedure TPartPositionForm.btokClick(Sender: TObject);
begin
  try
    adodm.Part.Post;
    close;
  except
    showmessage('添加数据产生错误');
  end;
end;

procedure TPartPositionForm.BtdelClick(Sender: TObject);
begin
  if MessageDlg('您确定要删除录入的数据吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    try
      adodm.Part.Delete;
    except
      showmessage('删除数据产生错误');
    end;
  end;
end;

procedure TPartPositionForm.btno1Click(Sender: TObject);
begin
  try
    adodm.Part.Cancel;
    close;
  except
    showmessage('错误产生,请联系我们');
  end;
end;

end.