grmsunit.pas

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

unit GrmsUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GridsEh, DBGridEh, StdCtrls, Buttons, ExtCtrls,PrnDbgeh,prvieweh,printers,DBGridEHImpExp,
  ComCtrls;

type
  TGrmsForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    SaveDialog1: TSaveDialog;
    BitBtn4: TBitBtn;
    procedure GrmsNewll;
    procedure GrmsQxnewll;
    procedure formcreate(Sender: TObject);
    procedure combobox1chnange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
    dbegin,dend:string;
  public
    { Public declarations }
  end;

var
  GrmsForm: TGrmsForm;

implementation
uses dm,grqxunit;
{$R *.dfm}
procedure TGrmsform.GrmsNewll;
begin
   combobox1.Items.Add('全部');
    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 tgrmsform.GrmsQxnewll;
begin
 if combobox1.Text = '全部' then
 begin
    with dmdata.GrQxADOQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select a.id,a.ql_id,a.rq,a.sl,a.qxhm,a.jxhm,a.lybm,a.qt,a.jbr,a.jjr,b.ql from t_ms_jl as a,t_bjql as b where (a.ql_id=b.km)and (lybm = ''购入'')and(qt=1)and(RQ >=:a)and(rq <=:b) order by a.id');
      parameters.ParamByName('a').Value:=strtodate(dbegin);
      parameters.ParamByName('b').Value:=strtodate(dend);
      open;
    end;
 end
 else
 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;
   end;
   with dmdata.GrQxADOQuery do
   begin
     close;
     sql.Clear;
     sql.Add('select a.id,a.ql_id,a.rq,a.sl,a.qxhm,a.jxhm,a.lybm,a.qt,a.jbr,a.jjr,b.ql from t_ms_jl as a,t_bjql as b where (a.ql_id=b.km)and (lybm = ''购入'')and(qt=1)and(RQ >=:a)and(rq <=:b)and (ql_id = :c) order by a.id');
     parameters.ParamByName('a').Value:=strtodate(dbegin);
     parameters.ParamByName('b').Value:=strtodate(dend);
     parameters.ParamByName('c').Value:=dmdata.BjqlADOQuery.fieldbyname('km').AsString;
     open;
   end;
 end;
end;
procedure TGrmsForm.formcreate(Sender: TObject);
var
 yy,mm,dd:word;
begin
  dbegin:=trim(grqxform.ComboBox2.Text);
  dend:=trim(grqxform.ComboBox3.Text);
  GrmsNewll;
  GrmsQxnewll;
  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('票据购入查询');
   printdbgrideh1.PageFooter.RightText.Add('制表人:'+dmdata.ADOTable_T_user.fieldbyname('name').AsString+' 打印日期:'+DateToStr(Now));
   printdbgrideh1.PageFooter.CenterText.add('第&[Page]页 共&[Pages]页');
   printdbgrideh1.PageFooter.LeftText.Add('查询日期:'+'('+dbegin+' — '+dend+')');
   Caption:=Caption+' - '+grqxform.ComboBox1.Text;
   grqxform.Close;
end;

procedure TGrmsForm.combobox1chnange(Sender: TObject);
begin
   GrmsQxnewll;
end;

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

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

procedure TGrmsForm.BitBtn3Click(Sender: TObject);
var
  ExpClass:TDBGridEhExportClass;
  Ext:String;
begin
  SaveDialog1.FileName :='file1';
  //if (ActiveControl is TDBGridEH) then
     if saveDialog1.Execute then
     begin
       case SaveDialog1.FilterIndex of
           1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
           2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
           3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
           4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
           5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
       else
           ExpClass := nil; Ext := '';
     end;
     if ExpClass <> nil then
     begin
       if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName+'.'+Ext;
       SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,true);
     end;
   end;
end;

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

end.