frmdsch01rp.~pas

进销存管理系统包含开题报告、无错程序源代码、无个性标记的可执行程序、院优毕业论文、PPT答辩资料等

unit FrmDsCh01RP;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrmBaseFormP, DB, ADODB, StdCtrls, Buttons, ExtCtrls,ComObj, Menus,
  frxClass, frxDBSet;

type
  TFrmDsCh01R = class(TFrmBaseForm)
    Img1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    RG1: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    RB3: TRadioButton;
    RB2: TRadioButton;
    RB1: TRadioButton;
    Edit7: TEdit;
    Edit8: TEdit;
    ADOQ_DsCh: TADOQuery;
    frxReport1: TfrxReport;
    frxDBDataset1: TfrxDBDataset;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    Function GetSqlData():Boolean;
    { Public declarations }
  end;

var
  FrmDsCh01R: TFrmDsCh01R;
  SqlStr:String;
implementation

uses SysPub, DataM1P ;

{$R *.dfm}

procedure TFrmDsCh01R.FormCreate(Sender: TObject);
begin
 // inherited;
  Img1.Picture.LoadFromFile(_AppPath+'Bmp\Tao.Bmp');
  IF ADOQ_DsCh.Active =False Then
     ADOQ_DsCh.Active :=True;
  SqlStr:='True';
end;

procedure TFrmDsCh01R.BitBtn2Click(Sender: TObject);
begin
  inherited;
  close ;
end;

Function TFrmDsCh01R.GetSqlData():Boolean;
Var SqlStr1,SqlStr2:string;
begin
  IF Edit1.Text<>'' Then
     SqlStr:=SqlStr+' And DsCh02.Ch_ID>='+''''+Edit1.Text+'''';
  IF Edit2.Text <>'' Then
     SqlStr:=SqlStr+'  And DsCh02.Ch_ID<='+''''+Edit2.Text+'''';
  IF Edit3.Text<>'' Then
     SqlStr:=SqlStr+'  And DsCh02.DP_No>='+''''+Edit3.Text+'''';
  IF Edit4.Text<>'' Then
     SqlStr:=SqlStr+'  ANd DsCh02.DP_No<='+''''+Edit4.Text+'''';
  IF Edit5.Text<>'' Then
     SqlStr:=SqlStr+'  And DsCh03.EL_NO>='+''''+Edit5.Text+'''';
  IF Edit6.Text<>'' Then
     SqlStr:=SqlStr+'  And DsCh03.EL_No<='+''''+Edit6.Text+'''';
  IF Edit7.Text<>'' Then
     SqlStr:=SqlStr+'  And DsCh02.Ch_Date>='+''''+Edit7.Text+'''';
  IF Edit8.Text<>'' Then
     SqlStr:=SqlStr+'  And DsCh02.Ch_Date<='+''''+Edit8.Text+'''';
  IF RB1.Checked Then
     SqlStr:=SqlStr+'  And DsCh02.Ch_Sure='+''''+'Y'+'''';
  IF RB2.Checked Then
     SqlStr:=SqlStr+'  And DsCh02.Ch_Sure<>'+''''+'Y'+'''';
  SqlStr1:='Select DsCh03.Ch_ID,DsCh02.Dp_No,DsCh03.Ch_SID,DsCh03.El_No,DsCh03.El_Price,DsCh03.Su_No,DsCh03.Ch_Qty,DsCh03.El_Unit,DsCh03.Od_ID,DsCh02.Ch_Date,DsCh02.Ch_CMAKER,DsCh02.Ch_EDate,DsCh03.Ch_Note From DsCh02,DsCh03 ';
  SqlStr2:=SqlStr1+' Where (DsCh02.Ch_ID=DsCh03.Ch_ID) And '+SqlStr+' order By DsCh03.Ch_ID,DsCh03.Ch_SID';
  Screen.Cursor:=crHourGlass;
  ADOQ_DsCh.Active :=False;
  ADOQ_DsCh.SQL.Clear ;
  ADOQ_DsCh.SQL.Add(SqlStr2);
  ADOQ_DsCh.Active :=True;
  ADOQ_DsCh.ExecSQL ;
  SqlStr:='True';
  IF ADOQ_DsCh.RecordCount<1 Then
     Result:=False
     Else
       Result:=True;

end;

procedure TFrmDsCh01R.BitBtn1Click(Sender: TObject);
Var Return:boolean;
begin
  inherited;
  Return:=GetSqlData ;
  Screen.Cursor:=crDefault;
  IF Return=False Then
     Begin
       Application.MessageBox('无符合条件的任何记录!','提示信息',48);
       Exit;
     End;

  Self.frxReport1.ShowReport(True); 

end;

procedure TFrmDsCh01R.BitBtn3Click(Sender: TObject);
Var
  icount,jcount:Integer;
  XlApp,Sheet,Range:Variant;
  Return:boolean;
begin
  inherited;
  Return:=GetSqlData ;
  Screen.Cursor:=crHourGlass;
  IF Return=False Then
     Begin
       Application.MessageBox('无符合条件的任何记录!','提示信息',48);
       Screen.Cursor:=crDefault;
       Exit;
     End;
  
  Try
  If Not VarIsEmpty(XlApp) Then
     Begin
       XlApp.DisplayAlerts:=False;
       XlApp.WorkBooks.Close;
       XlApp.Quit;
       XlApp:=UnAssigned;
     End;
  Try
    XlApp:=CreateOleObject('Excel.Application');
    Except
    Application.MessageBox('生成EXCEL对象出错，可能是EXCEL未正确安装!','提示信息',32);
    Screen.Cursor:=crDefault;
    Exit;
  End;
  Sheet:=CreateOleObject('Excel.Sheet');
  Sheet:=XlApp.WorkBooks.Add;
  XlApp.WorkSheets[1].Activate;
  Range:=XlApp.Activesheet.Range['A1:J1'];
  Range.Merge;
  Range.FormulaR1C1:='采购单资料明细表';
  Range.HorizontalAlignment:=$FFFFEFF4;  //