plcl.pas

来自「这个工资管理系统是我今年的毕业设计」· PAS 代码 · 共 156 行

unit plcl;

interface

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

type
  TForm11 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Gauge1: TGauge;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;
    Label4: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;
  s:string;
implementation
uses login;
{$R *.dfm}

procedure TForm11.FormCreate(Sender: TObject);
begin
gauge1.Parent:=statusbar1;
gauge1.Left:=2;
gauge1.Top:=4;
gauge1.Height:=statusbar1.Height-6;
gauge1.Width:=statusbar1.Panels[0].Width-4;
end;

procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm11.FormPaint(Sender: TObject);
begin
canvas.Pen.Color:=clteal;
canvas.Rectangle(speedbutton1.Left-1,speedbutton1.Top-1,speedbutton1.Left+speedbutton1.Width+1,speedbutton1.Top+speedbutton1.Height+1);
canvas.Rectangle(speedbutton2.Left-1,speedbutton2.Top-1,speedbutton2.Left+speedbutton2.Width+1,speedbutton2.Top+speedbutton2.Height+1);
end;

procedure TForm11.ComboBox1Click(Sender: TObject);
begin
s:='update gongz set 基本工资=gongz.基本工资+'+edit1.Text;
if combobox1.Text='批量增加员工工资' then
begin
combobox2.ItemIndex:=0;
combobox2.Refresh;
panel2.Visible:=true;
memo1.Lines.Add(s);
memo1.Refresh;
end;
if combobox1.Text='批量减少员工工资' then
begin
s:='update gongz set 基本工资=gongz.基本工资-'+edit1.Text;
combobox2.ItemIndex:=0;
combobox2.Refresh;
panel2.Visible:=true;
label4.Caption:='要减少的数据：';
memo1.Lines.Add(s);
memo1.Refresh;
end;
end;

procedure TForm11.Edit1Change(Sender: TObject);
begin
if combobox1.Text='批量减少员工工资' then
begin
s:='update gongz set 基本工资=gongz.基本工资-'+edit1.Text;
memo1.Lines.Add(s);
memo1.Refresh;
end
else
begin
s:='update gongz set 基本工资=gongz.基本工资+'+edit1.Text;
memo1.Lines.Add(s);
end;
end;

procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
if (combobox1.Text='批量增加员工工资') and (combobox2.Text='员工工资表') then
begin
s:='update gongz set 基本工资=gongz.基本工资+'+edit1.Text;
gauge1.MaxValue:=adoquery1.RecordCount;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update gongz set 基本工资=gongz.基本工资+'+edit1.Text);
adoquery1.ExecSQL;
timer1.Enabled:=true;
memo1.Lines.Add(s);
memo1.Refresh;
end;

if (combobox1.Text='批量减少员工工资') and (combobox2.Text='员工工资表') then
begin
s:='update gongz set 基本工资=gongz.基本工资-'+edit1.Text;
gauge1.MaxValue:=adoquery1.RecordCount;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update gongz set 基本工资=gongz.基本工资-'+edit1.Text);
adoquery1.ExecSQL;
timer1.Enabled:=true;
memo1.Lines.Add(s);
memo1.Refresh;
end;

end;

procedure TForm11.FormShow(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from gongz');
adoquery1.Open;
end;

procedure TForm11.Timer1Timer(Sender: TObject);
begin
gauge1.Progress:=gauge1.Progress+1;
end;

procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoquery1.Close;
end;

end.