main_yggl_zhglform.pas

校园综合管理系统源码 校园综合管理系统源码

begin
   if bitbtn12.Caption='暂停自动浏览' then
    begin
      timer1.Interval:=0;
      bitbtn12.Caption:='继续自动浏览';
    end
    else
    begin
       bitbtn12.Caption:='暂停自动浏览';
      timer1.Interval:=strtoint(main_xfgl_xxll_llsz.Label3.Caption);
      table1.MoveBy(main_xfgl_xxll_llsz.sppp.Value);
    end;
end;

procedure Tmain_yggl_zhgl.Button7Click(Sender: TObject);
begin
    findrecorddlg.RG2.visible:=true;
  if findrecorddlg.ShowModal=mrok then
    begin
       if(findrecorddlg.RadioGroup1.Controls[0] as tradiobutton).checked then
            table3.Filtered:=false;
           table3.IndexFieldNames:='职工编号';
           table3.SetKey;
            table3.FieldByName('职工编号').value:=findrecorddlg.Edit1.Text;
            table3.GotoKey;

     end;
   if (findrecorddlg.RadioGroup1.Controls[1] as tradiobutton).checked then
        begin
          with table3 do
              try
                disablecontrols;
                filtered:=false;
                filter:='职工姓名='+''''+findrecorddlg.Edit2.Text+'''';
                filtered:=true;
              finally
              enablecontrols;
         end;
       end;
end;

procedure Tmain_yggl_zhgl.Button2Click(Sender: TObject);
begin
   table3.CachedUpdates:=true;

end;

procedure Tmain_yggl_zhgl.Button3Click(Sender: TObject);
begin
   table3.CachedUpdates:=false;

end;

procedure Tmain_yggl_zhgl.Button4Click(Sender: TObject);
begin
   table3.ApplyUpdates;

end;

procedure Tmain_yggl_zhgl.Button5Click(Sender: TObject);
begin
    table3.CancelUpdates;
 
end;

procedure Tmain_yggl_zhgl.BitBtn6Click(Sender: TObject);
 begin
  main_yggl_zhgl_zgkp.table1.open;
  main_yggl_zhgl_zgkp.Table1.Append;
  main_yggl_zhgl_zgkp.ShowModal;

end;

procedure Tmain_yggl_zhgl.PageControl1Change(Sender: TObject);
var
  i:integer;
begin
     case pagecontrol1.ActivePageIndex of
      3:close;
      0:
       begin
          mys.close;
          mys.TableName:='gzbm';
          mys.open;
          mys.First;
           for i:=1 to mys.RecordCount do
            begin
              dbcombobox2.Items.Add(mys.Fields[0].value);
              mys.Next;
            end;

          mys.close;
          mys.TableName:='xzzw';
          mys.open;
          mys.First;
            for i:=1 to mys.RecordCount do
              begin
                  dbcombobox3.Items.Add(mys.Fields[0].value);
                  mys.Next;
               end;

      mys.close;
   mys.TableName:='jszc';
    mys.open;
    mys.First;
    for i:=1 to mys.RecordCount do
     begin
       dbcombobox4.Items.Add(mys.Fields[0].value);
       mys.Next;
     end;
     end;
 end;
 end;


procedure Tmain_yggl_zhgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   DecisionQuery1.Active:=false;
   table3.close;
end;

procedure Tmain_yggl_zhgl.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
   Accept:=source is tlistview;
end;

