sjkwh.pas

c/s系统。 delphi 6+access 运行前先配置数据环境：把db文件夹复制到c：下 要编译请安装第三方控件fastreport2.47 这是我的小小的毕业设计

unit sjkwh;

interface

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

type
  Twhsjb = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    OpenDialog1: TOpenDialog;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StatusBar1: TStatusBar;
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  whsjb: Twhsjb;

implementation

{$R *.dfm}

procedure Twhsjb.BitBtn1Click(Sender: TObject);

var str:string;

begin

    if opendialog1.Execute then
        edit1.text:=opendialog1.FileName;
        str:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit1.text+';Persist Security Info=False';
        
    adoconnection1.Close;
    try
       adoconnection1.ConnectionString :=str;
       adoconnection1.GetTableNames(combobox1.Items,false)
    except
         messagedlg('数据连接失败！',mterror,[mbok],0);
    end;

end;

procedure Twhsjb.ComboBox1Change(Sender: TObject);
begin
adotable1.Close;
adotable1.Connection :=adoconnection1;
adotable1.TableName :=combobox1.text;

datasource1.DataSet:=ADOtable1;
dbgrid1.DataSource :=datasource1;
adotable1.active:=true;
GroupBox2.visible:=true;


end;

procedure Twhsjb.BitBtn2Click(Sender: TObject);
begin
    whsjb.Close;
    // application.Terminate ;
end;

procedure Twhsjb.Button1Click(Sender: TObject);
 var j:integer;
begin
     if edit2.Text='' then
         showmessage('请输入报修序号！')
     else
         with ADOTable1 do
              begin
              adotable1.Filter:='报修序号='''+edit2.text+'''';
              adotable1.Filtered:=true;
              adotable1. first;

              j:=ADOTable1.Recordcount;
    statusBar1.simpletext:='找到了报修序号为   '+edit2.Text+'的记录共有'+inttostr(j)+'条！';


              end;
end;

procedure Twhsjb.Button2Click(Sender: TObject);
begin
     if MessageDlg('确定要保存修改吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
         begin
              with ADOTable1 do
                  begin
                       edit;
                       Post;
                       Refresh;
                       showmessage('修改成功！');
                  end;
         end;
end;

procedure Twhsjb.Button3Click(Sender: TObject);
begin
if (Application.MessageBox('是否确定要删除记录','确认删除',MB_YESNO+MB_ICONQUESTION)<>IDNO) then
        if (ADOTable1.Recordcount>0)then
            ADOTable1.Delete;
            
        end;




procedure Twhsjb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  datasource1.DataSet:=nil;
  //(DataSource1.DataSet).Active:=false;
  edit1.text:='请选择数据库';
 edit2.text:='';
 combobox1.text:='表名';
 GroupBox2.visible:=false;

end;
end.