infofm.pas

不管我的程序编得怎么样

unit infofm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, Grids, DBGrids, ComCtrls, ExtCtrls,
  jpeg, Menus;

type
  Tinfoform = class(TForm)
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Panel2: TPanel;
    Image3: TImage;
    Panel3: TPanel;
    Image4: TImage;
    Label1: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    StatusBar1: TStatusBar;
    Label2: TLabel;
    edt_card: TEdit;
    edt_name: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    edt_pass: TMaskEdit;
    ck_pass: TCheckBox;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    lb_name: TLabel;
    Label6: TLabel;
    lb_sex: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    lb_first: TLabel;
    lb_over: TLabel;
    Label9: TLabel;
    lb_birthday: TLabel;
    Label10: TLabel;
    lb_address: TLabel;
    Label11: TLabel;
    lb_regtime: TLabel;
    Label12: TLabel;
    lb_key: TLabel;
    Label13: TLabel;
    lb_keyclass: TLabel;
    Label14: TLabel;
    lb_money: TLabel;
    Label15: TLabel;
    lb_post: TLabel;
    BitBtn3: TBitBtn;
    TabSheet2: TTabSheet;
    Panel5: TPanel;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid3: TDBGrid;
    StatusBar3: TStatusBar;
    Panel6: TPanel;
    Label17: TLabel;
    cb_key: TComboBox;
    Label16: TLabel;
    keyword: TEdit;
    Button1: TButton;
    Button2: TButton;
    TabSheet3: TTabSheet;
    Button3: TButton;
    Panel7: TPanel;
    Label22: TLabel;
    Label24: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label30: TLabel;
    Label32: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label42: TLabel;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Button4: TButton;
    Button5: TButton;
    Panel8: TPanel;
    DBGrid2: TDBGrid;
    DBGrid4: TDBGrid;
    Button6: TButton;
    Button7: TButton;
    lbl_name: TLabel;
    Label26: TLabel;
    Label41: TLabel;
    Label18: TLabel;
    lbl_sex: TLabel;
    lbl_money: TLabel;
    lbl_key: TLabel;
    lbl_keyclass: TLabel;
    lbl_uptime: TLabel;
    Label19: TLabel;
    lb_num: TLabel;
    jzfs1: TRadioButton;
    jzfs2: TRadioButton;
    Label20: TLabel;
    Label21: TLabel;
    lb_hits: TLabel;
    lb_box: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TabSheet2Show(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure clearinfo;
  end;

var
  infoform: Tinfoform;
  v_name:string;
  v_sex:string;
  v_key:string;
  v_keyclass:string;
  v_money:string;
  v_regtime:string;
  over_ok:boolean;
  userid:string;
implementation
uses dmfm,xjfm,skfm;
{$R *.dfm}

procedure Tinfoform.clearinfo;
begin
edt_card.text:='';
edt_name.text:='';
edt_pass.text:='';
bitbtn1.Enabled:=false;
lb_name.Caption:='';
   v_name:='';
   lb_sex.Caption:='';
   v_sex:='';
   lb_hits.Caption:='';
   lb_box.caption:='';
   lb_first.Caption:='';
   lb_over.Caption:='';
   lb_birthday.Caption:='';
   lb_address.Caption:='';
   lb_regtime.Caption:='';
   lb_key.Caption:='';
   v_key:='';
   lb_keyclass.Caption:='';
   v_keyclass:='';
   lb_money.Caption:='';
   v_money:='';
   v_regtime:= '';
   lb_post.Caption:='';
   lb_num.Caption:='';
end;


procedure Tinfoform.BitBtn2Click(Sender: TObject);
var
asql:string;
begin
if (edt_card.text='') and (edt_name.Text='') then
 begin
  application.MessageBox('请填写查找条件','明宇提示',Mb_Ok or Mb_IconWarning);
  edt_card.SetFocus;
 end
else if (ck_pass.Checked=true) and (edt_pass.text='') then
 begin
  application.MessageBox('密码已启用请输入密码','明宇提示',Mb_Ok or Mb_IconWarning);
  edt_card.SetFocus;
 end
else
 begin
  if ck_pass.Checked=true then
   begin
    if edt_card.text<>'' then
     begin
      asql:='select * from 会员 where 卡号='''+edt_card.Text+''' and 密码='''+edt_pass.text+'''';
     end
    else
     begin
      asql:='select * from 会员 where 姓名='''+edt_name.Text+''' and 密码='''+edt_pass.text+'''';
     end;
   end
  else
   begin
    if edt_card.text<>'' then
     begin
      asql:='select * from 会员 where 卡号='''+edt_card.Text+'''';
     end
    else
     begin
      asql:='select * from 会员 where 姓名='''+edt_name.Text+'''';
     end;
   end;
 end;
 with dm.aq_user do
  begin
  close;
  sql.Clear;
  sql.Add(asql);
  try
   open;
   lb_name.Caption:=FieldValues['姓名'];
   lb_name.Width:=80;
   v_name:= FieldValues['姓名'];
   lb_sex.Caption:=FieldValues['性别'];
   v_sex:=FieldValues['性别'];
   lb_hits.Caption:=fieldvalues['访问次数'];
   lb_box.caption:=fieldvalues['箱号'];
   lb_first.Caption:=FieldValues['首次'];
   lb_over.Caption:=FieldValues['末次'];
   lb_birthday.Caption:=FieldValues['生日'];
   lb_address.Caption:=FieldValues['地址'];
   lb_address.Width:=233;
   lb_regtime.Caption:=FieldValues['注册日期'];
   lb_key.Caption:=FieldValues['卡号'];
   v_key:=FieldValues['卡号'];
   lb_keyclass.Caption:=FieldValues['类型'];
   v_keyclass:=FieldValues['类型'];
   lb_money.Caption:=FieldValues['金额'];
   v_money:=FieldValues['金额'];
   v_regtime:= FieldValues['注册日期'];
   lb_post.Caption:=FieldValues['备注'];
   lb_post.Width:=370;
   if v_name='' then
    begin
    bitbtn1.Enabled:=false;
    end
   else
    begin
    bitbtn1.Enabled:=true;
    end;
   if FieldValues['类型']='年卡' then
    begin
     if 365-(now-FieldValues['注册日期'])<0 then
      begin
       lb_num.Caption:='会员已到期，请续费!';
       lb_num.Width:=100;
       lb_num.Font.Color:=clred;
        bitbtn1.Enabled:=true;
       end
      else
       begin
        lb_num.Caption:=inttostr(365-(now-FieldValues['注册日期']));
        lb_post.Width:=40;
       end;
    end
   else if FieldValues['类型']='月卡' then
    begin
     if 30-(now-FieldValues['注册日期'])<0 then
      begin
       lb_num.Caption:='会员已到期，请续费!';
       lb_num.Width:=100;
       lb_num.Font.Color:=clred;
        bitbtn1.Enabled:=true;
       end
      else
       begin
        lb_num.Caption:=inttostr(30-(now-FieldValues['注册日期']));
        lb_post.Width:=40;
       end;
    end;
  except
  application.MessageBox('此会员不存在或密码错误!','明宇提示',Mb_Ok or Mb_IconWarning);
  edt_card.SetFocus;
  end;
  end;
end;

procedure Tinfoform.BitBtn3Click(Sender: TObject);
begin
clearinfo;
close;
end;

procedure Tinfoform.BitBtn1Click(Sender: TObject);
begin
 with dm.aq_user do
  begin
   if Locate('卡号', v_key, []) then
    begin
    edit;
    fieldbyname('首次').AsString:=datetimetostr(now);
    try
    post;
    except
    end;
   end;
  end;
 with dm.aq_online do
  begin
   close;
   sql.Clear;
   sql.Add('select * from 在线');
   try
   open;
   except
   end;
   if Locate('卡号',v_key,[]) then  //已登记
    begin
     Application.MessageBox('此用户已登记，不得重复登记','明宇提示',Mb_Ok or Mb_IconWarning);
    end
   else
    begin
     APPend;
     FieldByName('卡号').AsString := v_key;
     FieldByName('姓名').AsString := v_name;
     FieldByName('性别').AsString := v_sex;
     FieldByName('类型').AsString := v_keyclass;
     FieldByName('金额').AsString := v_money;
     Fieldbyname('注册日期').AsString:=v_regtime;
     FieldByName('登记日期').AsString := datetimetostr(now);
     try
        Post;
        Application.MessageBox('登记成功!', '提示', Mb_Ok or Mb_IconInformation);