officepay1.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit officepay1;

interface

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

type
  TFrm_officepay = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    dsmpc: TDataSource;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox6: TGroupBox;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    btn_brs: TButton;
    btn_qry: TButton;
    btn_clr: TButton;
    btn_prt: TButton;
    Panel1: TPanel;
    btn_first: TButton;
    btn_prev: TButton;
    btn_next: TButton;
    btn_last: TButton;
    btn_addnew: TButton;
    btn_edit: TButton;
    btn_save: TButton;
    btn_cancel: TButton;
    btn_delete: TButton;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    qmpc_var: TQuery;
    dsmpc_var: TDataSource;
    Queryuse: TQuery;
    qmpc: TTable;
    GroupBox4: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    qmpcBDEDesigner: TAutoIncField;
    qmpcBDEDesigner2: TStringField;
    qmpcBDEDesigner3: TCurrencyField;
    qmpcBDEDesigner4: TCurrencyField;
    qmpcBDEDesigner5: TStringField;
    qmpcBDEDesigner6: TStringField;
    qmpcBDEDesigner7: TStringField;
    qmpcBDEDesigner8: TStringField;
    qmpcBDEDesigner9: TStringField;
    qmpcBDEDesigner10: TDateTimeField;
    qmpc_jtssjg: TFloatField;
    qmpc_jc: TFloatField;
    qmpc_varField: TFloatField;
    qmpc_varField2: TFloatField;
    qmpc_varField3: TFloatField;
    qmpc_varField4: TFloatField;
    qmpc_varField5: TFloatField;
    qmpc_varField6: TFloatField;
    qmpc_varField7: TFloatField;
    qmpc_varField8: TFloatField;
    qmpc_varField9: TFloatField;
    qmpc_varField10: TFloatField;
    qmpc_varField11: TFloatField;
    qmpc_varField12: TFloatField;
    qmpc_varField13: TFloatField;
    qmpc_varField14: TFloatField;
    qmpc_varField15: TFloatField;
    qmpc_varBDEDesigner20: TStringField;
    qmpc_varBDEDesigner21: TStringField;
    qmpc_varBDEDesigner22: TIntegerField;
    qmpc_varBDEDesigner23: TFloatField;
    qmpc_varBDEDesigner24: TFloatField;
    qmpc_varBDEDesigner25: TFloatField;
    qmpc_varBDEDesigner26: TFloatField;
    qmpc_varField16: TFloatField;
    cbhth: TComboBox;
    cbbsc: TComboBox;
    cbmonth: TComboBox;
    qmpc_varBDEDesigner: TStringField;
    qmpc_varBDEDesigner2: TStringField;
    qmpc_varBDEDesigner3: TCurrencyField;
    qmpc_varBDEDesigner4: TCurrencyField;
    qmpc_varBDEDesigner5: TCurrencyField;
    qmpc_varBDEDesigner6: TCurrencyField;
    qmpc_varBDEDesigner7: TCurrencyField;
    qmpc_varBDEDesigner8: TCurrencyField;
    qmpc_varBDEDesigner9: TIntegerField;
    qmpc_varBDEDesigner10: TCurrencyField;
    qmpc_varBDEDesigner11: TStringField;
    qmpc_varBDEDesigner12: TCurrencyField;
    qmpc_varBDEDesigner13: TCurrencyField;
    qmpc_varBDEDesigner14: TStringField;
    qmpc_varBDEDesigner15: TStringField;
    qmpc_varBDEDesigner16: TStringField;
    qmpc_varBDEDesigner17: TStringField;
    qmpc_varBDEDesigner18: TStringField;
    qmpc_varBDEDesigner19: TDateTimeField;
    Button1: TButton;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Panel4: TPanel;
    Panel9: TPanel;
    Panel8: TPanel;
    Panel5: TPanel;
    Edit1: TEdit;
    Panel6: TPanel;
    Edit2: TEdit;
    Panel7: TPanel;
    Edit3: TEdit;
    Panel10: TPanel;
    Edit4: TEdit;
    Panel11: TPanel;
    Edit5: TEdit;
    Panel12: TPanel;
    Edit6: TEdit;
    qmpc_varBDEDesigner27: TStringField;
    Panel13: TPanel;
    Label10: TLabel;
    ComboBox1: TComboBox;
    qgatherpay: TQuery;
    Button2: TButton;
    Query1: TQuery;
    DBComboBox3: TDBComboBox;
    cbyear: TComboBox;
    edit7: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_firstClick(Sender: TObject);
    procedure btn_lastClick(Sender: TObject);
    procedure btn_addnewClick(Sender: TObject);
    procedure btn_saveClick(Sender: TObject);
    procedure btn_prevClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_deleteClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn_brsClick(Sender: TObject);
    procedure btn_qryClick(Sender: TObject);
    procedure btn_clrClick(Sender: TObject);
    procedure qmpc_varCalcFields(DataSet: TDataSet);
    procedure qmpc_varAfterOpen(DataSet: TDataSet);
    procedure DBEdit6Exit(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure TabSheet2Enter(Sender: TObject);
    procedure btn_prtClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


   private
    function GetFieldType(FieldIndex:Integer):String;
    { Private declarations }
    procedure LockEdit;
    //定义函数，来改变各个输入框是否可以编辑，当用户再增加新记录
    //或者编辑记录以前，不可以修改
    procedure UnlockEdit;
    //定义函数，用来让输入文本框可以编辑
    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
    procedure getcoefficient;
    procedure getbonus;

  public
     punish: real;
     award:  real;
     coefficientnew:real;
     coefficientold:real;
     saleout: real;


    { Public declarations }

  end;

var
  Frm_officepay: TFrm_officepay;
  j:integer;
  myIndex:array[1..6] of integer;
  FieldType:array[0..150] of TFieldType;
  myValue:array[1..6] of single;
implementation

uses  data, rp_officepay, rp_realprice, rp_gatherpay;



{$R *.dfm}
//***************释放空间********************
procedure TFrm_officepay.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
        Action:=cafree;
end;

//***************以下是自定义的按纽和编辑的可否应用部分*********************
//自定义过程，用来确定每个Edit空间是否可以编辑
procedure TFrm_officepay.LockEdit;
begin
       DBEdit1.ReadOnly :=true;
       DBEdit2.ReadOnly :=true;
       DBEdit3.ReadOnly :=true;
       DBEdit4.ReadOnly :=true;
       DBEdit5.ReadOnly :=true;
       DBComboBox3.ReadOnly :=true;
       DBEdit7.ReadOnly :=true;
       DBComboBox5.ReadOnly :=true;
       DBComboBox6.ReadOnly :=true;


end;

procedure TFrm_officepay.UnlockEdit ;
begin
       DBEdit1.ReadOnly :=false;
       DBEdit2.ReadOnly :=false;
       DBEdit3.ReadOnly :=false;
       DBEdit4.ReadOnly :=false;
       DBEdit5.ReadOnly :=false;
       DBComboBox3.ReadOnly :=false;
       DBEdit7.ReadOnly :=true;
       DBComboBox5.ReadOnly :=false;
       DBComboBox6.ReadOnly :=false;

end;


procedure TFrm_officepay.DisableBtn ;
begin
    btn_first.Enabled :=false;
    btn_prev.Enabled :=false;
    btn_next.Enabled :=false;
    btn_last.Enabled :=false;

    btn_addnew.Enabled :=false;
    btn_edit.Enabled :=false;
end;

procedure TFrm_officepay.EnableBtn ;
begin
    btn_first.Enabled :=true;
    btn_prev.Enabled :=true;
    btn_next.Enabled :=true;
    btn_last.Enabled :=true;

    btn_addnew.Enabled :=true;
    btn_edit.Enabled :=true;
end;

//***************以上是自定义的按纽和编辑的可否应用部分*********************

//***************以下是按纽操作。*********************

procedure TFrm_officepay.btn_firstClick(Sender: TObject);
begin
        if not qmpc.Bof then qmpc.First ;
end;

procedure TFrm_officepay.btn_lastClick(Sender: TObject);
begin
        if not qmpc.eof then qmpc.Last ;
end;
 procedure TFrm_officepay.btn_prevClick(Sender: TObject);
begin
        if not qmpc.Bof then   qmpc.Prior ;

end;

procedure TFrm_officepay.btn_nextClick(Sender: TObject);
begin
        if not qmpc.Eof then   qmpc.Next ;
end;
procedure TFrm_officepay.btn_addnewClick(Sender: TObject);
var
  Present: TDateTime;
begin
        UnlockEdit;
        qmpc.append;