📄 unit7.pas

📁 铁路道口管理系统开发源码大家随便看看呵呵
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
        else if OtherPanel.Controls[i].ClassType = TImage then
        begin
           TImage(OtherPanel.Controls[i]).Picture.LoadFromFile(Form1.LocalPath + 'temp.jpg');
        end;

    end;
    if OperaType = 'HumanInfo'  then   //组织结构
      
  except

  end;
end;
procedure TForm7.Image1DblClick(Sender: TObject);
begin
  try
    if Form2.OpenPictureDialog1.Execute then
      Image1.Picture.LoadFromFile(Form2.OpenPictureDialog1.FileName);
  except
    showmessage('打开图片失败！');
  end;
end;
//添加
procedure TForm7.Insert_Humanbase(Datastr: string);
var
  i , j: integer;
  MyJpg : TjpegImage;
  MyStream : TmemoryStream;
  OtherStream : TStringStream;
  Sizeofstream : integer;
begin
  try
    MyJpg := Tjpegimage.Create;
    Mystream := TmemoryStream.Create;
    OtherStream := TstringStream.Create('');
    with DModule1.Tab_Insert do
    begin
      j := 0;
      for i := 0 to Otherpanel.ControlCount -1 do
      begin
        if OtherPanel.Controls[i].ClassType = TEdit then
          begin
             // showmessage('j='+inttostr(j)+ '  edit ' +inttostr(i));
              Fields[j+1].AsString := trim(Tedit(OtherPanel.Controls[i]).Text);
            Inc(j) ;
          end
          else if OtherPanel.Controls[i].ClassType = TCombobox then
          begin
              Fields[j+1].AsString := Tcombobox(OtherPanel.Controls[i]).Text;
             Inc(j) ;
          end
          else if  OtherPanel.Controls[i].ClassType = TMemo then
          begin
           //  showmessage('j='+inttostr(j)+ '  Memo ' +inttostr(i));
             fields[j+1].AsString := TMemo(OtherPanel.Controls[i]).Text;
             Inc(j) ;
          end
          else if OtherPanel.Controls[i].ClassType = TDateTimePicker then
          begin
             TDateTimePicker(OtherPanel.Controls[i]).Time := now;
             fields[j+1].Value := TDateTimePicker(OtherPanel.Controls[i]).DateTime;
             Inc(j) ;
          end
          else if OtherPanel.Controls[i].ClassType = TImage then
          begin
           // showmessage('j='+inttostr(j)+ '  image ' +inttostr(i));
            TImage(OtherPanel.Controls[i]).Picture.Graphic.SaveToStream(Mystream);
            Sizeofstream := Mystream.Size;
            Mystream.Position := 0;
            OtherStream.CopyFrom(Mystream,Sizeofstream);
            fields[j+1].AsString := OtherStream.DataString;
            Inc(j);

          end;
      end;
      MyJpg.Free;
      MyStream.Free;
      OtherStream.Free;
    end;
  except
    DModule1.ADOConnection1.RollbackTrans
  end;
end;

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
  try
    if  (OperaType = 'GZZDInfo') or (OperaType = 'AboutInfo') or (OperaType = 'HumanInfo') then //规章制度
    begin
      if Application.MessageBox('确认添加吗？','提示',MB_YESNO) <> 6 then
        exit;
      if OperaType = 'HumanInfo' then
        if not Form1.IfLawInt(edit2.Text) then
        begin
          showmessage('年龄必须为整数！');
          Exit;
        end;
      with DModule1.Tab_Insert do
      begin
        Close;
        TableName := DataName;
        Open;
        Append;
        Edit;
        Insert_Humanbase(DataName) ;
        //Form2.Insert_DKbase(Dataname);
        if OperaType = 'HumanInfo' then //组织结构中要将新加入的人员的Man_Code赋值
          fieldbyname('Man_Code').AsInteger := OLDTag;
        Post;
        Close;
      end;

     // Brow_Dic(DataName,Form1.TagNow);
     if OperaType = 'HumanInfo' then  //组织结构特殊作
        Brow_ZZJGCDS
      else  
      Brow_Dic(dataname);
    end
    {else
    if  OperaType = 'HumanInfo' then //组织结构
    begin
      if Application.MessageBox('确认添加人员吗','提示',MB_YESNO) <> 6 then
        exit;
      with DModule1.Tab_Insert do
      begin
        Close;
        TableName := DataName;
        Open;
        Append;
        Edit;
        Insert_Humanbase
      end;  
    end  }
    else
      showmessage('无此功能！');
  except

  end;
end;

procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
  try
   if (OperaType = 'HumanInfo') or (OperaType = 'GZZDInfo') or (OperaType = 'AboutInfo') then  //道口基本信息
    begin
      if Application.MessageBox('确认修改吗？','提示',MB_YESNO) <> 6 then
        exit;
      with DModule1.Tab_Insert do
      begin
        Close;
        TableName := DataName;
        Open;

        Edit;
        //if (OperaType = 'GZZDInfo') or (OperaType = 'AboutInfo') then
          Locate('ID',OldID,[]);
       // else
       //   Locate('Man_Code',OldID,[]);
        edit;
        Insert_Humanbase(DataName) ;
        Post;
        Close;
      end;
      if (OperaType = 'GZZDInfo') or (OperaType = 'AboutInfo') then
        Brow_Dic(DataName)

      else
      if OperaType = 'HumanInfo' then  //组织结构特殊作
        Brow_ZZJGCDS;

      DModule1.Qry_Brow.Locate('ID',OldID,[]);
    end
    else
      showmessage('无此功能！');
  except
    DModule1.ADOConnection1.RollbackTrans;
  end;
