unit5.pas

这是我给一单位开以的支票打印系统,开发环境为delphi,控件为fastreport

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ExtCtrls, DBCtrls, ADODB;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ad_yt: TADOTable;
    procedure ad_ytAfterInsert(DataSet: TDataSet);
    procedure ad_ytBeforePost(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
uses unit2;

{$R *.dfm}

procedure TForm5.ad_ytAfterInsert(DataSet: TDataSet);
var j:integer;
begin
     with data.ZPYT do
     begin
          data.ZPYT.Close;
          data.ZPYT.SQL.Clear ;
          data.ZPYT.SQL.Add('select * from yt');
          data.ZPYT.Open;
          j:=data.ZPYT.RecordCount ;
          ad_yt.Edit;
          ad_yt.FieldByName('ytdh').Value:=j+1;
     end;
end;

procedure TForm5.ad_ytBeforePost(DataSet: TDataSet);
begin
    if ad_yt.FieldByName('ytmc').AsString=''then
      begin
          MessageBox(self.Handle, '请输入用途名称!', '提示', mb_IconInformation + mb_Ok);
          Abort;
      end;
    with data.ZPYT do
     begin
          data.ZPYT.Close;
          data.ZPYT.SQL.Clear ;
          data.ZPYT.SQL.Add('select * from yt');
          data.ZPYT.Open;
        if data.ZPYT.Locate('ytmc',ad_yt.FieldByName('ytmc').AsString,[])then
          begin
            MessageBox(self.Handle, '用途名称重复!', '提示', mb_IconInformation + mb_Ok);
            Abort;
          end;
     end;      
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
      ad_yt.Open ;
      ad_yt.Last;
end;

end.