std_machine.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit std_machine;

interface

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

type
  TForm_std_machine = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    Label95: TLabel;
    Panel3: TPanel;
    btn_first1: TButton;
    btn_prev1: TButton;
    btn_next1: TButton;
    btn_last1: TButton;
    btn_addnew1: TButton;
    btn_edit1: TButton;
    btn_save1: TButton;
    btn_cancel1: TButton;
    btn_exit: TButton;
    DBGrid1: TDBGrid;
    Query1: TADOQuery;
    Query1DSDesigner: TAutoIncField;
    Query1DSDesigner2: TStringField;
    Query1DSDesigner3: TBCDField;
    Query1DSDesigner600t: TStringField;
    Query1DSDesigner4: TStringField;
    btn_del: TButton;
    procedure btn_first1Click(Sender: TObject);
    procedure btn_prev1Click(Sender: TObject);
    procedure btn_next1Click(Sender: TObject);
    procedure btn_last1Click(Sender: TObject);
    procedure btn_addnew1Click(Sender: TObject);
    procedure btn_edit1Click(Sender: TObject);
    procedure btn_save1Click(Sender: TObject);
    procedure btn_cancel1Click(Sender: TObject);
    procedure btn_exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
      procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
  public
    { Public declarations }
  end;

var
  Form_std_machine: TForm_std_machine;

implementation

uses contract_order;

{$R *.dfm}
procedure TForm_std_machine.EnableBtn ;
begin

    btn_first1.Enabled :=true;
    btn_prev1.Enabled :=true;
    btn_next1.Enabled :=true;
    btn_last1.Enabled :=true;
    btn_addnew1.Enabled :=true;
    btn_edit1.Enabled :=true;

end;

procedure TForm_std_machine.DisableBtn ;
begin


    btn_first1.Enabled :=false;
    btn_prev1.Enabled :=false;
    btn_next1.Enabled :=false;
    btn_last1.Enabled :=false;
    btn_addnew1.Enabled :=false;
    btn_edit1.Enabled :=false;

end;


procedure TForm_std_machine.btn_first1Click(Sender: TObject);
begin
self.Query1.First;
end;

procedure TForm_std_machine.btn_prev1Click(Sender: TObject);
begin
if not self.Query1.Bof then
self.Query1.Prior;
end;

procedure TForm_std_machine.btn_next1Click(Sender: TObject);
begin
if not self.Query1.Eof then
self.Query1.Next;
end;

procedure TForm_std_machine.btn_last1Click(Sender: TObject);
begin
self.Query1.Last;
end;

procedure TForm_std_machine.btn_addnew1Click(Sender: TObject);
begin
 self.DBGrid1.ReadOnly:=false;
 self.Query1.Append ;

 DisableBtn;
 btn_save1.Enabled :=true;
 btn_cancel1.Enabled :=true;
 btn_save1.Enabled :=true; 
 btn_del.Enabled:= false ;
 

end;

procedure TForm_std_machine.btn_edit1Click(Sender: TObject);
begin
self.DBGrid1.ReadOnly:=false;
self.query1.Edit ;

   DisableBtn;
        btn_save1.Enabled :=true;
        btn_cancel1.Enabled :=true;
        btn_del.Enabled:= false ;



end;

procedure TForm_std_machine.btn_save1Click(Sender: TObject);
begin
self.Query1.post ;
self.DBGrid1.ReadOnly:=true;

self.EnableBtn;
btn_save1.Enabled :=false;
btn_cancel1.Enabled :=false;
btn_del.Enabled:= true ;


end;

procedure TForm_std_machine.btn_cancel1Click(Sender: TObject);
begin
self.Query1.cancel;

 EnableBtn;
 btn_cancel1.Enabled :=false;
 btn_save1.Enabled :=false;
 btn_del.Enabled:= true ;  
end;

procedure TForm_std_machine.btn_exitClick(Sender: TObject);
begin
self.Close;
end;

procedure TForm_std_machine.FormCreate(Sender: TObject);
begin
  self.Query1.Open;
  btn_save1.Enabled:=false;
  self.VertScrollBar.Position:=0;

 // Form_contract_order.KeyPreview := true;
end;

procedure TForm_std_machine.btn_delClick(Sender: TObject);
begin

if application.MessageBox(pchar('确信要删除这条记录嘛？'),
        pchar('注意'),MB_OKCANCEL)=IDOK then
       self.Query1.Delete;


//self.Query1.post
end;

procedure TForm_std_machine.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Action:=cafree;
end;

end.