dmwh.pas

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

unit dmwh;

interface

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

type
  Tjlcz = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button6: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button5: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jlcz: Tjlcz;

implementation

uses xzdb, xgdm,hz;

{$R *.dfm}

procedure Tjlcz.Button1Click(Sender: TObject);
begin
fxzdb.close;
jlcz.Close;
end;

procedure Tjlcz.Button2Click(Sender: TObject);
begin
  if (Edit1.Text='')then
     showmessage('请输入报修序号！')
  else
  with query1 do
  begin
      close;
      sql.Clear;
      sql.add('select 报修序号,修理句,维修员,检验员,维修工时,维修耗时,修完时间 ');
      sql.add('from xlb');
      sql.add('where 报修序号='''+edit1.Text+'''');
      open;
   end;

end;

procedure Tjlcz.Button5Click(Sender: TObject);
begin

   with Tfxgdm.Create(Application) do begin
       try
          ShowModal;
       finally
          //假如用户是单击OK按钮，则将数据加以保存
          if ModalResult = mrOK then begin
          with hz_f.table1 do
            begin
          hz_f.table1.Edit;
           if edit1.Text<>'' then
            fieldbyname('报修序号').asstring:=edit1.text;
          if edit1.Text<>'' then
            fieldbyname('维修耗时').asstring:=edit2.text;
          if edit1.Text<>'' then
            fieldbyname('维修工时').asstring:=edit3.text;
          if edit1.Text<>'' then
            fieldbyname('修理句').asstring:=edit4.text;
          if edit1.Text<>'' then
            fieldbyname('维修员').asstring:=edit5.text;
          if edit1.Text<>'' then
            fieldbyname('检验员').asstring:=edit6.text;
          hz_f.table1.Post;
          showmessage('你已经修改了！');
           end;
       end;
    end;
end;
end;
procedure Tjlcz.Button6Click(Sender: TObject);
begin
  if (Application.MessageBox('是否确定要删除记录','确认删除',MB_YESNO+MB_ICONQUESTION)<>IDNO) then
     if (hz_f.Table1.Recordcount>0)then
        hz_f.table1.Delete;

end;

procedure Tjlcz.Button3Click(Sender: TObject);
begin
hz_f.table1.Prior;
end;

procedure Tjlcz.Button4Click(Sender: TObject);
begin
hz_f.table1.Next;
end;

end.