end;
//删除
procedure TForm7.SpeedButton3Click(Sender: TObject);
begin
  try

    if  (OperaType = 'GZZDInfo') or (OperaType = 'AboutInfo') or  (OperaType = 'HumanInfo') then
    begin
     if Application.MessageBox('确认删除吗？','提示',MB_YESNO) <> 6 then
      exit;
      with DModule1.Tab_Insert do
      begin
        Close;
        TableName := DataName;
        Open;
        Edit;
        Locate('ID',OldID,[]);
        Edit;
        Delete;
        Close;

        if OperaType = 'HumanInfo' then
          Brow_ZZJGCDS
        else
          Brow_Dic(DataName);
       // Qry_Brow.Locate('ID',OldID,[]);
       EmpSome_Dic;
      end;
    end
    else
     showmessage('无此功能！');
  except
    showmessage('修改失败！');
    DModule1.ADOConnection1.RollbackTrans;
  end;
end;

procedure TForm7.SpeedButton5Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton5.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton6Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton6.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton7Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton7.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton8Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton8.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton9Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton9.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton10Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton10.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton11Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton11.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton12Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton12.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton13Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton13.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton14Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton14.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.SpeedButton15Click(Sender: TObject);
begin
  try
    OLDTag := Speedbutton15.Tag;
    Brow_ZZJGCDS;
    empSome_Dic;
  except

  end;
end;

procedure TForm7.Brow_ZZJGCDS;
begin
  try
    With DModule1.Qry_Brow do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from Human where Man_Code=:code1 and Man_Dept<>''SYSZZ''');
      Parameters.ParamByName('code1').Value := OLDTag;
      Open;
      AddTab_Title(DataName);//加表头
    end;
  except

  end;
end;

procedure TForm7.DBGrid2CellClick(Column: TColumn);
begin
  OldID := DModule1.Qry_Brow.fieldbyname('ID').AsInteger;
  Brow_ZZJG;
  
end;

procedure TForm7.Image2DblClick(Sender: TObject);
begin
  try
    if Form2.OpenPictureDialog1.Execute then
      Image2.Picture.LoadFromFile(Form2.OpenPictureDialog1.FileName);
  except
    showmessage('打开图片失败！');
  end;
end;
//打开录像
procedure TForm7.Button1Click(Sender: TObject);
var      
  MPGPath : string;
begin
  try
    MPGPath := trim(Edit12.Text);
    if MPGpath <> '' then
    begin
      if FileExists(MPGPath) then
      begin
        Form4.MediaPlayer1.Close;
        Form4.MediaPlayer1.FileName := MPGPath;
        Form4.MediaPlayer1.Open;

      end
      else
        showmessage('录像文件不存在！') ;

    end
    else
    begin
      Form4.MediaPlayer1.Close;
    end;
    Form4.Caption := '事件录像';
    Form4.ShowModal;
  except
    showmessage('录像文件不存在或文件发生错误！');
  end;
end;

procedure TForm7.N1Click(Sender: TObject);
begin
  try
    if FileExists(Form1.LocalPath+'ZZJG.txt') then
    begin
      Form7.Memo4.Lines.SaveToFile(Form1.LocalPath+'ZZJG.txt');
      Showmessage('保存成功！');
    end
    else
    begin
      showmessage('文件未找到，无法保存,请在本系统目录下建立一个文件：ZZJG.txt，然后执行保存操作！');
      //CreateField(Form1.LocalPath+'ZZJG.txt');
    end;
  except
    showmessage('修改失败！');
  end;
end;

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    selectnext(sender as TWinControl ,true,true);
end;

procedure TForm7.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    selectnext(sender as TWinControl ,true,true);
end;

procedure TForm7.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    selectnext(sender as TWinControl ,true,true);
end;

procedure TForm7.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    selectnext(sender as TWinControl ,true,true);
end;

procedure TForm7.SpeedButton4Click(Sender: TObject);
begin
form7.Close;
end;

procedure TForm7.StaticText1Click(Sender: TObject);
begin
if memo4.ReadOnly then
  begin
  memo4.Color:=clwhite;
  memo4.ReadOnly:=false;
  statictext1.Caption:='保存'
  end
  else
   begin
   n1.Click;
   memo4.color:=$00CFECB7;
   memo4.ReadOnly:=true;
   statictext1.Caption:='修改'
  end;

end;

procedure TForm7.N2Click(Sender: TObject);
begin
  if notebook1.ActivePage = 'GZZD' then
    image1.Picture.LoadFromFile(Form1.LocalPath + 'Temp.jpg')
  else
    image2.Picture.LoadFromFile(Form1.LocalPath + 'Temp.jpg');
end;

procedure TForm7.DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    selectnext(sender as TWinControl ,true,true);
end;

end.
上一页 12
💿 文件大小 4855 K
👤 上传用户 m472333662
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#铁路道口 #管理系统 #源码 #家
⌨️ 快捷键说明

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