infofm.pas

不管我的程序编得怎么样

      except
        Application.MessageBox('登记失败!', '提示', Mb_Ok or Mb_IconError);
      end;
    end;
  end;
end;

procedure Tinfoform.TabSheet1Show(Sender: TObject);
begin
v_key:='';
v_sex:='';
  v_keyclass:='';
  v_money:='';
  v_regtime:='';
over_ok:=false;
with dm.aq_online do
 begin
  close;
  sql.Clear;
  sql.Add('select * from 在线 order by id asc');
  active:=true;
  try
  open;
  except
  end;
  dbgrid1.columns[0].Width:=150;
  dbgrid1.columns[1].Width:=110;
  dbgrid1.columns[2].Width:=60;
  dbgrid1.columns[3].Width:=110;
  dbgrid1.columns[4].Width:=110;
  dbgrid1.columns[5].Width:=60;
  dbgrid1.columns[6].Width:=110;
  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:='登记日期';

  StatusBar1.Panels.Items[0].Text:='共有 '+inttostr(RecordCount)+' 名客人';

 end;
end;



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

procedure Tinfoform.TabSheet2Show(Sender: TObject);
begin

  dbgrid3.columns[0].Width:=150;
  dbgrid3.columns[1].Width:=110;
  dbgrid3.columns[2].Width:=60;
  dbgrid3.columns[3].Width:=110; 
  dbgrid3.columns[4].Width:=110;
  dbgrid3.columns[5].Width:=60;
  dbgrid3.columns[6].Width:=110;
  
with dm.aq_online do
 begin
  close;
  sql.Clear;
  sql.Add('select * from 在线 order by id asc');
  active:=true;
  try
  open;
  except
  end;
  dbgrid3.Columns.Items[0].FieldName:='卡号';
  dbgrid3.Columns.Items[1].FieldName:='姓名';
  dbgrid3.Columns.Items[2].FieldName:='性别';
  dbgrid3.Columns.Items[3].FieldName:='类型';
  dbgrid3.Columns.Items[4].FieldName:='注册日期';
  dbgrid3.Columns.Items[5].FieldName:='金额';
  dbgrid3.Columns.Items[6].FieldName:='登记日期';

  StatusBar3.Panels.Items[0].Text:='共有 '+inttostr(RecordCount)+' 名客人';

 end;
end;



