ufrmmain.pas

数据库试验题目

begin
  if lvwChange.Selected <> nil then
  begin
    CCID := lvwChange.Selected.Caption;
    _Student.ModiChange(CCID, cmbChange_Change.Text,
      cmbTimeChange.DateTime, memChange.Text);
    _Student.GetHistoryChange(lvwChange);
    SetSelected(lvwChange, CCID);
    SetChangeValue;
  end;
end;

procedure TfrmMain.SetChangeValue;
begin
  labSID_Change.Caption := _Student.ID;
  labSName_Change.Caption := _Student.Name;
  _Student.GetChangeList(cmbChange_Change);
  if lvwChange.selected <> nil then
  begin
    with lvwChange.Selected do
    begin
      cmbTimeChange.DateTime := strtodatetime(subItems[0]);
      cmbChange_Change.Text := subItems[1];
      memChange.Text := subItems[2];
    end;
  end
  else
  begin
    cmbChange_Change.Text := '';
    memChange.Text := '';
    cmbTimeChange.DateTime := now;
  end;
end;

procedure TfrmMain.cmdDelChangeClick(Sender: TObject);
begin
  if lvwChange.Selected <> nil then
  begin
    _Student.DelChange(lvwChange.Selected.Caption);
    _Student.GetHistoryChange(lvwChange);
    SetChangeValue;
  end;
end;

procedure TfrmMain.SetPunishValue;
begin
  labSID_Punish.Caption := _Student.ID;
  labSName_Punish.Caption := _Student.Name;
  _Student.GetPunishList(cmbPunish_Punish);
  if lvwPunish.selected <> nil then
  begin
    with lvwPunish.Selected do
    begin
      cmbTime_Punish.DateTime := strtodatetime(subItems[0]);
      cmbPunish_Punish.Text := subItems[1];
      memPunish.Text := subItems[3];
      if subItems[2] = 'T' then cbxEnable.checked := true
      else cbxEnable.checked := false;
    end;
  end
  else
  begin
    cmbPunish_Punish.Text := '';
    memPunish.Text := '';
    cmbTime_Punish.DateTime := now;
    cbxEnable.checked := false;
  end;
end;

procedure TfrmMain.cmdAddPunishClick(Sender: TObject);
var
  SEnable: string;
begin
  if cbxEnable.Checked then SEnable := 'T'
  else SEnable := 'F';
  _Student.AddPunish(cmbPunish_Punish.Text,
    cmbTime_Punish.DateTime, memPunish.Text, SEnable);
  labSID_Punish.Caption := _Student.ID;
  labSName_Punish.Caption := _Student.Name;
  _Student.GetPunishList(cmbPunish_Punish);
  _Student.GetHistoryPunish(lvwPunish);
  cmbPunish_Punish.Text := '';
  memPunish.Text := '';
  cmbTime_Punish.DateTime := now;
end;

procedure TfrmMain.cmdModiPunishClick(Sender: TObject);
var
  CCID: string;
  SEnable: string;
begin
  if lvwPunish.Selected <> nil then
  begin
    if cbxEnable.Checked then SEnable := 'T'
    else SEnable := 'F';
    CCID := lvwPunish.Selected.Caption;
    _Student.ModiPunish(CCID, cmbPunish_Punish.Text,
      cmbTime_Punish.DateTime, memPunish.Text, SEnable);
    _Student.GetHistoryPunish(lvwPunish);
    SetSelected(lvwPunish, CCID);
    SetPunishValue;
  end;
end;

procedure TfrmMain.cmdDelPunishClick(Sender: TObject);
begin
  if lvwPunish.Selected <> nil then
  begin
    _Student.DelPunish(lvwPunish.Selected.Caption);
    _Student.GetHistoryPunish(lvwPunish);
    SetPunishValue;
  end;
end;

procedure TfrmMain.SetRewardValue;
begin
  labSID_Reward.Caption := _Student.ID;
  labSName_Reward.Caption := _Student.Name;
  _Student.GetRewardList(cmbReward_Reward);
  if lvwReward.selected <> nil then
  begin
    with lvwReward.Selected do
    begin
      cmbTime_Reward.DateTime := strtodatetime(subItems[0]);
      cmbReward_Reward.Text := subItems[1];
      memReward.Text := subItems[2];
    end;
  end
  else
  begin
    cmbReward_Reward.Text := '';
    memReward.Text := '';
    cmbTime_Reward.DateTime := now;
  end;
end;

procedure TfrmMain.cmdAddRewardClick(Sender: TObject);
begin
  _Student.AddReward(cmbReward_Reward.Text,
    cmbTime_Reward.DateTime, memReward.Text);
  labSID_Reward.Caption := _Student.ID;
  labSName_Reward.Caption := _Student.Name;
  _Student.GetRewardList(cmbReward_Reward);
  _Student.GetHistoryReward(lvwReward);
  cmbReward_Reward.Text := '';
  memReward.Text := '';
  cmbTime_Reward.DateTime := now;
