u_course.pas

以多个信息系统为例

unit u_course;

interface

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

type
  TF_course = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    i_id: TDBEdit;
    i_name: TDBEdit;
    i_teacher: TDBLookupComboBox;
    i_intro: TDBMemo;
    i_book: TDBMemo;
    i_classroom: TDBMemo;
    i_teacher_id: TDBEdit;
    i_classtime: TDBMemo;
    i_state: TDBRadioGroup;
    i_number: TDBEdit;
    procedure FormShow(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_course: TF_course;

implementation

{$R *.DFM}

uses u_datamodule;

procedure TF_course.FormShow(Sender: TObject);
begin
  DM_main.T_course.Open;
  DM_main.T_teacher.Open;
end;

procedure TF_course.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
var
  counter:Integer;
  id:String;
begin
  if Button=nbInsert then
  begin
    //获取计数
    With DM_main.T_counter do
    begin
      Filter:='ID=''U''';
      Filtered:=True;
      Open;
      counter:=FieldValues['COUNTER_VALUE'];
      Inc(counter);
      Edit;
      FieldValues['COUNTER_VALUE']:=counter;
      Post;
      Close;
    end;
    //初始记录
    id:='00000'+IntToStr(counter);
    id:=Copy(id,length(id)-6,6);
    id:=FormatDateTime('yyyy', now)+id;
    i_id.Text:=id;
    i_teacher_id.Text:='PXCOUT';
    i_state.ItemIndex:=0;
  end;
end;

procedure TF_course.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM_main.T_course.Close;
  DM_main.T_teacher.Close;
end;

end.