baseinfmain.~pas

彩票销售系统

unit baseinfmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, Buttons, ADODB, ExtCtrls, ToolWin,
  ComCtrls, Menus;

type
  Tbaseinf_form = class(TForm)
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    baseinf_q: TADOQuery;
    baseinf_d: TDataSource;
    BaseInf_DBGrid: TDBGrid;
    BitBtn3: TBitBtn;
    baseinf_qFId: TAutoIncField;
    baseinf_qFTranType: TIntegerField;
    baseinf_qFTranName: TStringField;
    baseinf_qFQuitCorpus: TStringField;
    baseinf_qFLossRatio: TBCDField;
    baseinf_qFWriteBillWin: TBCDField;
    baseinf_qFWriteBillLoss: TBCDField;
    baseinf_qFDivisor: TBCDField;
    baseinf_qFVisibleBz: TStringField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    editbase: TADOQuery;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1FTBaseId: TAutoIncField;
    ADOQuery1FTranType: TIntegerField;
    ADOQuery1FTranContent: TIntegerField;
    PopupMenu2: TPopupMenu;
    N6: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BaseInf_DBGridMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
  public
    { Public declarations }
  end;
  

var
  baseinf_form: Tbaseinf_form;

implementation
  uses NumberManger;
{$R *.dfm}

procedure Tbaseinf_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tbaseinf_form.FormShow(Sender: TObject);
begin
  baseinf_q.Close;
  baseinf_q.Open;
end;

procedure Tbaseinf_form.BaseInf_DBGridMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  querystr:string;
begin
  if baseinf_q.Fields[3].value='不退本金' then
  begin
    N1.Enabled:=True;N2.Enabled:=False;
  end
  else
  begin
    N1.Enabled:=false;N2.Enabled:=True;
  end;
  if baseinf_q.Fields[8].value='已启用' then
  begin
    N4.Enabled:=false;N5.Enabled:=true;
  end
  else
  begin
    N4.Enabled:=True;N5.Enabled:=False;
  end;
  querystr:='select * from T_BaseEntry where FTranType='''+floattostr(baseinf_q.Fieldbyname('FTranType').value)+'''';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(querystr) ;
  ADOQuery1.Open;
end;

procedure Tbaseinf_form.N1Click(Sender: TObject);
begin
  if application.MessageBox('该事务是否确定退本金?','系统提示',mb_yesno+mb_iconquestion)=id_yes  then
  begin
    editbase.Close;
    editbase.SQL.Clear;
    editbase.SQL.Add('update T_Base set FQuitCorpus=1 where FId='''+floattostr(baseinf_q.Fields[0].value)+'''');
    editbase.ExecSQL;
    editbase.Close;
    Application.MessageBox('数据已修改', '系统提示', 0 or MB_ICONINFORMATION);
    baseinf_q.Close;baseinf_q.open;
  end;
end;

procedure Tbaseinf_form.N2Click(Sender: TObject);
begin
  if application.MessageBox('该事务是否确定不退本金?','系统提示',mb_yesno+mb_iconquestion)=id_yes  then
  begin
    editbase.Close;
    editbase.SQL.Clear;
    editbase.SQL.Add('update T_Base set FQuitCorpus=0 where FId='''+floattostr(baseinf_q.Fields[0].value)+'''');
    editbase.ExecSQL;
    editbase.Close;
    Application.MessageBox('数据已修改', '系统提示', 0 or MB_ICONINFORMATION);
    baseinf_q.Close;baseinf_q.open;
  end;
end;

procedure Tbaseinf_form.N4Click(Sender: TObject);
begin
  if application.MessageBox('是否启用该事务?','系统提示',mb_yesno+mb_iconquestion)=id_yes  then
  begin
    editbase.Close;
    editbase.SQL.Clear;
    editbase.SQL.Add('update T_Base set FVisibleBz=1 where FId='''+floattostr(baseinf_q.Fields[0].value)+'''');
    editbase.ExecSQL;
    editbase.Close;
    Application.MessageBox('事务已启用', '系统提示', 0 or MB_ICONINFORMATION);
    baseinf_q.Close;baseinf_q.open;
  end;
end;

procedure Tbaseinf_form.N5Click(Sender: TObject);
begin
  if application.MessageBox('是否禁用该事务?','系统提示',mb_yesno+mb_iconquestion)=id_yes  then
  begin
    editbase.Close;
    editbase.SQL.Clear;
    editbase.SQL.Add('update T_Base set FVisibleBz=0 where FId='''+floattostr(baseinf_q.Fields[0].value)+'''');
    editbase.ExecSQL;
    editbase.Close;
    Application.MessageBox('事务已禁用', '系统提示', 0 or MB_ICONINFORMATION);
    baseinf_q.Close;baseinf_q.open;
  end;
end;

procedure Tbaseinf_form.N6Click(Sender: TObject);
var
  querystr:string;
begin
  if application.MessageBox('记录删除后不可恢复,是否删除该记录?','系统提示',mb_yesno+mb_iconquestion)=id_yes  then
  begin
    ADOQuery1.Delete;
    querystr:='select * from T_BaseEntry where FTranType='''+floattostr(baseinf_q.Fieldbyname('FTranType').value)+'''';
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(querystr) ;
    ADOQuery1.Open;
  end ;
end;

procedure Tbaseinf_form.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=OnMouseWheel; // 截获鼠标滚动事件
end;

Procedure Tbaseinf_form.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
  if Msg.message = WM_MouseWheel then
  begin
    if Msg.wParam > 0 then
     begin
       if DBGrid1.Focused then
         DataSource1.DataSet.Prior;
     end
    else
     begin
       if DBGrid1.Focused then
         DataSource1.DataSet.Next;
     end;
    Handled:= True;
  end;
end;

end.