pwage.~pas

本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&

unit pwage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  Tpwageform = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pwageform: Tpwageform;

implementation

uses main;

{$R *.dfm}

procedure Tpwageform.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tpwageform.FormActivate(Sender: TObject);
begin
  if pp=true then
  begin
    label2.visible:=false;
    label1.visible:=true;
    label1.caption:='查询姓名';
    edit1.Visible:=true;
    edit1.text:='';
    radiobutton1.visible:=true;
    radiobutton2.Visible:=false;
    button1.visible:=true;
    button1.enabled:=true;
  end
  else
  begin
    label2.visible:=true;
    label1.visible:=false;
    edit1.visible:=false;
    radiobutton1.Visible:=false;
    radiobutton2.visible:=false;
    button1.Visible:=false;
    dbgrid1.datasource:=datasource1;
    datasource1.dataset:=adodataset1;
    adodataset1.connection:=adoconnection1;
    adodataset1.Close;
    adodataset1.commandtype:=cmdtext;
    adodataset1.commandtext:='select * from month_salary where name=:s0';
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=username;
    adodataset1.Open;
    label2.Caption:=username+' 个人工资条';
  end;
end;

procedure Tpwageform.RadioButton1Click(Sender: TObject);   //全部
var
  salarytable:tadotable;
  sum:real;
  i,j:integer;
  mm:array[1..100] of real;
begin
  edit1.enabled:=false;
  radiobutton1.visible:=false;
  radiobutton2.visible:=true;
  radiobutton2.Checked:=false;
  button1.Enabled:=false;
  label1.Caption:='实发工资总和';
  dbgrid1.datasource:=datasource1;
  datasource1.dataset:=adodataset1;
  adodataset1.connection:=adoconnection1;
  adodataset1.Close;
  adodataset1.commandtype:=cmdtext;
  adodataset1.commandtext:='select * from month_salary';
  adodataset1.Open;
  salarytable:=tadotable.create(self);
  salarytable.Connection:=adoconnection1;
  salarytable.TableName:='month_salary';
  salarytable.active:=true;
  i:=1;
  while not salarytable.Eof do
  begin
    mm[i]:=salarytable.fieldbyname('real_salary').asfloat;
    salarytable.Next;
    i:=i+1;
  end;
  j:=1;
  sum:=0;
  while j<i do
  begin
   sum:=sum+mm[j];
   j:=j+1;
  end;
  edit1.text:=floattostr(sum);  
end;

procedure Tpwageform.RadioButton2Click(Sender: TObject);    //个人查询
begin
  label1.enabled:=true;
  edit1.enabled:=true;
  radiobutton1.visible:=true;
  radiobutton1.Checked:=false;
  radiobutton2.Visible:=false;
  button1.enabled:=true;
  label1.Caption:='查询姓名';
  edit1.Text:='';
end;

procedure Tpwageform.Button1Click(Sender: TObject);
begin
  dbgrid1.datasource:=datasource1;
  datasource1.dataset:=adodataset1;
  adodataset1.connection:=adoconnection1;
  adodataset1.Close;
  adodataset1.commandtype:=cmdtext;
  adodataset1.commandtext:='select * from month_salary where name=:s0';
  adodataset1.Parameters.clear;
  adodataset1.parameters.addparameter;
  adodataset1.parameters[0].Name:='s0';
  adodataset1.parameters[0].datatype:=ftstring;
  adodataset1.parameters[0].direction:=pdinput;
  adodataset1.parameters[0].value:=edit1.text;
  adodataset1.Open;
end;

end.