ukskm.~pas

学生信息管理系统

unit UKskm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UData, PrnDbgeh, DB, ADODB, ActnList, Grids, DBGridEh, ExtCtrls,
  ComCtrls, ToolWin, StdCtrls, Mask, DBCtrlsEh;

type
  TFKskm = class(TFData)
    Label5: TLabel;
    Label1: TLabel;
    Shape2: TShape;
    DBComboBoxEh1: TDBComboBoxEh;
    Label2: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    ADOQueryID: TAutoIncField;
    ADOQuerynj: TWideStringField;
    ADOQuerykm: TWideStringField;
    procedure A_saveExecute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure A_addExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FKskm: TFKskm;

implementation

{$R *.dfm}

procedure TFKskm.A_saveExecute(Sender: TObject);
begin
  ADOQuery.FieldByName('km').AsString := Edit1.Text;  
  inherited;
end;

procedure TFKskm.Button1Click(Sender: TObject);
var
  str: string;
begin
  if ComboBox1.ItemIndex < 0 then exit;
  if Pos(comboBox1.Text,Edit1.Text)>0 then begin
    str := Edit1.Text;
    Delete(str,pos(comboBox1.Text,str),length(comboBox1.Text)+1);
    Edit1.Text := str;
  end else Edit1.Text := Edit1.Text+comboBox1.Text+';';
end;

procedure TFKskm.DataSourceDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  if ADOQuery.State =dsBrowse then begin
    if AdoQUery.FieldByName('km').IsNull or (AdoQUery.FieldByName('km').AsString='') then
       Edit1.Text := '' else
       Edit1.Text := AdoQUery.FieldByName('km').AsString;
  end;
end;

procedure TFKskm.A_addExecute(Sender: TObject);
begin
  inherited;
  Edit1.Text := '';
end;

end.