xwjmunit1.pas

来自「小区物业管理系统 运行环境：DELPHI7.0和SQL Server2000 」· PAS 代码 · 共 81 行

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;


  end;

end;

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

end.