ufrmrs.pas

一个会议签到系统

end;

procedure TFrmRS.N2Click(Sender: TObject);
var
  Str,S2:String;
begin
  if TrvMenu.Selected = nil then Exit;
  if TrvMenu.Selected.HasChildren then begin
     DlgWarningA('有下级节点,不能删除');
     Exit; 
  end; 
  S2:=MyCutString(True,TrvMenu.Selected.Text);
  Str:='Select top 1 * from TBD01_RYXX Where sBMLH Like '+''''+S2+'%'+'''';
  if FGetSQLRecordCount(Str) > 0 then begin
     DlgWarningA('有下级数据,不能删除');
     Exit;
  end;  
  Str:=' Delete From TAD02_BMSJ Where sBMLH = '+''''+S2+''''
      +' And iBMZL = 1 ';
  if not DlgYesNo('的确要删除该节点吗?') then Exit;     
  if FCarryOutSQL(nil,Str,False) then  begin
     TrvMenu.Selected.Delete;
     PEditNodeNo();
   end;   
end;

procedure TFrmRS.PEditNode;
var
  FrmX:TFrmA02E;
  S,Str:String;
begin
  FrmX:=TFrmA02E.Create(Application);
  FrmX.Visible:=False;
  FrmX.BorderStyle:=bsDialog;
  FrmX.Position:=poScreenCenter;
  FrmX.iICKFlag:=100;
  {****** 有下级节点 不能修改 ******}
  FrmX.Edit1.Enabled:=True;
  if TrvMenu.Selected.HasChildren then FrmX.Edit1.Enabled:=False;
  {**** 没有下级节点 但是有数据添加了 也不能修改 oooo}
  S:=MyCutString(True,TrvMenu.Selected.Text);
  Str:='Select top 1 * from TBD01_RYXX Where sBMLH Like '+''''+S+'%'+'''';
  if FGetSQLRecordCount(Str) > 0 then begin
     FrmX.Edit1.Enabled:=False;
  end;

  FrmX.Edit3.Enabled:=False;
  FrmX.Edit3.Text:=S;
  S:=MyCutString(False,TrvMenu.Selected.Text);
  FrmX.Edit2.Text:=S;
  
  S:='';
  if TrvMenu.Selected <> nil then
     if TrvMenu.Selected.Parent <> nil then  
        S:=MyCutString(True,TrvMenu.Selected.Parent.Text);
  FrmX.sICKBML:=S;
   
  FrmX.ShowModal;
end;

procedure TFrmRS.SpeedButton1Click(Sender: TObject);
var
  FrmX:TFrmRSE;
begin
  if TrvMenu.Selected = nil then Exit;
  if ADOQr_RY.Active = False then Exit;

  if (TrvMenu.Selected.Level+1) < ISYSBMJS then begin
     DlgWarningA('到 ['+IntToStr(ISYSBMJS)+'] 级节点才能添加数据');
     Exit; 
  end;  
  FrmX:=TFrmRSE.Create(Application);
  FrmX.Visible:=False;
  FrmX.BorderStyle:=bsDialog;
  FrmX.Position:=poScreenCenter;
  FrmX.DataSource1.DataSet:=ADOQr_RY;
  ADOQr_RY.Append;
  FrmX.sBM:=MyCutString(True,TrvMenu.Selected.Text);
  FrmX.PAddData();
  FrmX.DBEdit7.Text:='汉族';
  ADOQr_RY.FieldByName('sMZ').AsString:='汉族';
  FrmX.DBComboBox1.ItemIndex:=0;
  ADOQr_RY.FieldByName('sXB').AsString:='男';
  FrmX.DBEdit3.Text:=FGetRenShu();
  ADOQr_RY.FieldByName('sBM').AsString:=FGetRenShu();
  
  FrmX.DBEdit2.Text:=FrmX.sBM;
   
  FrmX.ShowModal;
  ADOQr_RY.Cancel; 
end;

procedure TFrmRS.TrvMenuChange(Sender: TObject; Node: TTreeNode);
var
  Str,sBM:String;
begin
  if TrvMenu.Selected = nil then Exit;
  Str:=TrvMenu.Selected.Text;
  sBM:=MyCutString(True,Str);
  Str:='Select * from TBD01_RYXX Where sBMLH Like '+''''+sBM+'%'+'''';

  FCarryOutSQL(ADOQr_RY,Str,True);

end;

procedure TFrmRS.TrvMenuClick(Sender: TObject);
begin
  if TrvMenu.Items.Count < 2 then   
     TrvMenuChange(nil,nil);
end;

procedure TFrmRS.N3Click(Sender: TObject);
begin
  TrvMenu.FullExpand;
end;

procedure TFrmRS.N4Click(Sender: TObject);
begin
  TrvMenu.FullCollapse; 
end;

procedure TFrmRS.SpeedButton2Click(Sender: TObject);
var
  FrmX:TFrmRSE;
begin
  if ADOQr_RY.Active = False then Exit;
    
  FrmX:=TFrmRSE.Create(Application);
  FrmX.Visible:=False;
  FrmX.BorderStyle:=bsDialog;
  FrmX.Position:=poScreenCenter;
  FrmX.DataSource1.DataSet:=ADOQr_RY;
  ADOQr_RY.Edit; 
  FrmX.sBM:=MyCutString(True,TrvMenu.Selected.Text);
  FrmX.DBEdit3.Enabled:=False;       
   
  FrmX.ShowModal;
  
