cai_mi_ma.pas

来自「采购管理系统：delphi+sql实现了企业采购自动化作业流程」· PAS 代码 · 共 54 行

unit cai_mi_ma;

interface

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

type
  Tcai_mi_m = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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
  cai_mi_m: Tcai_mi_m;

implementation

{$R *.dfm}

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