xwjmunit1.~pas

小区物业管理系统 运行环境：DELPHI7.0和SQL Server2000 1、将文件DATA里的数据库XQ附加到SQL Server2000企业管理器中

unit XWJMUnit1;

interface

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

type
  TXWJM = class(TForm)
    Panel1: TPanel;
    StaticText1: TStaticText;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    Button1: TButton;
    ADOStoredProc1: TADOStoredProc;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    //procedure Button1Click(Sender: TObject);
 private
    { Private declarations }
  public
    { Public declarations }
  end;
  Procedure  showXWJM;


var
  XWJM: TXWJM;

implementation
uses   Udm;

{$R *.dfm}

Procedure showXWJM;
begin
   with TXWJM.Create(nil) do
   ShowModal;
end;

procedure TXWJM.Button1Click(Sender: TObject);

var
  Content : string;
begin
 //try
  //ListView1.Items.Clear;
  with adodm.client do
  begin
    Content:=Edit1.Text;
   // if CheckBox1.Checked then
     // Content := '%'+Content +'%';


if RadioButton1.Checked then
    begin
      ADOStoredProc1.Parameters[0].Value:= Content;
      ADOStoredProc1.ExecProc;
      ShowMessage('更新数据库，请重新进入');
    end;
if RadioButton2.Checked then
    begin
    ADOStoredProc1.Parameters[1].Value :=Content;
    ADOStoredProc1.ExecProc;
    ShowMessage('显示啊');
     /// adodm.client.FieldByName('住户名称').value := Content;
    end;

  end;

end;

procedure TXWJM.FormCreate(Sender: TObject);
begin
if ADOTable1.Active then
ADOTable1.Close;
ADOTable1.TableName:='aa';
ADOTable1.Open;
end;

end.