jhdj.pas

药店GSP源码

unit jhdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, DB, DBTables, Buttons, Grids, DBGrids, StdCtrls,
  ComCtrls, FR_DSet, FR_DBSet, FR_Class;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DateT1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Edit5: TEdit;
    DBGrid1: TDBGrid;
    Edit6: TEdit;
    Edit7: TEdit;
    DateT2: TDateTimePicker;
    Button2: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Database1: TDatabase;
    Table1: TTable;
    Label5: TLabel;
    Edit8: TEdit;
    Label11: TLabel;
    Ds1: TDataSource;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit9: TEdit;
    Button3: TButton;
    Table1ID: TAutoIncField;
    Table1JIN_DATE: TDateTimeField;
    Table1NAME: TStringField;
    Table1BASICUNIT: TStringField;
    Table1GUIGE: TStringField;
    Table1SHU: TIntegerField;
    Table1SALEPRICE: TFloatField;
    Table1INPRICE: TFloatField;
    Table1PLACE: TStringField;
    Table1LOTNO: TStringField;
    Table1PZNO: TStringField;
    Table1GYS: TStringField;
    Table1YX_DATE: TDateTimeField;
    Edit10: TEdit;
    Label16: TLabel;
    Button4: TButton;
    Table1JX: TStringField;
    Table2: TTable;
    Table1SUM_IN: TFloatField;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
  uses ypqd,gys,gys1,sccj1,jx1;
{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
begin
 if edit1.Text='' then
 begin
 form4.Query1.Close;
  form4.Query1.Open;
  form4.Show;
 end
 else
 begin
 //edit1.Text:=UpperCase(edit1.Text);
 form4.Query1.Close;
 Form4.Query1.SQL.Clear;
 Form4.Query1.SQL.Add('select * from base');
 Form4.Query1.SQL.Add('where pingyingcode like "'+edit1.Text+'%"');
 Form4.Query1.Open;
 form4.Show;
 end;
end;

procedure TForm6.BitBtn4Click(Sender: TObject);
begin
form6.Close;
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
table1.Close;
table2.Close;
table1.Open;
table1.Append;
table1['jin_date']:=datet1.Date;
table1['name']:=edit1.Text;
table1['shu']:=edit2.Text;
table1['saleprice']:=edit3.Text;
table1['BASICUNIT']:=label5.Caption;
table1['inprice']:=edit4.Text;
table1['place']:=edit5.Text;
table1['lotno']:=edit6.Text;
table1['gys']:=edit7.Text;
table1['guige']:=edit8.Text;
table1['yx_date']:=datet2.Date;
table1['pzno']:=edit9.Text;
table1['jx']:=edit10.Text;
table1['sum_in']:=table1['inprice']*table1['shu'];
table1.Post;
table1.Refresh;
table2.Open;
table2.Append;
table2['jin_date']:=datet1.Date;
table2['name']:=edit1.Text;
table2['shu']:=edit2.Text;
table2['saleprice']:=edit3.Text;
table2['BASICUNIT']:=label5.Caption;
table2['inprice']:=edit4.Text;
table2['place']:=edit5.Text;
table2['lotno']:=edit6.Text;
table2['gys']:=edit7.Text;
table2['guige']:=edit8.Text;
table2['yx_date']:=datet2.Date;
table2['pzno']:=edit9.Text;
table2['jx']:=edit10.Text;
table2['sum_in']:=table2['inprice']*table2['shu'];
table2.Post;
table2.Refresh;
ds1.DataSet:=table1;
Application.MessageBox('数据保存成功','数据保存',mb_ok);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';

end;

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
application.MessageBox('确定删除','删除记录',mb_ok);
table1.Delete;
end;

procedure TForm6.BitBtn3Click(Sender: TObject);
begin
frreport1.LoadFromFile('D:\药品进销存\report\1.frf');
frreport1.ShowReport;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
form11.query1.Close;
form11.query1.SQL.Clear;
form11.query1.SQL.Add('select * from ghs');
form11.query1.SQL.Add('where pinyin like "'+Edit7.Text+'%"');
form11.query1.Open;
form11.Show;
end;

procedure TForm6.Button3Click(Sender: TObject);
begin
form12.query1.Close;
form12.query1.SQL.Clear;
form12.query1.SQL.Add('select * from scs');
form12.query1.SQL.Add('where pinyin like "'+Edit5.Text+'%"');
form12.query1.Open;
form12.Show;
end;

procedure TForm6.Button4Click(Sender: TObject);
begin
form15.Query1.Close;
form15.Query1.SQL.Clear;
form15.Query1.SQL.Add('select * from jx');
form15.Query1.SQL.Add('where pinyin like "'+edit10.Text+'%"');
form15.Query1.Open;
form15.Show;
end;

end.