kjyw.pas

本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等

     dacompzhm.SetFocus;
     exit;
    end;
//设置返回值
result:=true;
end;

procedure Tfrmkjyw.cmddelClick(Sender: TObject);
begin
//弹出提示框，确认用户是否删除当前记录
if MessageDlg('您确认要删除这条记录吗?',mtInformation,[mbYes,mbNo],0)=mrYes THEN
  //删除当前记录
  Tablekjyw.Delete
end;


procedure Tfrmkjyw.cmdstoreClick(Sender: TObject);
begin
//调用storekjyw函数检测用户输入数据的合法性
if storekjyw=true then
    //测用户输入的数据合乎要求
    begin
      //设置当前记录中发生日期字段的值
      tablekjyw.FieldValues['fsrq']:=dtfsrq.Date;
      //保存添加或修改的记录
      tablekjyw.Post;
      //调用setbuttons过程设置所有数据控件和命令按钮的显示状态
      setbuttons(true);
    end;
end;

procedure Tfrmkjyw.cmdpreClick(Sender: TObject);
begin
//将当前的记录指针移动到当前记录的上一条记录
 tablekjyw.MoveBy(-1);
//判断当前的记录指针是否在表头
 if tablekjyw.Bof then
   begin
   //当前的记录指针在表头，给出相应的提示
    showmessage('这是第一条记录！');
   end;
end;

procedure Tfrmkjyw.cmdnextClick(Sender: TObject);
begin
//将当前的记录指针移动到当前记录的下一条记录
tablekjyw.MoveBy(1);
//判断当前的记录指针是否在表尾
if tablekjyw.Eof  then
   begin
   //当前的记录指针在表尾，给出相应的提示
    showmessage('这是最后一条记录！');
   end;
end;

procedure Tfrmkjyw.cmdmodiClick(Sender: TObject);
begin
//记录当前的操作类型
addrecord:=2;
//记录当前记录的凭证号码
m_pzhm:=dacompzhm.Text;
//调用setbuttons过程设置所有数据控件和命令按钮的显示状态
setbuttons(false);
//将光标定位在与凭证号码对应的组合框中
dacompzhm.SetFocus;
// 将当前的操作状态设置为修改状态
Tablekjyw.Edit;
end;

procedure Tfrmkjyw.cmdquitClick(Sender: TObject);
begin
//判断按钮的标题
if cmdquit.Caption='退出' then
  //按钮的标题是“退出”，退出预算项目管理模块
  frmkjyw.Close
else
   //按钮的标题是“取消”
  begin
    //调用setbuttons过程设置所有控件的状态
    setbuttons(true);
    //取消最近一次记录操作，将当前的操作状态设置为浏览状态
    tablekjyw.Cancel;
    //修改按钮的标题为“退出”
    cmdquit.Caption:='退出'
  end;
end ;

procedure Tfrmkjyw.cmdsearchClick(Sender: TObject);
var
//定义记录用户输入数据的字符串变量
inputstring:string;
begin
//弹出数据输入窗口,要求用户输入欲查询的数据
InputString:= InputBox('输入数据', '请输入要查询的凭证号码', '');
//判断用户输入的查询条件是否为空
if InputString='' then
   exit;
//设置tablekjyw的filter属性，以找到凭证号码等于用户输入的凭证号码的记录
tablekjyw.Filter:='pzhm='''+inputstring+'''';
//判断是否找到符合条件的记录
if tablekjyw.Eof then
  //没有找到符合条件的记录
  begin
    //给出提示
    showmessage('没有你要查询的数据！');
    // 重新设置tablekjyw的filter属性，以显示所有记录
    tablekjyw.Filter:='pzhm<>'' ''';
    exit;
  end;
end;

procedure Tfrmkjyw.cmddisClick(Sender: TObject);
begin
  tablekjyw.Filter:='pzhm<>'' ''';
end;

procedure Tfrmkjyw.FormCreate(Sender: TObject);
begin
if not tablekjyw.Eof then
     dtfsrq.Date:=tablekjyw.FieldValues['fsrq'];
while not tablepzlb.Eof  do
   begin
     dacompzlbmc.AddItem(tablepzlb.FieldValues['pzlbmc'],sender);
     tablepzlb.MoveBy(1);
   end;
while not tablegkglbm.Eof  do
   begin
     dacomglbmdm.AddItem(tablegkglbm.FieldValues['dm'],sender);
     comboxglbmmc.AddItem(tablegkglbm.FieldValues['glbmmc'],sender);
     tablegkglbm.MoveBy(1);
   end;
while not tablefygsbm.Eof  do
   begin
     dacomgsbmdm.AddItem(tablefygsbm.FieldValues['dm'],sender);
     comboxgsbmmc.AddItem(tablefygsbm.FieldValues['gsbmmc'],sender);
     tablefygsbm.MoveBy(1);
   end;
