xhunit.pas

很好用的一个票据管理系统

   if ((edit1.Text <> '') and (edit2.Text <> '') and (edit3.Text <>'')) then
   begin
    edit3.Text:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit1.Text)*unm+strtofloat(edit2.Text)-1);
   end
   else
     exit;
end;

procedure TXhForm.combobox1keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
  begin
    datetimepicker1.SetFocus;
  end;
end;

procedure TXhForm.datetimepicker1keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key = vk_return then
  begin
    edit1.SetFocus;
  end;
  if key = vk_up then
  begin
    combobox1.SetFocus;
  end;    
end;

procedure TXhForm.edit1keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return) or (key = vk_down) then
  begin
     edit2.SetFocus;
  end;
  if key = vk_up then
  begin
     datetimepicker1.SetFocus;
  end;   
end;

procedure TXhForm.edit2keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return) or (key = vk_down) then
   begin
     edit3.SetFocus;
   end;
   if key =vk_up then
   begin
     edit1.SetFocus;
   end;
end;

procedure TXhForm.edit3keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (key=vk_return) or (key = vk_down) then
  begin
    combobox2.SetFocus;
  end;
  if key=vk_up then
  begin
    edit2.SetFocus;
  end;
end;

procedure TXhForm.combobox2keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=vk_return then
  begin
    edit4.SetFocus;
  end;
  if key=vk_up then
  begin
     edit3.SetFocus;
  end;   
end;

procedure TXhForm.edit4keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (key = vk_return) or (key = vk_down) then
  begin
    Button1.SetFocus;
  end;
  if key=vk_up then
  begin
    edit3.SetFocus;
  end;
end;

procedure TXhForm.dbgrideh3cellclick(Column: TColumnEh);
begin
   with dmdata.xhADOQuery do
   begin
     if RecordCount > 0 then
      begin
        idlabel.Caption:=floattostr(dmdata.xhADOQuery.fieldbyname('qt').AsInteger);
        edit1.Text:=floattostr(dmdata.xhADOQuery.fieldbyname('sl').AsInteger);
        edit2.Text:=dmdata.xhADOQuery.fieldbyname('qxhm').AsString;
        edit3.Text:=dmdata.xhADOQuery.fieldbyname('jxhm').AsString;
        combobox2.Text:= dmdata.xhADOQuery.fieldbyname('dwbm').AsString;
        edit4.Text:=dmdata.xhADOQuery.fieldbyname('xhr').AsString;
        id:=dmdata.xhADOQuery.fieldbyname('id').AsInteger;
        ql_id:=dmdata.xhADOQuery.fieldbyname('ql_id').AsString;
        sl:= dmdata.xhADOQuery.fieldbyname('sl').AsInteger;
        qxhm:=dmdata.xhADOQuery.fieldbyname('qxhm').AsString;
        jxhm:=dmdata.xhADOQuery.fieldbyname('jxhm').AsString;
        ms_id:=dmdata.xhAdoquery.fieldbyname('ms_id').asinteger;
        lybm:=dmdata.xhADOQuery.fieldbyname('hxbm').AsString;
        qt:=dmdata.xhADOQuery.fieldbyname('qt').AsInteger;
        lyr:=dmdata.xhADOQuery.fieldbyname('xhr').AsString;
      end;
    end;
   with dmdata.BjqlADOQuery do
   begin
     close;
     sql.Clear;
     sql.Add('select * from t_bjql where km= :a');
     parameters.ParamByName('a').Value:=dmdata.xhADOQuery.fieldbyname('ql_id').AsString;
     open;
     combobox1.Text:=fieldbyname('ql').AsString;
     unm:= fieldByName('mbf').AsInteger;
   end;
    kqmsnewll;
    button2.Enabled:=true;
    button1.Enabled:=false;
    //showmessage(strtofloat(unm));
end;

procedure TXhForm.Button2Click(Sender: TObject);
var
  kqsl:integer;
  kqqxhm:string;
