main.pas

药店GSP源码

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, StdCtrls, XPMenu, Menus, DB,
  IBCustomDataSet, IBTable, IBDatabase, Grids, DBGrids, DBTables,shellapi;

type
  Tform5 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N17: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    DBGrid1: TDBGrid;
    ImageList3: TImageList;
    DataSource1: TDataSource;
    Table2: TTable;
    Database2: TDatabase;
    Query1: TQuery;
    Query1DATE: TDateTimeField;
    Query1NAME: TStringField;
    Query1SHU: TIntegerField;
    Query1BASICUNIT: TStringField;
    Query1SALEPRICE: TFloatField;
    Query1INPRICE: TFloatField;
    Query1KEHU: TStringField;
    Query1SUM_XS: TFloatField;
    Query1GUIGE: TStringField;
    N29: TMenuItem;
    N30: TMenuItem;
    GSP1: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DateT1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    N39: TMenuItem;
    N41: TMenuItem;
    GSP2: TMenuItem;
    Label13: TLabel;
    Label14: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Button2: TButton;
    Edit10: TEdit;
    Label15: TLabel;
    Table1: TTable;
    Label16: TLabel;
    Edit11: TEdit;
    N6: TMenuItem;
    N18: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N4Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure GSP2Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form5: Tform5;

implementation
uses chaxun,jh_ch,xsj_ch,lotno,ku_cun,ypqd,jhdj,login,aduser,gys,SCCJ,xs_ch;
{$R *.dfm}

procedure Tform5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.MessageBox('你确定退出！','退出',MB_OK);
database2.Close;
table1.Close;
table2.Close;
query1.Close;
Application.Terminate;
end;

procedure Tform5.N4Click(Sender: TObject);
begin
form3.Show;
end;

procedure Tform5.ToolButton10Click(Sender: TObject);
begin
Application.MessageBox('你确定退出！','退出',MB_OK);
database2.Close;
table1.Close;
table2.Close;
query1.Close;
form1.Close;
Application.Terminate;
end;

procedure Tform5.N28Click(Sender: TObject);
begin
winexec('calc.exe',sw_shownormal);
end;

procedure Tform5.N15Click(Sender: TObject);
begin
Application.MessageBox('你确定退出！','退出',MB_OK);
Application.Terminate;
end;

procedure Tform5.Button1Click(Sender: TObject);
begin
 if edit1.Text='' then
 begin
 table2.Close;
  form4.Query1.Open;
  form4.Show;
 end
 else
 begin
 //edit1.Text:=UpperCase(edit1.Text);
 table2.Close;
 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 Tform5.N5Click(Sender: TObject);
begin
 form6.Show;
end;

procedure Tform5.ToolButton6Click(Sender: TObject);
begin
table2.Close;
Table2.Open;
table2.Append;
table2['date']:=datetostr(datet1.Date);
table2['name']:=edit1.Text;
table2['shu']:=edit2.Text;
table2['saleprice']:=edit3.Text;
table2['kehu']:=edit4.Text;
table2['inprice']:=edit5.Text;
TABLE2['BASICUNIT']:=LABEL11.Caption;
TABLE2['GUIGE']:=EDIT7.Text;
Table2['lotno']:=edit8.Text;
table2['yx_date']:=edit9.Text;
table2['jx']:=edit10.Text;
table2['place']:=edit11.Text;
table2['sum_xs']:=table2['shu']*table2['saleprice'];
edit6.Text:=table2['sum_xs'];
table2.Post;
table2.Refresh;
table1.Close;
Table1.Open;
table1.Append;
table1['jin_date']:=datetostr(datet1.Date);
table1['name']:=edit1.Text;
table1['shu']:=edit2.Text;
table1['shu']:=-table1['shu'];
table1['saleprice']:=edit3.Text;
table1['inprice']:=edit5.Text;
TABLE1['BASICUNIT']:=LABEL11.Caption;
TABLE1['GUIGE']:=EDIT7.Text;
Table1['lotno']:=edit8.Text;
table1['yx_date']:=edit9.Text;
table1['jx']:=edit10.Text;
Table1['place']:=edit11.Text;
table1['sum_in']:=table1['shu']*table1['saleprice'];
table1.Post;
table1.Refresh;
application.MessageBox('数据保存成功！','数据保存',MB_OK);
table1.Close;
table2.Close;
end;

procedure Tform5.ToolButton2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';

end;

procedure Tform5.ToolButton4Click(Sender: TObject);
begin
Application.MessageBox('确定删除','删除记录',mb_ok);
table2.Delete;
end;

procedure Tform5.ToolButton8Click(Sender: TObject);
var
aaa:string;
begin
aaa:=datetostr(datet1.Date);
query1.SQL.Clear;
query1.SQL.Add('select * from sale1');
query1.SQL.Add('where date>=#'+aaa+'#');
query1.Open;
end;

procedure Tform5.N7Click(Sender: TObject);
begin
form1.Show;

end;

procedure Tform5.N14Click(Sender: TObject);
begin
form9.Show;
end;

procedure Tform5.N12Click(Sender: TObject);
begin
 form7.Show;
end;

procedure Tform5.N11Click(Sender: TObject);
begin
 FORM10.Show;
end;

procedure Tform5.GSP2Click(Sender: TObject);
begin
 shellexecute(handle,'open','D:\药品进销存\gsptest.chm','','',SW_SHOWNORMAL);
end;

procedure Tform5.N17Click(Sender: TObject);
begin
form13.Show;
end;

procedure Tform5.Button2Click(Sender: TObject);
begin
 form14.Query1.Close;
 form14.Query1.SQL.Clear;
 form14.Query1.SQL.Add('select * from jhdj');
 form14.Query1.SQL.Add('where name="'+edit1.Text+'"');
 form14.Query1.Open;
 form14.Show;
 end;

procedure Tform5.N8Click(Sender: TObject);
begin
form16.Show;
end;

procedure Tform5.N21Click(Sender: TObject);
begin
 form17.Show;
end;

procedure Tform5.N23Click(Sender: TObject);
begin
 form18.Show;
end;

procedure Tform5.N25Click(Sender: TObject);
begin
  shellexecute(handle,'open','http://www.landkj.cn','','',SW_SHOWNORMAL);
end;

end.