sys_yearunit.~pas

来自「实例4学院信息管理系统 - RAR 档案文件」· ~PAS 代码 · 共 43 行

unit SYS_YearUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Db;

type
  TSYS_YearForm = class(TForm)
    Label1: TLabel;
    ButtonTuiChu: TButton;
    DBEditYear: TDBEdit;
    DataSourceSysYear: TDataSource;
    procedure ButtonTuiChuClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SYS_YearForm: TSYS_YearForm;

implementation

{$R *.DFM}
uses CDMUnit;

procedure TSYS_YearForm.ButtonTuiChuClick(Sender: TObject);
Var CurrentYear:String;
begin
    CurrentYear:='2002';
    Try
      CurrentYear:=DbEditYear.Text;
    finally
      CDM.DCOMConnectionStudent.AppServer.S_Year(CurrentYear);
      Close;
    end;
end;

end.