fare.pas

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

unit fare;

interface

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

type
  Tfrm_fare = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    DBComboBox2: TDBComboBox;
    Panel2: 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;
    TabSheet2: TTabSheet;
    GroupBox2: TGroupBox;
    cbbsc: TComboBox;
    Panel3: TPanel;
    btn_brs: TButton;
    btn_qry: TButton;
    btn_clr: TButton;
    btn_prt: TButton;
    GroupBox6: TGroupBox;
    DBGrid1: TDBGrid;
    qfare: TQuery;
    dsfare: TDataSource;
    quse: TQuery;
    Label1: TLabel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Edit_1: TDBEdit;
    Edit_2: TDBEdit;
    Edit_3: TDBEdit;
    Edit_4: TDBEdit;
    Edit_5: TDBEdit;
    Edit_6: TDBEdit;
    Edit_7: TDBEdit;
    Edit_8: TDBEdit;
    Edit_9: TDBEdit;
    Edit_10: TDBEdit;
    Edit_11: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    Edit_15: TDBEdit;
    Edit_16: TDBEdit;
    Label16: TLabel;
    Label2: TLabel;
    Edit_17: TDBEdit;
    Edit_18: TDBEdit;
    Edit_19: TDBEdit;
    Edit_20: TDBEdit;
    Edit_21: TDBEdit;
    Edit_22: TDBEdit;
    Edit_23: TDBEdit;
    Edit_24: TDBEdit;
    Edit_25: TDBEdit;
    Edit_26: TDBEdit;
    Edit_27: TDBEdit;
    Edit_28: TDBEdit;
    Edit_29: TDBEdit;
    Edit_30: TDBEdit;
    Edit_31: TDBEdit;
    Edit_32: TDBEdit;
    Edit_48: TDBEdit;
    Edit_47: TDBEdit;
    Edit_46: TDBEdit;
    Edit_45: TDBEdit;
    Edit_44: TDBEdit;
    Edit_43: TDBEdit;
    Edit_42: TDBEdit;
    Edit_41: TDBEdit;
    Edit_40: TDBEdit;
    Edit_39: TDBEdit;
    Edit_38: TDBEdit;
    Edit_37: TDBEdit;
    Edit_36: TDBEdit;
    Edit_35: TDBEdit;
    Edit_34: TDBEdit;
    Edit_33: TDBEdit;
    Label51: TLabel;
    Label52: TLabel;
    DBComboBox1: TDBComboBox;
    MemoDBMemo: TDBMemo;
    GroupBox4: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    cbmonth: TComboBox;
    qfareBDEDesigner: TAutoIncField;
    qfareBDEDesigner2: TStringField;
    qfare_: TCurrencyField;
    qfare_2: TCurrencyField;
    qfare_3: TCurrencyField;
    qfare_4: TCurrencyField;
    qfare_5: TCurrencyField;
    qfare_6: TCurrencyField;
    qfare_7: TCurrencyField;
    qfare_8: TCurrencyField;
    qfare_9: TCurrencyField;
    qfare_10: TCurrencyField;
    qfare_11: TCurrencyField;
    qfare_12: TCurrencyField;
    qfare_13: TCurrencyField;
    qfare_14: TCurrencyField;
    qfare_15: TCurrencyField;
    qfare_16: TCurrencyField;
    qfare_17: TCurrencyField;
    qfare_18: TCurrencyField;
    qfare_19: TCurrencyField;
    qfare_20: TCurrencyField;
    qfare_21: TCurrencyField;
    qfare_22: TCurrencyField;
    qfare_23: TCurrencyField;
    qfare_24: TCurrencyField;
    qfare_25: TCurrencyField;
    qfare_26: TCurrencyField;
    qfare_27: TCurrencyField;
    qfare_28: TCurrencyField;
    qfare_29: TCurrencyField;
    qfare_30: TCurrencyField;
    qfare_31: TCurrencyField;
    qfare_32: TCurrencyField;
    qfare_33: TCurrencyField;
    qfare_34: TCurrencyField;
    qfare_35: TCurrencyField;
    qfare_36: TCurrencyField;
    qfare_37: TCurrencyField;
    qfare_38: TCurrencyField;
    qfare_39: TCurrencyField;
    qfare_40: TCurrencyField;
    qfare_41: TCurrencyField;
    qfare_42: TCurrencyField;
    qfare_43: TCurrencyField;
    qfare_44: TCurrencyField;
    qfare_45: TCurrencyField;
    qfare_46: TCurrencyField;
    qfare_47: TCurrencyField;
    qfare_48: TCurrencyField;
    qfareBDEDesigner3: TMemoField;
    qfareBDEDesigner4: TStringField;
    qfareBDEDesigner5: TStringField;
    qfareBDEDesigner6: TStringField;
    qfareBDEDesigner7: TStringField;
    qfareBDEDesigner8: TStringField;
    qfareBDEDesigner9: TDateTimeField;
    Label50: TLabel;
    upfare: TUpdateSQL;
    DBComboBox3: TDBComboBox;
    cbyear: TComboBox;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label4: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Queryforuse: TQuery;
    procedure TabSheet2Enter(Sender: TObject);
    procedure btn_brsClick(Sender: TObject);
    procedure btn_qryClick(Sender: TObject);
    procedure btn_clrClick(Sender: TObject);

    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 qfareCalcFields(DataSet: TDataSet);
    procedure btn_prtClick(Sender: TObject);
    procedure qfareAfterOpen(DataSet: TDataSet);
    procedure FormDestroy(Sender: TObject);

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

