cadanb.~pas

本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据

unit cadanb;

interface

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

type
  TForm3 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label7: TLabel;
    ComboBox4: TComboBox;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    Button2: TButton;
    DBGrid2: TDBGrid;
    CheckBox1: TCheckBox;
    Button3: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var
filtstring:string ;

begin


//if combobox4.Text='' or combobox1.Text='' or combobox2.Text='' or edit1.Text=''  or edit2.Text='' then
//begin
if combobox4.Text<>'' then
begin
table1.Filter:=combobox4.Text+combobox1.Text+''''+edit2.text+'''';
table1.Filtered:=true;
end;




if edit1.Text<>'' then
begin

WITH TABLE1 DO
      BEGIN
      DISABLECONTROLS;
      FIRST;
WHILE NOT EOF DO
     BEGIN
      EDIT;

     if checkbox1.Checked=true then

      begin

       FIELDBYNAME(combobox2.Text).AsVariant:= fieldbyname(edit1.Text).AsVariant;

     end

     else
     begin

      FIELDBYNAME(combobox2.Text).AsVariant:= edit1.Text;

      end ;


      NEXT


      END;

      EnableControls;
      END;
      end;

combobox4.Text:='';
combobox1.Text:='';
combobox2.Text:='';
edit1.Text:='';
edit2.Text:='';

//end

 // else
  //      begin
  //      showmessage('abcd')'
  // end;



 END;

procedure TForm3.Button2Click(Sender: TObject);
begin
table1.Filtered:=false;


combobox4.Text:='';
combobox1.Text:='';
combobox2.Text:='';
edit1.Text:='';
edit2.Text:='';
end;

procedure TForm3.DBGrid1CellClick(Column: TColumn);

var
fielname:string;

begin
fielname:=dbgrid1.SelectedField.DisplayName;
//fielname:=table1.FieldDefList.Names;
 //fielname:=table1.DataSetField.FieldValues;
  combobox2.Text:=fielname;

end;

end.