unit_config.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_Config;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, Db, DBTables, Mask, DBCtrls,
  ComCtrls, TFlatButtonUnit, TFlatEditUnit;

type
  TFrm_Config = class(TForm)
    DBGrid_PUB: TDBGrid;
    Pal_button: TPanel;
    Panel2: TPanel;
    DataSource_Pub: TDataSource;
    Label3: TLabel;
    Query_PUB: TQuery;
    BitBtnAdd: TFlatButton;
    BitBtnAlter: TFlatButton;
    BitBtnDel: TFlatButton;
    BitBtnSave: TFlatButton;
    BitBtnCancel: TFlatButton;
    BitBtnClose: TFlatButton;
    FlatEdit1: TFlatEdit;
    Query_Tmp: TQuery;
    procedure BitBtnCloseClick(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure SetBitBtn( ReadState : Boolean);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid_PUBCellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sqlcommit;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }

  public
    kk : integer;
    { Public declarations }
  end;

var
  Frm_Config: TFrm_Config;

implementation

{$R *.DFM}

uses Main,crypt,procedurep;

procedure  TFrm_Config.SetBitBtn( ReadState : Boolean);
begin
  BitBtnAdd.Enabled:=ReadState;
  BitBtnAlter.Enabled:=ReadState;
  BitBtnDel.Enabled:=ReadState;
  BitBtnSave.Enabled:=not ReadState;
  BitBtnCancel.Enabled:=not ReadState;
end;

procedure TFrm_Config.BitBtnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Config.BitBtnDelClick(Sender: TObject);
begin

//  if Application.MessageBox('即将删除该记录,'+#13+'是否真的要删除该记录？','注意',MB_OKCANCEL)=ID_OK then
  //  begin
    //  try
      //  Table_PUB.Delete;
        //Table_PUB.Edit;
        //Table_PUB.Post;
      //except
      //end;
   // end;
//  SetBitBtn(true);
end;

procedure TFrm_Config.BitBtnCancelClick(Sender: TObject);
begin
  SetBitBtn(true);
end;

procedure TFrm_Config.BitBtn1Click(Sender: TObject);
begin
{  kk:=1;
  ShowMessage(' 请选择日期，并且输入节日内容! ');
  Query_PUB.Close;
  Query_PUB.SQL.Clear;
  Query_PUB.SQL.Add(' select jrdm_zseq.nextval xlh from dual');
  Query_PUB.Open;
  //Label4.Caption:=QueryPUB.fieldbyname('xlh').AsString;
  with Table_PUB do
  begin
    if Not Active then
       Active:=true;
    Edit;
    Append;
  end;
  SetBitBtn(false);     }
end;

procedure TFrm_Config.DBGrid_PUBCellClick(Column: TColumn);
begin
   //Label4.Caption:=TableJR.fieldbyname('jrdm').AsString;
   //DateTimePicker1.DateTime:=Table_PUB.fieldbyname('jrrq').AsDateTime;
  // FlatEdit1.Text:=Table_PUB.fieldbyname('jrlr').AsString;
end;

procedure TFrm_Config.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //crypt.UserEnter_Log(Caption,'浏览',0,Gh,'登入窗体');
  Action := CaFree;
end;

procedure TFrm_Config.sqlcommit;
begin
  query_Tmp.close;
  query_Tmp.sql.clear;
  query_Tmp.SQL.Add('commit');
  query_Tmp.Execsql;
end;

procedure TFrm_Config.FormShow(Sender: TObject);
begin
  If Not Query_PUB.Active Then
    Query_Pub.Active:=True; 
end;

end.