frm_collegeinfo.pas

是一个用delphi设计的考勤系统

{
***************************************************************
*  说明：部门基本信息维护                                     * 
***************************************************************
}
unit Frm_CollegeInfo;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, DB, ADODB, ComCtrls, Grids, DBGrids, StdCtrls,
   YLabelButton, ChangeImage, Menus, ExtCtrls, ImgList, UErrDisplay,
  ModalForm1, Buttons;

type
   TCollegeInfo = class(TMyModalForm1)
      Label1: TLabel;
      Edtyxbh: TEdit;
      Label2: TLabel;
      Edtyxmc: TEdit;
      DBGrid1: TDBGrid;
      StatusBar1: TStatusBar;
      DataSource1: TDataSource;
      ADOQry: TADOQuery;
      GroupBox1: TGroupBox;
      ADOStp: TADOStoredProc;
      Label3: TLabel;
      CBxqbh: TComboBox;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
      procedure BtnDeleteClick(Sender: TObject);
      procedure DBGrid1CellClick(Column: TColumn);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure FormDestroy(Sender: TObject);
      procedure EdtyxbhKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure FormShow(Sender: TObject);
      procedure CBxqbhKeyPress(Sender: TObject; var Key: Char);
      procedure CBxqbhExit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
   private
    { Private declarations }
      procedure InitValue; //初始化窗体数据
      procedure SetEditValue; //设置各显示框的数据值
      function CheckValue: boolean; //检查各个输入框值的准确性
      procedure ExecStore(optmode: integer); //执行存储过程
      function ReturnSqlValue(Str: string): string; //返回字段名称
   public
    { Public declarations }
   end;

var
   CollegeInfo: TCollegeInfo;

implementation
uses
   DM_DataModal, Uglobal, UgeneralFunc;
{$R *.dfm}

procedure TCollegeInfo.InitValue;
begin
   Edtyxbh.Text := '';
   Edtyxmc.Text := '';
   Cbxqbh.ItemIndex := 0;
   Cbxqbh.SetFocus;
   statusbar1.Panels[2].Text := 'Insert';
   with AdoQry do
   begin
      sql.Clear;
      sql.Add('select * from vZx_S_yxxx');
      open;
   end;
end;

procedure TCollegeInfo.SetEditValue;
begin
   if AdoQry.RecordCount > 0 then
   begin
      Cbxqbh.Text := AdoQry.fieldbyname('xqmc').Value;
      Edtyxbh.Text := AdoQry.fieldbyname('bjbh').Value;
      Edtyxmc.Text := AdoQry.fieldbyname('bjmc').Value;
   end;
end;

function TCollegeInfo.CheckValue: boolean;
begin
   result := false;
   if Cbxqbh.Text = '' then
   begin
      statusbar1.Panels[1].Text := '单位名称不可为空值，请选择！';
      Cbxqbh.SetFocus;
      Cbxqbh.SelectAll;
      exit;
   end;
   if Edtyxbh.Text = '' then
   begin
      statusbar1.Panels[1].Text := '部门编号不可为空值，请输入！';
      Edtyxbh.SetFocus;
      Edtyxbh.SelectAll;
      exit;
   end;
   if Edtyxmc.Text = '' then
   begin
      statusbar1.Panels[1].Text := '部门名称不可为空值，请输入！';
      Edtyxmc.SetFocus;
      Edtyxmc.SelectAll;
      exit;
   end;
   Result := true;
end;

procedure TCollegeInfo.ExecStore(OptMode: integer);
begin
   with AdoStp do
   begin
      parameters.ParamByName('@czdx').Value :=4  ;
      parameters.ParamByName('@czfs').Value :=OptMode  ;
      parameters.ParamByName('@zybh').Value :=ReturnSqlValue(Cbxqbh.Text);
      parameters.ParamByName('@bjbh').Value :=Edtyxbh.Text ;
      Parameters.ParamByName('@mc').Value :=Edtyxmc.Text ;
      try
         Execproc;
         Statusbar1.Panels[1].Text := parameters.paramByName('@retmsg').Value;
         InitValue;
      except
         Statusbar1.Panels[1].Text := '维护部门信息资料时出现意外！';
      end;
   end;
end;

procedure TCollegeInfo.BtnDeleteClick(Sender: TObject);
var
   msg: string;
begin
   inherited;

end;

procedure TCollegeInfo.DBGrid1CellClick(Column: TColumn);
begin
   inherited;
   SetEditValue;
   statusbar1.Panels[2].Text := 'Modify';
end;

procedure TCollegeInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   inherited;
   Action := Cafree;
end;

procedure TCollegeInfo.FormDestroy(Sender: TObject);
begin
   inherited;
   CollegeInfo := nil;
end;

procedure TCollegeInfo.EdtyxbhKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var
   Sqlstr: string;
