unit1.~pas

工资管理源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    ComboBox3: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
implementation

uses Unit3;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
i:integer;
begin
combobox1.items.clear;
for i := 0 to main.adoquery1.FieldCount - 1 do combobox1.items.add(main.adoquery1.Fields[i].FieldName);
combobox1.ItemIndex:=0;

combobox3.items.clear;
combobox3.items.add('全部人员');
main.adotable1.First;
while main.adotable1.eof=false do
begin
combobox3.items.add(main.adotable1.Fields[1].asstring);
main.adotable1.Next;
end;
combobox3.ItemIndex:=0;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  xg_bl1:string;
begin
if trim(edit1.Text)='' then application.MessageBox('瞎搞，还没输入正确的条件！！！','系统警告',MB_ok+MB_Iconstop) else
begin
if combobox2.text='=' then
xg_bl1:=combobox1.Text+'='+edit1.text else
xg_bl1:=combobox1.Text+'='+combobox1.Text+combobox2.Text+edit1.text;
with adoquery1 do
begin
close;
sql.Clear;
sql.add('update '+table_name+' set '+xg_bl1);
if combobox3.text<>'全部人员' then sql.Add('where 编制='+''''+combobox3.text+'''');
execSQL;
end;
with main.adoquery1 do
begin
close;
sql.clear;
sql.Add('select * from '+table_name);
if main.combobox3.text<>'全部人员' then sql.Add('where 编制='+''''+main.combobox3.text+'''');
sql.add('order by 排序');
open;
end;
for i:=0 to main.adoquery1.FieldCount-1 do
  if main.adoquery1.Fields[i].DataType in [ftFloat,ftCurrency,ftBCD] then
    TFloatField(main.adoquery1.Fields[i]).Displayformat:='#,##0.00';

end;
end;

end.