begin
   if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text ='') or (edit4.Text = '') or (combobox1.Text='') then
    exit;
   if dmdata.qsjzADOQuery.FieldByName('dbegin').AsDateTime > datetimepicker1.Date then
   begin
     showmessage('日期已小于本月范围，请重新选择！');
      datetimepicker1.Date:=dmdata.ADOTable_T_user['date'];
     exit;
   end;
   if (dmdata.qsjzADOQuery.FieldByName('dend').AsDateTime+1) < datetimepicker1.Date then
   begin
     showmessage('日期已大于本月范围，请重新选择！');
      datetimepicker1.Date:=dmdata.ADOTable_T_user['date'];
     exit;
   end;
   //showmessage(floattostr(frac((strtofloat(edit2.Text)-strtofloat(dmdata.LyADOQuery.FieldByName('qxhm').AsString))/unm)));
   if frac((strtofloat(edit2.Text)-strtofloat(qxhm))/unm)<>0 then
   begin
     showmessage('你所输入的起始号码不合法');
     exit;
   end;
    if (sl < strtofloat(edit1.Text)) then
    begin
       showmessage('数量太大');
       exit;
    end;
   if ((strtofloat(edit2.Text)-strtofloat(qxhm))<0) or (strtofloat(edit3.Text)>strtofloat(jxhm)) then
   begin
     showmessage('录入起始号码超出起始或结束号码');
     exit;
   end;
   if (sl=strtofloat(edit1.Text))and(qxhm=edit2.Text) then
   begin
      with dmdata.editADOQuery do
      begin
         close;
         sql.Clear;
         sql.Add('delete * from t_xhb where id=:a');
         parameters.ParamByName('a').Value:=id;
         execsql;
      end;
   end
   else
   begin
    if (qxhm=edit2.Text) then
    begin
      with dmdata.EditADOQuery do
      begin
        close;
        sql.Clear;
        sql.Add('update t_xhb set sl = :b,qxhm = :c where id = :a');
        parameters.ParamByName('a').Value:=id;
        parameters.ParamByName('b').Value:=sl-strtofloat(edit1.Text);
        parameters.parambyname('c').value:=formatfloat(dm.DMData.pjlenstr,strtofloat(floattostr(strtofloat(edit3.text)+1)));
        Execsql;
      end;
    end
    else
    begin
      with dmdata.editADOQuery do
      begin
        close;
        sql.Clear;
        sql.Add('insert into t_xhb(ql_id,rq,sl,qxhm,jxhm,hxbm,qt,xhr,ms_id) values(:a,:b,:c,:d,:e,:f,:g,:h,:i)');
        parameters.ParamByName('a').Value:=ql_id;
        parameters.parambyname('b').value:=datetostr(datetimepicker1.Date);
        parameters.ParamByName('c').Value:=(strtofloat(edit2.Text)-strtofloat(qxhm))/unm;
        parameters.ParamByName('d').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(qxhm));
        parameters.ParamByName('e').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(floattostr(strtofloat(edit2.Text)-1)));
        parameters.ParamByName('f').Value:=trim(lybm);
        parameters.ParamByName('g').Value:=qt;
        parameters.ParamByName('h').Value:=trim(lyr);
        parameters.ParamByName('i').Value:=ms_id;
        Execsql;
      end;
      with dmdata.KqeditADOQuery do
      begin
         close;
         sql.Clear;
         sql.Add('update t_xhb set sl = :b,qxhm = :c where id = :a');
         parameters.ParamByName('a').Value:=id;
         parameters.ParamByName('b').Value:=sl-(strtofloat(edit2.Text)-strtofloat(qxhm))/unm-strtofloat(edit1.Text);
         parameters.parambyname('c').value:=formatfloat(dm.DMData.pjlenstr,strtofloat(floattostr(strtofloat(edit3.text)+1)));
         Execsql;
      end;
   end;
 end;
 with dmdata.KqqsADOQuery do
 begin
    close;
    sql.Clear;
    sql.Add('select a.ql,b.ms_id,b.ql_id,b.rq,b.sl,b.qxhm,b.jxhm,b.kqbm from t_bjql as a inner join t_kqb as b on a.km = b.ql_id where(qt = 1) and (id=:a)' );
    parameters.ParamByName('a').Value:=strtofloat(idlabel.Caption);
    open;
    if (RecordCount > 0) and (strtofloat(fieldbyname('qxhm').AsString)=(strtofloat(edit3.Text)+1)) then
    begin
      kqsl:=fieldbyname('sl').AsInteger;
      kqqxhm:=fieldbyname('qxhm').AsString;
      with dmdata.KqeditADOQuery do
      begin
        close;
        sql.Clear;
        sql.Add('update t_kqb set sl = :b,qxhm = :c where id = :a');
        parameters.ParamByName('a').Value:=strtofloat(idlabel.Caption);
        parameters.ParamByName('b').Value:=kqsl+strtofloat(edit1.Text);
        parameters.parambyname('c').value:=formatfloat(dm.DMData.pjlenstr,strtofloat(floattostr(strtofloat(kqqxhm)-strtofloat(edit1.Text)*unm)));
        Execsql;
        end;
      end
      else
      begin
        with dmdata.kqeditADOQuery do
        begin
           close;
           sql.Clear;
           sql.Add('insert into t_kqb(ms_id,ql_id,rq,sl,qxhm,jxhm,kqbm,qt) values(:a,:b,:c,:d,:e,:f,:g,:h)');
           parameters.ParamByName('a').Value:=ms_id;
           parameters.ParamByName('b').Value:=ql_id;
           parameters.parambyname('c').value:=datetostr(datetimepicker1.Date);
           parameters.ParamByName('d').Value:=strtofloat(edit1.Text);
           parameters.ParamByName('e').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit2.Text));
           parameters.ParamByName('f').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit3.Text));
           parameters.ParamByName('g').Value:=trim(lybm);
           parameters.ParamByName('h').Value:=1;
           Execsql;
        end;
      end;
  end;
  delnewll;
  xhbmnewll;
  combobox2change(Sender);
  xhnewll;
  combobox1.Text:='';
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit1.SetFocus;
  button2.Enabled:=false;
