yearratio.pas

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

unit yearratio;

interface

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

type
  TFrm_yearratio = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    qyearratio: TQuery;
    dsyearratio: TDataSource;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    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;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Panel2: TPanel;
    btn_brs: TButton;
    btn_qry: TButton;
    btn_clr: TButton;
    btn_prt: TButton;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    DBEdit2: TDBEdit;
    DBEdit7: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    Label13: TLabel;
    DBEdit10: TDBEdit;
    UpdateSyratio: TUpdateSQL;
    Quse: TQuery;
    cbbsc: TComboBox;
    cbxm: TComboBox;
    cbgh: TComboBox;
    cbgw: TComboBox;
    qforq: TQuery;
    dsforq: TDataSource;
    DBComboBox1: TDBComboBox;
    qyearratioBDEDesigner: TStringField;
    qyearratioBDEDesigner2: TFloatField;
    qyearratioBDEDesigner3: TFloatField;
    qyearratioBDEDesigner4: TFloatField;
    qyearratioBDEDesigner5: TFloatField;
    qyearratioBDEDesigner6: TStringField;
    qyearratioBDEDesigner7: TStringField;
    qyearratioBDEDesigner8: TStringField;
    qyearratioBDEDesigner9: TStringField;
    qyearratioBDEDesigner10: TDateTimeField;
    qyearratioBDEDesigner11: TStringField;
    qyearratioBDEDesigner12: TStringField;
    qyearratioBDEDesigner13: TStringField;
    Label12: TLabel;
    DBEdit6: TDBEdit;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox5: TDBComboBox;
    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 DBComboBox1Exit(Sender: TObject);
    procedure TabSheet2Enter(Sender: TObject);
    procedure qyearratioAfterOpen(DataSet: TDataSet);
    procedure btn_prtClick(Sender: TObject);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
 
  private
    { Private declarations }
      procedure LockEdit;
    //定义函数，来改变各个输入框是否可以编辑，当用户再增加新记录
    //或者编辑记录以前，不可以修改
    procedure UnlockEdit;
    //定义函数，用来让输入文本框可以编辑
    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
  public
    { Public declarations }
 
  end;

var
  Frm_yearratio: TFrm_yearratio;

implementation

uses  data, rp_yearratio;



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

//***************以下是自定义的按纽和编辑的可否应用部分*********************
//自定义过程，用来确定每个Edit空间是否可以编辑
procedure TFrm_yearratio.LockEdit;
begin
       DBEdit2.ReadOnly :=true;
       DBEdit3.ReadOnly :=true;
       DBEdit4.ReadOnly :=true;
       DBEdit5.ReadOnly :=true;
       DBEdit6.ReadOnly :=true;
       DBEdit7.ReadOnly :=true;
       DBEdit8.ReadOnly :=true;
       DBEdit9.ReadOnly :=true;
       DBEdit10.ReadOnly :=true;
       DBComboBox1.ReadOnly :=true;
       DBComboBox3.ReadOnly :=true;
       DBComboBox5.ReadOnly :=true;
       DBComboBox2.ReadOnly :=true;
       DBComboBox1.Enabled  :=false;
       DBComboBox3.Enabled  :=false;
       DBComboBox5.Enabled  :=false;
       DBComboBox2.Enabled  :=false;
end;

procedure TFrm_yearratio.UnlockEdit ;
begin
       DBEdit2.ReadOnly :=true;
       DBEdit3.ReadOnly :=false;
       DBEdit4.ReadOnly :=false;
       DBEdit5.ReadOnly :=false;
       DBEdit6.ReadOnly :=true;
       DBEdit7.ReadOnly :=false;
       DBEdit8.ReadOnly :=false;
       DBEdit9.ReadOnly :=false;
       DBEdit10.ReadOnly :=false;
       DBComboBox1.ReadOnly :=false;
       DBComboBox5.ReadOnly :=false;
       DBComboBox3.ReadOnly :=false;
       DBComboBox2.ReadOnly :=false;
       DBComboBox1.Enabled  :=true;
       DBComboBox3.Enabled  :=true;
       DBComboBox5.Enabled  :=true;
       DBComboBox2.Enabled  :=true;

end;


procedure TFrm_yearratio.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_yearratio.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_yearratio.btn_firstClick(Sender: TObject);
begin
        if not qyearratio.Bof then qyearratio.First ;

end;

procedure TFrm_yearratio.btn_lastClick(Sender: TObject);
begin
        if not qyearratio.eof then qyearratio.Last;

end;
 procedure TFrm_yearratio.btn_prevClick(Sender: TObject);
begin
        if not qyearratio.Bof then   qyearratio.Prior ;

end;

procedure TFrm_yearratio.btn_nextClick(Sender: TObject);
begin
        if not qyearratio.Eof then   qyearratio.Next ;

end;
procedure TFrm_yearratio.btn_addnewClick(Sender: TObject);
var
  Present: TDateTime;
begin
        UnlockEdit;
        qyearratio.append;

        DisableBtn;
        btn_save.Enabled :=true;
        btn_cancel.Enabled :=true;
//给下面审核栏默认值：
//日期：
    Present:= Now;
    qyearratio.fieldbyname('录入日期').AsString :=datetimetostr(present);
//人名：
  with quse do begin
    if active then close;
    unprepare;
    sql.Clear;
    sql.Add('select * from pub_z_yearratio');
    prepare;
    open;
    last;
    qyearratio.fieldbyname('年').AsString:=fieldbyname('年').AsString;
    qyearratio.fieldbyname('其他奖励').AsString:=fieldbyname('其他奖励').AsString;
    qyearratio.fieldbyname('应扣').AsString:=fieldbyname('应扣').AsString;

    qyearratio.fieldbyname('主管').AsString:=fieldbyname('主管').AsString;
    qyearratio.fieldbyname('审核').AsString:=fieldbyname('审核').AsString;
    qyearratio.fieldbyname('录入').AsString:=fieldbyname('录入').AsString;
  end;
end;

procedure TFrm_yearratio.btn_saveClick(Sender: TObject);
begin
    if (qyearratio.fieldbyname('年').AsString='') then
    begin
       application.MessageBox('没有填写年份！','提示',MB_OK);
       DBComboBox3.Focused ;
    end
    else begin
      with data.zxjxdata do begin
      if not DatabaseJxw.intransaction then DatabaseJxw.starttransaction;
      try
      qyearratio.ApplyUpdates;
      DatabaseJxw.commit;
      qyearratio.CommitUpdates ;
        //使编辑框和按钮有反应：
        LockEdit;
        EnableBtn ;
        btn_save.Enabled :=false;
        btn_cancel.Enabled :=false;
      except
        DatabaseJxw.Rollback;
        raise;
      end;
      end;
    end;
 {   qyearratio.Close ;
    qyearratio.Open ;
  }
end;