editstock_u.pas

汽车维修系统的设计

unit EditStock_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Menus, DB, ADODB, Buttons, StdCtrls, ComCtrls,
  DBCtrls;

type
  TEditStockfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label11: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    GroupBox3: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn6: TBitBtn;
    DetailsQuery: TADOQuery;
    DetailsQueryBillCode: TWideStringField;
    DetailsQuerygoodsCode: TWideStringField;
    DetailsQuerygoodsName: TWideStringField;
    DetailsQuerygoodsType: TWideStringField;
    DetailsQuerygoodsUnit: TWideStringField;
    DetailsQueryNum: TIntegerField;
    DetailsQueryPrice: TIntegerField;
    DetailsQueryTMoney: TBCDField;
    DetailsQueryDSDesigner2: TWideStringField;
    DetailsQueryDSDesigner3: TWideStringField;
    DetailsQueryOthers: TWideStringField;
    StockManDs: TDataSource;
    StockManQuery: TADOQuery;
    MainQuery: TADOQuery;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    DelMenu: TMenuItem;
    DBGrid1: TDBGrid;
    DetailsDs: TDataSource;
    E1: TMenuItem;
    procedure Edit3Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditStockfrm: TEditStockfrm;

implementation

{$R *.dfm}

procedure TEditStockfrm.Edit3Change(Sender: TObject);
begin
  with MainQuery do
     begin
         close;
         sql.Clear ;
         sql.Add('select * from goodsi where billcode=:b0');
         parameters[0].Value :=trim(Edit3.Text);
         open;
     end;
   DateTimePicker1.DateTime:=MainQuery.fieldByName('stockDate').AsDateTime;
   Edit4.Text :=MainQuery.fieldByName('stockCode').AsString ;
   Edit2.Text :=MainQuery.fieldByName('stockMan').AsString ;
   Edit1.Text :=MainQuery.fieldByName('ProvideCode').AsString ;
   Edit5.Text :=MainQuery.fieldByName('Others').AsString ;
   edit6.Text :=MainQuery.fieldByName('StockItems').AsString ;
   Edit7.Text :=MainQuery.fieldByName('TotalMoney').AsString ;
   Edit8.Text :=MainQuery.fieldByName('制单人').AsString ;

  with DetailsQuery do
     begin
         close;
         sql.Clear ;
         sql.Add('select * from goodsiDetails where billcode=:a0');
         parameters[0].Value :=Edit3.Text;
         open;
     end;
end;

procedure TEditStockfrm.BitBtn6Click(Sender: TObject);
begin
   close;
end;

procedure TEditStockfrm.FormCreate(Sender: TObject);
begin
   StockManQuery.Active :=true;
end;

end.