⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ufrmmain.pas

📁 一个会议签到系统
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
      S:=MyCutString(False,Str);
      N:=0;
      for J:=0 to LBoxRenA.Items.Count-1 do begin
          Str:=LBoxRenA.Items.Strings[J];
          Str:=MyCutString(False,Str);
          SA:=MyCutString(False,Str);/// ID
          if SA = S then begin
             n:=100;Break;
          end;
      end;
      if n = 0 then begin
         Str:=LBoxRen.Items.Strings[I];
         LBoxRenA.Items.Add(Str);
      end;
   PnlRenA.Caption:='人数:'+IntToStr(LBoxRenA.Items.Count);
end;

procedure TFrmMain.SpeedButton14Click(Sender: TObject);
var
  I:integer;
begin
  I:=LBoxRenA.ItemIndex;
  if I < 0 then Exit;
  LBoxRenA.Items.Delete(I);  
  PnlRenA.Caption:='人数:'+IntToStr(LBoxRenA.Items.Count);
end;

procedure TFrmMain.SpeedButton15Click(Sender: TObject);
var
  I,J,n:integer;
  Str,S,SA:String;
begin 
  for I:=0 to LBoxRen.Items.Count-1 do begin
      Str:=LBoxRen.Items.Strings[I];
            Str:=MyCutString(False,Str);
      S:=MyCutString(False,Str);
      N:=0;
      for J:=0 to LBoxRenA.Items.Count-1 do begin
          Str:=LBoxRenA.Items.Strings[J];
                    Str:=MyCutString(False,Str);
          SA:=MyCutString(False,Str);/// ID
          if SA = S then begin
             n:=100;Break;
          end;
      end;
      if n = 0 then begin
         Str:=LBoxRen.Items.Strings[I];
         LBoxRenA.Items.Add(Str);   
      end;
  end;
   PnlRenA.Caption:='人数:'+IntToStr(LBoxRenA.Items.Count);
end;

procedure TFrmMain.SpeedButton16Click(Sender: TObject);
begin
  LBoxRenA.Items.Clear;
  PnlRenA.Caption:='人数:'+IntToStr(LBoxRenA.Items.Count);   
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  PLoadTrvData();
end;

procedure TFrmMain.SpeedButton6Click(Sender: TObject);
var
  Str,sSQL,sKH,sMC,sID,sHYBM:String;
  I:integer;
