【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MC_JHPZGL.pas”一文，供大家参考学习

    unit MC_JHPZGL;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Grids, ExtCtrls, StdCtrls, Buttons, Db, DBTables, DBCtrls, Qrctrls,
      QuickRpt, DBGrids;
    
    type
      TJHPZGL = class(TForm)
        StringGrid1: TStringGrid;
        Label1: TLabel;
        Label2: TLabel;
        Shape1: TShape;
        GroupBox1: TGroupBox;
        Panel1: TPanel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Edit1: TEdit;
        Bevel1: TBevel;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn4: TBitBtn;
        Query1: TQuery;
        DBLookupListBox1: TDBLookupListBox;
        DataSource1: TDataSource;
        Query1BDEDesigner: TIntegerField;
        Query1BDEDesigner2: TStringField;
        Query1BDEDesigner3: TStringField;
        Query1BDEDesigner4: TStringField;
        Query1BDEDesigner5: TFloatField;
        Query1BDEDesigner6: TStringField;
        Query1BDEDesigner7: TStringField;
        Query1BDEDesigner8: TStringField;
        Query1BDEDesigner9: TStringField;
        Query1BDEDesigner10: TStringField;
        Query2: TQuery;
        Query3: TQuery;
        Label12: TLabel;
        Query4: TQuery;
        DataSource2: TDataSource;
        BitBtn1: TBitBtn;
        DBLookupComboBox1: TDBLookupComboBox;
        QuickRep1: TQuickRep;
        PageHeaderBand1: TQRBand;
        QRLabel1: TQRLabel;
        QRLabel2: TQRLabel;
        QRShape1: TQRShape;
        TitleBand1: TQRBand;
        QRShape2: TQRShape;
        QRLabel3: TQRLabel;
        QRDBText1: TQRDBText;
        QRLabel4: TQRLabel;
        QRLabel5: TQRLabel;
        QRLabel6: TQRLabel;
        QRDBText2: TQRDBText;
        QRLabel7: TQRLabel;
        QRDBText3: TQRDBText;
        QRShape3: TQRShape;
        QRLabel8: TQRLabel;
        QRLabel9: TQRLabel;
        QRLabel10: TQRLabel;
        QRLabel11: TQRLabel;
        QRLabel12: TQRLabel;
        QRLabel13: TQRLabel;
        QRLabel15: TQRLabel;
        QRShape4: TQRShape;
        QRShape5: TQRShape;
        QRShape6: TQRShape;
        QRShape7: TQRShape;
        QRShape8: TQRShape;
        QRShape9: TQRShape;
        DetailBand1: TQRBand;
        QRShape11: TQRShape;
        QRShape12: TQRShape;
        QRShape13: TQRShape;
        QRShape14: TQRShape;
        QRShape15: TQRShape;
        QRShape16: TQRShape;
        QRShape17: TQRShape;
        QRDBText4: TQRDBText;
        QRDBText5: TQRDBText;
        QRDBText6: TQRDBText;
        QRDBText7: TQRDBText;
        QRDBText8: TQRDBText;
        QRDBText9: TQRDBText;
        QRDBText11: TQRDBText;
        Query5: TQuery;
        DBGrid1: TDBGrid;
        SummaryBand1: TQRBand;
        QRShape19: TQRShape;
        QRLabel16: TQRLabel;
        QRDBText12: TQRDBText;
        QRLabel17: TQRLabel;
        QRExpr1: TQRExpr;
        Query5BDEDesigner: TIntegerField;
        Query5BDEDesigner2: TStringField;
        Query5BDEDesigner3: TDateTimeField;
        Query5BDEDesigner4: TIntegerField;
        Query5BDEDesigner5: TStringField;
        Query5BDEDesigner6: TStringField;
        Query5BDEDesigner7: TIntegerField;
        Query5BDEDesigner8: TFloatField;
        Query5BDEDesigner9: TFloatField;
        Query5BDEDesigner10: TStringField;
        Query5BDEDesigner11: TStringField;
        Query5BDEDesigner12: TIntegerField;
        QRLabel14: TQRLabel;
        procedure FormShow(Sender: TObject);
        procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
        procedure BitBtn3Click(Sender: TObject);
        procedure Edit1KeyPress(Sender: TObject; var Key: Char);
        procedure BitBtn2Click(Sender: TObject);
        procedure DBLookupComboBox1Exit(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
        procedure QuickRep1Preview(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
        procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        x,y:integer;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      JHPZGL: TJHPZGL;
    
    implementation
    
    uses MC_DYYLBrose;
    
    {$R *.DFM}
    
    procedure TJHPZGL.FormShow(Sender: TObject);   //系统初始化
    var a:integer;
    begin
     ANimateWindow(Handle,300,AW_SLIDE+AW_VER_POSITIVE);
     Label1.Refresh;
     Label2.Refresh;
     Shape1.Refresh;
     GroupBox1.Refresh;
     Panel1.Refresh;
     StringGrid1.Refresh;
     DBLookupComboBox1.Refresh;
     For a:=1 to 100 do
     begin
      StringGrid1.Cells[0,a]:=IntToStr(a);   //设置列标
     end;
     StringGrid1.Cells[1,0]:='商品简称';
     StringGrid1.Cells[2,0]:='商品编号';
     StringGrid1.Cells[3,0]:='商品名称';
     StringGrid1.Cells[4,0]:='单位';
     StringGrid1.Cells[5,0]:='数量';
     StringGrid1.Cells[6,0]:='单价';
     StringGrid1.Cells[7,0]:='合计金额';
     StringGrid1.Cells[8,0]:='商品说明'