grunit.pas

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

unit GrUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GridsEh, DBGridEh, ComCtrls, ToolWin, ImgList, StdCtrls, Buttons,
  db, Menus, PrnDbgeh,prvieweh,printers;

type
  TGrForm = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton15: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton7: TToolButton;
    DBGridEh1: TDBGridEh;
    ToolButton4: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitADD: TBitBtn;
    BitBIT2: TBitBtn;
    idLabel: TLabel;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    ComboBox2: TComboBox;
    DateTimePicker2: TDateTimePicker;
    edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    BitEDIT: TBitBtn;
    BitBtn3: TBitBtn;
    Edit4: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit8: TEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure GrbNew;
    procedure Grbox1comboboxnew;
    procedure Grbox2comboboxnew;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure combobox1change(Sender: TObject);
    procedure combobox2change(Sender: TObject);
    procedure BitBIT2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure edit2change(Sender: TObject);
    procedure edit3change(Sender: TObject);
    procedure combobox1keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure datetimepicker1keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit1keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit2keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit3keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit4keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure combobox2keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure datetimepicker2keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit5keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit7keydow(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit6keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit8keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbgrideh1cellclick(Column: TColumnEh);
    procedure BitADDClick(Sender: TObject);
    procedure BitEDITClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure edit5change(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure edit1keypress(Sender: TObject; var Key: Char);
    procedure edti2keypress(Sender: TObject; var Key: Char);
    procedure edit3keypress(Sender: TObject; var Key: Char);
    procedure edit5keypress(Sender: TObject; var Key: Char);
    procedure edit6keypress(Sender: TObject; var Key: Char);
    procedure edut7keypress(Sender: TObject; var Key: Char);
    procedure Edit7Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
    unm:integer;
  public
    { Public declarations }
  end;

var
  GrForm: TGrForm;

implementation
uses dm;
{$R *.dfm}
procedure TGrForm.GrbNew;
begin
  with dmdata.GrADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select a.ql,b.id,b.rq,b.sl,b.qxhm,b.jxhm,b.jbr from t_bjql as a inner join t_grb as b on a.km = b.ql_id order by b.id ');
    open;
    if RecordCount > 0 then
    begin
      toolbutton5.Enabled:=true;
      toolbutton8.Enabled:=true;
      toolbutton9.Enabled:=true;
      toolbutton11.Enabled:=true;
      toolbutton2.Enabled:=true;
      toolbutton3.Enabled:=true;
      toolbutton4.Enabled:=true;
      n2.Enabled:=true;
      n3.Enabled:=true;
    end
    else
    begin
      toolbutton5.Enabled:=false;
      toolbutton8.Enabled:=false;
      toolbutton9.Enabled:=false;
      toolbutton11.Enabled:=false;
      toolbutton2.Enabled:=false;
      toolbutton3.Enabled:=false;
      toolbutton4.Enabled:=false;
      n2.Enabled:=false;
      n3.Enabled:=false;
    end;
  end;
    idlabel.Caption:=inttostr(dmdata.grADOQuery.fieldbyname('id').AsInteger);
end;
procedure Tgrform.Grbox1comboboxnew;
begin
  dmdata.BjqlADOTable.Active:=false;
  dmdata.BjqlADOTable.Active:=true;
   dmdata.BjqlADOTable.First;
   while not dmdata.BjqlADOTable.eof do
   begin
     combobox1.Items.Add(dmdata.BjqlADOTable['QL']);
     dmdata.BjqlADOTable.Next;
   end;
   combobox1.ItemIndex:=0;
end;
procedure Tgrform.Grbox2comboboxnew;
begin
  dmdata.BjqlADOTable.Active:=false;
  dmdata.BjqlADOTable.Active:=true;
   dmdata.BjqlADOTable.First;
   while not dmdata.BjqlADOTable.eof do
   begin
     combobox2.Items.Add(dmdata.BjqlADOTable['QL']);
     dmdata.BjqlADOTable.Next;
   end;
   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.ToolButton4Click(Sender: TObject);
var
 iacc_id,iyear,id,ms_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.grADOQuery  do
    begin
       close;
       sql.Clear;
       sql.Add('select * from T_grb');
       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.grADOQuery.fieldByName('ql_id').AsString;
            parameters.ParamByName('b').Value:=dmdata.grADOQuery.fieldByName('rq').AsDateTime;
            parameters.parambyname('c').value:=dmdata.grADOQuery.fieldByName('sl').AsInteger;
            parameters.ParamByName('d').Value:=dmdata.grADOQuery.fieldByName('QXHM').AsString;
            parameters.ParamByName('e').Value:=dmdata.grADOQuery.fieldByName('JXHM').AsString;
            parameters.ParamByName('f').Value:='购入';
            parameters.ParamByName('g').Value:=1;
            parameters.ParamByName('i').Value:=dmdata.grADOQuery.fieldByName('Jbr').AsString;
            Execsql;
          end;
          with dmdata.QcKqADOQuery do
          begin
            close;
            sql.Clear;
            sql.Add('select MAX(ID) AS ms_id from t_ms_jl' );
            open;
            ms_id:= fieldByName('ms_id').AsInteger;
          end;
          with dmdata.QcKqADOQuery do
          begin
             close;
             sql.Clear;
             sql.Add('insert into t_kqb(ms_id,ql_id,rq,sl,qxhm,jxhm,KQbm,qt) values(:h,:a,:b,:c,:d,:e,:f,:g)');
             parameters.ParamByName('h').Value := ms_id;
             parameters.ParamByName('a').Value:=dmdata.grADOQuery.fieldByName('ql_id').AsString;
             parameters.ParamByName('b').Value:=dmdata.grADOQuery.fieldByName('rq').AsDateTime;
             parameters.parambyname('c').value:=dmdata.grADOQuery.fieldByName('sl').AsInteger;
             parameters.ParamByName('d').Value:=dmdata.grADOQuery.fieldByName('QXHM').AsString;
             parameters.ParamByName('e').Value:=dmdata.grADOQuery.fieldByName('JXHM').AsString;
             parameters.ParamByName('f').Value:='库存';
             parameters.ParamByName('g').Value:=0;
             Execsql;
          end;
          next;
        end;
    end;
    with dmdata.GrADOQuery do
    begin
     close;
     sql.Clear;
     sql.Add('delete from t_grb');
     Execsql;
    end;
    grbNew;
    showmessage('登记完成！');
end;

procedure TGrForm.ToolButton7Click(Sender: TObject);
begin
  close;
end;

procedure TGrForm.FormCreate(Sender: TObject);
var
 yy,mm,dd:word;
begin
   GrbNew;
   decodedate(dmdata.ADOTable_T_user.fieldbyname('date').AsDateTime,yy,mm,dd);
   printdbgrideh1.PageHeader.CenterText.Add(dmdata.ADOTable_T_user.fieldbyname('dh').AsString);
   printdbgrideh1.Title.Add(inttostr(yy)+'年'+inttostr(mm)+'月份购入票据');
   printdbgrideh1.PageFooter.RightText.Add('第&[Page]页 共&[Pages]页'+'打印日期:'+DateToStr(Now));
   printdbgrideh1.PageFooter.CenterText.add('制表人:'+dmdata.ADOTable_T_user.fieldbyname('name').AsString);
   printdbgrideh1.PageFooter.LeftText.Add('复核人：           ');
end;

procedure TGrForm.ToolButton1Click(Sender: TObject);
begin
   if groupbox2.Visible = true then
     groupbox2.Visible:=false;
  if groupbox1.Visible = false then
    Groupbox1.Visible:=true;
    combobox1.Clear;
    Grbox1comboboxnew;
    datetimepicker1.Date:=dmdata.ADOTable_T_user['date'];
    combobox1change(Sender);
    Combobox1.SetFocus;
    toolbutton3.Enabled :=false;
    n3.Enabled:=false;
    edit1.MaxLength:=dm.DMData.pjlen;
   edit2.MaxLength:=dm.DMData.pjlen;
   edit3.MaxLength:=dm.DMData.pjlen;
end;

procedure TGrForm.ToolButton2Click(Sender: TObject);
begin
   if groupbox1.Visible = true then
     groupbox1.Visible:=false;
  if groupbox2.Visible = false then
     Groupbox2.Visible:=true;
     combobox2.Clear;
     Grbox2comboboxnew;
     combobox2change(Sender);
     Combobox2.SetFocus;
     toolbutton3.Enabled:=false;
     n3.Enabled:=false;
   edit5.MaxLength:=dm.DMData.pjlen;
   edit6.MaxLength:=dm.DMData.pjlen;
   edit7.MaxLength:=dm.DMData.pjlen;
end;

procedure TGrForm.combobox1change(Sender: TObject);
begin
  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;
     unm:= fieldByName('mbf').AsInteger;
   end;
end;

procedure TGrForm.combobox2change(Sender: TObject);
begin
   with dmdata.BjqlADOQuery do
   begin
     close;
     sql.Clear;
     sql.Add('select * from t_bjql where ql= :a');
     parameters.ParamByName('a').Value:=trim(combobox2.Text);
     open;
     unm:= fieldByName('mbf').AsInteger;
   end;
   if ((edit5.Text <> '') and (edit6.Text <> '')and(edit7.Text <>'')and(edit8.Text<>'')) then
   begin
    edit7.Text:=formatfloat(dm.DMData.pjlenstr,strtofloat(edit5.Text)*unm+strtofloat(edit6.Text)-1);
   end
   else
     exit;
end;

procedure TGrForm.BitBIT2Click(Sender: TObject);
begin
  groupbox1.Visible:=false;
   toolbutton3.Enabled:=true;
   n3.Enabled:=true;
end;

procedure TGrForm.BitBtn3Click(Sender: TObject);
begin
  groupbox2.Visible:=false;
   toolbutton3.Enabled:=true;
   n3.Enabled:=true;
end;

procedure TGrForm.edit2change(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;

procedure TGrForm.edit3change(Sender: TObject);
begin
    edit2.Text:= copy(trim(edit2.Text),1,dm.DMData.pjlen);
end;

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

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

procedure TGrForm.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 TGrForm.edit2keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (key =vk_return)or(key=vk_down) then
   begin