end;

procedure TXhForm.BitBtn2Click(Sender: TObject);
begin
   printerpreview.Orientation:=poLandscape;
  printdbgrideh1.Preview;
end;

procedure TXhForm.BitBtn1Click(Sender: TObject);
var
 iacc_id,iyear,id:integer;
begin
  iacc_id:=dmdata.qsjzADOQuery.fieldbyname('iacc_id').AsInteger;
  iyear:=dmdata.qsjzADOQuery.fieldbyname('iyear').AsInteger;
  id:=dmdata.qsjzADOQuery.fieldbyname('id').AsInteger-1;
  if dmdata.qsjzADOQuery.fieldbyname('id').AsInteger <> 1 then
  begin
    with dmdata.JzADOQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select * from g_period where (iacc_id=:a)and(iyear=:b)and(id=:c)');
      parameters.ParamByName('a').Value := iacc_id;
      parameters.ParamByName('b').Value:=iyear;
      parameters.ParamByName('c').Value :=id;
      open;
      if dmdata.jzADOQuery.fieldByName('bflag').AsBoolean = false then
      begin
        showmessage('上月未结账,不能登记入账;重新注册结账,结账后请重新注册登记入账.');
        exit;
      end;
    end;
  end;
    with dmdata.xhADOQuery  do
    begin
       close;
       sql.Clear;
       sql.Add('select * from T_xhb');
       open;
       First;
       while not eof do
       begin
          with dmdata.QcKqADOQuery do
          begin
            close;
            sql.Clear;
            sql.Add('insert into t_ms_jl(ql_id,rq,sl,qxhm,jxhm,Lybm,qt,jbr) values(:a,:b,:c,:d,:e,:f,:g,:i)');
            parameters.ParamByName('a').Value:=dmdata.xhADOQuery.fieldByName('ql_id').AsString;
            parameters.ParamByName('b').Value:=dmdata.xhADOQuery.fieldByName('rq').AsDateTime;
            parameters.parambyname('c').value:=dmdata.xhADOQuery.fieldByName('sl').AsInteger;
            parameters.ParamByName('d').Value:=dmdata.xhADOQuery.fieldByName('QXHM').AsString;
            parameters.ParamByName('e').Value:=dmdata.xhADOQuery.fieldByName('JXHM').AsString;
            parameters.ParamByName('f').Value:=dmdata.xhADOQuery.fieldByName('hxbm').AsString;
            parameters.ParamByName('g').Value:=3;
            parameters.ParamByName('i').Value:=dmdata.xhADOQuery.fieldByName('xhr').AsString;
            Execsql;
          end;
          next;
        end;
  
    end;
    with dmdata.xhADOQuery do
    begin
     close;
     sql.Clear;
     sql.Add('delete from t_xhb');
     Execsql;
    end;
    xhnewll;
    showmessage('登记完成！');


end;

procedure TXhForm.edit1keypress(Sender: TObject; var Key: Char);
var
  m:boolean;
begin
  m:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
  if m then key := #0;


end;

procedure TXhForm.edit2keypress(Sender: TObject; var Key: Char);
var
  m:boolean;
begin
  m:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
  if m then key := #0;


end;

procedure TXhForm.edit3keypress(Sender: TObject; var Key: Char);
var
  m:boolean;
begin
  m:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
  if m then key := #0;


end;

procedure TXhForm.BitBtn4Click(Sender: TObject);
begin
  close;
end;

end.