var
  Frm_fare: Tfrm_fare;

implementation

uses  data, rp_fare;



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

//***************以下是自定义的按纽和编辑的可否应用部分*********************
//自定义过程，用来确定每个Edit空间是否可以编辑
procedure Tfrm_fare.LockEdit;
begin
{    Edit_1.readonly:=true;
    Edit_2.readonly:=true;
    Edit_3.readonly:=true;
    Edit_4.readonly:=true;
    Edit_5.readonly:=true;
    Edit_6.readonly:=true;
    Edit_7.readonly:=true;
    Edit_8.readonly:=true;
    Edit_9.readonly:=true;
    Edit_10.readonly:=true;
    Edit_11.readonly:=true;
    DBEdit3.readonly:=true;
    DBEdit2.readonly:=true;
    DBEdit1.readonly:=true;
    Edit_15.readonly:=true;
    Edit_16.readonly:=true;
    Edit_17.readonly:=true;
    Edit_18.readonly:=true;
    Edit_19.readonly:=true;
    Edit_20.readonly:=true;
    Edit_21.readonly:=true;
    Edit_22.readonly:=true;
    Edit_23.readonly:=true;
    Edit_24.readonly:=true;
    Edit_25.readonly:=true;
    Edit_26.readonly:=true;
    Edit_27.readonly:=true;
    Edit_28.readonly:=true;
    Edit_29.readonly:=true;
    Edit_30.readonly:=true;
    Edit_31.readonly:=true;
    Edit_32.readonly:=true;
    Edit_48.readonly:=true;
    Edit_47.readonly:=true;
    Edit_46.readonly:=true;
    Edit_45.readonly:=true;
    Edit_44.readonly:=true;
    Edit_43.readonly:=true;
    Edit_42.readonly:=true;
    Edit_41.readonly:=true;
    Edit_40.readonly:=true;
    Edit_39.readonly:=true;
    Edit_38.readonly:=true;
    Edit_37.readonly:=true;
    Edit_36.readonly:=true;
    Edit_35.readonly:=true;
    Edit_34.readonly:=true;
Edit_33.readonly:=true;
DBComboBox3.readonly:=true;
DBComboBox1.readonly:=true;
DBComboBox2.readonly:=true;
DBEdit7.readonly:=true;
DBEdit8.readonly:=true;
DBEdit9.readonly:=true;
DBEdit10.ReadOnly :=true;}
panel1.Enabled :=false;

end;

procedure Tfrm_fare.UnlockEdit ;
begin
{    Edit_1.readonly:=false;
    Edit_2.readonly:=false;
    Edit_3.readonly:=false;
    Edit_4.readonly:=false;
    Edit_5.readonly:=false;
    Edit_6.readonly:=false;
    Edit_7.readonly:=false;
    Edit_8.readonly:=false;
    Edit_9.readonly:=false;
    Edit_10.readonly:=false;
    Edit_11.readonly:=false;
    DBEdit3.readonly:=false;
    DBEdit2.readonly:=false;
    DBEdit1.readonly:=false;
    Edit_15.readonly:=false;
    Edit_16.readonly:=false;
    Edit_17.readonly:=false;
    Edit_18.readonly:=false;
    Edit_19.readonly:=false;
    Edit_20.readonly:=false;
    Edit_21.readonly:=false;
    Edit_22.readonly:=false;
    Edit_23.readonly:=false;
    Edit_24.readonly:=false;
    Edit_25.readonly:=false;
    Edit_26.readonly:=false;
    Edit_27.readonly:=false;
    Edit_28.readonly:=false;
    Edit_29.readonly:=false;
    Edit_30.readonly:=false;
    Edit_31.readonly:=false;
    Edit_32.readonly:=false;
    Edit_48.readonly:=false;
    Edit_47.readonly:=false;
    Edit_46.readonly:=false;
    Edit_45.readonly:=false;
    Edit_44.readonly:=false;
    Edit_43.readonly:=false;
    Edit_42.readonly:=false;
    Edit_41.readonly:=false;
    Edit_40.readonly:=false;
    Edit_39.readonly:=false;
    Edit_38.readonly:=false;
    Edit_37.readonly:=false;
    Edit_36.readonly:=false;
    Edit_35.readonly:=false;
    Edit_34.readonly:=false;
    Edit_33.readonly:=false;
        DBComboBox3.readonly:=false;
        DBComboBox1.readonly:=false;
        DBComboBox2.readonly:=false;
        DBEdit7.readonly:=false;
        DBEdit8.readonly:=false;
        DBEdit9.readonly:=false;
       DBEdit10.ReadOnly :=true;}
       panel1.Enabled :=true;

end;


procedure Tfrm_fare.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_fare.EnableBtn ;
begin
    btn_first.Enabled :=true;
    btn_prev.Enabled :=true;
    btn_next.Enabled :=true;
    btn_last.Enabled :=true;

    btn_addnew.Enabled :=true;