begin
  if TrvMenu.Selected = nil then Exit;
  if TrvMenu.Selected.AbsoluteIndex = 0 then Exit;
  if not DlgYesNo('如果会议已经有人签到,签到结果将被清除'+#13+'的确要保存当前会议吗') then Exit;
  sSQL:=' Delete From TAD03_HYCJGY Where sHYBM = '
       +''''+MyCutString(True,TrvMenu.Selected.Text)+'''';
  for I:=0 to LBoxRenA.Items.Count-1 do begin
      Str:=LBoxRenA.Items.Strings[I];
      sKH:=MyCutString(True,Str);
      Str:=MyCutString(False,Str);
      sMC:=MyCutString(True,Str);
      sID:=MyCutString(False,Str);
      Str:=FCreateInSertOneSQL(['sHYBM','sKH','sMC','ID'],
           [MyCutString(True,TrvMenu.Selected.Text),sKH,sMC,sID],[0,1,2,3],'TAD03_HYCJGY');
      sSQL:=sSQL+' '+Str;
  end;
 
  {*************************** 构造会议人员信息 ******************************}
  sHYBM:=MyCutString(True,TrvMenu.Selected.Text);
  Str:='Delete From TAD01_KQJL Where sHYBM ='+''''+sHYBM+'''';
  FCarryOutSQL(nil,Str,False) ;
   
  for I:=0 to LBoxRenA.Items.Count-1 do begin
      Str:=LBoxRenA.Items.Strings[I];
      sKH:=MyCutString(True,Str);
      Str:=MyCutString(False,Str);
      sMC:=MyCutString(False,TrvMenu.Selected.Text);
      sID:=MyCutString(False,Str);

         Str:=FCreateInSertOneSQL(['sHYBM','FZID','sHYMC','sSFQD'],
                                  [sHYBM,sID,sMC,'否'],
                                  [0,1,2,3],'TAD01_KQJL');
         FCarryOutSQL(nil,Str,False);                        
                                   
  
                 
  end;
  if FCarryOutSQL(nil,sSQL,False) then DlgWarningA('保存成功');  
end;

procedure TFrmMain.TrvMenuChange(Sender: TObject; Node: TTreeNode);
var
  Str:String;
begin
  if TrvMenu.Selected = nil then Exit;
  if TrvMenu.Selected.Level = 0 then Exit;
  Str:='Select * from TAD03_HYCJGY Where sHYBM = '
      +''''+MyCutString(True,TrvMenu.Selected.Text)+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  DMOA.ADOQry.First; LBoxRenA.Items.Clear;  
  While not DMOA.ADOQry.Eof do begin
    Str:=Trim(DMOA.ADOQry.FieldByName('sKH').AsString)
        +'  '+Trim(DMOA.ADOQry.FieldByName('sMC').AsString)
        +'                              '
        +Trim(DMOA.ADOQry.FieldByName('ID').AsString);
    LBoxRenA.Items.Add(Str);       
    DMOA.ADOQry.Next;
  end;
  Edit1.text:=MyCutString(True,TrvMenu.Selected.Text);
  PnlRenA.Caption:='人数:'+IntToStr(LBoxRenA.Items.Count);
end;

procedure TFrmMain.SpeedButton17Click(Sender: TObject);
var
  Str,S,S1,S2,S3:String;
  ID,sHYBM,sFZ,sCHLB,sZC,sBZ:String;
begin
  {----------------人员相同 分组相同 人员属性也相同-----------------}
  Str:='Select * from TAD03_HYCJGY Where sHYBM = '+''''+Edit1.Text+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  DMOA.ADOQry.First; LBoxRenA.Items.Clear;
  While not DMOA.ADOQry.Eof do begin
    Str:=Trim(DMOA.ADOQry.FieldByName('sKH').AsString)
        +'  '+Trim(DMOA.ADOQry.FieldByName('sMC').AsString)
        +'                              '
        +Trim(DMOA.ADOQry.FieldByName('ID').AsString);
    LBoxRenA.Items.Add(Str);
    DMOA.ADOQry.Next;
  end;
  if TrvMenu.Selected = nil then Exit;
  if TrvMenu.Selected.AbsoluteIndex = 0 then Exit;       
  {***************** 分组 oooooooooooooooooooooo}
  Str:='Select * from TAD03_HYFZ Where sHYBM = '+''''+Edit1.Text+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  DMOA.ADOQry.First; 
  While not DMOA.ADOQry.Eof do begin
    S2:=Trim(DMOA.ADOQry.FieldByName('sMC').AsString);
    S3:=Trim(DMOA.ADOQry.FieldByName('iNo').AsString);
    S1:=MyCutString(True,TrvMenu.Selected.Text);
    
    Str:=FCreateInSertOneSQL(['sHYBM','sMC','iNO'],
                        [S1,S2,S3],[0,1],
                        'TAD03_HYFZ');
    FCarryOutSQL(nil,Str,False);              
    DMOA.ADOQry.Next;
  end;

  {***************** 座次 oooooooooooooooooooooo}
  Str:='Select * from TAD03_HYCJR Where sHYBM = '+''''+Edit1.Text+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  DMOA.ADOQry.First;
  While not DMOA.ADOQry.Eof do begin
  {  ID,sHYBM,sFZ,sCHLB,sZC,sBZ:String;}
    ID:=Trim(DMOA.ADOQry.FieldByName('ID').AsString);
    sCHLB:=Trim(DMOA.ADOQry.FieldByName('sCHLB').AsString);
    sHYBM:=MyCutString(True,TrvMenu.Selected.Text);
    sZC:=Trim(DMOA.ADOQry.FieldByName('sZC').AsString);
    sBZ:=Trim(DMOA.ADOQry.FieldByName('sBZ').AsString);

    Str:='Delete From TAD03_HYCJR Where ID ='+''''+ID+''''
          +' And sHYBM ='+''''+sHYBM+'''';
          
      S:=FCreateInSertOneSQL(['ID','sHYBM','sFZ','sCHLB','sZC','sBZ'],
                             [ID,sHYBM,sFZ,sCHLB,sZC,sBZ],
                             [0,1,2,3,4,5],'TAD03_HYCJR');
      Str:=Str+ ' '+S;
      FCarryOutSQL(nil,Str,False);          
    DMOA.ADOQry.Next;
  end;  
  
end;

procedure TFrmMain.SpeedButton18Click(Sender: TObject);
var
  Str,SV:String;
begin
  SV:='Select B.*,A.sFZ,A.sHYBM,A.sCHLB,A.sZC from TAD03_HYCJR A,TBD01_RYXX B Where A.ID = B.sFZID';
  SV:='Select * from ('+sV+') A  Where A.sHYBM Like '+''''+Edit2.text+'%'+''''
      +' And sMC Like '+''''+Edit3.text+'%'+''''
      +' And sFZ Like '+''''+Edit4.text+'%'+'''';
  Str:='Select A.*,B.sMC As sMCHY from ('+SV+') A ,TAD02_HY B Where B.sBM = A.sHYBM';  
  FCarryOutSQL(ADOQ_HY,Str,True);  
end;


{ooooooooooooooooooooooooooooo 会议计算生成默认记录 ooooooooooooooooooooooooooo}



procedure TFrmMain.SpeedButton19Click(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 TFrmMain.SpeedButton3Click(Sender: TObject);
var
  Str:String;
begin
  if TrvMenu.Selected = nil then Exit;
  if TrvMenu.Selected.Level = 0 then Exit;
  
  if not DlgYesNo('会议编号['+TrvMenu.Selected.Text+']的确要删除该会议吗?') then Exit;
  Str:='Delete From TAD02_HY Where sBM ='+''''+TrvMenu.Selected.Text+'''';
  Str:=Str+' '+'Delete From TAD04_HYHG Where sHTBM ='+''''+TrvMenu.Selected.Text+'''';
  if FCarryOutSQL(nil,Str,False) then TrvMenu.Selected.Delete;
end;

procedure TFrmMain.PLoadTrvData;
var
  Str:String;
begin
  Str:='Select * from TAD02_BMSJ Where iBMZL = 1 Order by iSXH';
  FCarryOutSQL(DMOA.ADOQry,Str,True); 
  PCuiFengFillTreeB(TrvBM,DMOA.ADOQry,'sBMLH','sMC','iSJH');  
end;

procedure TFrmMain.TrvHYAChange(Sender: TObject; Node: TTreeNode);
var
  Str:String;
begin
  if TrvHYA.Selected = nil then Exit;
  if TrvHYA.Selected.AbsoluteIndex = 0 then Exit;
  Str:=TrvHYA.Selected.Text;
  TrvHYAA.Items[0].Text:=Str;
  Str:=MyCutString(True,TrvHYAA.Items[0].Text);
  Str:='Select * from TAD03_HYFZ Where sHYBM ='+''''+Str+''''
      +' order by iNo';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  PCuiFengFillTreeC(TrvHYAA,DMOA.ADOQry,'sMC');
end;

procedure TFrmMain.PFillFenZu;
var
  Str:String;
begin
  Str:=MyCutString(True,TrvHYAA.Items[0].Text);
  Str:='Select * from TAD03_HYFZ Where sHYBM ='+''''+Str+''''
      +' order by iNo';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  PCuiFengFillTreeC(TrvHYAA,DMOA.ADOQry,'sMC');
end;

procedure TFrmMain.SpeedButton22Click(Sender: TObject);
Var
  Str,sMC,sI:String;
  I:Integer;
begin
  Str:=DlgInPutBox('录入分组名称,不能重复','');
  if Str = '' then Exit;
  I:=TrvHYAA.Items.AddChild(TrvHYAA.Items[0],Str).AbsoluteIndex;
  TrvHYAA.Items[I].ImageIndex:=2;
  TrvHYAA.Items[I].SelectedIndex:=2;
   TrvHYAA.FullExpand;

  
  Str:='Delete From TAD03_HYFZ Where sHYBM ='
      +''''+MyCutString(True,TrvHYAA.Items[0].text)+'''';

  FCarryOutSQL(nil,Str,False);
  for I:= 1 to TrvHYAA.Items.Count-1 do begin
      sMC:=TrvHYAA.Items[I].Text;
      sI:=IntToStr(I);
      Str:=FCreateInSertOneSQL(['sMC','sHYBM','iNO'],
                               [sMC,MyCutString(True,TrvHYAA.Items[0].text),
                                sI],[0,1],'TAD03_HYFZ');
      FCarryOutSQL(nil,Str,False);  
  end;      
  
end;

procedure TFrmMain.SpeedButton9Click(Sender: TObject);
Var
  Str,sMC,sI:String;
  I:Integer;
begin
  if TrvHYAA.Selected = nil then Exit;
  if TrvHYAA.Selected.AbsoluteIndex  = 0 then Exit;
  
  Str:=TrvHYAA.Selected.Text;   
  Str:=DlgInPutBox('录入分组名称,不能重复',Str);
  if Str = '' then Exit; 
  
  TrvHYAA.Selected.Text:=Str;     

  
  Str:='Delete From TAD03_HYFZ Where sHYBM ='
      +''''+MyCutString(True,TrvHYAA.Items[0].text)+'''';
  FCarryOutSQL(nil,Str,False); 
  for I:= 1 to TrvHYAA.Items.Count-1 do begin
      sMC:=TrvHYAA.Items[I].Text;
      sI:=IntToStr(I);
      Str:=FCreateInSertOneSQL(['sMC','sHYBM','iNO'],
                               [sMC,MyCutString(True,TrvHYAA.Items[0].text),
                                sI],[0],'TAD03_HYFZ');
      FCarryOutSQL(nil,Str,False);  
  end;      
  
end;

procedure TFrmMain.SpeedButton10Click(Sender: TObject);
Var
  Str,sMC,sI:String;
  I:Integer;
begin
  if TrvHYAA.Selected = nil then Exit;
  if TrvHYAA.Selected.AbsoluteIndex  = 0 then Exit;
  
  Str:=TrvHYAA.Selected.Text;   
  if not DlgYesNo('的确要删除 '+Str) then Exit; 
  TrvHYAA.Selected.Delete;  

  Str:='Delete From TAD03_HYFZ Where sHYBM ='
      +''''+MyCutString(True,TrvHYAA.Items[0].text)+'''';
  FCarryOutSQL(nil,Str,False); 
  for I:= 1 to TrvHYAA.Items.Count-1 do begin
      sMC:=TrvHYAA.Items[I].Text;
      sI:=IntToStr(I);
      Str:=FCreateInSertOneSQL(['sMC','sHYBM','iNO'],
                               [sMC,MyCutString(True,TrvHYAA.Items[0].text),
                                sI],[0],'TAD03_HYFZ');
      FCarryOutSQL(nil,Str,False);  
  end;      
  
end;

procedure TFrmMain.TrvHYBChange(Sender: TObject; Node: TTreeNode);
var
 Str,sHYBM,sA,sB:String;
begin
  if TrvHYB.Selected = nil then Exit;
  if TrvHYB.Selected.AbsoluteIndex  = 0 then Exit;
  sHYBM:=MyCutString(True,TrvHYB.Selected.Text);
  SA:='Select * from TAD03_HYCJGY where sHYBM ='+''''+sHYBM+'''';//人找到了
  SB:='Select A.*,B.sHYBM from TBD01_RYXX A,('+sA+') B Where A.sFZID = B.ID';//基本信息 连接出来 冗余
  Str:='Select A.*,B.sFZ,b.sCHLB,B.sZC,B.SBZ As sBZX from ('
      +sB+') A Left Join TAD03_HYCJR B On (A.sFZID =B.ID And '
      +' A.sHYBM = B.sHYBM )'; 
  FCarryOutSQL(ADOQry_HYRen,Str,True);
  CDSA.Data:=DSPA.Data;
end;

procedure TFrmMain.SpeedButton7Click(Sender: TObject);
var
  Str,S:String;
  FrmX:TFrmHYRenE;
begin
  if not CDSA.Active then Exit;
  if CDSA.RecordCount <= 0 then Exit;
  S:=Trim(CDSA.FieldByName('sHYBM').AsString);
    
  Str:='Select * from TAD03_HYFZ Where sHYBM ='+''''+S+''''
      +' Order by iNo';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  DMOA.ADOQry.First;
  FrmX:=TFrmHYRenE.Create(Application);
123

⌨️ 快捷键说明

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