begin
   inherited;
   if key = 13 then
   begin
      if Edtyxbh.Text = '' then
      begin
         statusbar1.Panels[1].Text := '部门编号不可为空值，请输入！';
         exit;
      end;
      SqlStr := 'select * from vZx_S_yxxx   where yxbh like ''' + trim(edtyxbh.text) + '''';
      with Adoqry do
      begin
         sql.Clear;
         sql.Add(sqlstr);
         open;
      end;
      if Adoqry.RecordCount > 0 then
      begin
         SetEditValue;
         statusbar1.Panels[1].Text := '查找到' + inttostr(Adoqry.RecordCount) + '笔符合条件的记录！';
         statusbar1.Panels[2].Text := 'Modify'
      end;
      Edtyxmc.SetFocus;
      edtyxmc.SelectAll;
   end;

end;

procedure TCollegeInfo.FormShow(Sender: TObject);
var
   Sqlstr: string;
begin
   inherited;
   Sqlstr := 'select * from zx_s_xqxx ';
   SetComboxItems(WindData.AdoConn, CbXqbh, sqlstr, 'xqmc');
   InitValue;
end;

procedure TCollegeInfo.CBxqbhKeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   key := #0;
end;

function TCollegeInfo.ReturnSqlValue(Str: string): string; //返回字段名称
var
   Qry: TAdoQuery;
begin
   Qry := TAdoQuery.Create(nil);
   Qry.Connection := WindData.AdoConn;
   with Qry do
   begin
      sql.Clear;
      sql.Add('select xqbh from zx_s_xqxx where xqmc like ''' + trim(str) + '''');
      open;
   end;
   if Qry.RecordCount > 0 then
      Result := Qry.fieldbyname('xqbh').AsString
   else
      Result := '';
end;

procedure TCollegeInfo.CBxqbhExit(Sender: TObject);
var
   Sqlstr, xqbh: string;
begin
   inherited;
   xqbh := trim(ReturnSqlValue(cbxqbh.Text));
   with adoqry do
   begin
      sql.Clear;
      sql.Add('select * from  vzx_s_bjxx where xqbh=''' + xqbh + '''');
      open;
   end;
end;

procedure TCollegeInfo.BitBtn1Click(Sender: TObject);
begin
  inherited;
 if CheckValue then ExecStore(1);
end;

procedure TCollegeInfo.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if CheckValue then ExecStore(3);
end;

procedure TCollegeInfo.BitBtn3Click(Sender: TObject);
var
msg:string;
begin
  inherited;
   msg := '请确认要删除该笔部门信息！';
   if showmsg(msg, 0, 2) then
   begin
      ExecStore(2);
   end
   else
      statusbar1.Panels[1].Text := '删除操作已取消！';
end;

procedure TCollegeInfo.BitBtn4Click(Sender: TObject);
begin
  inherited;
    InitValue;
   statusbar1.Panels[1].Text := '';
end;

procedure TCollegeInfo.BitBtn5Click(Sender: TObject);
var
   Sqlstr, xqbh: string;
   iRec: integer;
begin
   inherited;
   irec := 0;
   Xqbh := ReturnSqlValue(Cbxqbh.Text);
   Sqlstr := 'select * from vZx_S_yxxx ';
   if (length(trim(xqbh)) > 0) then
   begin
      if irec < 1 then
      begin
         SqlStr := Sqlstr + ' where (xqbh like ''' + trim(xqbh) + ''')';
         inc(irec);
      end
      else begin
         SqlStr := Sqlstr + ' and (xqbh like ''' + trim(xqbh) + ''')';
         inc(irec);
      end;
   end;
   if (length(trim(Edtyxbh.Text)) > 0) then
   begin
      if irec < 1 then
      begin
         SqlStr := Sqlstr + ' where (yxbh like ''' + trim(edtyxbh.text) + ''')';
         inc(irec);
      end
      else begin
         SqlStr := Sqlstr + ' and (yxbh like ''' + trim(edtyxbh.text) + ''')';
         inc(irec);
      end;
   end;
   if (length(trim(Edtyxmc.Text)) > 0) then
   begin
      if irec < 1 then
      begin
         SqlStr := Sqlstr + ' where (yxmc like ''' + trim(Edtyxmc.text) + ''')';
         inc(irec);
      end
      else begin
         SqlStr := Sqlstr + ' and (yxmc like ''' + trim(Edtyxmc.text) + ''')';
         inc(irec);
      end;
   end;
   if irec = 0 then
   begin
      statusbar1.Panels[1].Text := '请输入查询条件';
      exit;
   end;
   with Adoqry do
   begin
      sql.Clear;
      sql.Add(sqlstr);
      open;
   end;
   if Adoqry.RecordCount > 0 then
   begin
      SetEditValue;
      Cbxqbh.SetFocus;
      Cbxqbh.SelectAll;
      statusbar1.Panels[1].Text := '查找到' + inttostr(Adoqry.RecordCount) + '笔符合条件的记录！';
      statusbar1.Panels[2].Text := 'Modify'
   end
   else begin
      InitValue;
      statusbar1.Panels[1].Text := '无符合条件的部门信息！';
   end;

end;

end.