procedure Tmain_yggl_zhgl.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (sender is timage) then
    begin
      if messagebox(main_yggl_zhgl.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
         begin
           table3.Filtered:=false;
           table3.Filter:='职工姓名='+''''+listview1.Selected.Caption+'''';
           table3.Filtered:=true;
           table3.delete;
           listview1.Items.Delete(listview1.Items.IndexOf(listview1.Selected));
         end;
        end;
end;

procedure Tmain_yggl_zhgl.BitBtn8Click(Sender: TObject);
begin
    if messagebox(main_yggl_zhgl.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
          begin
           table3.Filtered:=false;
           table3.Filter:='职工姓名='+''''+listview1.Selected.Caption+'''';
           table3.Filtered:=true;
           table3.delete;
           listview1.Items.Delete(listview1.Items.IndexOf(listview1.Selected));
         end;
end;

procedure Tmain_yggl_zhgl.BitBtn9Click(Sender: TObject);
var
   item:tlistitem;
   i:integer;
begin
        table1.open;
        table1.Filtered:=false;
        table1.Filter:='职工姓名<>'+''''+'dog'+'''';
        table1.Filtered:=true;
        table1.first;
        listview1.Items.Clear;
        for i:=1 to table1.RecordCount do
            begin
              item:=listview1.Items.add;
              item.Caption:=table1.Fields[1].Text;
              table1.Next;
            end;
          table1.close;
   end;

procedure Tmain_yggl_zhgl.BitBtn10Click(Sender: TObject);
begin
   main_yggl_zhgl_zgkp.table1.Filtered:=false;
   main_yggl_zhgl_zgkp.table1.Filter:='职工姓名='+''''+listview1.Selected.Caption+'''';
   main_yggl_zhgl_zgkp.Table1.Filtered:=true;
   main_yggl_zhgl_zgkp.ShowModal;

end;

procedure Tmain_yggl_zhgl.BitBtn13Click(Sender: TObject);
begin
  prints.Table3.Filtered:=false;
  prints.Table3.Filter:=table1.Filter;
  prints.table3.Filtered:=true;
  prints.ShowModal;
end;

procedure Tmain_yggl_zhgl.BitBtn11Click(Sender: TObject);
begin
    close;
end;

procedure Tmain_yggl_zhgl.BitBtn14Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_yggl_zhgl.BitBtn2Click(Sender: TObject);
begin
   DecisionSource1.SparseRows:=true;
  decisionsource1.SparseCols:=true;
end;

procedure Tmain_yggl_zhgl.firstbuttonClick(Sender: TObject);
begin
  table3.First;
  firstbutton.Enabled:=false;
  prebutton.Enabled:=false;
  nextbutton.Enabled:=true;
  lastbutton.Enabled:=true;
end;

procedure Tmain_yggl_zhgl.prebuttonClick(Sender: TObject);
begin
  table3.Prior;
  if table3.Bof then
    begin
    prebutton.Enabled:=false;
    firstbutton.Enabled:=false;
    end
   else
       begin
       nextbutton.Enabled:=true;
       lastbutton.Enabled:=true;
     end;
end;

procedure Tmain_yggl_zhgl.nextbuttonClick(Sender: TObject);
begin
   table3.Next;
  if table3.Eof then
    begin
     nextbutton.Enabled:=false;
     lastbutton.Enabled:=false;
     end
    else
    begin
      prebutton.Enabled:=true;
      firstbutton.Enabled:=true
    end;
end;

procedure Tmain_yggl_zhgl.lastbuttonClick(Sender: TObject);
begin
  table3.Last;
  lastbutton.Enabled:=false;
  nextbutton.Enabled:=false;
  firstbutton.Enabled:=true;
  prebutton.Enabled:=true;
end;

procedure Tmain_yggl_zhgl.SpeedButton2Click(Sender: TObject);
begin
    table3.CachedUpdates:=true;
  speedbutton1.Enabled:=true;
  speedbutton3.Enabled:=true;
  speedbutton4.Enabled:=true;
end;

procedure Tmain_yggl_zhgl.SpeedButton1Click(Sender: TObject);
begin
  table3.CachedUpdates:=false;
   speedbutton1.Enabled:=false;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
end;

procedure Tmain_yggl_zhgl.SpeedButton3Click(Sender: TObject);
begin
  table3.ApplyUpdates;
   speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
end;

procedure Tmain_yggl_zhgl.SpeedButton4Click(Sender: TObject);
begin
    table1.CancelUpdates;
     speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
end;

procedure Tmain_yggl_zhgl.BitBtn17Click(Sender: TObject);
begin
   if messagebox(main_yggl_zhgl.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
          begin
           table3.Filtered:=false;
           table3.Filter:='职工姓名='+''''+listview1.Selected.Caption+'''';
           table3.Filtered:=true;
           table3.delete;
         end;     
end;

procedure Tmain_yggl_zhgl.BitBtn18Click(Sender: TObject);
begin
  table3.Post;
  bitbtn18.Enabled:=false;
  bitbtn19.Enabled:=false;
end;

procedure Tmain_yggl_zhgl.BitBtn19Click(Sender: TObject);
begin
   table3.cancel;
    bitbtn18.Enabled:=false;
  bitbtn19.Enabled:=false;
end;

procedure Tmain_yggl_zhgl.BitBtn16Click(Sender: TObject);
begin
  bitbtn18.Enabled:=true;
  bitbtn19.Enabled:=true;
  table3.edit;

end;

procedure Tmain_yggl_zhgl.BitBtn5Click(Sender: TObject);
begin
  DecisionSource1.SparseRows:=false;
  decisionsource1.SparseCols:=false;
end;

procedure Tmain_yggl_zhgl.BitBtn1Click(Sender: TObject);
begin
  close;
end;

end.