end;

procedure TFrmRS.SpeedButton7Click(Sender: TObject);
begin
  if not ADOQr_RY.Active then Exit;
  ADOQr_RY.Edit;
  ADOQr_RY.FieldByName('sZT').AsString:='启用';
  ADOQr_RY.Post;
end;

procedure TFrmRS.SpeedButton6Click(Sender: TObject);
begin
  if not ADOQr_RY.Active then Exit;
  ADOQr_RY.Edit;
  ADOQr_RY.FieldByName('sZT').AsString:='挂失';
  ADOQr_RY.Post;
end;

procedure TFrmRS.SpeedButton5Click(Sender: TObject);
var
  Str:String;
begin
  if not ADOQr_RY.Active then Exit;
  Str:=Trim(ADOQr_RY.FieldByName('sFZID').AsString);
  Str:='Select top 1 * from TAD03_HYCJGY Where ID Like '+''''+Str+'%'+'''';
  if FGetSQLRecordCount(Str) > 0 then begin
     DlgWarningA('已经参加会议,不能删除');
     Exit;
  end;
  
  Str:=ADOQr_RY.FieldByName('sBMLH').AsString+'    '+ADOQr_RY.FieldByName('sMC').AsString;
  if not DlgYesNo('的确要删除'+Str+'吗?') then Exit;
  ADOQr_RY.Delete;
end;

procedure TFrmRS.PJpgToBMP(sFLA, sFLB: String);
var
 jpg:tjpegimage;
 bmp:Tbitmap;
begin
   Jpg:=Tjpegimage.Create();
   bmp:=Tbitmap.Create();
   try
   Jpg.LoadFromFile(sFLA);
   except
      Jpg.Free;
      Exit;
   end;
   Bmp.Width:=Jpg.Width;
   Bmp.Height:=Jpg.Height;
   Bmp.Canvas.Draw(0,0,Jpg);
   Jpg.Free;
   bmp.SaveToFile(sFLB);
   bmp.free;
end;

procedure TFrmRS.SpeedButton8Click(Sender: TObject);
var
  Str,sX,sID:String;
begin
  if not DlgBMP.Execute then Exit;

  sID:=Trim(ADOQr_RY.FieldByName('sFZID').AsString);
  
  ADOTable2.Edit;
  ADOTable2.FieldByName('FZID').AsString:=sID;

  Str:=DlgBMP.FileName;

  if not FileExists(Str) then begin
     ADOTable2.Cancel;
     Exit;
  end;
  sX:=Str;
  if Pos('.JPG',UpperCase(Str))> 0 then begin
     sX:=ExtractFilePath(Application.ExeName)+'temp.bmp';   
     PJpgToBMP(Str,sX)
  end;

  DBImage1.Picture.LoadFromFile(SX);
  ADOTable2.Post;

end;

procedure TFrmRS.RadioButton1Click(Sender: TObject);
begin
  if RadioButton1.Checked then DBImage1.Stretch:=False;
  if RadioButton2.Checked then DBImage1.Stretch:=True;
  DBImage1.Refresh; 
end;

procedure TFrmRS.DataSource1DataChange(Sender: TObject; Field: TField);
var
  Str,sID:String;
begin
  sID:=Trim(ADOQr_RY.FieldByName('sFZID').AsString);
  Str:='Select * from TBD01_RYTX Where FZID ='+''''+sID+'''';
  FCarryOutSQL(ADOTable2,str,True); 
end;

procedure TFrmRS.SpeedButton11Click(Sender: TObject);
var
  Str:String;
begin
  Str:='Select * from TBD01_RYXX Where SMC Like '+''''+Edit1.text+'%'+''''
      +' OR sKH ='+''''+Edit1.text+''''
      +' OR sPYBM Like '+''''+Edit1.text+'%'+'''';
  FCarryOutSQL(ADOQr_RY,Str,True);      
end;

procedure TFrmRS.Edit1Enter(Sender: TObject);
begin
  Edit1.SelectAll;
end;

procedure TFrmRS.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then SpeedButton11Click(nil);
end;

procedure TFrmRS.Edit1Click(Sender: TObject);
begin
   Edit1.SelectAll;   
end;

procedure TFrmRS.SpeedButton10Click(Sender: TObject);
begin
  ADOTable2.Delete; 
end;




procedure TFrmRS.N6Click(Sender: TObject);
var
  Str:String;
  dlg:TSaveDialog;
begin
  dlg:=TSaveDialog.Create(nil);
  dlg.DefaultExt:='*.XLS';
  dlg.Filter:='Execl文件|*.XLS';
  if not dlg.Execute then Exit;
  Str:=LowerCase(dlg.FileName);
  Str:=MyCutOutStringB('.xls',Str)+'.xls';//扩展名重复问题
  dxDBGrid2.SaveToXLS(Str,True);
end;

procedure TFrmRS.dxDBGrid2DblClick(Sender: TObject);
begin
  SpeedButton2.OnClick(nil); 
end;

function TFrmRS.FGetRenShu: String;
var
  Str:String;
begin
  Str:='Select sMC from TBD01_RYXX';
  FCarryOutSQL(DMOA.ADOQry,Str,true);
  Str:=IntToStr(DMOA.ADOQry.RecordCount+1);
  Result:=MyChecKStr(4,Str);   
end;

end.