📄 grunit.pas

📁 很好用的一个票据管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
     edit3.SetFocus;
   end;
   if key=vk_up then
   begin
     edit1.SetFocus;
   end;
end;

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

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

procedure TGrForm.combobox2keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      if (key = vk_return)then
 begin
   datetimepicker2.SetFocus;
 end;
end;

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

procedure TGrForm.edit5keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (key =vk_return)or(key=vk_down) then
   begin
     edit6.SetFocus;
   end;
   if key=vk_up then
   begin
     datetimepicker2.SetFocus;
   end;
end;

procedure TGrForm.edit7keydow(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key =vk_return)or(key=vk_down) then
   begin
     edit8.SetFocus;
   end;
   if key=vk_up then
   begin
     edit6.SetFocus;
   end;
end;

procedure TGrForm.edit6keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
       if (key =vk_return)or(key=vk_down) then
   begin
     edit7.SetFocus;
   end;
   if key=vk_up then
   begin
     edit5.SetFocus;
   end;
end;

procedure TGrForm.edit8keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      if (key =vk_return)or(key=vk_down) then
   begin
     bitedit.SetFocus;
   end;
   if key=vk_up then
   begin
     edit7.SetFocus;
   end;
end;

procedure TGrForm.dbgrideh1cellclick(Column: TColumnEh);
begin
  with dmdata.grADOQuery do
 begin
   if RecordCount > 0 then
   begin
     idlabel.Caption:=inttostr(fieldbyname('id').AsInteger);
     if groupbox2.Visible = true then
     begin
      combobox2.Text:=fieldbyname('ql').AsString;
      datetimepicker2.date:=fieldbyname('rq').AsDateTime;
      edit5.Text:=inttostr(fieldbyname('sl').AsInteger);
      edit6.Text:=fieldbyname('qxhm').AsString;
      edit7.Text:=fieldbyname('jxhm').AsString;
      edit8.Text:=fieldbyname('jbr').AsString;
     end;
   end;
 end;
end;

procedure TGrForm.BitADDClick(Sender: TObject);
var
 ID:string;
begin
 if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text ='') or (edit4.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;  
  with dmdata.BjqlADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from t_bjql where ql = :a');
    parameters.ParamByName('a').Value := trim(combobox1.Text);
    open;
    ID := fieldByName('km').AsString;
  end;
  with dmdata.grADOQuery do
  begin
     close;
     sql.Clear;
     sql.Add('insert into t_grb(ql_id,rq,sl,qxhm,jxhm,jbr) values(:a,:b,:c,:d,:e,:f)');
     parameters.ParamByName('a').Value:=ID;
     parameters.ParamByName('b').Value:=datetostr(datetimepicker1.Date);
     parameters.parambyname('c').value:=strtoint(edit1.text);
     parameters.ParamByName('d').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit2.Text));
     parameters.ParamByName('e').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit3.Text));
     parameters.ParamByName('f').Value:=edit4.text;
     Execsql;
   end;
   GrbNew;
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit4.Text:='';
   combobox1.SetFocus;
   toolbutton3.Enabled:=false;
   n3.Enabled:=false;
end;

procedure TGrForm.BitEDITClick(Sender: TObject);
var
 ID:string;
begin
  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;
  with dmdata.grADOQuery do
  begin
     close;
     sql.Clear;
     sql.Add('update t_grb set rq = :b,sl = :c,qxhm = :d,jxhm = :e,jbr = :g where id = :f');
     parameters.ParamByName('b').Value:=datetostr(datetimepicker2.Date);
     parameters.parambyname('c').value:=strtoint(edit5.text);
     parameters.ParamByName('d').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit6.Text));
     parameters.ParamByName('e').Value:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit7.Text));
     parameters.parambyname('g').value:=edit5.text;
     parameters.ParamByName('f').Value:=strtoint(IDlabel.Caption);
     Execsql;
   end;
   id:= trim(idlabel.Caption);
   grbNew;
   with  dmdata.grADOQuery do
   begin
     if Locate('id',id,[loCaseInsensitive]) then
     begin
        ToolButton2Click(Sender);
     end
     else
       exit;
   end;
   combobox2.SetFocus;
   toolbutton3.Enabled:=false;
   n3.Enabled:=false;

end;

procedure TGrForm.ToolButton3Click(Sender: TObject);
var
id:string;
begin
  if not dmdata.grADOQuery.Eof then
  begin
  id:=inttostr(strtoint(idlabel.Caption)+1);
  with dmdata.grADOQuery do
  begin
     close;
     sql.Clear;
     sql.Add('delete from t_grb where (ID = :a)');
     parameters.ParamByName('a').Value:=STRTOint(idlabel.Caption);
     Execsql;
   end;
   grbNew;
    with  dmdata.grADOQuery do
   begin
     if Locate('id',id,[loCaseInsensitive]) then
     begin
        idlabel.Caption:=inttostr(fieldbyname('id').AsInteger);
     end
     else
        grbNew;
   end;
 end
 else
   grbNew;
