userfm.pas

不管我的程序编得怎么样

unit userfm;

interface

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

type
  Tuserform = class(TForm)
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Panel2: TPanel;
    Image3: TImage;
    Panel3: TPanel;
    Image4: TImage;
    Panel4: TPanel;
    stbBMEM: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label19: TLabel;
    Label3: TLabel;
    edt_sex: TComboBox;
    Label33: TLabel;
    edt_name: TEdit;
    Label30: TLabel;
    Label22: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label32: TLabel;
    Label31: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    edt_money: TEdit;
    edt_hits: TEdit;
    edt_address: TEdit;
    edt_phone: TEdit;
    edt_card: TEdit;
    Label2: TLabel;
    edt_key: TEdit;
    edt_regtime: TDateTimePicker;
    edt_keyclass: TComboBox;
    Label4: TLabel;
    edt_pass: TEdit;
    edt_birthday: TDateTimePicker;
    Panel5: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    edt_pass1: TEdit;
    Panel6: TPanel;
    Label6: TLabel;
    cb_key: TComboBox;
    Label7: TLabel;
    keyword: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel7: TPanel;
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    E1: TMenuItem;
    D1: TMenuItem;
    Panel8: TPanel;
    Label8: TLabel;
    Label9: TLabel;
    edt_fu: TEdit;
    BitBtn5: TBitBtn;
    Panel9: TPanel;
    Image8: TImage;
    picopen: TOpenPictureDialog;
    edt_first: TEdit;
    edt_over: TEdit;
    edt_post: TMemo;
    Label10: TLabel;
    edt_box: TEdit;
    lb_pic: TLabel;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Label11: TLabel;
    f_name: TEdit;
    Label12: TLabel;
    f_phone: TEdit;
    Label13: TLabel;
    indate: TDateTimePicker;
    Label14: TLabel;
    jdpeople: TEdit;
    Label15: TLabel;
    okpeople: TEdit;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Panel10: TPanel;
    DBGrid2: TDBGrid;
    intime: TDateTimePicker;
    PopupMenu2: TPopupMenu;
    D2: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure edt_moneyKeyPress(Sender: TObject; var Key: Char);
    procedure E1Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn5Click(Sender: TObject);
    procedure Image8DblClick(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure D2Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
    procedure ClearEdit;
    procedure savesj;
    procedure showedit(G_sjid: string);
    procedure saveeditsj(G_sjid:string);
  public
    { Public declarations }
  end;

var
  userform: Tuserform;
  G_sjid:string;
  G_edit:boolean;
implementation
uses dmfm,loginfm;
{$R *.dfm}

procedure Tuserform.BitBtn1Click(Sender: TObject);
begin
clearedit;
G_edit:=false;
close;
end;

procedure Tuserform.BitBtn2Click(Sender: TObject);
begin
if (edt_name.text='') or (edt_key.Text='') then
 begin
    Application.MessageBox('请输入完整的信息！', '明宇提示', Mb_Ok or Mb_IconWarning);
    edt_name.SetFocus;
 end
else if (edt_pass.Text<>edt_pass1.Text) then
 begin
    Application.MessageBox('两次密码不相同！', '明宇提示', Mb_Ok or Mb_IconWarning);
    edt_pass.SetFocus;
 end
else
 if G_edit=true then
  begin
   saveeditsj(G_sjid);
  end
 else
  begin
  savesj;
  end;
end;

procedure Tuserform.saveeditsj(G_sjid:string);
begin
 with dm.aq_user do
  begin
   if Locate('id', G_sjid, []) then
    begin
     Edit;
     FieldByName('姓名').Asstring := edt_name.Text;
     FieldByName('性别').Asstring := edt_sex.Text;
     FieldByName('金额').Asstring := edt_money.Text;
     fieldbyname('首次').AsString :='无';
     fieldbyname('末次').AsString :='无';
     FieldByName('生日').Asstring := datetostr(edt_birthday.date);
     FieldByName('地址').Asstring := edt_address.Text;
     FieldByName('电话').Asstring := edt_phone.Text;
     FieldByName('证件').Asstring := edt_card.Text;
     FieldByName('备注').Asstring := edt_post.Text;
     FieldByName('卡号').Asstring := edt_key.Text;
     FieldByName('密码').Asstring := edt_pass.Text;
     FieldByName('类型').Asstring := edt_keyclass.Text;
     FieldByName('箱号').Asstring := edt_box.Text;
     FieldByName('实付').Asstring := edt_fu.Text;
     FieldByName('相片').Asstring := lb_pic.Caption;
     FieldByName('管理人员').Asstring := G_username;
     try
        Post;
        Application.MessageBox('数据修改成功!', '明宇提示', Mb_Ok or Mb_IconInformation);
        PageControl1.ActivePageIndex:=1;
        clearedit;
      except
        Application.MessageBox('数据修改失败!', '明宇提示', Mb_Ok or Mb_IconError);
      end;
    end;
  end;

end;

procedure Tuserform.savesj;
var
asql:string;
begin 
 with dm.aq_admin do
  begin
   close;
   sql.Clear;
   asql:='insert into 会员 (姓名,性别,金额,生日,地址,电话,证件,备注,卡号,密码,类型,注册日期,添加人员,箱号,实付,相片) values (:name,:sex,:money,:birthday,:address,:phone,:card,:posts,:key,:pass,:keyclass,:regtime,:user,:box,:fu,:pic)';
   sql.Add(asql);
   Parameters.ParamByName('name').Value:=edt_name.Text;
   parameters.ParamByName('sex').Value:=edt_sex.Text;
   parameters.ParamByName('money').value:=edt_money.Text;
   parameters.ParamByName('birthday').Value:=datetostr(edt_birthday.date);
   parameters.ParamByName('address').Value:=edt_address.Text;
   parameters.ParamByName('phone').Value:=edt_phone.Text;
   parameters.ParamByName('card').Value:=edt_card.Text;
   parameters.ParamByName('posts').Value:=edt_post.text;
   parameters.ParamByName('key').Value:=edt_key.Text;
   parameters.ParamByName('pass').Value:=edt_pass.Text;
   parameters.ParamByName('keyclass').Value:=edt_keyclass.Text;
   parameters.ParamByName('box').value:=edt_box.Text;
   parameters.ParamByName('fu').Value:=edt_fu.Text;
   parameters.ParamByName('pic').Value:=lb_pic.Caption;
   parameters.ParamByName('regtime').Value:=datetostr(edt_regtime.Date);
   parameters.ParamByName('user').Value:=G_username;
   try
    execsql;
    Application.MessageBox('会员添加成功！', '明宇提示', Mb_Ok or Mb_IconWarning);
    PageControl1.ActivePageIndex:=1;
    clearedit;
   except
    Application.MessageBox('会员添加失败！', '明宇提示', Mb_Ok or Mb_IconStop);
   end;
  end;
end;

procedure Tuserform.ClearEdit;//清除编辑框内的内容
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is Tedit then
    begin
      (Components[i] as Tedit).Clear;
    end;
  end;
  edt_money.Text:='0';
  edt_hits.Text:='0';
  edt_post.Text:='';
  lb_pic.Caption:='';
  image8.Picture :=nil;
end;



procedure Tuserform.FormShow(Sender: TObject);
begin 
  PageControl1.ActivePageIndex:=0;
  clearedit;
  edt_regtime.Date:=date;
  DBGrid1.Columns[0].Width:=110;
  DBGrid1.Columns[1].Width:=60;
  DBGrid1.Columns[2].Width:=60;
  DBGrid1.Columns[3].Width:=60;
  DBGrid1.Columns[4].Width:=100;
  DBGrid1.Columns[5].Width:=100;
  DBGrid1.Columns[6].Width:=100;
  DBGrid1.Columns[7].Width:=90;
  DBGrid1.Columns[8].Width:=60;
  DBGrid1.Columns[9].Width:=60;
  DBGrid1.Columns[10].Width:=80;
  DBGrid1.Columns[11].Width:=110;
  DBGrid1.Columns[12].Width:=60;
  DBGrid1.Columns[13].Width:=60;
  DBGrid1.Columns[14].Width:=0;
  stbBMEM.Panels.Items[0].Text:='当前操作员：'+G_username;
end;

procedure Tuserform.TabSheet2Show(Sender: TObject);
begin

with dm.aq_user do
 begin
  close;
  sql.Clear;
  sql.Add('select * from 会员 order by id desc');
  try
   open;
  except
  end;
  DBGrid1.Columns.Items[0].FieldName :='姓名';
  DBGrid1.Columns.Items[1].FieldName :='性别';
  DBGrid1.Columns.Items[2].FieldName :='金额';
  DBGrid1.Columns.Items[3].FieldName :='访问次数';
  DBGrid1.Columns.Items[4].FieldName :='首次';
  DBGrid1.Columns.Items[5].FieldName :='末次';
  DBGrid1.Columns.Items[6].FieldName :='卡号';
  DBGrid1.Columns.Items[7].FieldName :='类型'; 
  DBGrid1.Columns.Items[8].FieldName :='箱号';
  DBGrid1.Columns.Items[9].FieldName :='实付';
  DBGrid1.Columns.Items[10].FieldName :='注册日期';
  DBGrid1.Columns.Items[11].FieldName :='相片';
  DBGrid1.Columns.Items[12].FieldName :='添加人员';
  DBGrid1.Columns.Items[13].FieldName :='管理人员';
  DBGrid1.Columns.Items[14].FieldName :='id';

  stbBMEM.Panels.Items[0].Text:='共有 '+inttostr(RecordCount) + ' 名会员';
  stbBMEM.Panels.Items[1].Text:='当前时间 '+datetostr(date)
 end;
end;

procedure Tuserform.D1Click(Sender: TObject);