unit4.pas

软件简介：1.数据库技术 2.stringgrid的大量操作应用 加入edit、combox计算等 3.报表 4.注册表的应用

unit Unit4;

interface

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

type
  TFSZ = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    DBGrid3: TDBGrid;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    TabSheet3: TTabSheet;
    Edit1: TEdit;
    Button14: TButton;
    Button15: TButton;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button15Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  FSZ: TFSZ;

implementation

{$R *.dfm}
   uses unit3;
procedure TFSZ.Button1Click(Sender: TObject);
begin
ADOQuery1.Append;
Button2.Enabled :=true;
end;

procedure TFSZ.Button2Click(Sender: TObject);
begin
ADOQuery1.Post;
Button2.Enabled :=false;
end;

procedure TFSZ.Button3Click(Sender: TObject);
begin
ADOQuery1.Delete;
end;

procedure TFSZ.Button4Click(Sender: TObject);
begin
ADOQuery1.Cancel;
end;

procedure TFSZ.Button5Click(Sender: TObject);
begin
ADOQuery2.Append;
Button6.Enabled :=true;
end;

procedure TFSZ.Button6Click(Sender: TObject);
begin
ADOQuery2.Post;
Button6.Enabled :=false;
end;

procedure TFSZ.Button7Click(Sender: TObject);
begin
ADOQuery2.Delete;
end;

procedure TFSZ.Button8Click(Sender: TObject);
begin
ADOQuery2.Cancel;
end;

procedure TFSZ.Button9Click(Sender: TObject);
begin
ADOQuery1.Cancel ;
ADOQuery2.Cancel ;
ADOQuery3.Cancel ;
Button2.Enabled :=false;
Button11.Enabled :=false;

CLOSE;
end;

procedure TFSZ.Button10Click(Sender: TObject);
begin
 ADOQuery3.Append;
Button11.Enabled :=true;
end;

procedure TFSZ.Button11Click(Sender: TObject);
begin
 ADOQuery3.Post;
Button11.Enabled :=false;
end;

procedure TFSZ.Button12Click(Sender: TObject);
begin
ADOQuery3.Delete;
end;

procedure TFSZ.Button13Click(Sender: TObject);
begin
 ADOQuery3.Cancel;
end;


procedure TFSZ.Button14Click(Sender: TObject);
begin
opendialog1:=topendialog.create(application.mainform);
opendialog1.filter:='可执行文件(*.exe)|*.exe|所有文件(*.*)|*.*|';  //'所有文件(*.*)|*.*|
opendialog1.DefaultExt:='exe';
opendialog1.InitialDir:=ExtractFileDir(application.exename);
if OpenDialog1.Execute then
   edit1.Text:= OpenDialog1.FileName;

end;

procedure TFSZ.FormShow(Sender: TObject);
  var
  R:TRegistry ;
begin
 ADOQuery1.Active:=TRUE;
 ADOQuery2.Active:=TRUE;
 ADOQuery3.Active:=TRUE;



R:=Tregistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('Software\microsoft', true);
EDIT1.TEXT:=R.ReadString('APP');
end;

procedure TFSZ.Button15Click(Sender: TObject);
var
  R:TRegistry ;
begin

R:=Tregistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('Software\microsoft', true);
R.WriteString('APP',EDIT1.TEXT);
end;

end.