sz.~pas

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

unit SZ;

interface

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

type
  TfrSZ = class(TForm)
    temp: TADOTable;
    dstemp: TDataSource;
    LH: TADOTable;
    LHXQID: TIntegerField;
    LHID: TAutoIncField;
    LHLBH: TWideStringField;
    LHName: TWideStringField;
    DataSource2: TDataSource;
    DataSource1: TDataSource;
    XQ: TADOTable;
    XQID: TAutoIncField;
    XQName: TWideStringField;
    LC: TADOTable;
    LCID: TWideStringField;
    LCName: TWideStringField;
    DataSource3: TDataSource;
    JS: TADOTable;
    dsJS: TDataSource;
    JSJSBH: TWideStringField;
    JSName: TWideStringField;
    JSMT: TBooleanField;
    JSallname: TWideStringField;
    GroupBox1: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cbC: TCheckBox;
    cbL: TCheckBox;
    cbXZMT: TCheckBox;
    cbJXSDMT: TCheckBox;
    GroupBox2: TGroupBox;
    cbZhou: TComboBox;
    cbJie: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    dblXi: TDBLookupComboBox;
    Xi: TADOTable;
    dsXi: TDataSource;
    XiID: TWideStringField;
    XiName: TWideStringField;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    DBGrid2: TDBGrid;
    Label9: TLabel;
    Button2: TButton;
    DYB: TADOTable;
    DataSource4: TDataSource;
    DYBDSDesigner: TWideStringField;
    DYBDSDesigner2: TWideStringField;
    DYBDSDesigner3: TWideStringField;
    DYBStringField: TStringField;
    cbNJ: TComboBox;
    Button3: TButton;
    procedure JSMTGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure JSFilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure cbLClick(Sender: TObject);
    procedure cbJXSDMTClick(Sender: TObject);
    procedure cbXZMTClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DYBDSDesignerGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure DYBDSDesigner2GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frSZ: TfrSZ;
  JSGL:string;
implementation

{$R *.dfm}

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

procedure TfrSZ.JSFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  if Pos(JSGL,DataSet.FieldByName('JSBH').AsString)=1 then
     Accept:=True
  else
    Accept:=False;
  if cbXZMT.Checked then
  Accept:=Accept and (cbJXSDMT.Checked = DataSet.FieldByName('MT').AsBoolean);
end;

procedure TfrSZ.FormShow(Sender: TObject);
var
  i:integer;
begin
  JSGL:='';
  XQ.Open;
  LH.Open;
  LC.Open;
  temp.Open;
  JS.Open;
  Xi.Open;
  DYB.Open;

  
end;

procedure TfrSZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  XQ.Close;
  LH.Close;
  LC.Close;
  temp.Close;
  JS.Close;
  DYB.Close;
end;

procedure TfrSZ.DBLookupComboBox1Click(Sender: TObject);
var
  i,j:integer;
  sNO1,sNO:string;
begin
  if not(temp.State in [dsEdit,dsInsert]) then
   temp.Edit;
  sNo1:=DBLookupComboBox1.Field.Text;
  i:=length(sNo1);
  for j:=1 to 2-i do
  sNo1:='0'+sNo1;
  if pos(sNo1,DBLookupComboBox2.Field.Text)<>1 then
  begin
    DBLookupComboBox2.ListSource.DataSet.First;
    DBLookupComboBox2.Field.Text := DBLookupComboBox2.ListSource.DataSet.FieldByName('LBH').AsString;
//    Application.MessageBox('请选择对应学区的楼！！','提示');
//    abort;
  end;
  if cbL.Checked then
    JSGL:=DBLookupComboBox2.Field.Text
  else
    JSGL:=sNo1;
  if cbC.Enabled then
   if cbC.Checked then
     JSGL:=DBLookupComboBox2.Field.Text+DBLookupComboBox3.Field.Text
   else
     JSGL:=DBLookupComboBox2.Field.Text;
  temp.Post;
  js.Refresh;
end;

procedure TfrSZ.cbLClick(Sender: TObject);
begin
  cbC.Enabled := cbL.Checked;
  DBLookupComboBox1Click(nil);
end;

procedure TfrSZ.cbJXSDMTClick(Sender: TObject);
begin
  if cbXZMT.Checked then
    DBLookupComboBox1Click(nil);
end;

procedure TfrSZ.cbXZMTClick(Sender: TObject);
begin
  cbJXSDMT.Enabled := cbXZMT.Checked;
  DBLookupComboBox1Click(nil);
end;

procedure TfrSZ.Button1Click(Sender: TObject);
begin
  if JS.RecordCount<1 then
  begin
   Application.MessageBox('请选择教室！','提示');
   abort;
  end;
  if not((cbZhou.ItemIndex>=0) and (cbJie.ItemIndex>=0)) then
  begin
    Application.MessageBox('请选择时间！','提示');
    abort;
  end;
  if (cbNJ.ItemIndex<0) or (dblXi.Field.IsNull) then
  begin
    Application.MessageBox('请选择班级！','提示');
    abort;
  end;
  DYB.Insert;
  DYB.FieldByName('教室').AsString:=JS.FieldByName('JSBH').AsString;
  DYB.FieldByName('时间').AsString:=inttostr(cbZhou.ItemIndex)+inttostr(cbJie.ItemIndex+1);
  DYB.FieldByName('班级').AsString:=dblXi.Field.Text+inttostr(cbNJ.ItemIndex);
  try
    DYB.Post;
  except
    DYB.Cancel;
    Application.MessageBox('数据已经添加过！','提示');
  end;

end;

procedure TfrSZ.DYBDSDesignerGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
var
  s:string;
  i:integer;
begin
  if not (Sender as TField).IsNull then
  begin
    s:=(Sender as TField).DataSet.FieldByName('班级').AsString;
    i:=strtoint(s[3]);
    text:=IdtoName(uXi,uXiCount,s[1]+s[2])+uNJ[i];
  end;
end;

procedure TfrSZ.DYBDSDesigner2GetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
var
  s:string;
  i,j:integer;
begin
  if not (Sender as TField).IsNull then
  begin
    s:=(Sender as TField).DataSet.FieldByName('时间').AsString;
    i:=strtoint(s[1]);
    j:=strtoint(s[2]);
    text:=uZhou[i]+uJie[j];
  end;
end;

procedure TfrSZ.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure TfrSZ.Button2Click(Sender: TObject);
begin

  DYB.Delete;
end;

end.