kjyw.pas

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

unit kjyw;

interface

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

type
  Tfrmkjyw = class(TForm)
    Labname: TLabel;
    Labpass: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    dacomglbmdm: TDBComboBox;
    DBGrid1: TDBGrid;
    cmdadd: TButton;
    cmdmodi: TButton;
    cmdsearch: TButton;
    cmdpre: TButton;
    cmdnext: TButton;
    cmdstore: TButton;
    cmddel: TButton;
    cmdquit: TButton;
    cmddis: TButton;
    dacompzhm: TDBComboBox;
    dacompzlbmc: TDBComboBox;
    DataSource1: TDataSource;
    Tablekjyw: TTable;
    Database1: TDatabase;
    Tablekjyw2: TTable;
    Tablepzlb: TTable;
    Tablegkglbm: TTable;
    Tablefygsbm: TTable;
    Tableyskmlb: TTable;
    Tableyskm: TTable;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    dacomgsbmdm: TDBComboBox;
    Label4: TLabel;
    Label7: TLabel;
    dacomyslbdm: TDBComboBox;
    Label8: TLabel;
    Label9: TLabel;
    dacomyskmdm: TDBComboBox;
    Label10: TLabel;
    DTfsrq: TDateTimePicker;
    deditbz: TDBEdit;
    Label11: TLabel;
    dacomywje: TDBComboBox;
    comboxglbmmc: TComboBox;
    comboxyslbmc: TComboBox;
    comboxgsbmmc: TComboBox;
    comboxyskmmc: TComboBox;
    procedure cmdaddClick(Sender: TObject);
    procedure setbuttons(bval:boolean);
    function storekjyw():boolean;
    procedure cmddelClick(Sender: TObject);
    procedure cmdstoreClick(Sender: TObject);
    procedure cmdpreClick(Sender: TObject);
    procedure cmdnextClick(Sender: TObject);
    procedure cmdmodiClick(Sender: TObject);
    procedure cmdquitClick(Sender: TObject);
    procedure cmdsearchClick(Sender: TObject);
    procedure cmddisClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dacomglbmdmChange(Sender: TObject);
    procedure comboxglbmmcChange(Sender: TObject);
    procedure dacomgsbmdmChange(Sender: TObject);
    procedure comboxgsbmmcChange(Sender: TObject);
    procedure dacomyslbdmChange(Sender: TObject);
    procedure dacomyskmdmChange(Sender: TObject);
    procedure comboxyslbmcChange(Sender: TObject);
    procedure comboxyskmmcChange(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
//    procedure ComboBoxglbmmcChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkjyw: Tfrmkjyw;
  //记录当前的数据库操作类型
  addrecord:integer;
  //记录所选记录的凭证号码
  m_pzhm:string;
implementation

{$R *.dfm}

procedure Tfrmkjyw.cmdaddClick(Sender: TObject);
begin
//记录当前的操作类型
addrecord:=1;
//将与"管理部门名称"、"归属部门名称"、"预算科目名称"和
//"预算科目类别名称"对应的数据控件的初始值设为空
comboxglbmmc.Text:='';
comboxgsbmmc.Text:='';
comboxyslbmc.Text:='';
comboxyskmmc.Text:='';
//调用setbuttons过程设置所有数据控件和命令按钮的显示状态
setbuttons(false);
//将光标定位在与凭证号码对应的组合框中
dacompzhm.SetFocus;
//将当前的操作状态设置为添加状态
Tablekjyw.Append;
end;

procedure Tfrmkjyw.setbuttons(bval:boolean);
begin
//设置窗口中与凭证号码对应的TDBComboBox控件的的Enabled属性
dacompzhm.Enabled:=not bval;
dacompzlbmc.Enabled:=not bval;
dacomglbmdm.Enabled:=not bval;
comboxglbmmc.Enabled:=not bval;
dacomgsbmdm.Enabled:=not bval;
comboxgsbmmc.Enabled:=not bval;
dacomyskmdm.Enabled:=not bval;
comboxyskmmc.Enabled:=not bval;
dacomyslbdm.Enabled:=not bval;
comboxyslbmc.Enabled:=not bval;
//设置窗口中与业务金额对应的TDBComboBox控件的的Enabled属性
dacomywje.Enabled:=not bval;
deditbz.Enabled:=not bval;
//设置cmdadd按钮的状态
cmdadd.Enabled:=bval;
cmdmodi.Enabled:=bval;
cmdsearch.Enabled:=bval;
cmddis.Enabled:=bval;
cmdpre.Enabled:=bval;
cmdnext.Enabled:=bval;
cmddel.Enabled:=bval;
//设置cmdstore等按钮的状态
cmdstore.Enabled:=not bval;
//设置DTfsrq日期控件的状态
dtfsrq.Enabled:=not bval;
//设置cmdquit按钮的标题
if cmdquit.Caption='退出' then
  cmdquit.Caption:='取消'
else
  cmdquit.Caption:='退出';
end;

function Tfrmkjyw.storekjyw():boolean;
var
note:array[1..13] of string;
str:string;
begin
result:=false;
note[1]:='凭证号码不能为空！';
note[2]:='凭证类别名称不能为空！';
note[3]:='费用归口管理部门代码不能为空！';
note[4]:='费用归口管理部门不能为空！';
note[5]:='费用归属部门代码不能为空！';
note[6]:='费用归属部门名称不能为空！';
note[7]:='预算科目代码不能为空！';
note[8]:='预算科目名称不能为空！';
note[9]:='预算科目类别代码不能为空！';
note[10]:='预算科目类别名称不能为空！';
note[11]:='业务金额不能为空！';
note[12]:='该凭证号码已经存在！';
note[13]:='预算科目类别代码与预算科目代码不符！';
//判断输入的凭证号码是否为空。
if dacompzhm.Text='' then
   begin
   //输入的凭证号码为空，给出提示"凭证号码不能为空！"
    showmessage(note[1]);
   //将光标定位在comboxpzh控件，要求重新输入
    dacompzhm.SetFocus;
    exit;
   end;
//判断输入的凭证类别名称是否为空。如果为空，提示"凭证类别名称不能为空！"，要求重新输入
if dacompzlbmc.Text='' then
   begin
    showmessage(note[2]);
    dacompzlbmc.SetFocus;
    exit;
   end;
if dacomglbmdm.Text='' then
   begin
    showmessage(note[3]);
    dacomglbmdm.SetFocus;
    exit;
   end;
if comboxglbmmc.Text='' then
   begin
    showmessage(note[4]);
    comboxglbmmc.SetFocus;
    exit;
   end;
if dacomgsbmdm.Text='' then
   begin
    showmessage(note[5]);
    dacomgsbmdm.SetFocus;
    exit;
   end;
if comboxgsbmmc.Text='' then
   begin
    showmessage(note[6]);
    comboxgsbmmc.SetFocus;
    exit;
   end;
if dacomyskmdm.Text='' then
   begin
    showmessage(note[7]);
    dacomyskmdm.SetFocus;
    exit;
   end;
if comboxyskmmc.Text='' then
   begin
    showmessage(note[8]);
    comboxyskmmc.SetFocus;
    exit;
   end;
if dacomyslbdm.Text='' then
   begin
    showmessage(note[9]);
    dacomyslbdm.SetFocus;
    exit;
   end;
if comboxyslbmc.Text='' then
   begin
    showmessage(note[10]);
    comboxyslbmc.SetFocus;
    exit;
   end;
//判断输入的业务金额是否为空。如果为空，提示"业务金额不能为空！"，要求重新输入
   if dacomywje.Text='' then
   begin
    showmessage(note[11]);
    dacomywje.SetFocus;
    exit;
   end;
//判断输入的业务金额是否为空。如果为空，则将当前记录zb字段的值置为空字符串
if deditbz.Text='' then
   tablekjyw.FieldValues['bz']:='';
//判断输入的用户科目是否与输入的预算科目代码相符合
str:=dacomyskmdm.text;
str:=copy(str,1,1);
if str<>dacomyslbdm.Text then
    begin
     showmessage(note[13]);
     comboxyskmmc.SetFocus;
     exit;
    end;
//根据当前的操作状态设置tablekjyw2的Filter
if addrecord=1 then
   tablekjyw2.Filter:='pzhm='''+dacompzhm.Text+''''
 else
   if m_pzhm=dacompzhm.Text then
      begin
       result:=true;
       exit;
      end
   else
     tablekjyw2.Filter:='pzhm='''+ dacompzhm.Text+'''';
//判断输入的凭证号码在kjyw表中是否存在。
if not tablekjyw2.Eof then
    begin
     //输入的凭证号码在kjyw表中已经存在，提示"该预算号码已经存在！"
     showmessage(note[12]);