uchange.pas

智能试卷生成系统 Delphi----试卷生成系统代码 用户名：sa 密码：sa

unit uChange;

interface

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

type
  TfrmChange = class(TForm)
    Label1: TLabel;
    btnAppend: TSpeedButton;
    btnCancel: TSpeedButton;
    btnModify: TSpeedButton;
    btnDelete: TSpeedButton;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    dbgdep: TDBGrid;
    dbeID: TDBEdit;
    dbeSDep: TDBEdit;
    aqChange: TADOQuery;
    dsdep: TDataSource;
    Label4: TLabel;
    dbeDDep: TDBEdit;
    Label5: TLabel;
    dbeCdate: TDBEdit;
    Label6: TLabel;
    dbeReason: TDBEdit;
    procedure btnAppendClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChange: TfrmChange;

implementation

{$R *.dfm}

procedure TfrmChange.btnAppendClick(Sender: TObject);
begin
  if btnAppend.Caption = '添 加' then
  begin
    dbeID.SetFocus;
    aqChange.Append;
    btnAppend.Caption := '提 交';
    btnModify.Caption := '取 消';
    btnDelete.Visible := false;
  end
  else
  begin
    if dbeID.Text <> '' then
    begin
      aqChange.Post;
      btnAppend.Caption := '添 加';
      btnModify.Caption := '更 新';
      btnDelete.Visible := true;
    end
    else
    begin
      MessageBox(handle, '请输入工号!', '提示', mb_IconInformation + mb_Ok);
      dbeID.SetFocus;
      exit
    end;
  end;
end;

procedure TfrmChange.btnModifyClick(Sender: TObject);
begin
  if btnModify.Caption ='更 新' then
  begin
    aqChange.Edit;
    aqChange.Post;
  end
  else
  begin
    aqChange.Cancel;
    btnAppend.Caption := '添 加';
    btnModify.Caption := '更 新';
    btnDelete.Visible := true;
  end;
end;

procedure TfrmChange.btnDeleteClick(Sender: TObject);
begin
  if MessageBox(handle, '真的要删除此变更记录么?', '提示', mb_IconQuestion + mb_YesNo) = idYes then
  begin
    aqChange.Delete;
    aqChange.Close;
    aqChange.Open;
  end;
end;

procedure TfrmChange.btnCancelClick(Sender: TObject);
begin
  close;
end;

end.