unit9.~pas

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

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    BitBtn1: TBitBtn;
    dwxz: TDBGrid;
    DataSource1: TDataSource;
    cjm: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure cjmExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation
uses unit1,unit2,unit8;
{$R *.dfm}

procedure TForm9.FormCreate(Sender: TObject);
begin
   form8.adskdw.Open ;
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
    form1.cdw.Text:=dwxz.SelectedField.AsString ;
    close;
end;

procedure TForm9.cjmExit(Sender: TObject);
begin
if form8.adskdw.Locate('dwjm',cjm.Text,[]) then
      begin
        MessageBox(self.Handle, '是该单位吗!', '提示', mb_IconInformation + mb_Ok) ;
         BitBtn1Click;
        end
   else
       MessageBox(self.Handle, '请增加新单位!', '提示', mb_IconInformation + mb_Ok);
end;

end.