yggz.pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

unit YGGZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ComCtrls, ToolWin, ImgList;

type
  TFRM_YGGZ = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox6: TGroupBox;
    ToolBar5: TToolBar;
    tedit: TToolButton;
    tprint: TToolButton;
    tfind: TToolButton;
    Label1: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    StringGrid2: TStringGrid;
    Label3: TLabel;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    GroupBox4: TGroupBox;
    Label2: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    Label14: TLabel;
    Label15: TLabel;
    ImageList2: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure trfrshtree;
    procedure teditClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2Change(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit11Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
  procedure  sumgz;
    { Public declarations }
  end;

var
  FRM_YGGZ: TFRM_YGGZ;
  flag:boolean;

implementation

uses date1;



{$R *.dfm}

procedure TFRM_YGGZ.FormCreate(Sender: TObject);
begin
  trfrshtree;
  treeview1.Items.Item[0].Selected:=true;
  flag:=true;
  stringgrid2.ColCount:=16;
  stringgrid2.Cells[1,0]:='部门编号';
  stringgrid2.Cells[2,0]:='员工编号';
  stringgrid2.Cells[3,0]:='员工名称';
  stringgrid2.Cells[4,0]:='基本工资';
  stringgrid2.Cells[5,0]:='岗位工资';
  stringgrid2.Cells[6,0]:='午餐补助';
  stringgrid2.Cells[7,0]:='业务提成';
  stringgrid2.Cells[8,0]:='全勤奖';
  stringgrid2.Cells[9,0]:='医药补贴';
  stringgrid2.Cells[10,0]:='房屋补贴';
  stringgrid2.Cells[11,0]:='加班费';
  stringgrid2.Cells[12,0]:='劳动保险';
  stringgrid2.Cells[13,0]:='个人所得税';
  stringgrid2.Cells[14,0]:='罚款';
  stringgrid2.Cells[15,0]:='总工资';
  stringgrid2.ColWidths[0]:=10;
  stringgrid2.ColWidths[1]:=80;
  stringgrid2.ColWidths[2]:=80;
  stringgrid2.ColWidths[3]:=80;
  stringgrid2.ColWidths[4]:=80;
  stringgrid2.ColWidths[5]:=80;
  stringgrid2.ColWidths[6]:=80;
  stringgrid2.ColWidths[7]:=80;
  stringgrid2.ColWidths[8]:=80;
  stringgrid2.ColWidths[8]:=80;
  stringgrid2.ColWidths[9]:=80;
  stringgrid2.ColWidths[10]:=80;
  stringgrid2.ColWidths[11]:=80;
  stringgrid2.ColWidths[12]:=80;
  stringgrid2.ColWidths[13]:=80;
  stringgrid2.ColWidths[14]:=80;
  stringgrid2.ColWidths[15]:=100;
end;

procedure TFRM_YGGZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

{procedure TFRM_YGGZ.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
var i:integer;
    s:string;
    node1:ttreenode;
begin
if node.Level=1 then
   begin
   if node.Count<=1 then
   begin
   s:=node.Text;
   with database do
   begin
     ado1.Connection:=adoc1;
     ado1.Close;
     ado1.SQL.Clear;
     ado1.SQL.add(' select a.bmbh,b.ygbh,b.ygmc,b.dz,b.zw,b.phone from bm a,ygzl b');
     ado1.SQL.add(' where a.bmbh=b.bmbh and a.bmmc=:bmmc');
     ado1.Parameters.ParamByName('bmmc').Value:=s;
     ado1.Open;
  if ado1.Recordset.RecordCount=0 then
     begin
     if node.getFirstChild.Text='temp' then
        node.getFirstChild.Delete;
        exit;
     end;
  while not ado1.Eof do
  begin
     if node.getFirstChild.Text='temp' then
         node.getFirstChild.Delete;
     node1:=treeview1.Items.AddChild(node,ado1.Fields.fieldbyname('ygmc').Value);
     node1.SelectedIndex:=1;
     node1.ImageIndex:=0;
     ado1.Next;
  end; 
  end;
  end;
  end;
end; }

procedure TFRM_YGGZ.trfrshtree;
var node,node1,node2:ttreenode;
begin
 treeview1.Items.Clear;
 node:=treeview1.Items.Add(nil,'部门');
 node.SelectedIndex:=0;
 node.ImageIndex:=0;
 with data do
 begin
   aq1.Connection:=adoc1;
   aq1.Close;
   aq1.SQL.Clear;
   aq1.SQL.Add('select * from bm');
   aq1.Open;
 if aq1.Recordset.RecordCount=0 then exit;
 while not aq1.Eof do
 begin
   node1:=treeview1.Items.AddChild(node,aq1.Fields.Fieldbyname('bmmc').Value);
   node1.SelectedIndex:=1;
   node1.ImageIndex:=0;
   aq2.Close;
   aq2.SQL.Clear;
   aq2.SQL.add('select a.bmbh,a.bmmc,b.ygbh,b.ygmc from bm a,ygzl b');
   aq2.SQL.Add(' where a.bmbh=b.bmbh and a.bmmc=:bmmc');
   aq2.Parameters.ParamByName('bmmc').Value:=aq1.Fields.Fieldbyname('bmmc').Value;
   aq2.Open;
 if aq2.Recordset.RecordCount>0 then
 begin
 while not aq2.Eof do
 begin
   node2:=treeview1.Items.AddChild(node1,aq2.Fields.Fieldbyname('ygmc').Value);
   node2.ImageIndex:=0;
   node2.SelectedIndex:=1;
   aq2.Next;
 end;
 end;
   aq1.Next;
 end;
 end;
 treeview1.Items.Item[0].Selected:=true;
end;
procedure TFRM_YGGZ.teditClick(Sender: TObject);
begin
if (treeview1.Focused)and (treeview1.Selected.Level=2) then
   begin
   edit1.Enabled:=true;
   edit1.SetFocus;
   edit1.Color:=clskyblue;
   edit2.Enabled:=true;
   edit3.Enabled:=true;
   edit4.Enabled:=true;
   edit5.Enabled:=true;
   edit6.Enabled:=true;
   edit7.Enabled:=true;
   edit8.Enabled:=true;
   edit9.Enabled:=true;
   edit10.Enabled:=true;
   edit11.Enabled:=true;
   end;
end; 

procedure TFRM_YGGZ.sumgz;
var sumgz:real;
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;

procedure TFRM_YGGZ.Edit1Change(Sender: TObject);
var sumgz:real;
begin
if length(edit1.text)=0  then
      begin
      flag:=false;
      label13.caption:='0.00';
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;
procedure TFRM_YGGZ.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=8  then key:=8
else
begin
 if (key<96) or (key>105) then
  begin
  key:=0;
  flag:=false;
  end
  else
  flag:=true;
end;
end; 
procedure TFRM_YGGZ.Edit2Change(Sender: TObject);
var sumgz:real;
begin
if length(edit2.text)=0  then
      begin
      edit2.Text:='0.00';
     edit2.SelectAll;
      end;