unit3.pas

基于delphi 7的物业管理系统

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, ADODB,
  DBActns, ActnList;

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    ADOQuery1: TADOQuery;
    ActionList1: TActionList;
    Action1: TAction;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DBGrid2: TDBGrid;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ActionList2: TActionList;
    Action2: TAction;
    Action3: TAction;
    DataSetInsert2: TDataSetInsert;
    DataSetDelete2: TDataSetDelete;
    DataSetEdit2: TDataSetEdit;
    DataSetPost2: TDataSetPost;
    DataSetCancel2: TDataSetCancel;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label3: TLabel;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DataSource3: TDataSource;
    ActionList3: TActionList;
    DBGrid3: TDBGrid;
    ADOQuery3: TADOQuery;
    Action4: TAction;
    DataSetInsert3: TDataSetInsert;
    DataSetDelete3: TDataSetDelete;
    DataSetEdit3: TDataSetEdit;
    DataSetPost3: TDataSetPost;
    DataSetCancel3: TDataSetCancel;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    ActionList4: TActionList;
    DBGrid4: TDBGrid;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Button11: TButton;
    Button12: TButton;
    Action5: TAction;
    DataSetInsert4: TDataSetInsert;
    DataSetDelete4: TDataSetDelete;
    DataSetEdit4: TDataSetEdit;
    DataSetPost4: TDataSetPost;
    DataSetCancel4: TDataSetCancel;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    ActionList5: TActionList;
    Button13: TButton;
    Button14: TButton;
    Button10: TButton;
    Button15: TButton;
    DBGrid5: TDBGrid;
    Action6: TAction;
    DataSetInsert5: TDataSetInsert;
    DataSetDelete5: TDataSetDelete;
    DataSetEdit5: TDataSetEdit;
    DataSetPost5: TDataSetPost;
    DataSetCancel5: TDataSetCancel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    procedure Button3Click(Sender: TObject);
    //procedure DBEdit1Change(Sender: TObject);
    //procedure DBEdit2Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3.Button3Click(Sender: TObject);
begin
if  Application.MessageBox('您正在删除一条记录!','删除',MB_YESNO)=6 then
   ADOQuery1.Delete;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
//   ADOQuery1.Post;
end;

end.