procedure Tinfoform.Button1Click(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_online do
 begin
  close;
  sql.Clear;
  sql.Add(asql);
  active:=true;
  try
   open;
  except
  end;
   StatusBar3.Panels.Items[0].Text:='共有 '+IntToStr(RecordCount) + ' 条信息';

 end;

end;

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

procedure Tinfoform.Button3Click(Sender: TObject);
begin
over_ok:=true;
with dm.aq_online do
 begin
   userid:=fieldbyname('id').AsString;
 end;
PageControl1.ActivePageIndex:=2;
end;

procedure Tinfoform.TabSheet3Show(Sender: TObject);
begin
if over_ok=false then
 begin
  application.MessageBox('请选择客人才能结帐','明宇提示',Mb_Ok or Mb_IconError);
  //PageControl1.ActivePageIndex:=1;
 end
else
 begin
  with dm.aq_online do
   begin
    close;
    sql.Clear;
    sql.Add('select * from 在线 where id='+userid);
    try
     open;
     lbl_name.Caption:=FieldValues['姓名'];
     lbl_name.Width:=90;
     lbl_sex.Caption:=FieldValues['性别'];
     lbl_sex.Width:=70;
     lbl_money.Caption:=FieldValues['金额'];
     lbl_money.Width:=70;
     lbl_key.Caption:=FieldValues['卡号'];
     lbl_key.Width:=190;
     lbl_keyclass.Caption:=FieldValues['类型'];
     lbl_keyclass.Width:=70;
     lbl_uptime.Caption:=FieldValues['登记日期'];
     lbl_uptime.Width:=170;
    except
    end;
   end;
   with dm.aq_xm do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 项目 order by id asc');
    try
     open;
     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[0].Width:=100; 
     DBGrid2.Columns[1].Width:=50;
     DBGrid2.Columns[2].Width:=50;
     DBGrid2.Columns[3].Width:=50;
     DBGrid2.Columns[4].Width:=50;
     DBGrid2.Columns[5].Width:=50;
    except;
    end;
    end;
   with dm.aq_xm_yes do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 消费项目 where userid='+userid);
    try
     open;
     DBGrid4.Columns.Items[0].FieldName :='名称';
     DBGrid4.Columns.Items[1].FieldName :='单价';
     DBGrid4.Columns.Items[2].FieldName :='单位';
     DBGrid4.Columns[0].Width:=150;
     DBGrid4.Columns[1].Width:=50;
     DBGrid4.Columns[2].Width:=50;
    except;
    end;
    end;
 end;
end;

procedure Tinfoform.FormCreate(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
bitbtn1.Enabled:=false;
v_key:='';
v_sex:='';
  v_key:='';
  v_keyclass:='';
  v_money:='';
  v_regtime:='';
end;

procedure Tinfoform.Button4Click(Sender: TObject);
var
s_id  :string;
s_name,s_money,s_dw,asql,s_kc:string;
begin
 with dm.aq_xm do
 begin
 s_id:=fieldbyname('id').AsString;
 close;
 sql.Clear;
 sql.Add('select * from 项目 where id='+s_id);
 try
 open;
 s_name:=FieldValues['名称'];
 s_money:=FieldValues['单价'];
 s_dw:=FieldValues['单位'];
 s_kc:=fieldvalues['库存'];
 except
 end;
 end;
with dm.aq_xm_yes do
 begin
 close;
 sql.Clear;
 asql:='insert into 消费项目 (userid,名称,单价,单位) values (:s_id,:name,:money,:dw)';
 sql.Add(asql);
 parameters.ParamByName('s_id').Value:=userid;
 Parameters.ParamByName('name').Value:=s_name;
 Parameters.ParamByName('money').Value:=s_money;
 Parameters.ParamByName('dw').Value:=s_dw;
 try
  execsql;
 except
 end;
 end;

with dm.aq_xm do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 项目 order by id asc');
    try
     open;
     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[0].Width:=100;
     DBGrid2.Columns[1].Width:=50;
     DBGrid2.Columns[2].Width:=50;
     DBGrid2.Columns[3].Width:=50;
     DBGrid2.Columns[4].Width:=50;
     DBGrid2.Columns[5].Width:=50;
    except;
    end;
    end;

    
   with dm.aq_xm_yes do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 消费项目 where userid='+userid);
    try
     open;
     DBGrid4.Columns.Items[0].FieldName :='名称';
     DBGrid4.Columns.Items[1].FieldName :='单价';
     DBGrid4.Columns.Items[2].FieldName :='单位';
     DBGrid4.Columns[0].Width:=150;
     DBGrid4.Columns[1].Width:=50;
     DBGrid4.Columns[2].Width:=50;
    except;
    end;
    end;
end;

procedure Tinfoform.Button5Click(Sender: TObject);
var
xmid:string;
begin
with dm.aq_xm_yes do
 begin
  xmid:=DBGrid4.DataSource.DataSet.FieldByName('id').asstring;
  close;
  sql.Clear;
  sql.Add('delete from 消费项目 where id='+xmid);
  execsql;
  active:=false ;
  
   close;
   sql.Clear;
   sql.Add('select * from 消费项目 where userid='+userid);
   active:=true;
 end;
end;

procedure Tinfoform.Button6Click(Sender: TObject);
begin
if application.MessageBox('是否确认结帐', '明宇提示', 4) = 6 then
 begin
  if jzfs1.Checked=true then
   begin
    xjform.ShowModal;
   end
  else if jzfs2.Checked=true  then
   begin
    skform.ShowModal;
   end;
 end;
end;

end.