end;

procedure TfrmMain.cmdModiRewardClick(Sender: TObject);
var
  CCID: string;
begin
  if lvwReward.Selected <> nil then
  begin
    CCID := lvwReward.Selected.Caption;
    _Student.ModiReward(CCID, cmbReward_Reward.Text,
      cmbTime_Reward.DateTime, memReward.Text);
    _Student.GetHistoryReward(lvwReward);
    SetSelected(lvwReward, CCID);
    SetRewardValue;
  end;
end;

procedure TfrmMain.cmdDelRewardClick(Sender: TObject);
begin
  if lvwReward.Selected <> nil then
  begin
    _Student.DelReward(lvwReward.Selected.Caption);
    _Student.GetHistoryReward(lvwReward);
    SetRewardValue;
  end;
end;

procedure TfrmMain.lvwRewardClick(Sender: TObject);
begin
  SetRewardValue;
end;

procedure TfrmMain.SetAllValue;
begin
  txtID_All.text := _Student.ID;
  labName_All.Caption := _Student.Name;
  labSID.Caption := _Student.ID;
  labSex_All.Caption := _Student.Sex;
  labBirthday_All.Caption := datetimetostr(_Student.BDate);
  labSNP_All.Caption := _Student.NP;
  labClass_All.Caption := _Student.ClassID;
  labDept_All.Caption := _Student.Dept;
  _Student.GetHistoryChange(lvwChange_All);
  _Student.GetHistoryPunish(lvwPunish_All);
  _Student.GetHistoryReward(lvwReward_All);
end;

procedure TfrmMain.spbQueryClick(Sender: TObject);
begin
  if _Student.SetValue(txtID_All.Text) then SetAllValue
  else
  begin
    showmessage('查无此人');
    txtID_All.Text := _Student.ID;
  end;
end;

procedure TfrmMain.cmdP_AllClick(Sender: TObject);
begin
  _Student.MovePrior;
  SetAllValue;
  _CurSel := '';
end;

procedure TfrmMain.cmdD_AllClick(Sender: TObject);
begin
  _Student.MoveNext;
  SetAllValue;
  _CurSel := '';
end;

procedure TfrmMain.cmdAdd_AllClick(Sender: TObject);
begin
  if _CurSel = '' then
  begin
    showmessage('请选择要修改的数据');
    exit;
  end;
  if _CurSel = 'C' then pgctest.ActivePageIndex := 1;
  if _CurSel = 'P' then pgctest.ActivePageIndex := 2;
  if _CurSel = 'R' then pgctest.ActivePageIndex := 3;
  pgcTestChange(nil)
end;

procedure TfrmMain.lvwChange_AllEnter(Sender: TObject);
begin
  _CurSel := 'C';
end;

procedure TfrmMain.lvwReward_AllEnter(Sender: TObject);
begin
  _CurSel := 'R';
end;

procedure TfrmMain.lvwPunish_AllEnter(Sender: TObject);
begin
  _CurSel := 'P';
end;

procedure TfrmMain.cmdModi_AllClick(Sender: TObject);
begin
  if _CurSel = '' then
  begin
    showmessage('请选择要修改的数据');
    exit;
  end;
  if _CurSel = 'C' then
  begin
    pgctest.ActivePageIndex := 1;
    pgcTestChange(nil);
    SetSelected(lvwChange, lvwChange_All.Selected.Caption);
  end;
  if _CurSel = 'P' then
  begin
    pgctest.ActivePageIndex := 2;
    pgcTestChange(nil);
    SetSelected(lvwPunish, lvwPunish_All.Selected.Caption);
  end;
  if _CurSel = 'R' then
  begin
    pgctest.ActivePageIndex := 3;
    pgcTestChange(nil);
    SetSelected(lvwReward, lvwReward_All.Selected.Caption);
  end;
end;

procedure TfrmMain.lvwChangeSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  SetChangeValue;
end;

procedure TfrmMain.lvwPunishSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  SetPunishValue;
end;

procedure TfrmMain.lvwRewardSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  SetRewardValue;
end;

procedure TfrmMain.cmdDel_AllClick(Sender: TObject);
begin
  if _CurSel = '' then
  begin
    showmessage('请选择要修改的数据');
    exit;
  end;
  if MessageDlg('是否真的删除?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
  begin
    if _CurSel = 'C' then
    begin
      _Student.DelChange(lvwChange_All.Selected.Caption);
      _Student.GetHistoryChange(lvwChange_All);
    end;
    if _CurSel = 'P' then
    begin
      _Student.DelChange(lvwPunish_All.Selected.Caption);
      _Student.GetHistoryChange(lvwPunish_All);
    end;
    if _CurSel = 'R' then
    begin
      _Student.DelChange(lvwReward_All.Selected.Caption);
      _Student.GetHistoryChange(lvwReward_All);
    end;
  end;
end;

end.