end;

procedure TGrForm.N1Click(Sender: TObject);
begin
 ToolButton1Click(Sender);
end;

procedure TGrForm.N2Click(Sender: TObject);
begin
  ToolButton2Click(Sender);
end;

procedure TGrForm.N3Click(Sender: TObject);
begin
  ToolButton3Click(Sender);
end;

procedure TGrForm.ToolButton5Click(Sender: TObject);
begin
    dmdata.grADOQuery.First;
    idlabel.Caption:=inttostr(dmdata.grADOQuery.fieldbyname('id').AsInteger);
     if groupbox2.Visible = true then
     begin
      with dmdata.grADOQuery do
      begin
       combobox2.Text:=fieldbyname('ql').AsString;
       datetimepicker2.date:=fieldbyname('rq').AsDateTime;
       edit5.Text:=inttostr(fieldbyname('sl').AsInteger);
       edit6.Text:=fieldbyname('qxhm').AsString;
       edit7.Text:=fieldbyname('jxhm').AsString;
       edit8.Text:=fieldbyname('jbr').AsString;
      end;
      combobox2.SetFocus;
     end;
end;

procedure TGrForm.ToolButton8Click(Sender: TObject);
begin
   dmdata.grADOQuery.Prior;
    idlabel.Caption:=inttostr(dmdata.grADOQuery.fieldbyname('id').AsInteger);
     if groupbox2.Visible = true then
     begin
      with dmdata.grADOQuery do
      begin
       combobox2.Text:=fieldbyname('ql').AsString;
       datetimepicker2.date:=fieldbyname('rq').AsDateTime;
       edit5.Text:=inttostr(fieldbyname('sl').AsInteger);
       edit6.Text:=fieldbyname('qxhm').AsString;
       edit7.Text:=fieldbyname('jxhm').AsString;
       edit8.Text:=fieldbyname('jbr').AsString;
      end;
      combobox2.SetFocus;
     end;
end;

procedure TGrForm.ToolButton11Click(Sender: TObject);
begin
    dmdata.grADOQuery.Last;
    idlabel.Caption:=inttostr(dmdata.grADOQuery.fieldbyname('id').AsInteger);
     if groupbox2.Visible = true then
     begin
      with dmdata.grADOQuery do
      begin
       combobox2.Text:=fieldbyname('ql').AsString;
       datetimepicker2.date:=fieldbyname('rq').AsDateTime;
       edit5.Text:=inttostr(fieldbyname('sl').AsInteger);
       edit6.Text:=fieldbyname('qxhm').AsString;
       edit7.Text:=fieldbyname('jxhm').AsString;
       edit8.Text:=fieldbyname('jbr').AsString;
      end;
      combobox2.SetFocus;
     end;
end;

procedure TGrForm.ToolButton9Click(Sender: TObject);
begin
   dmdata.grADOQuery.Next;
    idlabel.Caption:=inttostr(dmdata.grADOQuery.fieldbyname('id').AsInteger);
     if groupbox2.Visible = true then
     begin
      with dmdata.grADOQuery do
      begin
       combobox2.Text:=fieldbyname('ql').AsString;
       datetimepicker2.date:=fieldbyname('rq').AsDateTime;
       edit5.Text:=inttostr(fieldbyname('sl').AsInteger);
       edit6.Text:=fieldbyname('qxhm').AsString;
       edit7.Text:=fieldbyname('jxhm').AsString;
       edit8.Text:=fieldbyname('jbr').AsString;
      end;
      combobox2.SetFocus;
     end;
end;

procedure TGrForm.edit5change(Sender: TObject);
begin
  if ((edit5.Text <> '') and (edit6.Text <> '')) then
   begin
    edit7.Text:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit5.Text)*unm+strtofloat(edit6.Text)-1);
   end
   else
     exit;
end;

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

procedure TGrForm.ToolButton13Click(Sender: TObject);
begin
   if printdbgrideh1.PrinterSetupDialog = true then
      printdbgrideh1.Print;
end;

procedure TGrForm.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 TGrForm.edti2keypress(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 TGrForm.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 TGrForm.edit5keypress(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 TGrForm.edit6keypress(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 TGrForm.edut7keypress(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 TGrForm.Edit7Change(Sender: TObject);
begin
   edit6.Text:= copy(trim(edit6.Text),1,dm.DMData.pjlen);
end;

procedure TGrForm.Edit6Change(Sender: TObject);
begin
     if ((edit5.Text <> '') and (edit6.Text <> '')) then
   begin
    edit7.Text:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit5.Text)*unm+strtofloat(edit6.Text)-1);
   end
   else
     exit;
end;

procedure TGrForm.Edit1Change(Sender: TObject);
begin
    if ((edit1.Text <> '') and (edit2.Text <> '')) then
   begin
    edit3.Text:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit1.Text)*unm+strtofloat(edit2.Text)-1);

   end
   else
     exit;
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -