📄 frm_visitinfou.pas

📁 包括学生的教育经历
💻 PAS
字号:
unit frm_visitInfoU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frm_infoU, StdCtrls, DB, Grids, DBGrids, ComCtrls,
  Control_visitU,classesU;

type
  Tfrm_visitInfo = class(Tfrm_info)
    Label1: TLabel;
    edt_guest: TEdit;
    edt_guestNum: TEdit;
    Label2: TLabel;
    edt_interviewee: TEdit;
    Label3: TLabel;
    edt_relation: TEdit;
    Label4: TLabel;
    edt_beginDate: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    edt_endDate: TEdit;
    Label7: TLabel;
    edt_matter: TEdit;
    Label8: TLabel;
    btn_over: TButton;
    cbx_visite: TComboBox;
    Label9: TLabel;
    DTP_visit: TDateTimePicker;
    btn_search: TButton;
    Label10: TLabel;
    edt_watch: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    procedure FormShow(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure DBGrid_infoCellClick(Column: TColumn);
    procedure edt_guestNumKeyPress(Sender: TObject; var Key: Char);
    procedure btn_overClick(Sender: TObject);
    procedure cbx_visiteChange(Sender: TObject);
    procedure btn_searchClick(Sender: TObject);
  private
    { Private declarations }
  public
    watchID:string;//当前值班人员
     //填充数据
    procedure FillData;
  end;

var
  frm_visitInfo: Tfrm_visitInfo;

implementation

{$R *.dfm}
procedure Tfrm_visitInfo.FillData;
begin
  DataSource_info.DataSet:=Control_visitU.GetvisitInfoArray;
  self.DBGrid_info.Columns[0].Visible  :=false;

end;
procedure Tfrm_visitInfo.FormShow(Sender: TObject);
begin
  inherited;
FillData;
self.DTP_visit.Date:=now;
end;

procedure Tfrm_visitInfo.btn_addClick(Sender: TObject);
begin
  inherited;
  self.edt_guest.Tag:=0;
  self.edt_guest.Text:='';
  self.edt_guestNum.Text:='';
  self.edt_interviewee.Text:='';
  self.edt_relation.Text:='';
  self.edt_matter.Text:='';
  self.edt_beginDate.Text:='';
  self.edt_endDate.Text:='';
   self.edt_watch.Text:='';
  self.edt_guest.SetFocus;
end;

procedure Tfrm_visitInfo.btn_editClick(Sender: TObject);
begin
  if self.btn_edit.Caption='修改' then
    begin
      if edt_guest.Text ='' then
        begin
           MessageBox(Handle, '没有可以修改的数据！', '信息', MB_ICONEXCLAMATION);
          exit;
        end
      else
        begin
          self.edt_guest.SetFocus;
        end;
    end;
  inherited;

end;

procedure Tfrm_visitInfo.btn_delClick(Sender: TObject);
var
  visitInfo:TvisitInfo;
begin
  if(self.btn_del.Caption='删除') then
    begin
      if MessageBox(Handle, '您确定要删除该访问信息', '信息',
         MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
        begin
          Control_visitU.DelvisitInfo(self.edt_guest.Tag);
          FillData;
          if self.DBGrid_info.Fields[0].IsNull then
            exit;
          self.edt_guest.Tag:=self.DBGrid_info.Fields[0].Value;//保存id
          self.edt_guest.Text:=self.DBGrid_info.Fields[1].Value;
          self.edt_guestNum.Text:=inttostr(self.DBGrid_info.Fields[2].Value);
          self.edt_interviewee.Text:=self.DBGrid_info.Fields[3].Value;
          self.edt_relation.Text:=self.DBGrid_info.Fields[4].Value;
          self.edt_matter.Text:=self.DBGrid_info.Fields[7].Value;;
          self.edt_beginDate.Text:=self.DBGrid_info.Fields[5].Value;;
          self.edt_endDate.Text:=self.DBGrid_info.Fields[6].Value;;
          self.edt_watch.Text:=self.DBGrid_info.Fields[8].Value;
        end;
    end;
  if(self.btn_del.Caption='保存') then
    begin
      if((edt_guest.Text='') or (edt_guestNum.Text='')
        or (edt_interviewee.Text='') or (self.edt_relation.Text='')
        or (self.edt_matter.Text='')) then
        begin
           MessageBox(Handle, '内容填写不全！', '信息', MB_ICONEXCLAMATION);
           exit;
        end;

      visitInfo:=TvisitInfo.Create;
      visitInfo.id:=self.edt_guest.Tag;
      visitInfo.guest:=trim(self.edt_guest.Text);
      visitInfo.guestNum:=strtoint(self.edt_guestNum.Text);
      visitInfo.interviewee:=self.edt_interviewee.Text;
      visitInfo.relation:=self.edt_relation.Text;
      visitInfo.beginDate:=self.edt_beginDate.Text;
      visitInfo.endDate:=self.edt_endDate.Text;
      visitInfo.matter:=self.edt_matter.Text;
      visitInfo.watch:=self.edt_watch.Text;

      if(Control_visitU.EditvisitInfo(visitInfo)) then
        begin
          MessageBox(Handle, '修改成功！', '信息', MB_ICONASTERISK);
          //刷新内容
          FillData;
        end
      else
         begin
          MessageBox(Handle, '修改失败！', '信息', MB_ICONEXCLAMATION);
          exit;
        end;
    end;
  if(self.btn_del.Caption='确定') then
    begin
      if((edt_guest.Text='') or (edt_guestNum.Text='')
        or (edt_interviewee.Text='') or (self.edt_relation.Text='')
        or (self.edt_matter.Text='')) then
        begin
           MessageBox(Handle, '内容填写不全！', '信息', MB_ICONEXCLAMATION);
           exit;
        end;
      visitInfo:=TvisitInfo.Create;
      visitInfo.id:=self.edt_guest.Tag;
      visitInfo.guest:=trim(self.edt_guest.Text);
      visitInfo.guestNum:=strtoint(self.edt_guestNum.Text);
      visitInfo.interviewee:=self.edt_interviewee.Text;
      visitInfo.relation:=self.edt_relation.Text;
      visitInfo.beginDate:=DateTimeToStr(now);
      //visitInfo.endDate:='';
      visitInfo.matter:=self.edt_matter.Text;
      visitInfo.watch:=watchID; //当前登录人员
      if(Control_visitU.AddvisitInfo(visitInfo)) then
        begin
          MessageBox(Handle, '添加成功！', '信息', MB_ICONASTERISK);
          self.edt_guest.Tag:=0;
          self.edt_guest.Text:='';
          self.edt_guestNum.Text:='';
          self.edt_interviewee.Text:='';
          self.edt_relation.Text:='';
          self.edt_matter.Text:='';
          self.edt_beginDate.Text:='';
          self.edt_endDate.Text:='';
          self.edt_watch.Text:='';
          self.edt_guest.SetFocus;
          //刷新内容
          FillData;
        end
      else
        begin
          MessageBox(Handle, '添加失败！', '信息', MB_ICONEXCLAMATION);
          exit;
        end;
    end;
  inherited;

end;

procedure Tfrm_visitInfo.DBGrid_infoCellClick(Column: TColumn);
begin
  inherited;
 if self.DBGrid_info.Fields[0].IsNull then
    exit;
  self.edt_guest.Tag:=self.DBGrid_info.Fields[0].Value;//保存id
  self.edt_guest.Text:=self.DBGrid_info.Fields[1].Value;
  self.edt_guestNum.Text:=inttostr(self.DBGrid_info.Fields[2].Value);
  self.edt_interviewee.Text:=self.DBGrid_info.Fields[3].Value;
  self.edt_relation.Text:=self.DBGrid_info.Fields[4].Value;
  self.edt_matter.Text:=self.DBGrid_info.Fields[7].Value;;
  self.edt_beginDate.Text:=self.DBGrid_info.Fields[5].Value;
  if self.DBGrid_info.Fields[6].IsNull then
    begin
      self.edt_endDate.Text:='';
      self.btn_over.Visible:=true;
    end
  else
    begin
      self.edt_endDate.Text:=self.DBGrid_info.Fields[6].Value;
      self.btn_over.Visible:=false;
    end;
  self.edt_watch.Text:=self.DBGrid_info.Fields[8].Value;
end;

procedure Tfrm_visitInfo.edt_guestNumKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
if not((key in ['0'..'9',#8,#13])) then
    key:=#0;
end;

procedure Tfrm_visitInfo.btn_overClick(Sender: TObject);
begin
  inherited;
if MessageBox(Handle, '您确定该访问结束', '信息',
         MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
  begin
     Overvisit(self.edt_guest.Tag);
     fillData;
     
  end;
end;

procedure Tfrm_visitInfo.cbx_visiteChange(Sender: TObject);
begin
  inherited;
self.DataSource_info.DataSet:= SearchDataBy(self.cbx_visite.Text ,DateToStr(self.DTP_visit.Date));
 self.DBGrid_info.Columns[0].Visible  :=false;
end;

procedure Tfrm_visitInfo.btn_searchClick(Sender: TObject);
begin
  inherited;
self.DataSource_info.DataSet:= SearchDataBy(self.cbx_visite.Text ,DateToStr(self.DTP_visit.Date));
 self.DBGrid_info.Columns[0].Visible  :=false;
end;

end.
💿 文件大小 3400 K
👤 上传用户 sea_and_sun
📂 所属分类 Delphi控件源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -