userfm.pas

不管我的程序编得怎么样

begin
with dm.aq_user do
 begin
  if RecordCount>0 then
   begin
     if application.MessageBox('是否真的删除?', '明宇提示', 4) = 6 then
     try
     G_sjid:=DBGrid1.DataSource.DataSet.FieldByName('id').asstring;
     close;
     sql.Clear;
     sql.Add('delete from 会员 where id='+G_sjid);
     //Parameters.ParamByName('G_sjid').Value:=G_sjid
     execsql;
     active:=false;
     Application.MessageBox('会员删除成功！', '明宇提示', Mb_Ok or Mb_IconInformation);
     except
       Application.MessageBox('会员删除失败！', '提示', Mb_Ok or Mb_IconStop);
     end;
   end;
   close;
   sql.Clear;
   sql.Add('select * from 会员 order by id desc');
   active:=true;
   stbBMEM.Panels.Items[0].Text:='共有 '+IntToStr(RecordCount) + ' 条信息';
 end;
end;



procedure Tuserform.edt_moneyKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8]) then Key := #0;
end;


procedure Tuserform.showedit(G_sjid: string);
begin
 with dm.aq_user do
  begin
   if Locate('id', G_sjid, []) then
    begin
    edt_name.Text:=fieldbyname('姓名').AsString;
    edt_sex.Text:=fieldbyname('性别').AsString;
    if G_flag=0 then
     begin
     edt_money.ReadOnly:=false;
     end
    else
     begin
     edt_money.ReadOnly:=true;
     end;
    edt_money.Text:=fieldbyname('金额').AsString;
    edt_hits.Text:=fieldbyname('访问次数').AsString;
    edt_address.Text:=fieldbyname('地址').AsString;
    edt_birthday.Date:=fieldbyname('生日').AsDateTime;
    edt_card.Text:=fieldbyname('证件').AsString; 
    edt_phone.Text:=fieldbyname('电话').AsString;
    edt_regtime.Date:=fieldbyname('注册日期').AsDateTime;
    edt_first.text:=fieldbyname('首次').Asstring;
    edt_over.text:=fieldbyname('末次').Asstring;
    edt_post.text:=fieldbyname('备注').asstring;
    edt_key.Text:=fieldbyname('卡号').AsString;
    edt_box.Text:=fieldbyname('箱号').AsString;
    edt_keyclass.Text:=fieldbyname('类型').AsString;
    edt_fu.Text:=fieldbyname('实付').AsString;
    edt_pass.Text:=fieldbyname('密码').AsString;
    edt_pass1.Text:=fieldbyname('密码').AsString;
    if fieldbyname('相片').AsString<>'' then
     begin 
    lb_pic.Caption:=fieldbyname('相片').AsString;
    lb_pic.Visible:=false;
    image8.Picture.LoadFromFile(fieldbyname('相片').asstring);
     end;
    end;
  end;
end;

procedure Tuserform.E1Click(Sender: TObject);
begin
G_edit:=true;
with dm.aq_user do
 begin
   G_sjid:=fieldbyname('id').AsString;
 end;
PageControl1.ActivePageIndex:=0;
end;

procedure Tuserform.TabSheet1Show(Sender: TObject);
begin
if G_edit=true then
 begin
  showedit(G_sjid);
 end
else
 begin
  edt_name.SetFocus;
end;
end;

procedure Tuserform.BitBtn3Click(Sender: TObject);
var
asql:string;
begin
if keyword.text<>'' then
 begin
  if cb_key.text='按卡号' then
   begin
    asql:='select * from 会员 where 卡号='''+keyword.text+'''';
   end
  else if cb_key.text='按姓名' then
   begin
    asql:='select * from 会员 where 姓名 like '''+keyword.text+'''';
   end;
 end
else
 begin
  asql:='select * from 会员 order by id desc';
 end;
with dm.aq_user do
 begin
  close;
  sql.Clear;
  sql.Add(asql);
  active:=true;
  try
   open;
  except
  end;
   stbBMEM.Panels.Items[0].Text:='共有 '+IntToStr(RecordCount) + ' 条信息';

 end;


 end;

procedure Tuserform.Image4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure Tuserform.BitBtn5Click(Sender: TObject);
begin
picopen.Execute; 
lb_pic.Visible:=false;
if picopen.FileName<>'' then
 begin
lb_pic.Caption:=picopen.FileName;
image8.Picture.LoadFromFile(picopen.filename);
end;
end;

procedure Tuserform.Image8DblClick(Sender: TObject);
begin
lb_pic.Caption:='';
image8.Picture :=nil;
end;

procedure Tuserform.TabSheet3Show(Sender: TObject);
begin
  f_name.Text:='';
  f_phone.Text:='';
  jdpeople.Text:=G_username;
  okpeople.Text:='';
  indate.Date:=date;
  intime.Time:=time;
  with dm.aq_fk do
 begin
  close;
  sql.Clear;
  sql.Add('select * from 访客 order by id desc');
  active:=true;
  try
   open;
  except
  end;
  DBGrid2.Columns.Items[0].FieldName :='姓名';
  DBGrid2.Columns.Items[1].FieldName :='电话';
  DBGrid2.Columns.Items[2].FieldName :='访期';
  DBGrid2.Columns.Items[3].FieldName :='接待人';
  DBGrid2.Columns.Items[4].FieldName :='确认人';
  DBGrid2.Columns.Items[5].FieldName :='是否会员';
  DBGrid2.Columns.Items[6].FieldName :='id';
  DBGrid2.Columns[0].Width :=100;
  DBGrid2.Columns[1].Width  :=100;
  DBGrid2.Columns[2].Width  :=150;
  DBGrid2.Columns[3].Width  :=100;
  DBGrid2.Columns[4].Width  :=100;
  DBGrid2.Columns[5].Width  :=100;
  DBGrid2.Columns[6].Width  :=0;

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

procedure Tuserform.BitBtn6Click(Sender: TObject);
var
asql:string;
begin
if (f_name.text='') or (f_phone.text='') then
 begin
 application.MessageBox('姓名或联系方式均不能为空!','明宇提示',48);
 f_name.SetFocus;
 end
else
 begin
  with dm.aq_fk do
   begin
   close;
   sql.Clear;
   asql:='insert into 访客 (姓名,电话,访期,接待人,确认人) values (:name,:phone,:dateandtime,:jdpeople,:okpeople)';
   sql.Add(asql);
   Parameters.ParamByName('name').Value:=f_name.Text;
   parameters.ParamByName('phone').Value:=f_phone.Text;
   parameters.ParamByName('dateandtime').Value:=datetostr(indate.Date)+' '+timetostr(intime.Time);
   parameters.ParamByName('jdpeople').Value:=jdpeople.Text;
   parameters.ParamByName('okpeople').Value:=okpeople.Text;
   try
   execsql;
   application.MessageBox('访客添加成功','明宇提示',48);
   f_name.Text:='';
   f_phone.Text:='';
   jdpeople.Text:=G_username;
   okpeople.Text:='';
   indate.Date:=date;
   intime.Time:=time;
   f_name.SetFocus;
   except
   application.MessageBox('访客添加失败','明宇提示',48);
   end;
   end;

 end;
 with dm.aq_fk do
 begin
  close;
  sql.Clear;
  sql.Add('select * from 访客 order by id desc');
  active:=true;
  try
   open;
  except
  end;
  DBGrid2.Columns.Items[0].FieldName :='姓名';
  DBGrid2.Columns.Items[1].FieldName :='电话';
  DBGrid2.Columns.Items[2].FieldName :='访期';
  DBGrid2.Columns.Items[3].FieldName :='接待人';
  DBGrid2.Columns.Items[4].FieldName :='确认人';
  DBGrid2.Columns.Items[5].FieldName :='是否会员';
  DBGrid2.Columns.Items[6].FieldName :='id';
  DBGrid2.Columns[0].Width :=100;
  DBGrid2.Columns[1].Width  :=100;
  DBGrid2.Columns[2].Width  :=150;
  DBGrid2.Columns[3].Width  :=100;
  DBGrid2.Columns[4].Width  :=100;
  DBGrid2.Columns[5].Width  :=100;
  DBGrid2.Columns[6].Width  :=0;

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

procedure Tuserform.D2Click(Sender: TObject);
var
G_fkid:string;
begin
with dm.aq_fk do
 begin
  if RecordCount>0 then
   begin
     if application.MessageBox('是否真的删除?', '明宇提示', 4) = 6 then
     try
     G_fkid:=DBGrid2.DataSource.DataSet.FieldByName('id').asstring;
     close;
     sql.Clear;
     sql.Add('delete from 访客 where id='+G_fkid);
     //Parameters.ParamByName('G_sjid').Value:=G_sjid
     execsql;
     active:=false;
     Application.MessageBox('访客删除成功！', '明宇提示', Mb_Ok or Mb_IconInformation);
     except
       Application.MessageBox('访客删除失败！', '提示', Mb_Ok or Mb_IconStop);
     end;
   end;
   close;
   sql.Clear;
   sql.Add('select * from 访客 order by id desc');
   active:=true;
   stbBMEM.Panels.Items[0].Text:='共有 '+IntToStr(RecordCount) + ' 名访客';
 end;
end;

procedure Tuserform.DBGrid2DblClick(Sender: TObject);
var
G_fkid:string;
begin
G_fkid:=DBGrid2.DataSource.DataSet.FieldByName('id').asstring;

with dm.aq_fk do
  begin
   if Locate('id', G_fkid, []) then
    begin
    edit;
    if fieldbyname('是否会员').AsString='√' then
     begin
    FieldByName('是否会员').Asstring := '';
     end
     else
      begin
      fieldbyname('是否会员').AsString:='√'
      end;
    try
    post;
    except
    end;
    end;
end;
end;
end.