deng_liu.pas

来自「品质管理系统：delphi+sql实现了制造企业在生产过程中对产品质量的控制」· PAS 代码 · 共 69 行

unit deng_liu;

interface

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

type
  Tdeng_li = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit3: TEdit;
    Query1: TQuery;
    Table1: TTable;
    DataSource1: TDataSource;
    Database1: TDatabase;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deng_li: Tdeng_li;

implementation
 uses dmm2, pin_main;
{$R *.dfm}

procedure Tdeng_li.Button1Click(Sender: TObject);
var
  SavePlace: TBookmark;
  PrevValue: Variant;
begin
table1.Active:=false;
table1.IndexFieldNames:='username';
table1.Active:=true;

if table1.FindKey([edit3.text]) then
begin
    SavePlace:=table1.GetBookmark;
    PrevValue:=table1.Fields[1].Value;
    table1.GotoBookmark(SavePlace);
if PrevValue=edit1.Text then
begin
//
    query1.Active:=false;
    query1.SQL.Clear;
    query1.SQL.Add('select gong_si_jian from gong_si ' );
    query1.Prepare;
    query1.Active:=true;


    table1.Edit;
    table1.FieldByName('yes_or_no').AsString:='