uni_tieinsetup.~pas

来自「一个非常不错的经费报销管理软件」· ~PAS 代码 · 共 130 行

unit Uni_TieinSetup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ToolWin, Grids, DBGridEh, Menus, DB,
  StdCtrls, Mask, DBCtrls, XPMenu;

type
  TFrm_TieinSetup = class(TForm)
    DBGridEh1: TDBGridEh;
    TB_Main: TToolBar;
    TB_Insert: TToolButton;
    TB_Update: TToolButton;
    TB_Delete: TToolButton;
    TB_Post: TToolButton;
    TB_Cancel: TToolButton;
    TB_Refresh: TToolButton;
    TB_Help: TToolButton;
    TB_Close: TToolButton;
    P_Edit: TPanel;
    PopupMenu1: TPopupMenu;
    N_State: TMenuItem;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    dsbsTieinSetup: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    TB_Net: TToolButton;
    XPMenu1: TXPMenu;
    procedure N_StateClick(Sender: TObject);
    procedure TB_InsertClick(Sender: TObject);
    procedure TB_UpdateClick(Sender: TObject);
    procedure TB_PostClick(Sender: TObject);
    procedure TB_CancelClick(Sender: TObject);
    procedure TB_CloseClick(Sender: TObject);
    procedure TB_RefreshClick(Sender: TObject);
    procedure TB_DeleteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TB_NetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_TieinSetup: TFrm_TieinSetup;

implementation

{$R *.dfm}
uses Uni_dm,Uni_Function,Uni_Main;

procedure TFrm_TieinSetup.N_StateClick(Sender: TObject);
var
  i:Integer;
begin
  for i :=0  to TB_Main.ButtonCount-1  do TB_Main.Buttons[i].Enabled:=not TB_Main.Buttons[i].Enabled;
  P_Edit.Visible:=TB_Post.Enabled;

end;

procedure TFrm_TieinSetup.TB_InsertClick(Sender: TObject);
begin

  N_StateClick(Sender);
  TB_RefreshClick(Sender);
  DM.bsTieinSetup.Insert;
  
end;

procedure TFrm_TieinSetup.TB_UpdateClick(Sender: TObject);
begin
  N_StateClick(Sender);
end;

procedure TFrm_TieinSetup.TB_PostClick(Sender: TObject);
begin
  N_StateClick(Sender);
  try DM.bsTieinSetup.Post; except end;

end;

procedure TFrm_TieinSetup.TB_CancelClick(Sender: TObject);
begin
  N_StateClick(Sender);
  try DM.bsTieinSetup.Cancel; except end;
end;

procedure TFrm_TieinSetup.TB_CloseClick(Sender: TObject);
begin
  Close;//关闭
end;

procedure TFrm_TieinSetup.TB_RefreshClick(Sender: TObject);
begin
  //刷新
  DM.bsTieinSetup.Close;
  DM.bsTieinSetup.Open;
end;

procedure TFrm_TieinSetup.TB_DeleteClick(Sender: TObject);
begin
  IF MessageDlg('确认删除该帐套的接口设置吗？',mtConfirmation,[mbYes,mbNo],0)=MRNO then Exit;
  if not DM.bsTieinSetup.IsEmpty then DM.bsTieinSetup.Delete;
  
end;

procedure TFrm_TieinSetup.FormShow(Sender: TObject);
begin
  TB_RefreshClick(Sender);
end;

procedure TFrm_TieinSetup.TB_NetClick(Sender: TObject);
begin
  TieDataOpen;
end;

end.