while not tableyskmlb.Eof  do
   begin
     dacomyslbdm.AddItem(tableyskmlb.FieldValues['dm'],sender);
     comboxyslbmc.AddItem(tableyskmlb.FieldValues['yslbmc'],sender);
     tableyskmlb.MoveBy(1);
   end;
while not tableyskm.Eof  do
   begin
     dacomyskmdm.AddItem(tableyskm.FieldValues['dm'],sender);
     comboxyskmmc.AddItem(tableyskm.FieldValues['yskmmc'],sender);
     tableyskm.MoveBy(1);
   end;
end;

procedure Tfrmkjyw.dacomglbmdmChange(Sender: TObject);
begin
if dacomglbmdm.text<>'' then
  begin
    tablegkglbm.Filter:='dm='''+dacomglbmdm.Text+'''';
    if not tablegkglbm.eof then
      comboxglbmmc.Text:=tablegkglbm.FieldValues['glbmmc'];
  end
end;
procedure Tfrmkjyw.comboxglbmmcChange(Sender: TObject);
begin
if comboxglbmmc.text<>'' then
  begin
    tablegkglbm.Filter:='glbmmc='''+comboxglbmmc.Text+'''';
    if not tablegkglbm.eof then
      tablekjyw.FieldValues['glbmdm']:=tablegkglbm.FieldValues['dm'];
  end

end;

procedure Tfrmkjyw.dacomgsbmdmChange(Sender: TObject);
begin
 if dacomgsbmdm.text<>'' then
  begin
    tablefygsbm.Filter:='dm='''+dacomgsbmdm.Text+'''';
    if not tablefygsbm.eof then
      comboxgsbmmc.Text:=tablefygsbm.FieldValues['gsbmmc'];
  end
end;

procedure Tfrmkjyw.comboxgsbmmcChange(Sender: TObject);
begin
  if comboxgsbmmc.text<>'' then
  begin
    tablefygsbm.Filter:='gsbmmc='''+comboxgsbmmc.Text+'''';
    if not tablefygsbm.eof then
      tablekjyw.FieldValues['gsbmdm']:=tablefygsbm.FieldValues['dm'];
  end
end;

procedure Tfrmkjyw.dacomyslbdmChange(Sender: TObject);
begin
  //判断用户输入或选择的预算科目类别代码是否为空
  if dacomyslbdm.text<>'' then
  //用户输入或选择的预算科目类别代码不为空
  begin
//设置tableyskmlb的filter属性，以找到与该预算科目类别代码对应的预算科目类别名称
    tableyskmlb.Filter:='dm='''+dacomyslbdm.Text+'''';
    if not tableyskmlb.eof then
      //在与"预算科目类别名称"对应的comboxyslbmc组合框中显示与该预算科目类别代
      //码对应的预算科目类别名称
      comboxyslbmc.Text:=tableyskmlb.FieldValues['yslbmc'];
  end
end;

procedure Tfrmkjyw.dacomyskmdmChange(Sender: TObject);
begin
  if dacomyskmdm.text<>'' then
  begin
    tableyskm.Filter:='dm='''+dacomyskmdm.Text+'''';
    if not tableyskm.eof then
      comboxyskmmc.Text:=tableyskm.FieldValues['yskmmc'];
  end
end;

procedure Tfrmkjyw.comboxyslbmcChange(Sender: TObject);
begin
 if comboxyslbmc.text<>'' then
  begin
    tableyskmlb.Filter:='yslbmc='''+comboxyslbmc.Text+'''';
    if not tableyskmlb.eof then
      tablekjyw.FieldValues['yslbdm']:=tableyskmlb.FieldValues['dm'];
  end
end;

procedure Tfrmkjyw.comboxyskmmcChange(Sender: TObject);
begin
  if comboxyskmmc.text<>'' then
  begin
    tableyskm.Filter:='yskmmc='''+comboxyskmmc.Text+'''';
    if not tableyskm.eof then
      tablekjyw.FieldValues['yskmdm']:=tableyskm.FieldValues['dm'];
  end
end;

procedure Tfrmkjyw.DBGrid1DblClick(Sender: TObject);
begin
  if not tablekjyw.Eof then
     //在dtfsrq控件中显示预算会计业务记录中发生日期字段
     dtfsrq.Date:=tablekjyw.FieldValues['fsrq']
  else
     dtfsrq.Date:=strtodate('1900-1-1');
  //Dacomyglbmdm控件的Change事件代码,显示预算归口管理部门名称
  dacomglbmdmChange(dacomglbmdm);
  //Dacomygsbmdm控件的Change事件代码,显示预算费用归属部门名称
  dacomgsbmdmChange(dacomgsbmdm);
  //Dacomyyslbdm控件的Change事件代码,显示预算科目类别名称
  dacomyslbdmChange(dacomyslbdm);
  //Dacomyskmdm控件的Change事件代码,显示预算科目名称
  dacomyskmdmChange(dacomyskmdm);
end;

end.