main.pas

类似于安利公司的奖金制度下的会员层次关系、会员级别、会员奖金等

unit main;    //主程序

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, ExtCtrls, Grids, DBGrids,
  Menus, member_input, member_upgrade, Data_Unit1, Fudao_Setup, guanli_Setup,
  jiangjinfafang, jiangjin_chaxun, select_member, ToolWin, jiesuan_month,
  jpeg, OleServer, Excel2000;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Panel1: TPanel;
    DBText1: TDBText;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBMemo1: TDBMemo;
    Button3: TButton;
    Panel3: TPanel;
    Button1: TButton;
    Panel4: TPanel;
    TreeView1: TTreeView;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Button2: TButton;
    Button4: TButton;
    Panel2: TPanel;
    TreeView2: TTreeView;
    Button5: TButton;
    Panel5: TPanel;
    RadioGroup2: TRadioGroup;
    Edit2: TEdit;
    Button6: TButton;
    Button7: TButton;
    Panel6: TPanel;
    Label16: TLabel;
    Button9: TButton;
    N2: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Button10: TButton;
    Panel7: TPanel;
    Image1: TImage;
    ExcelApplication1: TExcelApplication;
    StringGrid1: TStringGrid;
    procedure N6Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure TreeView2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    function confirmdelete:boolean;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure ChangeFonts(OldFormWidth:integer;NewFormWidth:integer);
  private
    { Private declarations }
  public

  end;

var
  Form1: TForm1;
  WhichButtonClick:integer;

implementation

type
  TFooClass = class(TControl); { needed to get at protected }
                             { font property }
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;

procedure TForm1.ChangeFonts(OldFormWidth:integer;NewFormWidth:integer);
var
i: integer;
begin
  NewFormWidth := longint(width) * longint(screen.width) div ScreenWidth;
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
      (NewFormWidth div OldFormWidth) *
      TFooClass(Controls[i]).Font.Size;
end;

{$R *.dfm}

function TForm1.confirmdelete:boolean;  //删除确认模块
begin
   if Application.MessageBox('删除本会员，将同时删除上级会员奖金，确认吗？','操作确认',MB_OKCANCEL + MB_DEFBUTTON1) = IDOK then
     Result := true
   else Result :=  false;
end;

procedure TForm1.N6Click(Sender: TObject); //新会员录入
begin
    Application.CreateForm(TForm2,Form2);
    if Form2.Tag = 1 then
      try
        Form2.ShowModal;
      finally
        Form2.Release;
      end
    else
      Form2.Release;
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
    with DataModule1.ADOQuery2 do begin
      close;
      SQL.Clear;
      if TreeView1.Selected.Index = 9 then
        SQL.Add('select * from member')
      else begin
        SQL.Add('select * from member where class = :AA1');
        Parameters.ParamValues['AA1'] := TreeView1.Selected.Index;
      end;
      open;
    end;
    case TreeView1.Selected.Index of
      0: Label1.Caption := '普通会员机构列表：';
      1: Label1.Caption := '青铜级会员机构列表：';
      2: Label1.Caption := '白银级会员机构列表：';
      3: Label1.Caption := '黄金级会员机构列表：';
      4: Label1.Caption := '白金级会员机构列表：';
      5: Label1.Caption := '钻石级会员机构列表：';
      6: Label1.Caption := 'C级股东会员机构列表：';
      7: Label1.Caption := 'B级股东会员机构列表：';
      8: Label1.Caption := 'A级股东会员机构列表：';
      9: Label1.Caption := '所有会员列表：';
    end;
end;
procedure TForm1.TreeView2Click(Sender: TObject);
begin
    with DataModule1.ADOQuery2 do begin
      close;
      SQL.Clear;
      if TreeView2.Selected.Index = 9 then
        SQL.Add('select * from member')
      else begin
        SQL.Add('select * from member where class = :AA1');
        Parameters.ParamValues['AA1'] := TreeView2.Selected.Index;
      end;
      open;
      open;
    end;
    case TreeView2.Selected.Index of
      0: Label1.Caption := '普通会员机构列表：';
      1: Label1.Caption := '青铜级会员机构列表：';
      2: Label1.Caption := '白银级会员机构列表：';
      3: Label1.Caption := '黄金级会员机构列表：';
      4: Label1.Caption := '白金级会员机构列表：';
      5: Label1.Caption := '钻石级会员机构列表：';
      6: Label1.Caption := 'C级股东会员机构列表：';
      7: Label1.Caption := 'B级股东会员机构列表：';
      8: Label1.Caption := 'A级股东会员机构列表：';
      9: Label1.Caption := '所有会员列表：';
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);  //删除会员信息
begin
    with DataModule1.ADOQuery3 do begin
      close;
      Parameters.ParamValues['AA1'] := DataModule1.ADOQuery2.FieldValues['member_id'];
      open;
    end;
    if DataModule1.ADOQuery3.Recordset.RecordCount > 0 then showmessage('本会员有下属会员，不能删除！')
    else begin
      with DataModule1.ADOQuery_jiangjin do begin
        close;
        SQL.Clear;
        SQL.Add('select id from jiangjin where lower_id = "'+DataModule1.ADOQuery2.FieldValues['member_id']+'" and sign_month = True');
        open;
      end;
      if DataModule1.ADOQuery_jiangjin.Recordset.RecordCount > 0 then showmessage('上级会员的奖金已结算，不能删除！')
      else begin
        if confirmdelete then begin
          with DataModule1.ADOdel_member1 do begin
            SQL.Clear;
            SQL.Add('delete from member where member_id = "'+DataModule1.ADOQuery2.FieldValues['member_id']+'"');
            ExecSQL;
            SQL.Clear;
            SQL.Add('delete from jiangjin where lower_id = "'+DataModule1.ADOQuery2.FieldValues['member_id']+'"');
            ExecSQL;
          end;
          DataModule1.ADOQuery2.Close;
          DataModule1.ADOQuery2.open;
        end;
      end;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Label1.Caption := '会员机构查询';
    DataModule1.ADOQuery2.close;
    DataModule1.ADOQuery2.SQL.Clear;
    case RadioGroup1.ItemIndex of
    0: begin
         DataModule1.ADOQuery2.SQL.Add('Select * from member where member_id = "' + Edit1.Text +'"');
       end;
    1: begin
         DataModule1.ADOQuery2.SQL.Add('Select * from member where name like "%' + Edit1.Text +'%"');
       end;
    2: begin
         DataModule1.ADOQuery2.SQL.Add('Select * from member where person like "%' + Edit1.Text +'%"');
       end;
    3: begin
         DataModule1.ADOQuery2.SQL.Add('Select * from member where (handphone like "%' + Edit1.Text +
                 '%") or (telephone like "%' + Edit1.Text + '%")');
       end;
    end;
    DataModule1.ADOQuery2.open;

end;

procedure TForm1.Button1Click(Sender: TObject);