tjjs.pas

某计算机学院的毕业设计及论文

unit TJJS;

interface

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

type
  TfrJS = class(TForm)
    XQ: TADOTable;
    XQID: TAutoIncField;
    XQName: TWideStringField;
    LH: TADOTable;
    LC: TADOTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    LHXQID: TIntegerField;
    LHID: TAutoIncField;
    LHLBH: TWideStringField;
    LHName: TWideStringField;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    XPManifest1: TXPManifest;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBNavigator1: TDBNavigator;
    JS: TADOTable;
    dsJS: TDataSource;
    temp: TADOTable;
    dstemp: TDataSource;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    edjsbh: TEdit;
    Label9: TLabel;
    edjsmc: TEdit;
    Button3: TButton;
    LCID: TWideStringField;
    LCName: TWideStringField;
    DBGrid4: TDBGrid;
    JSJSBH: TWideStringField;
    JSName: TWideStringField;
    JSMT: TBooleanField;
    JSallname: TWideStringField;
    DBNavigator2: TDBNavigator;
    CheckBox1: TCheckBox;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBEdit2Enter(Sender: TObject);
    procedure LHAfterPost(DataSet: TDataSet);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure JSMTGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frJS: TfrJS;

implementation

{$R *.dfm}

procedure TfrJS.FormShow(Sender: TObject);
begin
  XQ.Open;
  LH.Open;
  LC.Open;
//  XQL.Open;
//  LHL.Open;
//  LCHL.Open;
  temp.Open;
end;

procedure TfrJS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  XQ.Close;
  LH.Close;
  LC.Close;
//  XQL.Close;
//  LHL.Close;
//  LCHL.Close;
  temp.Close;
end;

procedure TfrJS.DBGrid1Enter(Sender: TObject);
begin
  DBNavigator1.DataSource:=(Sender as TDBGrid).DataSource;
end;

procedure TfrJS.DBEdit2Enter(Sender: TObject);
begin
  DBNavigator1.DataSource:=(Sender as TDBEdit).DataSource;
end;

procedure TfrJS.LHAfterPost(DataSet: TDataSet);
var
  i,j:integer;
  sNO1,sNO2:string;
begin
  //楼编号设置成2位空位前面补0
  sNo1:=DataSet.FieldByName('XQID').AsString;
  i:=length(sNo1);
  for j:=1 to 2-i do
  sNo1:='0'+sNo1;
  //楼编号设置成4位空位前面补0
  sNo2:=DataSet.FieldByName('ID').AsString;
  i:=length(sNo2);
  for j:=1 to 4-i do
  sNo2:='0'+sNo2;

  if DataSet.FieldByName('LBH').IsNull then
  begin
    DataSet.edit;
    DataSet.FieldByName('LBH').AsString:=sNo1+sNo2;
    DataSet.post;
  end;

end;

procedure TfrJS.Button3Click(Sender: TObject);
var
  i,j:integer;
  sNO,sName:string;
begin
  if LH.FieldByName('LBH').IsNull or LC.FieldByName('ID').IsNull or(Trim(edjsbh.Text)='') then
  begin
    Application.MessageBox('请选择楼名及楼层并且教室编号不能为空！！','提示');
    abort;
  end;
  sNo:=LH.FieldByName('LBH').AsString+LC.FieldByName('ID').AsString+Trim(edjsbh.Text);
  if trim(edjsmc.Text)='' then
  edjsmc.Text:=Trim(edjsbh.Text);
  JS.Insert;
  JS.FieldByName('JSBH').AsString:=sNo;
  JS.FieldByName('Name').AsString:=edjsmc.Text;
  JS.FieldByName('MT').AsBoolean:=CheckBox1.Checked;
  JS.FieldByName('allname').AsString:= XQ.FieldByName('Name').AsString +'学区'+ LH.FieldByName('Name').AsString +'楼'+ LC.FieldByName('Name').AsString + edjsmc.Text+'教室';
  Try
    JS.Post;
  except
    Application.MessageBox('此教室已经存在！！','提示');
  end;
  edjsmc.Text:='';
  edjsbh.Text:='';
end;

procedure TfrJS.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrJS.JSMTGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if (Sender as TField).AsBoolean then
    Text:='是'
  else
    Text:='否';
end;

end.