unit8.~pas

来自「数据库应用类,可以作为企业财务方面的工具,以delphi7开发,结合mssql.」· ~PAS 代码 · 共 77 行

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    adskdw: TADOTable;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBGridEh1: TDBGridEh;
    hzpy: THzSpell;
    procedure adskdwAfterInsert(DataSet: TDataSet);
    procedure adskdwBeforePost(DataSet: TDataSet);
    procedure DBGridEh1Enter(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation
uses unit2;
{$R *.dfm}

procedure TForm8.adskdwAfterInsert(DataSet: TDataSet);
var dh:integer;
begin
     with data.dwh do
     begin
        data.dwh.close;
        data.dwh.SQL.Clear;
        data.dwh.SQL.Add('select * from skdw ');
        data.dwh.Open ;
        data.dwh.Last ;
        dh:=data.dwh.FieldByName('dw_dh').Value;
        adskdw.Edit ;
        adskdw.FieldByName('dw_dh').Value:=dh+1;
    end;
end;

procedure TForm8.adskdwBeforePost(DataSet: TDataSet);
begin
 if adskdw.FieldByName('skdw').AsString=''then
      begin
          MessageBox(self.Handle, '请输入单位名称!', '提示', mb_IconInformation + mb_Ok);
          Abort;
      end;
    with data.dwh do
     begin
          data.dwh.Close;
          data.dwh.SQL.Clear ;
          data.dwh.SQL.Add('select * from skdw');
          data.dwh.Open;
        if data.dwh.Locate('skdw',adskdw.FieldByName('skdw').AsString,[])then
          begin
            MessageBox(self.Handle, '单位名称重复,请重新输入!', '提示', mb_IconInformation + mb_Ok);
            Abort;
          end;
     end;
     adskdw.FieldByName('dwjm').AsString:=hzpy.PyHeadOfHz(adskdw.FieldByName('skdw').AsString);
end;

procedure TForm8.DBGridEh1Enter(Sender: TObject);
begin
    adskdw.Edit;
    adskdw.Post ;
end;

end.