inforunit.pas

使用delphi语言

unit inforunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, DB, ADODB;

type
  Tinforform = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BitBtn2: TBitBtn;
    db1: TDBLookupListBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    db2: TDBLookupListBox;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Panel3: TPanel;
    GroupBox3: TGroupBox;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn14: TBitBtn;
    zc: TADODataSet;
    zt: TADODataSet;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    zcDSDesigner: TStringField;
    zcDSDesigner2: TStringField;
    ztDSDesigner: TStringField;
    ztDSDesigner2: TStringField;
    Label3: TLabel;
    Label4: TLabel;
    c: TADOCommand;
    BitBtn1: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label7: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    edit1: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inforform: Tinforform;

implementation
  uses dmunit,infor_seleunit,code_seleunit;
{$R *.dfm}

procedure Tinforform.BitBtn2Click(Sender: TObject);
begin
  dm.bm.Active:=false;
  dm.person.Active:=false;
  zc.Active:=false;
  zt.Active:=false;//关闭所有与数据源连接的组件
  close;
end;

procedure Tinforform.FormCreate(Sender: TObject);
begin
  dm.bm.Open ;
  if panel1.Visible=true then   //正常缴纳 <>暂停缴纳
  begin
    zc.Close;
    zc.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
    zc.Open ;
    zt.Close;
    zt.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
    zt.Open ;
  end;
  if panel3.Visible =true then //转入退休人员
  begin
    listbox1.Clear ;
    dm.person.Close;
    dm.person.CommandText:='select * from 职工 where 部门编号=:id';
    dm.person.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'] ;
    dm.person.Open ;
    dm.person.First ;
    while not dm.person.Eof do
    begin
      listbox1.Items.Add(dm.person.FieldValues['职工编号']);
      dm.person.Next;
    end;
  end;
end;

procedure Tinforform.BitBtn3Click(Sender: TObject);
begin
  if zc.RecordCount =0 then
    exit;
  zc.Edit ;
  zc.FieldValues['类型']:='0';       //转入暂停缴纳人员
  zc.Post ;
  zc.Close;
  zc.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zc.Open ;
  zt.Close;
  zt.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zt.Open ;
end;

procedure Tinforform.BitBtn5Click(Sender: TObject);
begin
  if zt.RecordCount =0 then
    exit;
  zt.Edit ;
  zt.FieldValues['类型']:='1';      //转入正常缴纳人员
  zt.Post ;
  zc.Close;
  zc.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zc.Open ;
  zt.Close;
  zt.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zt.Open ;
end;

procedure Tinforform.BitBtn4Click(Sender: TObject);
begin
  c.CommandText:='update 系数表 set 类型=''0''';
  c.Execute ;                   //全部为0
  zc.Close;
  zc.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zc.Open ;
  zt.Close;
  zt.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zt.Open ;
end;

procedure Tinforform.BitBtn6Click(Sender: TObject);
begin
  c.CommandText:='update 系数表 set 类型=''1''';  //全部为1
  c.Execute ;
  zc.Close;
  zc.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zc.Open ;
  zt.Close;
  zt.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  zt.Open ;
end;

procedure Tinforform.BitBtn7Click(Sender: TObject);
var i:integer;
    s:string;
begin
  if listbox1.ItemIndex<>-1 then
  begin
    i:=listbox1.ItemIndex ;
    s:=listbox1.Items.Strings[i];
    listbox2.Items.Add(s);
    listbox1.DeleteSelected ;
  end;
end;

procedure Tinforform.BitBtn9Click(Sender: TObject);
var i:integer;
    s:string;
begin
  if listbox2.ItemIndex<>-1 then
  begin
    i:=listbox2.ItemIndex ;
    s:=listbox2.Items.Strings[i];
    listbox1.Items.Add(s);
    listbox2.DeleteSelected ;
  end;
end;

procedure Tinforform.BitBtn8Click(Sender: TObject);
begin
  listbox1.Clear ;
  listbox2.Clear;
  dm.person.First ;
  while not dm.person.Eof do
  begin
    listbox2.Items.Add(dm.person.FieldValues['职工编号']);
    dm.person.Next;
  end;
end;

procedure Tinforform.BitBtn10Click(Sender: TObject);
begin
  listbox1.Clear ;
  listbox2.Clear;
  dm.person.First ;
  while not dm.person.Eof do
  begin
    listbox1.Items.Add(dm.person.FieldValues['职工编号']);
    dm.person.Next;
  end;
end;

procedure Tinforform.BitBtn1Click(Sender: TObject);
var i:integer;
    s:string;
begin
  if listbox2.Items.Text='' then      //转入退休人员
    exit;
  if messagebox(self.Handle,'确定要转入退休人员吗？这样会删除退休人员的数据，要继续吗？','提示信息',mb_yesno+mb_iconquestion)=idyes then
  begin
    for i:=0 to listbox2.Items.Count-1 do
    begin
      s:=listbox2.Items.Strings[i];
      c.CommandText:='delete from 职工 where 职工编号='''+s+'''';
      c.Execute;
    end;
  end;
end;

procedure Tinforform.Edit1DblClick(Sender: TObject);
begin
  application.CreateForm(tcode_seleform,code_seleform);
  dm.person.Close;
  dm.person.CommandText:='select * from 职工 where 部门编号=:id';
  dm.person.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  dm.person.Open ;
  if code_seleform.ShowModal =mrok then
    edit1.Text:=dm.person.FieldValues['职工编号'];
  code_seleform.Free;
end;

procedure Tinforform.BitBtn11Click(Sender: TObject);
begin       //职工部门调整
  c.CommandText:='update 职工 set 部门编号=:id where 职工编号=:id1';
  c.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  c.Parameters.ParamByName('id1').Value:=self.Edit1.Text ;
  c.Execute ;
  c.CommandText:='update 系数表 set 部门编号=:id where 职工编号=:id1';
  c.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  c.Parameters.ParamByName('id1').Value:=self.Edit1.Text ;
  c.Execute ;
  c.CommandText:='update 期初余额 set 部门编号=:id where 职工编号=:id1';
  c.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  c.Parameters.ParamByName('id1').Value:=self.Edit1.Text ;
  c.Execute ;
  c.CommandText:='update 明细表 set 部门编号=:id where 职工编号=:id1';
  c.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  c.Parameters.ParamByName('id1').Value:=self.Edit1.Text ;
  c.Execute ;
  c.CommandText:='update 利息结算 set 部门编号=:id where 职工编号=:id1';
  c.Parameters.ParamByName('id').Value:=dm.bm.FieldValues['部门编号'];
  c.Parameters.ParamByName('id1').Value:=self.Edit1.Text ;
  c.Execute ;
  messagebox(self.Handle,'信息变动成功','提示信息',mb_iconinformation);
end;

procedure Tinforform.ListBox1Click(Sender: TObject);
begin
dm.person.Filter:='[职工编号]='+''''+listbox1.Items.Strings[listbox1.itemindex]+'''';
if dm.person.FindFirst then
  label8.Caption:=dm.person.FieldValues['职工姓名']
  else
    label8.Caption:='';
end;

procedure Tinforform.ListBox2Click(Sender: TObject);
begin
dm.person.Filter:='[职工编号]='+''''+listbox2.Items.Strings[listbox2.itemindex]+'''';
if dm.person.FindFirst then
  label9.Caption:=dm.person.FieldValues['职工姓名']
  else
    label9.Caption:='';
end;

end.