edit_pass.pas

品质管理系统：delphi+sql实现了制造企业在生产过程中对产品质量的控制

unit edit_pass;

interface

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

type
  Tedit_pas = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
     mi,kk,kl:string; zz:Tbookmark;  { Public declarations }
  end;

var
  edit_pas: Tedit_pas;

implementation

{$R *.dfm}

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

procedure Tedit_pas.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tedit_pas.Button1Click(Sender: TObject);
begin
table1.GotoBookmark(zz);
table1.Edit;
table1.FieldByName('pass').AsString:=kk;
table1.Post;
table1.ApplyUpdates;
edit4.Enabled:=false;
edit3.Enabled:=false;
showmessage('盞絏